eliminated spurious estra leading '/'
[asdcplib.git] / src / MXFTypes.cpp
index 2a8949e44f1dda51ca4875f0c1ac99b3d32d2c9e..b9b2bd9e405056c80af7bdec2a02e2f3724666b7 100755 (executable)
@@ -1,5 +1,5 @@
 /*
-Copyright (c) 2005-2006, John Hurst
+Copyright (c) 2005-2009, John Hurst
 All rights reserved.
 
 Redistribution and use in source and binary forms, with or without
@@ -29,51 +29,461 @@ THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
     \brief   MXF objects
 */
 
+#include <KM_prng.h>
 #include "MXFTypes.h"
+#include <KM_log.h>
+
+using Kumu::DefaultLogSink;
 
 //------------------------------------------------------------------------------------------
 //
 
+const char*
+ASDCP::UL::EncodeString(char* str_buf, ui32_t buf_len) const
+{
+  if ( buf_len > 38 ) // room for dotted notation?
+    {
+      snprintf(str_buf, buf_len,
+              "%02x%02x%02x%02x.%02x%02x.%02x%02x.%02x%02x%02x%02x.%02x%02x%02x%02x",
+              m_Value[0],  m_Value[1],  m_Value[2],  m_Value[3],
+              m_Value[4],  m_Value[5],  m_Value[6],  m_Value[7],
+              m_Value[8],  m_Value[9],  m_Value[10], m_Value[11],
+              m_Value[12], m_Value[13], m_Value[14], m_Value[15]
+               );
+
+      return str_buf;
+    }
+  else if ( buf_len > 32 ) // room for compact?
+    {
+      snprintf(str_buf, buf_len,
+              "%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x",
+              m_Value[0],  m_Value[1],  m_Value[2],  m_Value[3],
+              m_Value[4],  m_Value[5],  m_Value[6],  m_Value[7],
+              m_Value[8],  m_Value[9],  m_Value[10], m_Value[11],
+              m_Value[12], m_Value[13], m_Value[14], m_Value[15]
+               );
+
+      return str_buf;
+    }
+
+  return 0;
+}
+
 //
-ASDCP::Result_t
-ASDCP::MXF::UTF16String::ReadFrom(ASDCP::MemIOReader& Reader)
-{
-  const byte_t* p = Reader.Data() + Reader.Offset();
-  /// cheating - for all use cases, we know the previous two bytes are the length
-  m_length = ASDCP_i16_BE(cp2i<ui16_t>(p-2));
-  assert(m_length % 2 == 0);
-  m_length /= 2;
-  assert(IdentBufferLen >= m_length);
-  ui32_t i = 0;
+void
+ASDCP::UMID::MakeUMID(int Type)
+{
+  UUID AssetID;
+  Kumu::GenRandomValue(AssetID);
+  MakeUMID(Type, AssetID);
+}
 
-  for ( i = 0; i < m_length; i++ )
-    m_buffer[i] = p[(i*2)+1];
+//
+void
+ASDCP::UMID::MakeUMID(int Type, const UUID& AssetID)
+{
+  // Set the non-varying base of the UMID
+  static const byte_t UMIDBase[10] = { 0x06, 0x0a, 0x2b, 0x34, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01 };
+  memcpy(m_Value, UMIDBase, 10);
+  m_Value[10] = Type;  // Material Type
+  m_Value[12] = 0x13;  // length
+
+  // preserved for compatibility with mfxlib
+  if( Type > 4 ) m_Value[7] = 5;
+  m_Value[11] = 0x20; // UUID/UL method, number gen undefined
+
+  // Instance Number
+  m_Value[13] = m_Value[14] = m_Value[15] = 0;
+  
+  memcpy(&m_Value[16], AssetID.Value(), AssetID.Size());
+  m_HasValue = true;
+}
 
-  m_buffer[i] = 0;
 
-  Reader.SkipOffset(m_length*2);
-  return RESULT_OK;
+// Write the timestamp value to the given buffer in the form 2004-05-01 13:20:00.000
+// returns 0 if the buffer is smaller than DateTimeLen
+const char*
+ASDCP::UMID::EncodeString(char* str_buf, ui32_t buf_len) const
+{
+  assert(str_buf);
+
+  snprintf(str_buf, buf_len, "[%02x%02x%02x%02x.%02x%02x.%02x%02x.%02x%02x%02x%02x],%02x,%02x,%02x,%02x,",
+          m_Value[0],  m_Value[1],  m_Value[2],  m_Value[3],
+          m_Value[4],  m_Value[5],  m_Value[6],  m_Value[7],
+          m_Value[8],  m_Value[9],  m_Value[10], m_Value[11],
+          m_Value[12], m_Value[13], m_Value[14], m_Value[15]
+          );
+
+  ui32_t offset = strlen(str_buf);
+
+  if ( ( m_Value[8] & 0x80 ) == 0 )
+    {
+      // half-swapped UL, use [bbaa9988.ddcc.ffee.00010203.04050607]
+      snprintf(str_buf + offset, buf_len - offset,
+              "[%02x%02x%02x%02x.%02x%02x.%02x%02x.%02x%02x%02x%02x.%02x%02x%02x%02x]",
+               m_Value[24], m_Value[25], m_Value[26], m_Value[27],
+              m_Value[28], m_Value[29], m_Value[30], m_Value[31],
+               m_Value[16], m_Value[17], m_Value[18], m_Value[19],
+              m_Value[20], m_Value[21], m_Value[22], m_Value[23]
+               );
+    }
+  else
+    {
+      // UUID, use {00112233-4455-6677-8899-aabbccddeeff}
+      snprintf(str_buf + offset, buf_len - offset,
+              "{%02x%02x%02x%02x-%02x%02x-%02x%02x-%02x%02x-%02x%02x%02x%02x%02x%02x}",
+               m_Value[16], m_Value[17], m_Value[18], m_Value[19],
+              m_Value[20], m_Value[21], m_Value[22], m_Value[23],
+               m_Value[24], m_Value[25], m_Value[26], m_Value[27],
+              m_Value[28], m_Value[29], m_Value[30], m_Value[31]
+               );
+    }
+
+  return str_buf;
 }
 
+//------------------------------------------------------------------------------------------
 //
-ASDCP::Result_t
-ASDCP::MXF::UTF16String::WriteTo(ASDCP::MemIOWriter& Writer)
+
+//
+const ASDCP::MXF::UTF16String&
+ASDCP::MXF::UTF16String::operator=(const char* sz)
+{
+  if ( sz == 0 || *sz == 0 )
+    erase();
+
+  else
+    this->assign(sz);
+  
+  return *this;
+}
+
+//
+const ASDCP::MXF::UTF16String&
+ASDCP::MXF::UTF16String::operator=(const std::string& str)
+{
+  this->assign(str);
+  return *this;
+}
+
+//
+const char*
+ASDCP::MXF::UTF16String::EncodeString(char* str_buf, ui32_t buf_len) const
+{
+  ui32_t write_len = Kumu::xmin(buf_len - 1, (ui32_t)size());
+  strncpy(str_buf, c_str(), write_len);
+  str_buf[write_len] = 0;
+  return str_buf;
+}
+
+//
+bool
+ASDCP::MXF::UTF16String::Unarchive(Kumu::MemIOReader* Reader)
 {
-  byte_t* p = Writer.Data() + Writer.Size();
+  erase();
+  const ui16_t* p = (ui16_t*)Reader->CurrentData();
+  ui32_t length = Reader->Remainder() / 2;
+  char mb_buf[MB_LEN_MAX+1];
+
+  for ( ui32_t i = 0; i < length; i++ )
+    {
+      int count = wctomb(mb_buf, KM_i16_BE(p[i]));
+
+      if ( count == -1 )
+       {
+         DefaultLogSink().Error("Unable to decode wide character 0x%04hx\n", p[i]);
+         return false;
+       }
+
+      assert(count <= MB_LEN_MAX);
+      mb_buf[count] = 0;
+      this->append(mb_buf);
+    }
+
+  Reader->SkipOffset(length*2);
+  return true;
+}
+
+//
+bool
+ASDCP::MXF::UTF16String::Archive(Kumu::MemIOWriter* Writer) const
+{
+  if ( size() > IdentBufferLen )
+    {
+      DefaultLogSink().Error("String length exceeds maximum %u bytes\n", IdentBufferLen);
+      return false;
+    }
+
+  const char* mbp = c_str();
+  wchar_t wcp;
+  ui32_t remainder = size();
+  ui32_t length = size();
   ui32_t i = 0;
-  m_length = strlen(m_buffer);
-  memset(p, 0, m_length*2);
 
-  for ( i = 0; i < m_length; i++ )
-    p[(i*2)+1] = m_buffer[i];
+  while ( i < length )
+    {
+      int count = mbtowc(&wcp, mbp+i, remainder);
 
-  m_buffer[i] = 0;
+      if ( count == -1 )
+       {
+         DefaultLogSink().Error("Error decoding multi-byte sequence starting at offset %u\n", i);
+         return false;
+       }
+      else if ( count  == 0 )
+       break;
 
-  Writer.AddOffset(m_length*2);
-  return RESULT_OK;
+      bool result = Writer->WriteUi16BE((ui16_t)wcp);
+
+      if ( result == false )
+       {
+         DefaultLogSink().Error("No more space in memory IO writer\n");
+         return false;
+       }
+
+      i += count;
+      remainder -= count;
+    }
+
+  return true;
 }
 
 
+//------------------------------------------------------------------------------------------
+//
+
+#ifdef WIN32
+
+#define TIMESTAMP_TO_SYSTIME(ts, t) \
+  (t)->wYear    = (ts).Year;   /* year */ \
+  (t)->wMonth   = (ts).Month;  /* month of year (1 - 12) */ \
+  (t)->wDay     = (ts).Day;    /* day of month (1 - 31) */ \
+  (t)->wHour    = (ts).Hour;   /* hours (0 - 23) */ \
+  (t)->wMinute  = (ts).Minute; /* minutes (0 - 59) */ \
+  (t)->wSecond  = (ts).Second; /* seconds (0 - 60) */ \
+  (t)->wDayOfWeek = 0; \
+  (t)->wMilliseconds = ((ts).Tick * 4);
+
+#define SYSTIME_TO_TIMESTAMP(t, ts) \
+  (ts).Year   = (t)->wYear;    /* year */ \
+  (ts).Month  = (t)->wMonth;   /* month of year (1 - 12) */ \
+  (ts).Day    = (t)->wDay;     /* day of month (1 - 31) */ \
+  (ts).Hour   = (t)->wHour;    /* hours (0 - 23) */ \
+  (ts).Minute = (t)->wMinute;  /* minutes (0 - 59) */ \
+  (ts).Second = (t)->wSecond;  /* seconds (0 - 60) */ \
+  (ts).Tick   = (t)->wMilliseconds / 4;
+
+//
+ASDCP::MXF::Timestamp::Timestamp() :
+  Year(0), Month(0),  Day(0), Hour(0), Minute(0), Second(0), Tick(0)
+{
+  SYSTEMTIME sys_time;
+  GetSystemTime(&sys_time);
+  SYSTIME_TO_TIMESTAMP(&sys_time, *this);
+}
+
+//
+bool
+ASDCP::MXF::Timestamp::operator<(const Timestamp& rhs) const
+{
+  SYSTEMTIME lhst, rhst;
+  FILETIME lft, rft;
+
+  TIMESTAMP_TO_SYSTIME(*this, &lhst);
+  TIMESTAMP_TO_SYSTIME(rhs, &rhst);
+  SystemTimeToFileTime(&lhst, &lft);
+  SystemTimeToFileTime(&rhst, &rft);
+  return ( CompareFileTime(&lft, &rft) == -1 );
+}
+
+inline ui64_t
+seconds_to_ns100(ui32_t seconds)
+{
+  return ((ui64_t)seconds * 10000000);
+}
+
+//
+void
+ASDCP::MXF::Timestamp::AddDays(i32_t days)
+{
+  SYSTEMTIME current_st;
+  FILETIME current_ft;
+  ULARGE_INTEGER current_ul;
+
+  if ( days != 0 )
+    {
+      TIMESTAMP_TO_SYSTIME(*this, &current_st);
+      SystemTimeToFileTime(&current_st, &current_ft);
+      memcpy(&current_ul, &current_ft, sizeof(current_ul));
+      current_ul.QuadPart += ( seconds_to_ns100(86400) * (ui64_t)days );
+      memcpy(&current_ft, &current_ul, sizeof(current_ft));
+      FileTimeToSystemTime(&current_ft, &current_st);
+      SYSTIME_TO_TIMESTAMP(&current_st, *this);
+    }
+}
+
+//
+void
+ASDCP::MXF::Timestamp::AddHours(i32_t hours)
+{
+  SYSTEMTIME current_st;
+  FILETIME current_ft;
+  ULARGE_INTEGER current_ul;
+
+  if ( hours != 0 )
+    {
+      TIMESTAMP_TO_SYSTIME(*this, &current_st);
+      SystemTimeToFileTime(&current_st, &current_ft);
+      memcpy(&current_ul, &current_ft, sizeof(current_ul));
+      current_ul.QuadPart += ( seconds_to_ns100(3600) * (ui64_t)hours );
+      memcpy(&current_ft, &current_ul, sizeof(current_ft));
+      FileTimeToSystemTime(&current_ft, &current_st);
+      SYSTIME_TO_TIMESTAMP(&current_st, *this);
+    }
+}
+
+#else // KM_WIN32
+
+#include <time.h>
+
+#define TIMESTAMP_TO_TM(ts, t) \
+  (t)->tm_year = (ts).Year - 1900;   /* year - 1900 */ \
+  (t)->tm_mon  = (ts).Month - 1;     /* month of year (0 - 11) */ \
+  (t)->tm_mday = (ts).Day;           /* day of month (1 - 31) */ \
+  (t)->tm_hour = (ts).Hour;          /* hours (0 - 23) */ \
+  (t)->tm_min  = (ts).Minute;        /* minutes (0 - 59) */ \
+  (t)->tm_sec  = (ts).Second;        /* seconds (0 - 60) */
+
+#define TM_TO_TIMESTAMP(t, ts) \
+  (ts).Year   = (t)->tm_year + 1900;    /* year - 1900 */ \
+  (ts).Month  = (t)->tm_mon + 1;     /* month of year (0 - 11) */ \
+  (ts).Day    = (t)->tm_mday;    /* day of month (1 - 31) */ \
+  (ts).Hour   = (t)->tm_hour;    /* hours (0 - 23) */ \
+  (ts).Minute = (t)->tm_min;     /* minutes (0 - 59) */ \
+  (ts).Second = (t)->tm_sec;     /* seconds (0 - 60) */
+
+//
+ASDCP::MXF::Timestamp::Timestamp() :
+  Year(0), Month(0),  Day(0), Hour(0), Minute(0), Second(0)
+{
+  time_t t_now = time(0);
+  struct tm*  now = gmtime(&t_now);
+  TM_TO_TIMESTAMP(now, *this);
+}
+
+//
+bool
+ASDCP::MXF::Timestamp::operator<(const Timestamp& rhs) const
+{
+  struct tm lhtm, rhtm;
+  TIMESTAMP_TO_TM(*this, &lhtm);
+  TIMESTAMP_TO_TM(rhs, &rhtm);
+  return ( timegm(&lhtm) < timegm(&rhtm) );
+}
+
+//
+void
+ASDCP::MXF::Timestamp::AddDays(i32_t days)
+{
+  struct tm current;
+
+  if ( days != 0 )
+    {
+      TIMESTAMP_TO_TM(*this, &current);
+      time_t adj_time = timegm(&current);
+      adj_time += 86400 * days;
+      struct tm*  now = gmtime(&adj_time);
+      TM_TO_TIMESTAMP(now, *this);
+    }
+}
+
+//
+void
+ASDCP::MXF::Timestamp::AddHours(i32_t hours)
+{
+  struct tm current;
+
+  if ( hours != 0 )
+    {
+      TIMESTAMP_TO_TM(*this, &current);
+      time_t adj_time = timegm(&current);
+      adj_time += 3600 * hours;
+      struct tm*  now = gmtime(&adj_time);
+      TM_TO_TIMESTAMP(now, *this);
+    }
+}
+
+#endif // KM_WIN32
+
+
+ASDCP::MXF::Timestamp::Timestamp(const Timestamp& rhs) : IArchive()
+{
+  Year   = rhs.Year;
+  Month  = rhs.Month;
+  Day    = rhs.Day;
+  Hour   = rhs.Hour;
+  Minute = rhs.Minute;
+  Second = rhs.Second;
+}
+
+ASDCP::MXF::Timestamp::~Timestamp()
+{
+}
+
+//
+const ASDCP::MXF::Timestamp&
+ASDCP::MXF::Timestamp::operator=(const Timestamp& rhs)
+{
+  Year   = rhs.Year;
+  Month  = rhs.Month;
+  Day    = rhs.Day;
+  Hour   = rhs.Hour;
+  Minute = rhs.Minute;
+  Second = rhs.Second;
+  return *this;
+}
+
+//
+bool
+ASDCP::MXF::Timestamp::operator==(const Timestamp& rhs) const
+{
+  if ( Year == rhs.Year
+       && Month  == rhs.Month
+       && Day    == rhs.Day
+       && Hour   == rhs.Hour
+       && Minute == rhs.Minute
+       && Second == rhs.Second )
+    return true;
+
+  return false;
+}
+
+//
+bool
+ASDCP::MXF::Timestamp::operator!=(const Timestamp& rhs) const
+{
+  if ( Year != rhs.Year
+       || Month  != rhs.Month
+       || Day    != rhs.Day
+       || Hour   != rhs.Hour
+       || Minute != rhs.Minute
+       || Second != rhs.Second )
+    return true;
+
+  return false;
+}
+
+//
+const char*
+ASDCP::MXF::Timestamp::EncodeString(char* str_buf, ui32_t buf_len) const
+{
+  // 2004-05-01 13:20:00.000
+  snprintf(str_buf, buf_len,
+          "%04hu-%02hu-%02hu %02hu:%02hu:%02hu.000",
+           Year, Month, Day, Hour, Minute, Second);
+  
+  return str_buf;
+}
+
 //------------------------------------------------------------------------------------------
 //
 
@@ -87,26 +497,18 @@ ASDCP::MXF::TLVReader::TLVReader(const byte_t* p, ui32_t c, IPrimerLookup* Prime
       TagValue Tag;
       ui16_t pkt_len = 0;
 
-      result = MemIOReader::ReadUi8(&Tag.a);
-
-      if ( ASDCP_SUCCESS(result) )
-       result = MemIOReader::ReadUi8(&Tag.b);
-
-      if ( ASDCP_SUCCESS(result) )
-       result = MemIOReader::ReadUi16BE(&pkt_len);
-
-      if ( ASDCP_SUCCESS(result) )
-       {
-         m_ElementMap.insert(TagMap::value_type(Tag, ItemInfo(m_size, pkt_len)));
-         result = SkipOffset(pkt_len);
-       }
-      
-      if ( ASDCP_FAILURE(result) )
-       {
-         DefaultLogSink().Error("Malformed Set\n");
-         m_ElementMap.clear();
-         break;
-       }
+      if ( MemIOReader::ReadUi8(&Tag.a) )
+       if ( MemIOReader::ReadUi8(&Tag.b) )
+         if ( MemIOReader::ReadUi16BE(&pkt_len) )
+           {
+             m_ElementMap.insert(TagMap::value_type(Tag, ItemInfo(m_size, pkt_len)));
+             if ( SkipOffset(pkt_len) )
+               continue;;
+           }
+
+      DefaultLogSink().Error("Malformed Set\n");
+      m_ElementMap.clear();
+      result = RESULT_KLV_CODING;
     }
 }
 
@@ -116,7 +518,7 @@ ASDCP::MXF::TLVReader::FindTL(const MDDEntry& Entry)
 {
   if ( m_Lookup == 0 )
     {
-      fprintf(stderr, "No Lookup service\n");
+      DefaultLogSink().Error("No Lookup service\n");
       return false;
     }
   
@@ -126,8 +528,8 @@ ASDCP::MXF::TLVReader::FindTL(const MDDEntry& Entry)
     {
       if ( Entry.tag.a == 0 )
        {
-         DefaultLogSink().Info("No such UL in this TL list: %s (%02x %02x)\n",
-                               Entry.name, Entry.tag.a, Entry.tag.b);
+         //      DefaultLogSink().Debug("No such UL in this TL list: %s (%02x %02x)\n",
+         //                             Entry.name, Entry.tag.a, Entry.tag.b);
          return false;
        }
 
@@ -143,18 +545,21 @@ ASDCP::MXF::TLVReader::FindTL(const MDDEntry& Entry)
       return true;
     }
 
-  DefaultLogSink().Info("Not Found (%02x %02x): %s\n", TmpTag.a, TmpTag.b, Entry.name);
+  //  DefaultLogSink().Debug("Not Found (%02x %02x): %s\n", TmpTag.a, TmpTag.b, Entry.name);
   return false;
 }
 
 //
 ASDCP::Result_t
-ASDCP::MXF::TLVReader::ReadObject(const MDDEntry& Entry, IArchive* Object)
+ASDCP::MXF::TLVReader::ReadObject(const MDDEntry& Entry, Kumu::IArchive* Object)
 {
   ASDCP_TEST_NULL(Object);
 
   if ( FindTL(Entry) )
-    return Object->ReadFrom(*this);
+    {
+      if ( m_size < m_capacity ) // don't try to unarchive an empty item
+       return Object->Unarchive(this) ? RESULT_OK : RESULT_KLV_CODING;
+    }
 
   return RESULT_FALSE;
 }
@@ -166,7 +571,7 @@ ASDCP::MXF::TLVReader::ReadUi8(const MDDEntry& Entry, ui8_t* value)
   ASDCP_TEST_NULL(value);
 
   if ( FindTL(Entry) )
-    return MemIOReader::ReadUi8(value);
+    return MemIOReader::ReadUi8(value) ? RESULT_OK : RESULT_KLV_CODING;
 
   return RESULT_FALSE;
 }
@@ -178,7 +583,7 @@ ASDCP::MXF::TLVReader::ReadUi16(const MDDEntry& Entry, ui16_t* value)
   ASDCP_TEST_NULL(value);
 
   if ( FindTL(Entry) )
-    return MemIOReader::ReadUi16BE(value);
+    return MemIOReader::ReadUi16BE(value) ? RESULT_OK : RESULT_KLV_CODING;
 
   return RESULT_FALSE;
 }
@@ -190,7 +595,7 @@ ASDCP::MXF::TLVReader::ReadUi32(const MDDEntry& Entry, ui32_t* value)
   ASDCP_TEST_NULL(value);
 
   if ( FindTL(Entry) )
-    return MemIOReader::ReadUi32BE(value);
+    return MemIOReader::ReadUi32BE(value) ? RESULT_OK : RESULT_KLV_CODING;
 
   return RESULT_FALSE;
 }
@@ -202,7 +607,7 @@ ASDCP::MXF::TLVReader::ReadUi64(const MDDEntry& Entry, ui64_t* value)
   ASDCP_TEST_NULL(value);
 
   if ( FindTL(Entry) )
-    return MemIOReader::ReadUi64BE(value);
+    return MemIOReader::ReadUi64BE(value) ? RESULT_OK : RESULT_KLV_CODING;
 
   return RESULT_FALSE;
 }
@@ -220,46 +625,47 @@ ASDCP::MXF::TLVWriter::TLVWriter(byte_t* p, ui32_t c, IPrimerLookup* PrimerLooku
 ASDCP::Result_t
 ASDCP::MXF::TLVWriter::WriteTag(const MDDEntry& Entry)
 {
-  TagValue TmpTag;
-
   if ( m_Lookup == 0 )
     {
       DefaultLogSink().Error("No Primer object available\n");
       return RESULT_FAIL;
     }
 
-  if ( m_Lookup->InsertTag(Entry.ul, TmpTag) != RESULT_OK )
+  TagValue TmpTag;
+
+  if ( m_Lookup->InsertTag(Entry, TmpTag) != RESULT_OK )
     {
       DefaultLogSink().Error("No tag for entry %s\n", Entry.name);
       return RESULT_FAIL;
     }
 
-  Result_t result = MemIOWriter::WriteUi8(TmpTag.a);
-  if ( ASDCP_SUCCESS(result) ) MemIOWriter::WriteUi8(TmpTag.b);
-
-  return result;
+  if ( ! MemIOWriter::WriteUi8(TmpTag.a) ) return RESULT_KLV_CODING;
+  if ( ! MemIOWriter::WriteUi8(TmpTag.b) ) return RESULT_KLV_CODING;
+  return RESULT_OK;
 }
 
 //
 ASDCP::Result_t
-ASDCP::MXF::TLVWriter::WriteObject(const MDDEntry& Entry, IArchive* Object)
+ASDCP::MXF::TLVWriter::WriteObject(const MDDEntry& Entry, Kumu::IArchive* Object)
 {
   ASDCP_TEST_NULL(Object);
-  Result_t result = WriteTag(Entry);
 
-  // write a temp length
-  byte_t* l_p = CurrentData();
+  if ( Entry.optional && ! Object->HasValue() )
+    return RESULT_OK;
 
-  if ( ASDCP_SUCCESS(result) )
-    MemIOWriter::WriteUi16BE(0);
+  Result_t result = WriteTag(Entry);
 
   if ( ASDCP_SUCCESS(result) )
     {
-      ui32_t before = Size();
-      result = Object->WriteTo(*this);
+      // write a temp length
+      byte_t* l_p = CurrentData();
 
-      if ( ASDCP_SUCCESS(result) ) 
-       i2p<ui16_t>(ASDCP_i16_BE( Size() - before), l_p);
+      if ( ! MemIOWriter::WriteUi16BE(0) ) return RESULT_KLV_CODING;
+
+      ui32_t before = Length();
+      if ( ! Object->Archive(this) ) return RESULT_KLV_CODING;
+      if ( (Length() - before) > 0xffffL ) return RESULT_KLV_CODING;
+      Kumu::i2p<ui16_t>(KM_i16_BE(Length() - before), l_p);
     }
 
   return result;
@@ -271,8 +677,13 @@ ASDCP::MXF::TLVWriter::WriteUi8(const MDDEntry& Entry, ui8_t* value)
 {
   ASDCP_TEST_NULL(value);
   Result_t result = WriteTag(Entry);
-  if ( ASDCP_SUCCESS(result) ) MemIOWriter::WriteUi16BE(sizeof(ui8_t));
-  if ( ASDCP_SUCCESS(result) ) MemIOWriter::WriteUi8(*value);
+
+  if ( ASDCP_SUCCESS(result) )
+    {
+      if ( ! MemIOWriter::WriteUi16BE(sizeof(ui8_t)) ) return RESULT_KLV_CODING;
+      if ( ! MemIOWriter::WriteUi8(*value) ) return RESULT_KLV_CODING;
+    }
+  
   return result;
 }
 
@@ -282,8 +693,13 @@ ASDCP::MXF::TLVWriter::WriteUi16(const MDDEntry& Entry, ui16_t* value)
 {
   ASDCP_TEST_NULL(value);
   Result_t result = WriteTag(Entry);
-  if ( ASDCP_SUCCESS(result) ) MemIOWriter::WriteUi16BE(sizeof(ui16_t));
-  if ( ASDCP_SUCCESS(result) ) MemIOWriter::WriteUi8(*value);
+
+  if ( KM_SUCCESS(result) )
+    {
+      if ( ! MemIOWriter::WriteUi16BE(sizeof(ui16_t)) ) return RESULT_KLV_CODING;
+      if ( ! MemIOWriter::WriteUi16BE(*value) ) return RESULT_KLV_CODING;
+    }
+
   return result;
 }
 
@@ -293,8 +709,13 @@ ASDCP::MXF::TLVWriter::WriteUi32(const MDDEntry& Entry, ui32_t* value)
 {
   ASDCP_TEST_NULL(value);
   Result_t result = WriteTag(Entry);
-  if ( ASDCP_SUCCESS(result) ) MemIOWriter::WriteUi16BE(sizeof(ui32_t));
-  if ( ASDCP_SUCCESS(result) ) MemIOWriter::WriteUi8(*value);
+
+  if ( KM_SUCCESS(result) )
+    {
+      if ( ! MemIOWriter::WriteUi16BE(sizeof(ui32_t)) ) return RESULT_KLV_CODING;
+      if ( ! MemIOWriter::WriteUi32BE(*value) ) return RESULT_KLV_CODING;
+    }
+
   return result;
 }
 
@@ -304,11 +725,58 @@ ASDCP::MXF::TLVWriter::WriteUi64(const MDDEntry& Entry, ui64_t* value)
 {
   ASDCP_TEST_NULL(value);
   Result_t result = WriteTag(Entry);
-  if ( ASDCP_SUCCESS(result) ) MemIOWriter::WriteUi16BE(sizeof(ui64_t));
-  if ( ASDCP_SUCCESS(result) ) MemIOWriter::WriteUi8(*value);
+
+  if ( KM_SUCCESS(result) )
+    {
+      if ( ! MemIOWriter::WriteUi16BE(sizeof(ui64_t)) ) return RESULT_KLV_CODING;
+      if ( ! MemIOWriter::WriteUi64BE(*value) ) return RESULT_KLV_CODING;
+    }
+
   return result;
 }
 
+
+//----------------------------------------------------------------------------------------------------
+//
+
+ASDCP::MXF::Raw::Raw()
+{
+  Capacity(256);
+}
+
+ASDCP::MXF::Raw::~Raw()
+{
+}
+
+//
+bool
+ASDCP::MXF::Raw::Unarchive(Kumu::MemIOReader* Reader)
+{
+  ui32_t payload_size = Reader->Remainder();
+  if ( payload_size == 0 ) return false;
+  if ( KM_FAILURE(Capacity(payload_size)) ) return false;
+
+  memcpy(Data(), Reader->CurrentData(), payload_size);
+  Length(payload_size);
+  return true;
+}
+
+//
+bool
+ASDCP::MXF::Raw::Archive(Kumu::MemIOWriter* Writer) const
+{
+  return Writer->WriteRaw(RoData(), Length());
+}
+
+//
+const char*
+ASDCP::MXF::Raw::EncodeString(char* str_buf, ui32_t buf_len) const
+{
+  *str_buf = 0;
+  Kumu::bin2hex(RoData(), Length(), str_buf, buf_len);
+  return str_buf;
+}
+
 //
-// end 
+// end MXFTypes.cpp
 //