Fix erroneous reports of unresolved assets when checking OV/VF pairs.
[libdcp.git] / src / dcp.cc
index eaa88367725049e6c6076a7011559a1aa9bd6dfa..2011f04e52cdb515af362abc8939268d3c8d9fa1 100644 (file)
 /*
-    Copyright (C) 2012 Carl Hetherington <cth@carlh.net>
+    Copyright (C) 2012-2015 Carl Hetherington <cth@carlh.net>
 
-    This program is free software; you can redistribute it and/or modify
+    This file is part of libdcp.
+
+    libdcp is free software; you can redistribute it and/or modify
     it under the terms of the GNU General Public License as published by
     the Free Software Foundation; either version 2 of the License, or
     (at your option) any later version.
 
-    This program is distributed in the hope that it will be useful,
+    libdcp is distributed in the hope that it will be useful,
     but WITHOUT ANY WARRANTY; without even the implied warranty of
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     GNU General Public License for more details.
 
     You should have received a copy of the GNU General Public License
-    along with this program; if not, write to the Free Software
-    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-
+    along with libdcp.  If not, see <http://www.gnu.org/licenses/>.
+
+    In addition, as a special exception, the copyright holders give
+    permission to link the code of portions of this program with the
+    OpenSSL library under certain conditions as described in each
+    individual source file, and distribute linked combinations
+    including the two.
+
+    You must obey the GNU General Public License in all respects
+    for all of the code used other than OpenSSL.  If you modify
+    file(s) with this exception, you may extend this exception to your
+    version of the file(s), but you are not obligated to do so.  If you
+    do not wish to do so, delete this exception statement from your
+    version.  If you delete this exception statement from all source
+    files in the program, then also delete it here.
 */
 
 /** @file  src/dcp.cc
- *  @brief A class to create a DCP.
+ *  @brief DCP class.
  */
 
-#include <sstream>
-#include <iomanip>
-#include <cassert>
-#include <iostream>
-#include <boost/filesystem.hpp>
-#include <boost/lexical_cast.hpp>
-#include <boost/algorithm/string.hpp>
-#include <boost/lexical_cast.hpp>
-#include <libxml++/libxml++.h>
-#include <xmlsec/xmldsig.h>
-#include <xmlsec/app.h>
+#include "raw_convert.h"
 #include "dcp.h"
-#include "asset.h"
 #include "sound_asset.h"
+#include "atmos_asset.h"
 #include "picture_asset.h"
-#include "subtitle_asset.h"
+#include "interop_subtitle_asset.h"
+#include "smpte_subtitle_asset.h"
+#include "mono_picture_asset.h"
+#include "stereo_picture_asset.h"
+#include "reel_subtitle_asset.h"
 #include "util.h"
 #include "metadata.h"
 #include "exceptions.h"
-#include "parse/pkl.h"
-#include "parse/asset_map.h"
-#include "reel.h"
 #include "cpl.h"
-#include "signer.h"
-#include "kdm.h"
+#include "certificate_chain.h"
+#include "compose.hpp"
+#include "decrypted_kdm.h"
+#include "decrypted_kdm_key.h"
+#include "dcp_assert.h"
+#include "reel_asset.h"
+#include "font_asset.h"
+#include "pkl.h"
+#include "asset_factory.h"
+#include <asdcp/AS_DCP.h>
+#include <xmlsec/xmldsig.h>
+#include <xmlsec/app.h>
+#include <libxml++/libxml++.h>
+#include <boost/filesystem.hpp>
+#include <boost/algorithm/string.hpp>
+#include <boost/foreach.hpp>
 
 using std::string;
 using std::list;
-using std::stringstream;
-using std::ostream;
-using std::copy;
-using std::back_inserter;
+using std::vector;
+using std::cout;
 using std::make_pair;
+using std::map;
+using std::cerr;
+using std::exception;
 using boost::shared_ptr;
-using boost::lexical_cast;
-using namespace libdcp;
+using boost::dynamic_pointer_cast;
+using boost::optional;
+using boost::algorithm::starts_with;
+using namespace dcp;
+
+static string const assetmap_interop_ns = "http://www.digicine.com/PROTO-ASDCP-AM-20040311#";
+static string const assetmap_smpte_ns   = "http://www.smpte-ra.org/schemas/429-9/2007/AM";
+static string const volindex_interop_ns = "http://www.digicine.com/PROTO-ASDCP-VL-20040311#";
+static string const volindex_smpte_ns   = "http://www.smpte-ra.org/schemas/429-9/2007/AM";
 
 DCP::DCP (boost::filesystem::path directory)
        : _directory (directory)
 {
-       boost::filesystem::create_directories (directory);
-}
-
-void
-DCP::write_xml (bool interop, XMLMetadata const & metadata, shared_ptr<const Signer> signer) const
-{
-       for (list<shared_ptr<CPL> >::const_iterator i = _cpls.begin(); i != _cpls.end(); ++i) {
-               (*i)->write_xml (interop, metadata, signer);
+       if (!boost::filesystem::exists (directory)) {
+               boost::filesystem::create_directories (directory);
        }
 
-       string pkl_uuid = make_uuid ();
-       string pkl_path = write_pkl (pkl_uuid, interop, metadata, signer);
-       
-       write_volindex (interop);
-       write_assetmap (pkl_uuid, boost::filesystem::file_size (pkl_path), interop, metadata);
+       _directory = boost::filesystem::canonical (_directory);
 }
 
-std::string
-DCP::write_pkl (string pkl_uuid, bool interop, XMLMetadata const & metadata, shared_ptr<const Signer> signer) const
+/** Call this instead of throwing an exception if the error can be tolerated */
+template<class T> void
+survivable_error (bool keep_going, dcp::DCP::ReadErrors* errors, T const & e)
 {
-       assert (!_cpls.empty ());
-       
-       boost::filesystem::path p;
-       p /= _directory;
-       stringstream s;
-       s << pkl_uuid << "_pkl.xml";
-       p /= s.str();
-
-       xmlpp::Document doc;
-       xmlpp::Element* pkl;
-       if (interop) {
-               pkl = doc.create_root_node("PackingList", "http://www.digicine.com/PROTO-ASDCP-PKL-20040311#");
+       if (keep_going) {
+               if (errors) {
+                       errors->push_back (shared_ptr<T> (new T (e)));
+               }
        } else {
-               pkl = doc.create_root_node("PackingList", "http://www.smpte-ra.org/schemas/429-8/2007/PKL");
-       }
-       
-       if (signer) {
-               pkl->set_namespace_declaration ("http://www.w3.org/2000/09/xmldsig#", "dsig");
-       }
-
-       pkl->add_child("Id")->add_child_text ("urn:uuid:" + pkl_uuid);
-       /* XXX: this is a bit of a hack */
-       pkl->add_child("AnnotationText")->add_child_text(_cpls.front()->name());
-       pkl->add_child("IssueDate")->add_child_text (metadata.issue_date);
-       pkl->add_child("Issuer")->add_child_text (metadata.issuer);
-       pkl->add_child("Creator")->add_child_text (metadata.creator);
-
-       xmlpp::Element* asset_list = pkl->add_child("AssetList");
-       list<shared_ptr<const Asset> > a = assets ();
-       for (list<shared_ptr<const Asset> >::const_iterator i = a.begin(); i != a.end(); ++i) {
-               (*i)->write_to_pkl (asset_list);
+               throw e;
        }
-       
-       for (list<shared_ptr<CPL> >::const_iterator i = _cpls.begin(); i != _cpls.end(); ++i) {
-               (*i)->write_to_pkl (asset_list);
-       }
-
-       if (signer) {
-               signer->sign (pkl, interop);
-       }
-               
-       doc.write_to_file (p.string (), "UTF-8");
-       return p.string ();
 }
 
 void
-DCP::write_volindex (bool interop) const
+DCP::read (bool keep_going, ReadErrors* errors, bool ignore_incorrect_picture_mxf_type)
 {
-       boost::filesystem::path p;
-       p /= _directory;
-       if (interop) {
-               p /= "VOLINDEX";
+       /* Read the ASSETMAP and PKL */
+
+       boost::filesystem::path asset_map_file;
+       if (boost::filesystem::exists (_directory / "ASSETMAP")) {
+               asset_map_file = _directory / "ASSETMAP";
+       } else if (boost::filesystem::exists (_directory / "ASSETMAP.xml")) {
+               asset_map_file = _directory / "ASSETMAP.xml";
        } else {
-               p /= "VOLINDEX.xml";
+               boost::throw_exception (DCPReadError (String::compose ("could not find AssetMap file in `%1'", _directory.string())));
        }
 
-       xmlpp::Document doc;
-       xmlpp::Element* root = doc.create_root_node ("VolumeIndex", "http://www.smpte-ra.org/schemas/429-9/2007/AM");
-       root->add_child("Index")->add_child_text ("1");
-       doc.write_to_file (p.string (), "UTF-8");
-}
+       cxml::Document asset_map ("AssetMap");
 
-void
-DCP::write_assetmap (string pkl_uuid, int pkl_length, bool interop, XMLMetadata const & metadata) const
-{
-       boost::filesystem::path p;
-       p /= _directory;
-       if (interop) {
-               p /= "ASSETMAP";
+       asset_map.read_file (asset_map_file);
+       if (asset_map.namespace_uri() == assetmap_interop_ns) {
+               _standard = INTEROP;
+       } else if (asset_map.namespace_uri() == assetmap_smpte_ns) {
+               _standard = SMPTE;
        } else {
-               p /= "ASSETMAP.xml";
+               boost::throw_exception (XMLError ("Unrecognised Assetmap namespace " + asset_map.namespace_uri()));
        }
 
-       xmlpp::Document doc;
-       xmlpp::Element* root;
-       if (interop) {
-               root = doc.create_root_node ("AssetMap", "http://www.digicine.com/PROTO-ASDCP-AM-20040311#");
-       } else {
-               root = doc.create_root_node ("AssetMap", "http://www.smpte-ra.org/schemas/429-9/2007/AM");
+       list<shared_ptr<cxml::Node> > asset_nodes = asset_map.node_child("AssetList")->node_children ("Asset");
+       map<string, boost::filesystem::path> paths;
+       list<boost::filesystem::path> pkl_paths;
+       BOOST_FOREACH (shared_ptr<cxml::Node> i, asset_nodes) {
+               if (i->node_child("ChunkList")->node_children("Chunk").size() != 1) {
+                       boost::throw_exception (XMLError ("unsupported asset chunk count"));
+               }
+               string p = i->node_child("ChunkList")->node_child("Chunk")->string_child ("Path");
+               if (starts_with (p, "file://")) {
+                       p = p.substr (7);
+               }
+               switch (*_standard) {
+               case INTEROP:
+                       if (i->optional_node_child("PackingList")) {
+                               pkl_paths.push_back (p);
+                       } else {
+                               paths.insert (make_pair (remove_urn_uuid (i->string_child ("Id")), p));
+                       }
+                       break;
+               case SMPTE:
+               {
+                       optional<string> pkl_bool = i->optional_string_child("PackingList");
+                       if (pkl_bool && *pkl_bool == "true") {
+                               pkl_paths.push_back (p);
+                       } else {
+                               paths.insert (make_pair (remove_urn_uuid (i->string_child ("Id")), p));
+                       }
+                       break;
+               }
+               }
        }
 
-       root->add_child("Id")->add_child_text ("urn:uuid:" + make_uuid());
-       root->add_child("AnnotationText")->add_child_text ("Created by " + metadata.creator);
-       if (interop) {
-               root->add_child("VolumeCount")->add_child_text ("1");
-               root->add_child("IssueDate")->add_child_text (metadata.issue_date);
-               root->add_child("Issuer")->add_child_text (metadata.issuer);
-               root->add_child("Creator")->add_child_text (metadata.creator);
-       } else {
-               root->add_child("Creator")->add_child_text (metadata.creator);
-               root->add_child("VolumeCount")->add_child_text ("1");
-               root->add_child("IssueDate")->add_child_text (metadata.issue_date);
-               root->add_child("Issuer")->add_child_text (metadata.issuer);
+       if (pkl_paths.empty()) {
+               boost::throw_exception (XMLError ("No packing lists found in asset map"));
        }
-               
-       xmlpp::Node* asset_list = root->add_child ("AssetList");
 
-       xmlpp::Node* asset = asset_list->add_child ("Asset");
-       asset->add_child("Id")->add_child_text ("urn:uuid:" + pkl_uuid);
-       asset->add_child("PackingList")->add_child_text ("true");
-       xmlpp::Node* chunk_list = asset->add_child ("ChunkList");
-       xmlpp::Node* chunk = chunk_list->add_child ("Chunk");
-       chunk->add_child("Path")->add_child_text (pkl_uuid + "_pkl.xml");
-       chunk->add_child("VolumeIndex")->add_child_text ("1");
-       chunk->add_child("Offset")->add_child_text ("0");
-       chunk->add_child("Length")->add_child_text (lexical_cast<string> (pkl_length));
-       
-       for (list<shared_ptr<CPL> >::const_iterator i = _cpls.begin(); i != _cpls.end(); ++i) {
-               (*i)->write_to_assetmap (asset_list);
+       BOOST_FOREACH (boost::filesystem::path i, pkl_paths) {
+               _pkls.push_back (shared_ptr<PKL>(new PKL(_directory / i)));
        }
 
-       list<shared_ptr<const Asset> > a = assets ();
-       for (list<shared_ptr<const Asset> >::const_iterator i = a.begin(); i != a.end(); ++i) {
-               (*i)->write_to_assetmap (asset_list);
-       }
+       /* Now we have:
+            paths - files in the DCP that are not PKLs.
+            _pkls - PKL objects for each PKL.
 
-       /* This must not be the _formatted version otherwise signature digests will be wrong */
-       doc.write_to_file (p.string (), "UTF-8");
-}
+          Read all the assets from the asset map.
+        */
 
-void
-DCP::read (bool require_mxfs)
-{
-       read_assets ();
-       read_cpls (require_mxfs);
-}
+       /* Make a list of non-CPL/PKL assets so that we can resolve the references
+          from the CPLs.
+       */
+       list<shared_ptr<Asset> > other_assets;
 
-void
-DCP::read_assets ()
-{
-       shared_ptr<parse::AssetMap> asset_map;
-       try {
-               boost::filesystem::path p = _directory;
-               p /= "ASSETMAP";
-               if (boost::filesystem::exists (p)) {
-                       asset_map.reset (new libdcp::parse::AssetMap (p.string ()));
-               } else {
-                       p = _directory;
-                       p /= "ASSETMAP.xml";
-                       if (boost::filesystem::exists (p)) {
-                               asset_map.reset (new libdcp::parse::AssetMap (p.string ()));
-                       } else {
-                               boost::throw_exception (DCPReadError ("could not find AssetMap file"));
-                       }
-               }
-               
-       } catch (FileError& e) {
-               boost::throw_exception (FileError ("could not load AssetMap file", _files.asset_map));
-       }
+       for (map<string, boost::filesystem::path>::const_iterator i = paths.begin(); i != paths.end(); ++i) {
+               boost::filesystem::path path = _directory / i->second;
 
-       for (list<shared_ptr<libdcp::parse::AssetMapAsset> >::const_iterator i = asset_map->assets.begin(); i != asset_map->assets.end(); ++i) {
-               if ((*i)->chunks.size() != 1) {
-                       boost::throw_exception (XMLError ("unsupported asset chunk count"));
+               if (i->second.empty()) {
+                       /* I can't see how this is valid, but it's
+                          been seen in the wild with a DCP that
+                          claims to come from ClipsterDCI 5.10.0.5.
+                       */
+                       survivable_error (keep_going, errors, EmptyAssetPathError(i->first));
+                       continue;
                }
 
-               boost::filesystem::path t = _directory;
-               t /= (*i)->chunks.front()->path;
-               
-               if (boost::algorithm::ends_with (t.string(), ".mxf") || boost::algorithm::ends_with (t.string(), ".ttf")) {
+               if (!boost::filesystem::exists(path)) {
+                       survivable_error (keep_going, errors, MissingAssetError (path));
                        continue;
                }
 
-               xmlpp::DomParser* p = new xmlpp::DomParser;
-               try {
-                       p->parse_file (t.string());
-               } catch (std::exception& e) {
-                       delete p;
+               /* Find the <Type> for this asset from the PKL that contains the asset */
+               optional<string> pkl_type;
+               BOOST_FOREACH (shared_ptr<PKL> j, _pkls) {
+                       pkl_type = j->type(i->first);
+                       if (pkl_type) {
+                               break;
+                       }
+               }
+
+               if (!pkl_type) {
+                       /* This asset is in the ASSETMAP but not mentioned in any PKL so we don't
+                        * need to worry about it.
+                        */
                        continue;
                }
 
-               string const root = p->get_document()->get_root_node()->get_name ();
-               delete p;
+               if (*pkl_type == CPL::static_pkl_type(*_standard) || *pkl_type == InteropSubtitleAsset::static_pkl_type(*_standard)) {
+                       xmlpp::DomParser* p = new xmlpp::DomParser;
+                       try {
+                               p->parse_file (path.string());
+                       } catch (std::exception& e) {
+                               delete p;
+                               throw DCPReadError(String::compose("XML error in %1", path.string()), e.what());
+                       }
 
-               if (root == "CompositionPlaylist") {
-                       _files.cpls.push_back (t.string());
-               } else if (root == "PackingList") {
-                       if (_files.pkl.empty ()) {
-                               _files.pkl = t.string();
-                       } else {
-                               boost::throw_exception (DCPReadError ("duplicate PKLs found"));
+                       string const root = p->get_document()->get_root_node()->get_name ();
+                       delete p;
+
+                       if (root == "CompositionPlaylist") {
+                               shared_ptr<CPL> cpl (new CPL (path));
+                               if (_standard && cpl->standard() && cpl->standard().get() != _standard.get()) {
+                                       survivable_error (keep_going, errors, MismatchedStandardError ());
+                               }
+                               _cpls.push_back (cpl);
+                       } else if (root == "DCSubtitle") {
+                               if (_standard && _standard.get() == SMPTE) {
+                                       survivable_error (keep_going, errors, MismatchedStandardError ());
+                               }
+                               other_assets.push_back (shared_ptr<InteropSubtitleAsset> (new InteropSubtitleAsset (path)));
                        }
+               } else if (
+                       *pkl_type == PictureAsset::static_pkl_type(*_standard) ||
+                       *pkl_type == SoundAsset::static_pkl_type(*_standard) ||
+                       *pkl_type == AtmosAsset::static_pkl_type(*_standard) ||
+                       *pkl_type == SMPTESubtitleAsset::static_pkl_type(*_standard)
+                       ) {
+
+                       other_assets.push_back (asset_factory(path, ignore_incorrect_picture_mxf_type));
+               } else if (*pkl_type == FontAsset::static_pkl_type(*_standard)) {
+                       other_assets.push_back (shared_ptr<FontAsset> (new FontAsset (i->first, path)));
+               } else if (*pkl_type == "image/png") {
+                       /* It's an Interop PNG subtitle; let it go */
+               } else {
+                       throw DCPReadError (String::compose("Unknown asset type %1 in PKL", *pkl_type));
                }
        }
-       
-       if (_files.cpls.empty ()) {
-               boost::throw_exception (FileError ("no CPL files found", ""));
-       }
 
-       if (_files.pkl.empty ()) {
-               boost::throw_exception (FileError ("no PKL file found", ""));
+       BOOST_FOREACH (shared_ptr<CPL> i, cpls ()) {
+               i->resolve_refs (other_assets);
        }
-
-       shared_ptr<parse::PKL> pkl;
-       try {
-               pkl.reset (new parse::PKL (_files.pkl));
-       } catch (FileError& e) {
-               boost::throw_exception (FileError ("could not load PKL file", _files.pkl));
-       }
-
-       _asset_maps.push_back (make_pair (boost::filesystem::absolute (_directory).string(), asset_map));
 }
 
 void
-DCP::read_cpls (bool require_mxfs)
+DCP::resolve_refs (list<shared_ptr<Asset> > assets)
 {
-       for (list<string>::iterator i = _files.cpls.begin(); i != _files.cpls.end(); ++i) {
-               _cpls.push_back (shared_ptr<CPL> (new CPL (_directory, *i, _asset_maps, require_mxfs)));
+       BOOST_FOREACH (shared_ptr<CPL> i, cpls ()) {
+               i->resolve_refs (assets);
        }
 }
 
 bool
-DCP::equals (DCP const & other, EqualityOptions opt, boost::function<void (NoteType, string)> note) const
+DCP::equals (DCP const & other, EqualityOptions opt, NoteHandler note) const
 {
-       if (_cpls.size() != other._cpls.size()) {
-               note (ERROR, "CPL counts differ");
+       list<shared_ptr<CPL> > a = cpls ();
+       list<shared_ptr<CPL> > b = other.cpls ();
+
+       if (a.size() != b.size()) {
+               note (DCP_ERROR, String::compose ("CPL counts differ: %1 vs %2", a.size(), b.size()));
                return false;
        }
 
-       list<shared_ptr<CPL> >::const_iterator a = _cpls.begin ();
-       list<shared_ptr<CPL> >::const_iterator b = other._cpls.begin ();
+       bool r = true;
+
+       BOOST_FOREACH (shared_ptr<CPL> i, a) {
+               list<shared_ptr<CPL> >::const_iterator j = b.begin ();
+               while (j != b.end() && !(*j)->equals (i, opt, note)) {
+                       ++j;
+               }
 
-       while (a != _cpls.end ()) {
-               if (!(*a)->equals (*b->get(), opt, note)) {
-                       return false;
+               if (j == b.end ()) {
+                       r = false;
                }
-               ++a;
-               ++b;
        }
 
-       return true;
+       return r;
 }
 
 void
-DCP::add_cpl (shared_ptr<CPL> cpl)
+DCP::add (boost::shared_ptr<CPL> cpl)
 {
        _cpls.push_back (cpl);
 }
 
-class AssetComparator
+bool
+DCP::encrypted () const
 {
-public:
-       bool operator() (shared_ptr<const Asset> a, shared_ptr<const Asset> b) {
-               return a->uuid() < b->uuid();
+       BOOST_FOREACH (shared_ptr<CPL> i, cpls ()) {
+               if (i->encrypted ()) {
+                       return true;
+               }
        }
-};
 
-list<shared_ptr<const Asset> >
-DCP::assets () const
+       return false;
+}
+
+/** Add a KDM to decrypt this DCP.  This method must be called after DCP::read()
+ *  or the KDM you specify will be ignored.
+ *  @param kdm KDM to use.
+ */
+void
+DCP::add (DecryptedKDM const & kdm)
+{
+       list<DecryptedKDMKey> keys = kdm.keys ();
+
+       BOOST_FOREACH (shared_ptr<CPL> i, cpls ()) {
+               BOOST_FOREACH (DecryptedKDMKey const & j, kdm.keys ()) {
+                       if (j.cpl_id() == i->id()) {
+                               i->add (kdm);
+                       }
+               }
+       }
+}
+
+/** Write the VOLINDEX file.
+ *  @param standard DCP standard to use (INTEROP or SMPTE)
+ */
+void
+DCP::write_volindex (Standard standard) const
 {
-       list<shared_ptr<const Asset> > a;
-       for (list<shared_ptr<CPL> >::const_iterator i = _cpls.begin(); i != _cpls.end(); ++i) {
-               list<shared_ptr<const Asset> > t = (*i)->assets ();
-               a.merge (t);
+       boost::filesystem::path p = _directory;
+       switch (standard) {
+       case INTEROP:
+               p /= "VOLINDEX";
+               break;
+       case SMPTE:
+               p /= "VOLINDEX.xml";
+               break;
+       default:
+               DCP_ASSERT (false);
+       }
+
+       xmlpp::Document doc;
+       xmlpp::Element* root;
+
+       switch (standard) {
+       case INTEROP:
+               root = doc.create_root_node ("VolumeIndex", volindex_interop_ns);
+               break;
+       case SMPTE:
+               root = doc.create_root_node ("VolumeIndex", volindex_smpte_ns);
+               break;
+       default:
+               DCP_ASSERT (false);
        }
 
-       a.sort (AssetComparator ());
-       a.unique ();
-       return a;
+       root->add_child("Index")->add_child_text ("1");
+       doc.write_to_file_formatted (p.string (), "UTF-8");
 }
 
-bool
-DCP::encrypted () const
+void
+DCP::write_assetmap (Standard standard, string pkl_uuid, boost::filesystem::path pkl_path, XMLMetadata metadata) const
 {
-       for (list<shared_ptr<CPL> >::const_iterator i = _cpls.begin(); i != _cpls.end(); ++i) {
-               if ((*i)->encrypted ()) {
-                       return true;
-               }
+       boost::filesystem::path p = _directory;
+
+       switch (standard) {
+       case INTEROP:
+               p /= "ASSETMAP";
+               break;
+       case SMPTE:
+               p /= "ASSETMAP.xml";
+               break;
+       default:
+               DCP_ASSERT (false);
        }
 
-       return false;
+       xmlpp::Document doc;
+       xmlpp::Element* root;
+
+       switch (standard) {
+       case INTEROP:
+               root = doc.create_root_node ("AssetMap", assetmap_interop_ns);
+               break;
+       case SMPTE:
+               root = doc.create_root_node ("AssetMap", assetmap_smpte_ns);
+               break;
+       default:
+               DCP_ASSERT (false);
+       }
+
+       root->add_child("Id")->add_child_text ("urn:uuid:" + make_uuid());
+       root->add_child("AnnotationText")->add_child_text (metadata.annotation_text);
+
+       switch (standard) {
+       case INTEROP:
+               root->add_child("VolumeCount")->add_child_text ("1");
+               root->add_child("IssueDate")->add_child_text (metadata.issue_date);
+               root->add_child("Issuer")->add_child_text (metadata.issuer);
+               root->add_child("Creator")->add_child_text (metadata.creator);
+               break;
+       case SMPTE:
+               root->add_child("Creator")->add_child_text (metadata.creator);
+               root->add_child("VolumeCount")->add_child_text ("1");
+               root->add_child("IssueDate")->add_child_text (metadata.issue_date);
+               root->add_child("Issuer")->add_child_text (metadata.issuer);
+               break;
+       default:
+               DCP_ASSERT (false);
+       }
+
+       xmlpp::Node* asset_list = root->add_child ("AssetList");
+
+       xmlpp::Node* asset = asset_list->add_child ("Asset");
+       asset->add_child("Id")->add_child_text ("urn:uuid:" + pkl_uuid);
+       asset->add_child("PackingList")->add_child_text ("true");
+       xmlpp::Node* chunk_list = asset->add_child ("ChunkList");
+       xmlpp::Node* chunk = chunk_list->add_child ("Chunk");
+       chunk->add_child("Path")->add_child_text (pkl_path.filename().string());
+       chunk->add_child("VolumeIndex")->add_child_text ("1");
+       chunk->add_child("Offset")->add_child_text ("0");
+       chunk->add_child("Length")->add_child_text (raw_convert<string> (boost::filesystem::file_size (pkl_path)));
+
+       BOOST_FOREACH (shared_ptr<Asset> i, assets ()) {
+               i->write_to_assetmap (asset_list, _directory);
+       }
+
+       doc.write_to_file_formatted (p.string (), "UTF-8");
 }
 
+/** Write all the XML files for this DCP.
+ *  @param standand INTEROP or SMPTE.
+ *  @param metadata Metadata to use for PKL and asset map files.
+ *  @param signer Signer to use, or 0.
+ */
 void
-DCP::add_kdm (KDM const & kdm)
+DCP::write_xml (
+       Standard standard,
+       XMLMetadata metadata,
+       shared_ptr<const CertificateChain> signer,
+       NameFormat name_format
+       )
 {
-       list<KDMKey> keys = kdm.keys ();
-       
-       for (list<shared_ptr<CPL> >::iterator i = _cpls.begin(); i != _cpls.end(); ++i) {
-               for (list<KDMKey>::iterator j = keys.begin(); j != keys.end(); ++j) {
-                       if (j->cpl_id() == (*i)->id()) {
-                               (*i)->add_kdm (kdm);
-                       }                               
+       BOOST_FOREACH (shared_ptr<CPL> i, cpls ()) {
+               NameFormat::Map values;
+               values['t'] = "cpl";
+               i->write_xml (_directory / (name_format.get(values, "_" + i->id() + ".xml")), standard, signer);
+       }
+
+       shared_ptr<PKL> pkl;
+
+       if (_pkls.empty()) {
+               pkl.reset (new PKL (standard, metadata.annotation_text, metadata.issue_date, metadata.issuer, metadata.creator));
+               _pkls.push_back (pkl);
+               BOOST_FOREACH (shared_ptr<Asset> i, assets ()) {
+                       i->add_to_pkl (pkl, _directory);
                }
+        } else {
+               pkl = _pkls.front ();
        }
+
+       NameFormat::Map values;
+       values['t'] = "pkl";
+       boost::filesystem::path pkl_path = _directory / name_format.get(values, "_" + pkl->id() + ".xml");
+       pkl->write (pkl_path, signer);
+
+       write_volindex (standard);
+       write_assetmap (standard, pkl->id(), pkl_path, metadata);
 }
 
-void
-DCP::add_assets_from (DCP const & ov)
+list<shared_ptr<CPL> >
+DCP::cpls () const
+{
+       return _cpls;
+}
+
+/** @param ignore_unresolved true to silently ignore unresolved assets, otherwise
+ *  an exception is thrown if they are found.
+ *  @return All assets (including CPLs).
+ */
+list<shared_ptr<Asset> >
+DCP::assets (bool ignore_unresolved) const
 {
-       copy (ov._asset_maps.begin(), ov._asset_maps.end(), back_inserter (_asset_maps));
+       list<shared_ptr<Asset> > assets;
+       BOOST_FOREACH (shared_ptr<CPL> i, cpls ()) {
+               assets.push_back (i);
+               BOOST_FOREACH (shared_ptr<const ReelAsset> j, i->reel_assets ()) {
+                       if (ignore_unresolved && !j->asset_ref().resolved()) {
+                               continue;
+                       }
+                       shared_ptr<Asset> o = j->asset_ref().asset ();
+                       assets.push_back (o);
+                       /* More Interop special-casing */
+                       shared_ptr<InteropSubtitleAsset> sub = dynamic_pointer_cast<InteropSubtitleAsset> (o);
+                       if (sub) {
+                               sub->add_font_assets (assets);
+                       }
+               }
+       }
+
+       return assets;
+}
+
+/** Given a list of files that make up 1 or more DCPs, return the DCP directories */
+vector<boost::filesystem::path>
+DCP::directories_from_files (vector<boost::filesystem::path> files)
+{
+       vector<boost::filesystem::path> d;
+       BOOST_FOREACH (boost::filesystem::path i, files) {
+               if (i.filename() == "ASSETMAP" || i.filename() == "ASSETMAP.xml") {
+                       d.push_back (i.parent_path ());
+               }
+       }
+       return d;
 }