# HG changeset patch
# User bcoudurier
# Date 1234508795 0
# Node ID 1c6dd9d7a634c550d33192ba078f4ed5ed96bd5a
# Parent  49cf858ac43024e3f54222ec06e3aadedb16f22a
write essence elements klv packets with ber4 length, more interoperable

diff -r 49cf858ac430 -r 1c6dd9d7a634 mxfenc.c
--- a/mxfenc.c	Fri Feb 13 05:33:11 2009 +0000
+++ b/mxfenc.c	Fri Feb 13 07:06:35 2009 +0000
@@ -1397,7 +1397,7 @@
 
     // write system metadata pack
     put_buffer(pb, system_metadata_pack_key, 16);
-    klv_encode_ber_length(pb, 57);
+    klv_encode_ber4_length(pb, 57);
     put_byte(pb, 0x5c); // UL, user date/time stamp, picture and sound item present
     put_byte(pb, 0x04); // content package rate
     put_byte(pb, 0x00); // content package type
@@ -1419,7 +1419,7 @@
 
     // write system metadata package set
     put_buffer(pb, system_metadata_package_set_key, 16);
-    klv_encode_ber_length(pb, 35);
+    klv_encode_ber4_length(pb, 35);
     put_byte(pb, 0x83); // UMID
     put_be16(pb, 0x20);
     mxf_write_umid(pb, SourcePackage, 0);
@@ -1479,7 +1479,7 @@
 
     mxf_write_klv_fill(s);
     put_buffer(pb, sc->track_essence_element_key, 16); // write key
-    klv_encode_ber_length(pb, pkt->size); // write length
+    klv_encode_ber4_length(pb, pkt->size); // write length
     put_buffer(pb, pkt->data, pkt->size); // write value
 
     put_flush_packet(pb);