Release me
[asdcplib.git] / src / AS_02_PCM.cpp
index cf8995e45d9c135494a6369e961237b1268fefbe..8532887e5cc0209f198d81daa223af05af95c275 100644 (file)
@@ -1,29 +1,32 @@
 /*
-  Copyright (c) 2011-2012, Robert Scheler, Heiko Sparenberg Fraunhofer IIS, John Hurst
-  All rights reserved.
-
-  Redistribution and use in source and binary forms, with or without
-  modification, are permitted provided that the following conditions
-  are met:
-  1. Redistributions of source code must retain the above copyright
-  notice, this list of conditions and the following disclaimer.
-  2. Redistributions in binary form must reproduce the above copyright
-  notice, this list of conditions and the following disclaimer in the
-  documentation and/or other materials provided with the distribution.
-  3. The name of the author may not be used to endorse or promote products
-  derived from this software without specific prior written permission.
-
-  THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
-  IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
-  OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
-  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
-  INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
-  NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
-  DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
-  THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
-  (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
-  THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*/ 
+Copyright (c) 2011-2015, Robert Scheler, Heiko Sparenberg Fraunhofer IIS,
+John Hurst
+
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions
+are met:
+1. Redistributions of source code must retain the above copyright
+   notice, this list of conditions and the following disclaimer.
+2. Redistributions in binary form must reproduce the above copyright
+   notice, this list of conditions and the following disclaimer in the
+   documentation and/or other materials provided with the distribution.
+3. The name of the author may not be used to endorse or promote products
+   derived from this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
+IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
+OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
+IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
+INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
+NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+*/
+
 /*! \file    AS_02_PCM.cpp
   \version $Id$       
   \brief   AS-02 library, PCM essence reader and writer implementation
 static std::string PCM_PACKAGE_LABEL = "File Package: SMPTE 382M clip wrapping of wave audio";
 static std::string SOUND_DEF_LABEL = "Sound Track";
 
-static byte_t SNDFMT_CFG_1_UL[16] = { 0x06, 0x0e, 0x2b, 0x34, 0x04, 0x01, 0x01, 0x0b,
-                                     0x04, 0x02, 0x02, 0x10, 0x03, 0x01, 0x01, 0x00 };
-
-static byte_t SNDFMT_CFG_2_UL[16] = { 0x06, 0x0e, 0x2b, 0x34, 0x04, 0x01, 0x01, 0x0b,
-                                     0x04, 0x02, 0x02, 0x10, 0x03, 0x01, 0x02, 0x00 };
-
-static byte_t SNDFMT_CFG_3_UL[16] = { 0x06, 0x0e, 0x2b, 0x34, 0x04, 0x01, 0x01, 0x0b,
-                                     0x04, 0x02, 0x02, 0x10, 0x03, 0x01, 0x03, 0x00 };
-
-//this must be changed because the CBR_frame_size is only   
-//
-static ui32_t
-calc_CBR_frame_size(ASDCP::WriterInfo& Info, const ASDCP::PCM::AudioDescriptor& ADesc)
-{
-  ui32_t CBR_frame_size = 0;
-
-  if ( Info.EncryptedEssence )
-    {
-      CBR_frame_size =
-       //TODO: correct?
-       /*SMPTE_UL_LENGTH  
-         + MXF_BER_LENGTH
-         + */klv_cryptinfo_size
-       + calc_esv_length(ASDCP::PCM::CalcFrameBufferSize(ADesc), 0)
-       + ( Info.UsesHMAC ? klv_intpack_size : (MXF_BER_LENGTH * 3) );
-    }
-  else
-    {
-      CBR_frame_size = ASDCP::PCM::CalcFrameBufferSize(ADesc);
-    }
-
-  return CBR_frame_size;
-}
-
 
 //------------------------------------------------------------------------------------------
 
 
-class AS_02::PCM::MXFReader::h__Reader : public AS_02::h__Reader
+class AS_02::PCM::MXFReader::h__Reader : public AS_02::h__AS02Reader
 {
+  ui64_t m_ClipEssenceBegin, m_ClipSize;
+  ui32_t m_ClipDurationFrames, m_BytesPerFrame;
+
   ASDCP_NO_COPY_CONSTRUCT(h__Reader);
   h__Reader();
 
 public:
-  ASDCP::PCM::AudioDescriptor m_ADesc;
+  h__Reader(const Dictionary& d) : AS_02::h__AS02Reader(d), m_ClipEssenceBegin(0), m_ClipSize(0),
+                                  m_ClipDurationFrames(0) {}
+  virtual ~h__Reader() {}
 
-  h__Reader(const Dictionary& d) : AS_02::h__Reader(d) {}
-  ~h__Reader() {}
-  ASDCP::Result_t    OpenRead(const char*);
+  ASDCP::Result_t    OpenRead(const std::string&, const ASDCP::Rational& edit_rate);
   ASDCP::Result_t    ReadFrame(ui32_t, ASDCP::PCM::FrameBuffer&, ASDCP::AESDecContext*, ASDCP::HMACContext*);
-
-  
-  Result_t OpenMXFRead(const char* filename);
-  // positions file before reading
-  Result_t ReadEKLVFrame(ui32_t FrameNum, ASDCP::FrameBuffer& FrameBuf,
-                        const byte_t* EssenceUL, AESDecContext* Ctx, HMACContext* HMAC);
-
-  // reads from current position
-  Result_t ReadEKLVPacket(ui32_t FrameNum, ui32_t SequenceNum, ASDCP::FrameBuffer& FrameBuf,
-                         const byte_t* EssenceUL, AESDecContext* Ctx, HMACContext* HMAC);
-
-
 };
 
-
+// TODO: This will ignore any body partitions past the first
 //
 //
 ASDCP::Result_t
-AS_02::PCM::MXFReader::h__Reader::OpenRead(const char* filename)
+AS_02::PCM::MXFReader::h__Reader::OpenRead(const std::string& filename, const ASDCP::Rational& edit_rate)
 {
-  Result_t result = OpenMXFRead(filename);
+  ASDCP::MXF::WaveAudioDescriptor* wave_descriptor = 0;
+  IndexTableSegment::IndexEntry tmp_entry;
+  Result_t result = OpenMXFRead(filename.c_str());
 
-  if( ASDCP_SUCCESS(result) )
+  if( KM_SUCCESS(result) )
     {
-      InterchangeObject* Object;
-      if ( ASDCP_SUCCESS(m_HeaderPart.GetMDObjectByType(OBJ_TYPE_ARGS(WaveAudioDescriptor), &Object)) )
+      InterchangeObject* tmp_obj = 0;
+
+      if ( KM_SUCCESS(m_HeaderPart.GetMDObjectByType(OBJ_TYPE_ARGS(WaveAudioDescriptor), &tmp_obj)) )
        {
-         assert(Object);
-         result = MD_to_PCM_ADesc((ASDCP::MXF::WaveAudioDescriptor*)Object, m_ADesc);
+         wave_descriptor = dynamic_cast<ASDCP::MXF::WaveAudioDescriptor*>(tmp_obj);
        }
     }
 
-  // check for sample/frame rate sanity
-  if ( ASDCP_SUCCESS(result)
-       && m_ADesc.EditRate != EditRate_24
-       && m_ADesc.EditRate != EditRate_25
-       && m_ADesc.EditRate != EditRate_30
-       && m_ADesc.EditRate != EditRate_48
-       && m_ADesc.EditRate != EditRate_50
-       && m_ADesc.EditRate != EditRate_60
-       && m_ADesc.EditRate != EditRate_23_98 )
+  if ( wave_descriptor == 0 )
     {
-      DefaultLogSink().Error("PCM file EditRate is not a supported value: %d/%d\n", // lu
-                            m_ADesc.EditRate.Numerator, m_ADesc.EditRate.Denominator);
+      DefaultLogSink().Error("WaveAudioDescriptor object not found.\n");
+      result = RESULT_AS02_FORMAT;
+    }
 
-      // oh, they gave us the audio sampling rate instead, assume 24/1
-      if ( m_ADesc.EditRate == SampleRate_48k )
-       {
-         DefaultLogSink().Warn("adjusting EditRate to 24/1\n"); 
-         m_ADesc.EditRate = EditRate_24;
-       }
-      else
+  if ( KM_SUCCESS(result) )
+    result = m_IndexAccess.Lookup(0, tmp_entry);
+
+  if ( KM_SUCCESS(result) )
+    result = m_File.Seek(tmp_entry.StreamOffset);
+
+  if ( KM_SUCCESS(result) )
+    {
+      assert(wave_descriptor);
+      KLReader reader;
+      result = reader.ReadKLFromFile(m_File);
+
+      if ( KM_SUCCESS(result) )
        {
-         // or we just drop the hammer
-         return RESULT_FORMAT;
-       }
-    }
+         if ( ! UL(reader.Key()).MatchIgnoreStream(m_Dict->ul(MDD_WAVEssenceClip)) )
+           {
+             const MDDEntry *entry = m_Dict->FindULAnyVersion(reader.Key());
 
-  if( ASDCP_SUCCESS(result) )
-    result = InitMXFIndex();
+             if ( entry == 0 )
+               {
+                 char buf[64];
+                 DefaultLogSink().Error("Essence wrapper key is not WAVEssenceClip: %s\n", UL(reader.Key()).EncodeString(buf, 64));
+               }
+             else
+               {
+                 DefaultLogSink().Error("Essence wrapper key is not WAVEssenceClip: %s\n", entry->name);
+               }
+             
+             return RESULT_AS02_FORMAT;
+           }
 
-  if( ASDCP_SUCCESS(result) )
-    result = InitInfo();
+         if ( wave_descriptor->BlockAlign == 0 )
+           {
+             DefaultLogSink().Error("EssenceDescriptor has corrupt BlockAlign value, unable to continue.\n");
+             return RESULT_AS02_FORMAT;
+           }
+
+         if ( reader.Length() % wave_descriptor->BlockAlign != 0 )
+           {
+             DefaultLogSink().Error("Clip length is not an even multiple of BlockAlign, unable to continue.\n");
+             return RESULT_AS02_FORMAT;
+           }
 
-  // TODO: test file for sane CBR index BytesPerEditUnit
+         m_ClipEssenceBegin = m_File.Tell();
+         m_ClipSize = reader.Length();
+         m_BytesPerFrame = AS_02::MXF::CalcFrameBufferSize(*wave_descriptor, edit_rate);
+         m_ClipDurationFrames = m_ClipSize / m_BytesPerFrame;
+
+         if ( m_ClipSize % m_BytesPerFrame > 0 )
+           {
+             ++m_ClipDurationFrames; // there is a partial frame at the end
+           }
+       }
+    }
 
   return result;
 }
 
-
-//
 //
 ASDCP::Result_t
 AS_02::PCM::MXFReader::h__Reader::ReadFrame(ui32_t FrameNum, ASDCP::PCM::FrameBuffer& FrameBuf,
                                            ASDCP::AESDecContext* Ctx, ASDCP::HMACContext* HMAC)
 {
   if ( ! m_File.IsOpen() )
-    return RESULT_INIT;
+    {
+      return RESULT_INIT;
+    }
+
+  if ( ! ( FrameNum < m_ClipDurationFrames ) )
+    {
+      return RESULT_RANGE;
+    }
+
+  assert(m_ClipEssenceBegin);
+  ui64_t offset = FrameNum * m_BytesPerFrame;
+  ui64_t position = m_ClipEssenceBegin + offset;
+  Result_t result = RESULT_OK;
 
-  assert(m_Dict);
-  return ReadEKLVFrame(FrameNum, FrameBuf, m_Dict->ul(MDD_WAVEssence), Ctx, HMAC);
+  if ( m_File.Tell() != position )
+    {
+      result = m_File.Seek(position);
+    }
+
+  if ( KM_SUCCESS(result) )
+    {
+      ui64_t remainder = m_ClipSize - offset;
+      ui32_t read_size = ( remainder < m_BytesPerFrame ) ? remainder : m_BytesPerFrame;
+      result = m_File.Read(FrameBuf.Data(), read_size);
+
+      if ( KM_SUCCESS(result) )
+       {
+         FrameBuf.Size(read_size);
+
+         if ( read_size < FrameBuf.Capacity() )
+           {
+             memset(FrameBuf.Data() + FrameBuf.Size(), 0, FrameBuf.Capacity() - FrameBuf.Size());
+           }
+       }
+    }
+
+  return result;
 }
 
 
+//------------------------------------------------------------------------------------------
+//
+
+
 AS_02::PCM::MXFReader::MXFReader()
 {
   m_Reader = new h__Reader(DefaultCompositeDict());
 }
 
-
 AS_02::PCM::MXFReader::~MXFReader()
 {
-  if ( m_Reader && m_Reader->m_File.IsOpen() )
-    m_Reader->Close();
 }
 
 // Warning: direct manipulation of MXF structures can interfere
 // with the normal operation of the wrapper.  Caveat emptor!
 //
-ASDCP::MXF::OPAtomHeader&
-AS_02::PCM::MXFReader::OPAtomHeader()
+ASDCP::MXF::OP1aHeader&
+AS_02::PCM::MXFReader::OP1aHeader()
 {
   if ( m_Reader.empty() )
     {
-      assert(g_OPAtomHeader);
-      return *g_OPAtomHeader;
+      assert(g_OP1aHeader);
+      return *g_OP1aHeader;
     }
 
   return m_Reader->m_HeaderPart;
@@ -204,26 +225,52 @@ AS_02::PCM::MXFReader::OPAtomHeader()
 // Warning: direct manipulation of MXF structures can interfere
 // with the normal operation of the wrapper.  Caveat emptor!
 //
-/*
-ASDCP::MXF::OPAtomIndexFooter&
-AS_02::PCM::MXFReader::OPAtomIndexFooter()
+AS_02::MXF::AS02IndexReader&
+AS_02::PCM::MXFReader::AS02IndexReader()
 {
   if ( m_Reader.empty() )
     {
-      assert(g_OPAtomIndexFooter);
-      return *g_OPAtomIndexFooter;
+      assert(g_AS02IndexReader);
+      return *g_AS02IndexReader;
     }
 
-  return m_Reader->m_FooterPart;
+  return m_Reader->m_IndexAccess;
+}
+
+// Warning: direct manipulation of MXF structures can interfere
+// with the normal operation of the wrapper.  Caveat emptor!
+//
+ASDCP::MXF::RIP&
+AS_02::PCM::MXFReader::RIP()
+{
+  if ( m_Reader.empty() )
+    {
+      assert(g_RIP);
+      return *g_RIP;
+    }
+
+  return m_Reader->m_RIP;
 }
-*/
 
 // Open the file for reading. The file must exist. Returns error if the
 // operation cannot be completed.
 ASDCP::Result_t
-AS_02::PCM::MXFReader::OpenRead(const char* filename) const
+AS_02::PCM::MXFReader::OpenRead(const std::string& filename, const ASDCP::Rational& edit_rate) const
+{
+  return m_Reader->OpenRead(filename, edit_rate);
+}
+
+//
+Result_t
+AS_02::PCM::MXFReader::Close() const
 {
-  return m_Reader->OpenRead(filename);
+  if ( m_Reader && m_Reader->m_File.IsOpen() )
+    {
+      m_Reader->Close();
+      return RESULT_OK;
+    }
+
+  return RESULT_INIT;
 }
 
 // Reads a frame of essence from the MXF file. If the optional AESEncContext
@@ -241,20 +288,6 @@ AS_02::PCM::MXFReader::ReadFrame(ui32_t FrameNum, ASDCP::PCM::FrameBuffer& Frame
 }
 
 
-// Fill the struct with the values from the file's header.
-// Returns RESULT_INIT if the file is not open.
-ASDCP::Result_t
-AS_02::PCM::MXFReader::FillAudioDescriptor(ASDCP::PCM::AudioDescriptor& ADesc) const
-{
-  if ( m_Reader && m_Reader->m_File.IsOpen() )
-    {
-      ADesc = m_Reader->m_ADesc;
-      return RESULT_OK;
-    }
-
-  return RESULT_INIT;
-}
-
 // Fill the struct with the values from the file's header.
 // Returns RESULT_INIT if the file is not open.
 ASDCP::Result_t
@@ -274,80 +307,96 @@ void
 AS_02::PCM::MXFReader::DumpHeaderMetadata(FILE* stream) const
 {
   if ( m_Reader && m_Reader->m_File.IsOpen() )
-    m_Reader->m_HeaderPart.Dump(stream);
+    {
+      m_Reader->m_HeaderPart.Dump(stream);
+    }
 }
 
-
 //
 void
 AS_02::PCM::MXFReader::DumpIndex(FILE* stream) const
 {
-  if ( m_Reader->m_File.IsOpen() )
-    m_Reader->m_FooterPart.Dump(stream);
+  if ( m_Reader && m_Reader->m_File.IsOpen() )
+    {
+      m_Reader->m_IndexAccess.Dump(stream);
+    }
 }
 
 
 //------------------------------------------------------------------------------------------
 
 //
-class AS_02::PCM::MXFWriter::h__Writer : public AS_02::h__Writer
+class AS_02::PCM::MXFWriter::h__Writer : public AS_02::h__AS02WriterClip
 {
   ASDCP_NO_COPY_CONSTRUCT(h__Writer);
   h__Writer();
 
 public:
-  ASDCP::PCM::AudioDescriptor m_ADesc;
-  byte_t          m_EssenceUL[SMPTE_UL_LENGTH];
-  ui64_t                       m_KLV_start;
-
-  h__Writer(const Dictionary& d) : AS_02::h__Writer(d), m_KLV_start(0){
+  ASDCP::MXF::WaveAudioDescriptor *m_WaveAudioDescriptor;
+  byte_t m_EssenceUL[SMPTE_UL_LENGTH];
+  ui32_t m_BytesPerSample;
+  
+  h__Writer(const Dictionary& d) : AS_02::h__AS02WriterClip(d), m_WaveAudioDescriptor(0), m_BytesPerSample(0)
+  {
     memset(m_EssenceUL, 0, SMPTE_UL_LENGTH);
-
   }
 
-  ~h__Writer(){}
+  virtual ~h__Writer(){}
 
-  Result_t OpenWrite(const char*, ui32_t HeaderSize);
-  Result_t SetSourceStream(const ASDCP::PCM::AudioDescriptor&);
+  Result_t OpenWrite(const std::string&, ASDCP::MXF::FileDescriptor* essence_descriptor,
+                    ASDCP::MXF::InterchangeObject_list_t& essence_sub_descriptor_list, const ui32_t& header_size);
+  Result_t SetSourceStream(const ASDCP::Rational&);
   Result_t WriteFrame(const FrameBuffer&, ASDCP::AESEncContext* = 0, ASDCP::HMACContext* = 0);
-
   Result_t Finalize();
-
-  //void AddSourceClip(const MXF::Rational& EditRate, ui32_t TCFrameRate,
-  // const std::string& TrackName, const UL& EssenceUL,
-  // const UL& DataDefinition, const std::string& PackageLabel);
-  //void AddDMSegment(const MXF::Rational& EditRate, ui32_t TCFrameRate,
-  // const std::string& TrackName, const UL& DataDefinition,
-  // const std::string& PackageLabel);
-  //void AddEssenceDescriptor(const UL& WrappingUL);
-  //Result_t CreateBodyPart(const MXF::Rational& EditRate, ui32_t BytesPerEditUnit = 0);
-
-  ////new method to create BodyPartition for essence and index
-  //Result_t CreateBodyPartPair();
-  ////new method to finalize BodyPartion(index)
-  //Result_t CompleteIndexBodyPart();
-
-  // reimplement these functions in AS_02_PCM to support modifications for AS-02
-  Result_t WriteEKLVPacket(const ASDCP::FrameBuffer& FrameBuf,
-                          const byte_t* EssenceUL, AESEncContext* Ctx, HMACContext* HMAC);
-  Result_t WriteMXFFooter();
-
 };
 
 // Open the file for writing. The file must not exist. Returns error if
 // the operation cannot be completed.
 ASDCP::Result_t
-AS_02::PCM::MXFWriter::h__Writer::OpenWrite(const char* filename, ui32_t HeaderSize)
+AS_02::PCM::MXFWriter::h__Writer::OpenWrite(const std::string& filename, ASDCP::MXF::FileDescriptor* essence_descriptor,
+                                           ASDCP::MXF::InterchangeObject_list_t& essence_sub_descriptor_list, const ui32_t& header_size)
 {
+  assert(essence_descriptor);
+
+  m_WaveAudioDescriptor = dynamic_cast<ASDCP::MXF::WaveAudioDescriptor*>(essence_descriptor);
+
+  if ( m_WaveAudioDescriptor == 0 )
+    {
+      DefaultLogSink().Error("Essence descriptor is not a WaveAudioDescriptor.\n");
+      essence_descriptor->Dump();
+      return RESULT_AS02_FORMAT;
+    }
+
   if ( ! m_State.Test_BEGIN() )
-    return RESULT_STATE;
+    {
+      return RESULT_STATE;
+    }
 
-  Result_t result = m_File.OpenWrite(filename);
+  Result_t result = m_File.OpenWrite(filename.c_str());
 
-  if ( ASDCP_SUCCESS(result) )
+  if ( KM_SUCCESS(result) )
     {
-      m_HeaderSize = HeaderSize;
-      m_EssenceDescriptor = new WaveAudioDescriptor(m_Dict);
+      m_HeaderSize = header_size;
+      m_EssenceDescriptor = essence_descriptor;
+      m_WaveAudioDescriptor->SampleRate = m_WaveAudioDescriptor->AudioSamplingRate;
+
+      ASDCP::MXF::InterchangeObject_list_t::iterator i;
+      for ( i = essence_sub_descriptor_list.begin(); i != essence_sub_descriptor_list.end(); ++i )
+       {
+         if ( (*i)->GetUL() != UL(m_Dict->ul(MDD_AudioChannelLabelSubDescriptor))
+              && (*i)->GetUL() != UL(m_Dict->ul(MDD_SoundfieldGroupLabelSubDescriptor))
+              && (*i)->GetUL() != UL(m_Dict->ul(MDD_GroupOfSoundfieldGroupsLabelSubDescriptor)) )
+           {
+             DefaultLogSink().Error("Essence sub-descriptor is not an MCALabelSubDescriptor.\n");
+             (*i)->Dump();
+           }
+
+         m_EssenceSubDescriptorList.push_back(*i);
+         GenRandomValue((*i)->InstanceUID);
+         m_EssenceDescriptor->SubDescriptors.push_back((*i)->InstanceUID);
+         *i = 0; // parent will only free the ones we don't keep
+       }
+
       result = m_State.Goto_INIT();
     }
 
@@ -357,52 +406,30 @@ AS_02::PCM::MXFWriter::h__Writer::OpenWrite(const char* filename, ui32_t HeaderS
 
 // Automatically sets the MXF file's metadata from the WAV parser info.
 ASDCP::Result_t
-AS_02::PCM::MXFWriter::h__Writer::SetSourceStream(const ASDCP::PCM::AudioDescriptor& ADesc)
+AS_02::PCM::MXFWriter::h__Writer::SetSourceStream(const ASDCP::Rational& edit_rate)
 {
   if ( ! m_State.Test_INIT() )
-    return RESULT_STATE;
-
-  if ( ADesc.EditRate != EditRate_24
-       && ADesc.EditRate != EditRate_25
-       && ADesc.EditRate != EditRate_30
-       && ADesc.EditRate != EditRate_48
-       && ADesc.EditRate != EditRate_50
-       && ADesc.EditRate != EditRate_60
-       && ADesc.EditRate != EditRate_23_98 )
-    {
-      DefaultLogSink().Error("AudioDescriptor.EditRate is not a supported value: %d/%d\n",
-                            ADesc.EditRate.Numerator, ADesc.EditRate.Denominator);
-      return RESULT_RAW_FORMAT;
-    }
-
-  if ( ADesc.AudioSamplingRate != SampleRate_48k && ADesc.AudioSamplingRate != SampleRate_96k )
     {
-      DefaultLogSink().Error("AudioDescriptor.AudioSamplingRate is not 48000/1 or 96000/1: %d/%d\n",
-                            ADesc.AudioSamplingRate.Numerator, ADesc.AudioSamplingRate.Denominator);
-      return RESULT_RAW_FORMAT;
+      return RESULT_STATE;
     }
 
-  assert(m_Dict);
-  m_ADesc = ADesc;
-
-  Result_t result = PCM_ADesc_to_MD(m_ADesc, (WaveAudioDescriptor*)m_EssenceDescriptor);
+  memcpy(m_EssenceUL, m_Dict->ul(MDD_WAVEssenceClip), SMPTE_UL_LENGTH);
+  m_EssenceUL[15] = 1; // set the stream identifier
+  Result_t result = m_State.Goto_READY();
 
-  if ( ASDCP_SUCCESS(result) )
+  if ( KM_SUCCESS(result) )
     {
-      memcpy(m_EssenceUL, m_Dict->ul(MDD_WAVEssence), SMPTE_UL_LENGTH);
-      //SMPTE 382M-2007: ByteNo. 15 - 02h - Wave Clip-Wrapped Element
-      m_EssenceUL[SMPTE_UL_LENGTH-2] = 2; // 02h - Wave Clip-Wrapped Element
-      m_EssenceUL[SMPTE_UL_LENGTH-1] = 1; // first (and only) essence container
-      result = m_State.Goto_READY();
-    }
+      assert(m_WaveAudioDescriptor);
+      m_BytesPerSample = AS_02::MXF::CalcSampleSize(*m_WaveAudioDescriptor);
+      result = WriteAS02Header(PCM_PACKAGE_LABEL, UL(m_Dict->ul(MDD_WAVWrappingClip)),
+                              SOUND_DEF_LABEL, UL(m_EssenceUL), UL(m_Dict->ul(MDD_SoundDataDef)),
+                              m_EssenceDescriptor->SampleRate, derive_timecode_rate_from_edit_rate(edit_rate));
 
-  if ( ASDCP_SUCCESS(result) )
-    {
-      ui32_t TCFrameRate = ( m_ADesc.EditRate == EditRate_23_98  ) ? 24 : m_ADesc.EditRate.Numerator;
-
-      result = WriteMXFHeader(PCM_PACKAGE_LABEL, UL(m_Dict->ul(MDD_WAVWrapping)),
-                             SOUND_DEF_LABEL, UL(m_EssenceUL), UL(m_Dict->ul(MDD_SoundDataDef)),
-                             m_ADesc.EditRate, TCFrameRate, calc_CBR_frame_size(m_Info, m_ADesc));
+      if ( KM_SUCCESS(result) )
+       {
+         this->m_IndexWriter.SetEditRate(m_WaveAudioDescriptor->AudioSamplingRate,
+                                         AS_02::MXF::CalcSampleSize(*m_WaveAudioDescriptor));
+       }
     }
 
   return result;
@@ -412,19 +439,36 @@ AS_02::PCM::MXFWriter::h__Writer::SetSourceStream(const ASDCP::PCM::AudioDescrip
 //
 //
 ASDCP::Result_t
-AS_02::PCM::MXFWriter::h__Writer::WriteFrame(const FrameBuffer& FrameBuf, AESEncContext* Ctx,
+AS_02::PCM::MXFWriter::h__Writer::WriteFrame(const FrameBuffer& frame_buf, AESEncContext* Ctx,
                                             HMACContext* HMAC)
 {
+  if ( frame_buf.Size() == 0 )
+    {
+      DefaultLogSink().Error("The frame buffer size is zero.\n");
+      return RESULT_PARAM;
+    }
+
   Result_t result = RESULT_OK;
 
   if ( m_State.Test_READY() )
-    result = m_State.Goto_RUNNING(); // first time through
+    {
+      result = m_State.Goto_RUNNING(); // first time through
+    }
 
-  if ( ASDCP_SUCCESS(result) )
-    result = WriteEKLVPacket(FrameBuf, m_EssenceUL, Ctx, HMAC);
+  if ( KM_SUCCESS(result) && ! HasOpenClip() )
+    {
+      result = StartClip(m_EssenceUL, Ctx, HMAC);
+    }
 
-  if ( ASDCP_SUCCESS(result) )
-    m_FramesWritten++;
+  if ( KM_SUCCESS(result) )
+    {
+      result = WriteClipBlock(frame_buf);
+    }
+
+  if ( KM_SUCCESS(result) )
+    {
+      m_FramesWritten += frame_buf.Size() / m_BytesPerSample;
+    }
 
   return result;
 }
@@ -439,7 +483,15 @@ AS_02::PCM::MXFWriter::h__Writer::Finalize()
 
   m_State.Goto_FINAL();
 
-  return WriteMXFFooter();
+  Result_t result = FinalizeClip(AS_02::MXF::CalcSampleSize(*m_WaveAudioDescriptor));
+
+  if ( KM_SUCCESS(result) )
+    {
+      m_WaveAudioDescriptor->ContainerDuration = m_IndexWriter.m_Duration = m_FramesWritten;
+      WriteAS02Footer();
+    }
+
+  return result;
 }
 
 
@@ -459,13 +511,13 @@ AS_02::PCM::MXFWriter::~MXFWriter()
 // Warning: direct manipulation of MXF structures can interfere
 // with the normal operation of the wrapper.  Caveat emptor!
 //
-ASDCP::MXF::OPAtomHeader&
-AS_02::PCM::MXFWriter::OPAtomHeader()
+ASDCP::MXF::OP1aHeader&
+AS_02::PCM::MXFWriter::OP1aHeader()
 {
   if ( m_Writer.empty() )
     {
-      assert(g_OPAtomHeader);
-      return *g_OPAtomHeader;
+      assert(g_OP1aHeader);
+      return *g_OP1aHeader;
     }
 
   return m_Writer->m_HeaderPart;
@@ -474,33 +526,45 @@ AS_02::PCM::MXFWriter::OPAtomHeader()
 // Warning: direct manipulation of MXF structures can interfere
 // with the normal operation of the wrapper.  Caveat emptor!
 //
-/*
-ASDCP::MXF::OPAtomIndexFooter&
-AS_02::PCM::MXFWriter::OPAtomIndexFooter()
+ASDCP::MXF::RIP&
+AS_02::PCM::MXFWriter::RIP()
 {
   if ( m_Writer.empty() )
     {
-      assert(g_OPAtomIndexFooter);
-      return *g_OPAtomIndexFooter;
+      assert(g_RIP);
+      return *g_RIP;
     }
 
-  return m_Writer->m_FooterPart;
+  return m_Writer->m_RIP;
 }
-*/
 
 // Open the file for writing. The file must not exist. Returns error if
 // the operation cannot be completed.
 ASDCP::Result_t
-AS_02::PCM::MXFWriter::OpenWrite(const char* filename, const WriterInfo& Info,
-                                const ASDCP::PCM::AudioDescriptor& ADesc, ui32_t HeaderSize)
+AS_02::PCM::MXFWriter::OpenWrite(const std::string& filename, const WriterInfo& Info,
+                                ASDCP::MXF::FileDescriptor* essence_descriptor,
+                                ASDCP::MXF::InterchangeObject_list_t& essence_sub_descriptor_list,
+                                const ASDCP::Rational& edit_rate, ui32_t header_size)
 {
+  if ( essence_descriptor == 0 )
+    {
+      DefaultLogSink().Error("Essence descriptor object required.\n");
+      return RESULT_PARAM;
+    }
+
+  if ( Info.EncryptedEssence )
+    {
+      DefaultLogSink().Error("Encryption not supported for ST 382 clip-wrap.\n");
+      return Kumu::RESULT_NOTIMPL;
+    }
+
   m_Writer = new h__Writer(DefaultSMPTEDict());
   m_Writer->m_Info = Info;
 
-  Result_t result = m_Writer->OpenWrite(filename, HeaderSize);
+  Result_t result = m_Writer->OpenWrite(filename, essence_descriptor, essence_sub_descriptor_list, header_size);
 
-  if ( ASDCP_SUCCESS(result) )
-    result = m_Writer->SetSourceStream(ADesc);
+  if ( KM_SUCCESS(result) )
+    result = m_Writer->SetSourceStream(edit_rate);
 
   if ( ASDCP_FAILURE(result) )
     m_Writer.release();
@@ -531,563 +595,7 @@ AS_02::PCM::MXFWriter::Finalize()
   return m_Writer->Finalize();
 }
 
-// standard method of opening an MXF file for read
-Result_t
-AS_02::PCM::MXFReader::h__Reader::OpenMXFRead(const char* filename)
-{
-  m_LastPosition = 0;
-  AS_02::MXF::OP1aIndexBodyPartion* pCurrentBodyPartIndex = NULL;
-  Partition* pPart = NULL;
-  ui64_t EssenceStart = 0;
-  Result_t result = m_File.OpenRead(filename);
-
-  if ( ASDCP_SUCCESS(result) )
-    result = m_HeaderPart.InitFromFile(m_File);
-
-  if ( ASDCP_SUCCESS(result) )
-    {
-      ui32_t partition_size = m_HeaderPart.m_RIP.PairArray.size();
-
-      if ( partition_size > 3 )
-       {
-         //for all entry except the first and the last(header&footer)
-         Array<RIP::Pair>::iterator r_i = m_HeaderPart.m_RIP.PairArray.begin();
-         r_i++;
-         ui32_t i=2;
-
-         while ( r_i != m_HeaderPart.m_RIP.PairArray.end() && i < partition_size )
-           {
-             m_File.Seek((*r_i).ByteOffset);
-             pPart = new Partition(this->m_Dict);
-             result = pPart->InitFromFile(m_File);
-
-             // TODO:: expect Index partition
-             delete pPart;
-             m_File.Seek((*r_i).ByteOffset);
-             pCurrentBodyPartIndex = new AS_02::MXF::OP1aIndexBodyPartion(this->m_Dict);
-             pCurrentBodyPartIndex->m_Lookup = &m_HeaderPart.m_Primer;
-             result = pCurrentBodyPartIndex->InitFromFile(m_File);
-             
-             if ( ASDCP_FAILURE(result) )
-               {
-                 break;
-               }
-
-             r_i++; i++;
-
-             m_File.Seek((*r_i).ByteOffset);
-             pPart = new Partition(this->m_Dict);
-             result = pPart->InitFromFile(m_File);
-             EssenceStart = m_File.Tell();
-
-             if ( ASDCP_FAILURE(result) )
-               {
-                 break;
-               }
 
-             if(i==3)
-               {
-                 m_EssenceStart = EssenceStart;
-                 m_pCurrentBodyPartition = pPart;
-                 m_pCurrentIndexPartition = pCurrentBodyPartIndex;
-               }
-         
-             m_BodyPartList.push_back(pCurrentBodyPartIndex);
-             m_BodyPartList.push_back(pPart);
-             r_i++; i++;
-           }
-       }
-    }
-
-  return result;
-}
-
-// standard method of reading a plaintext or encrypted frame
-Result_t
-AS_02::PCM::MXFReader::h__Reader::ReadEKLVFrame(ui32_t FrameNum, ASDCP::FrameBuffer& FrameBuf,
-                                               const byte_t* EssenceUL, AESDecContext* Ctx, HMACContext* HMAC)
-{
-  Result_t result = RESULT_OK;
-  // look up frame index node
-  IndexTableSegment::IndexEntry TmpEntry;
-  ui32_t i = 0;
-
-  if(m_pCurrentIndexPartition == NULL)
-    {
-      m_pCurrentIndexPartition = dynamic_cast<AS_02::MXF::OP1aIndexBodyPartion*> (m_BodyPartList.at(i));
-      m_pCurrentBodyPartition = m_BodyPartList.at(i+1);
-    }          
-  else
-    {
-      return RESULT_FORMAT; //return error
-    }
-                               
-  if(m_pCurrentIndexPartition == NULL)
-    {
-      return RESULT_FORMAT; //return error\r
-    }
-
-  m_pCurrentIndexPartition->PCMIndexLookup(FrameNum,TmpEntry);
-  // get frame position and go read the frame's key and length
-  Kumu::fpos_t FilePosition = this->m_EssenceStart + TmpEntry.StreamOffset;
-
-  if ( FilePosition != m_LastPosition )
-    {
-      m_LastPosition = FilePosition;
-      result = m_File.Seek(FilePosition);
-    }
-
-  if( ASDCP_SUCCESS(result) )
-    result = ReadEKLVPacket(FrameNum, FrameNum + 1, FrameBuf, EssenceUL, Ctx, HMAC);
-
-  return result;
-}
-
-Result_t
-AS_02::PCM::MXFReader::h__Reader::ReadEKLVPacket(ui32_t FrameNum, ui32_t SequenceNum, ASDCP::FrameBuffer& FrameBuf,
-                                                const byte_t* EssenceUL, AESDecContext* Ctx, HMACContext* HMAC)
-{
-  KLReader Reader;
-
-  //save position to read KLV packet
-  Kumu::fpos_t SaveFilePosition = m_File.Tell();
-  //Seek backward to KLV start
-  m_File.Seek(this->m_EssenceStart);
-  Result_t result = Reader.ReadKLFromFile(m_File);
-  //set old position
-  m_File.Seek(SaveFilePosition);
-
-  if ( ASDCP_FAILURE(result) )
-    return result;
-
-  UL Key(Reader.Key());
-  ui64_t PacketLength = Reader.Length();
-  m_LastPosition = m_LastPosition + PacketLength;
-  if(FrameNum = 0){
-    m_LastPosition+= Reader.KLLength();
-  }
-  assert(m_Dict);
-
-  //TODO: for AS_02 PCM - not in the dictionary
-
-  static const byte_t WaveClipEssenceUL_Data[SMPTE_UL_LENGTH] =\r
-    { 0x06, 0x0e, 0x2b, 0x34, 0x01, 0x02, 0x01, 0x01,\r
-      0x0d, 0x01, 0x03, 0x01, 0x16, 0x01, 0x02, 0x01 };
-
-  \r
-    if( memcmp(Key.Value(), WaveClipEssenceUL_Data, SMPTE_UL_LENGTH) == 0 ){
-      byte_t WaveFrameEssenceUL_Data[SMPTE_UL_LENGTH] =\r
-       { 0x06, 0x0e, 0x2b, 0x34, 0x01, 0x02, 0x01, 0x01,\r
-         0x0d, 0x01, 0x03, 0x01, 0x16, 0x01, 0x01, 0x01 };
-
-      Key.Set(WaveFrameEssenceUL_Data);
-    }
-
-
-    if ( memcmp(Key.Value(), m_Dict->ul(MDD_CryptEssence), Key.Size() - 1) == 0 )  // ignore the stream numbers
-      {
-       if ( ! m_Info.EncryptedEssence )
-         {
-           DefaultLogSink().Error("EKLV packet found, no Cryptographic Context in header.\n");
-           return RESULT_FORMAT;
-         }
-
-       // read encrypted triplet value into internal buffer
-       assert(PacketLength <= 0xFFFFFFFFL);
-       m_CtFrameBuf.Capacity((ui32_t) PacketLength);
-       ui32_t read_count;
-       result = m_File.Read(m_CtFrameBuf.Data(), (ui32_t) PacketLength,
-                            &read_count);
-
-       if ( ASDCP_FAILURE(result) )
-         return result;
-
-       if ( read_count != PacketLength )
-         {
-           DefaultLogSink().Error("read length is smaller than EKLV packet length.\n");
-           return RESULT_FORMAT;
-         }
-
-       m_CtFrameBuf.Size((ui32_t) PacketLength);
-
-       // should be const but mxflib::ReadBER is not
-       byte_t* ess_p = m_CtFrameBuf.Data();
-
-       // read context ID length
-       if ( ! Kumu::read_test_BER(&ess_p, UUIDlen) )
-         return RESULT_FORMAT;
-
-       // test the context ID
-       if ( memcmp(ess_p, m_Info.ContextID, UUIDlen) != 0 )
-         {
-           DefaultLogSink().Error("Packet's Cryptographic Context ID does not match the header.\n");
-           return RESULT_FORMAT;
-         }
-       ess_p += UUIDlen;
-
-       // read PlaintextOffset length
-       if ( ! Kumu::read_test_BER(&ess_p, sizeof(ui64_t)) )
-         return RESULT_FORMAT;
-
-       ui32_t PlaintextOffset = (ui32_t)KM_i64_BE(Kumu::cp2i<ui64_t>(ess_p));
-       ess_p += sizeof(ui64_t);
-
-       // read essence UL length
-       if ( ! Kumu::read_test_BER(&ess_p, SMPTE_UL_LENGTH) )
-         return RESULT_FORMAT;
-
-       // test essence UL
-       if ( memcmp(ess_p, EssenceUL, SMPTE_UL_LENGTH - 1) != 0 ) // ignore the stream number
-         {
-           char strbuf[IntBufferLen];
-           const MDDEntry* Entry = m_Dict->FindUL(Key.Value());
-           if ( Entry == 0 )
-             DefaultLogSink().Warn("Unexpected Essence UL found: %s.\n", Key.EncodeString(strbuf, IntBufferLen));
-           else
-             DefaultLogSink().Warn("Unexpected Essence UL found: %s.\n", Entry->name);
-           return RESULT_FORMAT;
-         }
-       ess_p += SMPTE_UL_LENGTH;
-
-       // read SourceLength length
-       if ( ! Kumu::read_test_BER(&ess_p, sizeof(ui64_t)) )
-         return RESULT_FORMAT;
-
-       ui32_t SourceLength = (ui32_t)KM_i64_BE(Kumu::cp2i<ui64_t>(ess_p));
-       ess_p += sizeof(ui64_t);
-       assert(SourceLength);
-
-       if ( FrameBuf.Capacity() < SourceLength )
-         {
-           DefaultLogSink().Error("FrameBuf.Capacity: %u SourceLength: %u\n", FrameBuf.Capacity(), SourceLength);
-           return RESULT_SMALLBUF;
-         }
-
-       ui32_t esv_length = calc_esv_length(SourceLength, PlaintextOffset);
-
-       // read ESV length
-       if ( ! Kumu::read_test_BER(&ess_p, esv_length) )
-         {
-           DefaultLogSink().Error("read_test_BER did not return %u\n", esv_length);
-           return RESULT_FORMAT;
-         }
-
-       ui32_t tmp_len = esv_length + (m_Info.UsesHMAC ? klv_intpack_size : 0);
-
-       if ( PacketLength < tmp_len )
-         {
-           DefaultLogSink().Error("Frame length is larger than EKLV packet length.\n");
-           return RESULT_FORMAT;
-         }
-
-       if ( Ctx )
-         {
-           // wrap the pointer and length as a FrameBuffer for use by
-           // DecryptFrameBuffer() and TestValues()
-           FrameBuffer TmpWrapper;
-           TmpWrapper.SetData(ess_p, tmp_len);
-           TmpWrapper.Size(tmp_len);
-           TmpWrapper.SourceLength(SourceLength);
-           TmpWrapper.PlaintextOffset(PlaintextOffset);
-
-           result = DecryptFrameBuffer(TmpWrapper, FrameBuf, Ctx);
-           FrameBuf.FrameNumber(FrameNum);
-
-           // detect and test integrity pack
-           if ( ASDCP_SUCCESS(result) && m_Info.UsesHMAC && HMAC )
-             {
-               IntegrityPack IntPack;
-               result = IntPack.TestValues(TmpWrapper, m_Info.AssetUUID, SequenceNum, HMAC);
-             }
-         }
-       else // return ciphertext to caller
-         {
-           if ( FrameBuf.Capacity() < tmp_len )
-             {
-               char intbuf[IntBufferLen];
-               DefaultLogSink().Error("FrameBuf.Capacity: %u FrameLength: %s\n",
-                                      FrameBuf.Capacity(), ui64sz(PacketLength, intbuf));
-               return RESULT_SMALLBUF;
-             }
-
-           memcpy(FrameBuf.Data(), ess_p, tmp_len);
-           FrameBuf.Size(tmp_len);
-           FrameBuf.FrameNumber(FrameNum);
-           FrameBuf.SourceLength(SourceLength);
-           FrameBuf.PlaintextOffset(PlaintextOffset);
-         }
-      }
-    else if ( memcmp(Key.Value(), EssenceUL, Key.Size() - 1) == 0 ) // ignore the stream number
-      { // read plaintext frame
-       if ( FrameBuf.Capacity() < PacketLength )
-         {
-           char intbuf[IntBufferLen];
-           DefaultLogSink().Error("FrameBuf.Capacity: %u FrameLength: %s\n",
-                                  FrameBuf.Capacity(), ui64sz(PacketLength, intbuf));
-           return RESULT_SMALLBUF;
-         }
-
-       // read the data into the supplied buffer
-       ui32_t read_count;
-       assert(PacketLength <= 0xFFFFFFFFL);
-       result = m_File.Read(FrameBuf.Data(), (ui32_t) PacketLength, &read_count);
-
-       if ( ASDCP_FAILURE(result) )
-         return result;
-
-       if ( read_count != PacketLength )
-         {
-           char intbuf1[IntBufferLen];
-           char intbuf2[IntBufferLen];
-           DefaultLogSink().Error("read_count: %s != FrameLength: %s\n",
-                                  ui64sz(read_count, intbuf1),
-                                  ui64sz(PacketLength, intbuf2) );
-
-           return RESULT_READFAIL;
-         }
-
-       FrameBuf.FrameNumber(FrameNum);
-       FrameBuf.Size(read_count);
-      }
-    else
-      {
-       char strbuf[IntBufferLen];
-       const MDDEntry* Entry = m_Dict->FindUL(Key.Value());
-       if ( Entry == 0 )
-         DefaultLogSink().Warn("Unexpected Essence UL found: %s.\n", Key.EncodeString(strbuf, IntBufferLen));
-       else
-         DefaultLogSink().Warn("Unexpected Essence UL found: %s.\n", Entry->name);
-       return RESULT_FORMAT;
-      }
-
-    return result;
-}
-
-// standard method of writing the header and footer of a completed MXF file
-//
-Result_t
-AS_02::PCM::MXFWriter::h__Writer::WriteMXFFooter()
-{
-  // Set top-level file package correctly for OP-Atom
-
-  //  m_MPTCSequence->Duration = m_MPTimecode->Duration = m_MPClSequence->Duration = m_MPClip->Duration = 
-  //    m_FPTCSequence->Duration = m_FPTimecode->Duration = m_FPClSequence->Duration = m_FPClip->Duration = 
-
-  //
-  m_CurrentIndexBodyPartition->m_FramesWritten = m_FramesWritten;
-  m_CurrentIndexBodyPartition->PCMSetIndexParamsCBR(m_CurrentIndexBodyPartition->m_BytesPerEditUnit+24,m_CurrentIndexBodyPartition->m_BytesPerEditUnit);
-  CompleteIndexBodyPart();
-
-  DurationElementList_t::iterator dli = m_DurationUpdateList.begin();
-
-  for (; dli != m_DurationUpdateList.end(); dli++ )
-    **dli = m_FramesWritten;
-
-  m_EssenceDescriptor->ContainerDuration = m_FramesWritten;
-  m_FooterPart.PreviousPartition = m_HeaderPart.m_RIP.PairArray.back().ByteOffset;
-
-  Kumu::fpos_t here = m_File.Tell();
-  m_HeaderPart.m_RIP.PairArray.push_back(RIP::Pair(0, here)); // Last RIP Entry
-  m_HeaderPart.FooterPartition = here;
-
-  assert(m_Dict);
-  // re-label the partition
-  UL OP1aUL(m_Dict->ul(MDD_OP1a));
-  m_HeaderPart.OperationalPattern = OP1aUL;
-  m_HeaderPart.m_Preface->OperationalPattern = m_HeaderPart.OperationalPattern;
-
-  m_FooterPart.OperationalPattern = m_HeaderPart.OperationalPattern;
-  m_FooterPart.EssenceContainers = m_HeaderPart.EssenceContainers;
-  m_FooterPart.FooterPartition = here;
-  m_FooterPart.ThisPartition = here;
-
-  Result_t result = m_FooterPart.WriteToFile(m_File, m_FramesWritten);
-
-  if ( ASDCP_SUCCESS(result) )
-    result = m_HeaderPart.m_RIP.WriteToFile(m_File);
-
-  if ( ASDCP_SUCCESS(result) )
-    result = m_File.Seek(0);
-
-  if ( ASDCP_SUCCESS(result) )
-    result = m_HeaderPart.WriteToFile(m_File, m_HeaderSize);
-
-  //update the value of FooterPartition in all Partitions
-  std::vector<Partition*>::iterator bl_i = this->m_BodyPartList.begin();
-  for (; bl_i != m_BodyPartList.end(); bl_i++ ){
-    (*bl_i)->FooterPartition =  m_FooterPart.ThisPartition;
-    if ( ASDCP_SUCCESS(result) )
-      result = m_File.Seek((*bl_i)->ThisPartition);
-    if ( ASDCP_SUCCESS(result) ){
-      UL BodyUL(m_Dict->ul(MDD_ClosedCompleteBodyPartition));
-      result = (*bl_i)->WriteToFile(m_File, BodyUL);
-    }
-  } 
-
-  m_File.Close();
-  return result;
-}
-
-// standard method of writing a plaintext or encrypted frame
-Result_t
-AS_02::PCM::MXFWriter::h__Writer::WriteEKLVPacket(const ASDCP::FrameBuffer& FrameBuf, const byte_t* EssenceUL,
-                                                 AESEncContext* Ctx, HMACContext* HMAC)
-{
-  Result_t result = RESULT_OK;
-  IntegrityPack IntPack;
-       
-  const ui32_t AS_02_PCM_MXF_BER_LENGTH = 8;
-  //TODO: AS_02_PCM_MXF_BER_LENGTH - customize for EncryptedEssence 
-
-  byte_t overhead[128];
-  Kumu::MemIOWriter Overhead(overhead, 128);
-  assert(m_Dict);
-
-  if ( FrameBuf.Size() == 0 )
-    {
-      DefaultLogSink().Error("Cannot write empty frame buffer\n");
-      return RESULT_EMPTY_FB;
-    }
-
-  if ( m_Info.EncryptedEssence )
-    {
-      if ( ! Ctx )
-       return RESULT_CRYPT_CTX;
-
-      if ( m_Info.UsesHMAC && ! HMAC )
-       return RESULT_HMAC_CTX;
-
-      if ( FrameBuf.PlaintextOffset() > FrameBuf.Size() )
-       return RESULT_LARGE_PTO;
-
-      // encrypt the essence data (create encrypted source value)
-      result = EncryptFrameBuffer(FrameBuf, m_CtFrameBuf, Ctx);
-
-      // create HMAC
-      if ( ASDCP_SUCCESS(result) && m_Info.UsesHMAC )
-       result = IntPack.CalcValues(m_CtFrameBuf, m_Info.AssetUUID, m_FramesWritten + 1, HMAC);
-
-      if ( ASDCP_SUCCESS(result) )
-       { // write UL
-         Overhead.WriteRaw(m_Dict->ul(MDD_CryptEssence), SMPTE_UL_LENGTH);
-
-         // construct encrypted triplet header
-         ui32_t ETLength = klv_cryptinfo_size + m_CtFrameBuf.Size();
-         ui32_t BER_length = MXF_BER_LENGTH;
-
-         if ( m_Info.UsesHMAC )
-           ETLength += klv_intpack_size;
-         else
-           ETLength += (MXF_BER_LENGTH * 3); // for empty intpack
-
-         if ( ETLength > 0x00ffffff ) // Need BER integer longer than MXF_BER_LENGTH bytes
-           {
-             BER_length = Kumu::get_BER_length_for_value(ETLength);
-
-             // the packet is longer by the difference in expected vs. actual BER length
-             ETLength += BER_length - MXF_BER_LENGTH;
-
-             if ( BER_length == 0 )
-               result = RESULT_KLV_CODING;
-           }
-
-         if ( ASDCP_SUCCESS(result) )
-           {
-             if ( ! ( Overhead.WriteBER(ETLength, BER_length)                      // write encrypted triplet length
-                      && Overhead.WriteBER(UUIDlen, MXF_BER_LENGTH)                // write ContextID length
-                      && Overhead.WriteRaw(m_Info.ContextID, UUIDlen)              // write ContextID
-                      && Overhead.WriteBER(sizeof(ui64_t), MXF_BER_LENGTH)         // write PlaintextOffset length
-                      && Overhead.WriteUi64BE(FrameBuf.PlaintextOffset())          // write PlaintextOffset
-                      && Overhead.WriteBER(SMPTE_UL_LENGTH, MXF_BER_LENGTH)        // write essence UL length
-                      && Overhead.WriteRaw((byte_t*)EssenceUL, SMPTE_UL_LENGTH)    // write the essence UL
-                      && Overhead.WriteBER(sizeof(ui64_t), MXF_BER_LENGTH)         // write SourceLength length
-                      && Overhead.WriteUi64BE(FrameBuf.Size())                     // write SourceLength
-                      && Overhead.WriteBER(m_CtFrameBuf.Size(), BER_length) ) )    // write ESV length
-               {
-                 result = RESULT_KLV_CODING;
-               }
-           }
-
-         if ( ASDCP_SUCCESS(result) )
-           result = m_File.Writev(Overhead.Data(), Overhead.Length());
-       }
-
-      if ( ASDCP_SUCCESS(result) )
-       {
-         m_StreamOffset += Overhead.Length();
-         // write encrypted source value
-         result = m_File.Writev((byte_t*)m_CtFrameBuf.RoData(), m_CtFrameBuf.Size());
-       }
-
-      if ( ASDCP_SUCCESS(result) )
-       {
-         m_StreamOffset += m_CtFrameBuf.Size();
-
-         byte_t hmoverhead[512];
-         Kumu::MemIOWriter HMACOverhead(hmoverhead, 512);
-
-         // write the HMAC
-         if ( m_Info.UsesHMAC )
-           {
-             HMACOverhead.WriteRaw(IntPack.Data, klv_intpack_size);
-           }
-         else
-           { // we still need the var-pack length values if the intpack is empty
-             for ( ui32_t i = 0; i < 3 ; i++ )
-               HMACOverhead.WriteBER(0, MXF_BER_LENGTH);
-           }
-
-         // write HMAC
-         result = m_File.Writev(HMACOverhead.Data(), HMACOverhead.Length());
-         m_StreamOffset += HMACOverhead.Length();
-       }
-    }
-  else
-    {
-      if(m_FramesWritten == 0){
-       ui32_t BER_length = AS_02_PCM_MXF_BER_LENGTH; //MXF_BER_LENGTH;
-
-       if ( FrameBuf.Size() > 0x00ffffff ) // Need BER integer longer than MXF_BER_LENGTH bytes
-         {
-           BER_length = Kumu::get_BER_length_for_value(FrameBuf.Size());
-
-           if ( BER_length == 0 )
-             result = RESULT_KLV_CODING;
-         }
-
-       Overhead.WriteRaw((byte_t*)EssenceUL, SMPTE_UL_LENGTH);
-       Overhead.WriteBER(FrameBuf.Size(), BER_length);
-
-       //position of the KLV start
-       m_KLV_start = m_File.Tell();
-
-       if ( ASDCP_SUCCESS(result) )
-         result = m_File.Writev(Overhead.Data(), Overhead.Length());
-
-       if ( ASDCP_SUCCESS(result) )
-         result = m_File.Writev((byte_t*)FrameBuf.RoData(), FrameBuf.Size());
-
-       if ( ASDCP_SUCCESS(result) )
-         m_StreamOffset += Overhead.Length() + FrameBuf.Size();
-      }
-      else{
-       //update the KLV - length; new value plus old value from length field
-       //necessary to know position of length field -> bodyPartition + 8
-       //update every time when writing new essence or at the end of writing
-
-       if ( ASDCP_SUCCESS(result) )
-         result = m_File.Writev((byte_t*)FrameBuf.RoData(), FrameBuf.Size());
-
-       if ( ASDCP_SUCCESS(result) )
-         m_StreamOffset += FrameBuf.Size();
-      }
-    }
-
-  if ( ASDCP_SUCCESS(result) )
-    result = m_File.Writev();
-
-  return result;
-}
 
 //
 // end AS_02_PCM.cpp