not actually working attempt to copy relevant xfades into compound regions; fix compi...
[ardour.git] / libs / ardour / playlist.cc
index 8b839e32694791405fd76e68b7243df89ba0c604..d635819963434fd95353efc2b9a0acdcc991f803 100644 (file)
 
 #include <boost/lexical_cast.hpp>
 
+#include "pbd/convert.h"
 #include "pbd/failed_constructor.h"
 #include "pbd/stateful_diff_command.h"
 #include "pbd/xml++.h"
-#include "pbd/stacktrace.h"
 
 #include "ardour/debug.h"
 #include "ardour/playlist.h"
@@ -41,6 +41,7 @@
 #include "ardour/playlist_factory.h"
 #include "ardour/transient_detector.h"
 #include "ardour/session_playlists.h"
+#include "ardour/source_factory.h"
 
 #include "i18n.h"
 
@@ -101,13 +102,14 @@ struct RegionSortByLastLayerOp {
 void
 Playlist::make_property_quarks ()
 {
-        Properties::regions.property_id = g_quark_from_static_string (X_("regions"));
-        DEBUG_TRACE (DEBUG::Properties, string_compose ("quark for regions = %1\n",         Properties::regions.property_id));
+       Properties::regions.property_id = g_quark_from_static_string (X_("regions"));
+       DEBUG_TRACE (DEBUG::Properties, string_compose ("quark for regions = %1\n",
+                                                       Properties::regions.property_id));
 }
 
 RegionListProperty::RegionListProperty (Playlist& pl)
-        : SequenceProperty<std::list<boost::shared_ptr<Region> > > (Properties::regions.property_id, boost::bind (&Playlist::update, &pl, _1))
-        , _playlist (pl)
+       : SequenceProperty<std::list<boost::shared_ptr<Region> > > (Properties::regions.property_id, boost::bind (&Playlist::update, &pl, _1))
+       , _playlist (pl)
 {
        
 }
@@ -149,32 +151,30 @@ RegionListProperty::get_content_from_xml (XMLNode const & node) const
 
        PBD::ID id (prop->value ());
 
-        boost::shared_ptr<Region> ret = _playlist.region_by_id (id);
+       boost::shared_ptr<Region> ret = _playlist.region_by_id (id);
         
-        if (!ret) {
-                ret = RegionFactory::region_by_id (id);
-        }
+       if (!ret) {
+               ret = RegionFactory::region_by_id (id);
+       }
 
-        return ret;
+       return ret;
 }
 
 Playlist::Playlist (Session& sess, string nom, DataType type, bool hide)
        : SessionObject(sess, nom)
-        , regions (*this)
+       , regions (*this)
        , _type(type)
 {
        init (hide);
        first_set_state = false;
        _name = nom;
-        _set_sort_id ();
-
+       _set_sort_id ();
 }
 
 Playlist::Playlist (Session& sess, const XMLNode& node, DataType type, bool hide)
        : SessionObject(sess, "unnamed playlist")
-        , regions (*this)      
-        , _type(type)
-
+       , regions (*this)       
+       , _type(type)
 {
 #ifndef NDEBUG
        const XMLProperty* prop = node.property("type");
@@ -183,14 +183,14 @@ Playlist::Playlist (Session& sess, const XMLNode& node, DataType type, bool hide
 
        init (hide);
        _name = "unnamed"; /* reset by set_state */
-        _set_sort_id ();
+       _set_sort_id ();
 
        /* set state called by derived class */
 }
 
 Playlist::Playlist (boost::shared_ptr<const Playlist> other, string namestr, bool hide)
        : SessionObject(other->_session, namestr)
-        , regions (*this)
+       , regions (*this)
        , _type(other->_type)
        , _orig_diskstream_id (other->_orig_diskstream_id)
 {
@@ -225,7 +225,7 @@ Playlist::Playlist (boost::shared_ptr<const Playlist> other, string namestr, boo
 
 Playlist::Playlist (boost::shared_ptr<const Playlist> other, framepos_t start, framecnt_t cnt, string str, bool hide)
        : SessionObject(other->_session, str)
-        , regions (*this)
+       , regions (*this)
        , _type(other->_type)
        , _orig_diskstream_id (other->_orig_diskstream_id)
 {
@@ -332,8 +332,8 @@ Playlist::copy_regions (RegionList& newlist) const
 void
 Playlist::init (bool hide)
 {
-        add_property (regions);
-        _xml_node_name = X_("Playlist");
+       add_property (regions);
+       _xml_node_name = X_("Playlist");
 
        g_atomic_int_set (&block_notifications, 0);
        g_atomic_int_set (&ignore_state_changes, 0);
@@ -347,7 +347,7 @@ Playlist::init (bool hide)
        _shuffling = false;
        _nudging = false;
        in_set_state = 0;
-        in_update = false;
+       in_update = false;
        _edit_mode = Config->get_edit_mode();
        in_flush = false;
        in_partition = false;
@@ -357,6 +357,7 @@ Playlist::init (bool hide)
        layer_op_counter = 0;
        freeze_length = 0;
        _explicit_relayering = false;
+       _combine_ops = 0;
 
        _session.history().BeginUndoRedo.connect_same_thread (*this, boost::bind (&Playlist::begin_undo, this));
        _session.history().EndUndoRedo.connect_same_thread (*this, boost::bind (&Playlist::end_undo, this));
@@ -382,27 +383,27 @@ Playlist::~Playlist ()
 void
 Playlist::_set_sort_id ()
 {
-        /*
-          Playlists are given names like <track name>.<id>
-          or <track name>.<edit group name>.<id> where id
-          is an integer. We extract the id and sort by that.
-        */
+       /*
+         Playlists are given names like <track name>.<id>
+         or <track name>.<edit group name>.<id> where id
+         is an integer. We extract the id and sort by that.
+       */
         
-        size_t dot_position = _name.val().find_last_of(".");
+       size_t dot_position = _name.val().find_last_of(".");
 
-        if (dot_position == string::npos) {
-                _sort_id = 0;
-        } else {
-                string t = _name.val().substr(dot_position + 1);
+       if (dot_position == string::npos) {
+               _sort_id = 0;
+       } else {
+               string t = _name.val().substr(dot_position + 1);
 
-                try {
-                        _sort_id = boost::lexical_cast<int>(t);
-                }
+               try {
+                       _sort_id = boost::lexical_cast<int>(t);
+               }
 
-                catch (boost::bad_lexical_cast e) {
-                        _sort_id = 0;
-                }
-        }
+               catch (boost::bad_lexical_cast e) {
+                       _sort_id = 0;
+               }
+       }
 }
 
 bool
@@ -418,11 +419,11 @@ Playlist::set_name (const string& str)
                return false;
        } 
 
-        bool ret =  SessionObject::set_name(str);
-        if (ret) {
-                _set_sort_id ();
-        }
-        return ret;
+       bool ret =  SessionObject::set_name(str);
+       if (ret) {
+               _set_sort_id ();
+       }
+       return ret;
 }
 
 /***********************************************************************
@@ -436,7 +437,7 @@ Playlist::set_name (const string& str)
 void
 Playlist::begin_undo ()
 {
-        in_update = true;
+       in_update = true;
        freeze ();
 }
 
@@ -444,7 +445,7 @@ void
 Playlist::end_undo ()
 {
        thaw (true);
-        in_update = false;
+       in_update = false;
 }
 
 void
@@ -476,8 +477,7 @@ Playlist::release_notifications (bool from_undo)
 {
        if (g_atomic_int_dec_and_test (&block_notifications)) {
                flush_notifications (from_undo);
-        }
-
+       }
 }
 
 void
@@ -539,6 +539,51 @@ Playlist::notify_region_moved (boost::shared_ptr<Region> r)
 
 }
 
+void
+Playlist::notify_region_start_trimmed (boost::shared_ptr<Region> r)
+{
+       if (r->position() >= r->last_position()) {
+               /* trimmed shorter */
+               return;
+       }
+
+       Evoral::Range<framepos_t> const extra (r->position(), r->last_position());
+       
+       if (holding_state ()) {
+               
+               pending_region_extensions.push_back (extra);
+               
+       } else {
+               
+               list<Evoral::Range<framepos_t> > r;
+               r.push_back (extra);
+               RegionsExtended (r);
+               
+       }
+}
+
+void
+Playlist::notify_region_end_trimmed (boost::shared_ptr<Region> r)
+{
+       if (r->length() < r->last_length()) {
+               /* trimmed shorter */
+       }
+
+       Evoral::Range<framepos_t> const extra (r->position() + r->last_length(), r->position() + r->length());
+
+       if (holding_state ()) {
+
+               pending_region_extensions.push_back (extra);
+
+       } else {
+
+               list<Evoral::Range<framepos_t> > r;
+               r.push_back (extra);
+               RegionsExtended (r);
+       }
+}
+
+
 void
 Playlist::notify_region_added (boost::shared_ptr<Region> r)
 {
@@ -551,7 +596,7 @@ Playlist::notify_region_added (boost::shared_ptr<Region> r)
                pending_contents_change = true;
                pending_length = true;
        } else {
-                r->clear_changes ();
+               r->clear_changes ();
                pending_length = false;
                LengthChanged (); /* EMIT SIGNAL */
                pending_contents_change = false;
@@ -621,10 +666,10 @@ Playlist::flush_notifications (bool from_undo)
 
        for (s = pending_adds.begin(); s != pending_adds.end(); ++s) {
                // cerr << _name << " sends RegionAdded\n";
-                /* don't emit RegionAdded signal until relayering is done,
-                   so that the region is fully setup by the time
-                   anyone hear's that its been added
-                */
+               /* don't emit RegionAdded signal until relayering is done,
+                  so that the region is fully setup by the time
+                  anyone hear's that its been added
+               */
                dependent_checks_needed.insert (*s);
        }
 
@@ -652,9 +697,9 @@ Playlist::flush_notifications (bool from_undo)
        }
 
        for (s = pending_adds.begin(); s != pending_adds.end(); ++s) {
-                (*s)->clear_changes ();
+               (*s)->clear_changes ();
                RegionAdded (boost::weak_ptr<Region> (*s)); /* EMIT SIGNAL */
-        }
+       }
 
        for (s = dependent_checks_needed.begin(); s != dependent_checks_needed.end(); ++s) {
                check_dependents (*s, false);
@@ -663,6 +708,10 @@ Playlist::flush_notifications (bool from_undo)
        if (!pending_range_moves.empty ()) {
                RangesMoved (pending_range_moves, from_undo);
        }
+
+       if (!pending_region_extensions.empty ()) {
+               RegionsExtended (pending_region_extensions);
+       }
        
        clear_pending ();
 
@@ -676,6 +725,7 @@ Playlist::clear_pending ()
        pending_removes.clear ();
        pending_bounds.clear ();
        pending_range_moves.clear ();
+       pending_region_extensions.clear ();
        pending_contents_change = false;
        pending_length = false;
 }
@@ -777,12 +827,8 @@ Playlist::add_region_internal (boost::shared_ptr<Region> region, framepos_t posi
        regions.insert (upper_bound (regions.begin(), regions.end(), region, cmp), region);
        all_regions.insert (region);
 
-        cerr << "Playlist: region added at " << position << endl;
-
        possibly_splice_unlocked (position, region->length(), region);
 
-        cerr << "Playlist: post-splice, region @  " << region->position() << endl;
-
        if (!holding_state ()) {
                /* layers get assigned from XML state, and are not reset during undo/redo */
                relayer ();
@@ -858,7 +904,7 @@ Playlist::remove_region_internal (boost::shared_ptr<Region> region)
                        possibly_splice_unlocked (pos, -distance);
 
                        if (!holding_state ()) {
-                                relayer ();
+                               relayer ();
                                remove_dependents (region);
 
                                if (old_length != _get_extent().second) {
@@ -1259,7 +1305,6 @@ Playlist::paste (boost::shared_ptr<Playlist> other, framepos_t position, float t
                                */
 
                                copy_of_region->set_layer (copy_of_region->layer() + top_layer);
-                                cerr << "DEBUG: add new region at " << pos << endl;
                                add_region_internal (copy_of_region, (*i)->position() + pos);
                        }
                        pos += shift;
@@ -1538,10 +1583,10 @@ Playlist::region_bounds_changed (const PropertyChange& what_changed, boost::shar
                RegionList::iterator i = find (regions.begin(), regions.end(), region);
 
                if (i == regions.end()) {
-                        /* the region bounds are being modified but its not currently
-                           in the region list. we will use its bounds correctly when/if
-                           it is added
-                        */
+                       /* the region bounds are being modified but its not currently
+                          in the region list. we will use its bounds correctly when/if
+                          it is added
+                       */
                        return;
                }
 
@@ -1628,9 +1673,12 @@ Playlist::region_changed (const PropertyChange& what_changed, boost::shared_ptr<
 
        if (what_changed.contains (Properties::position) && !what_changed.contains (Properties::length)) {
                notify_region_moved (region);
+       } else if (!what_changed.contains (Properties::position) && what_changed.contains (Properties::length)) {
+               notify_region_end_trimmed (region);
+       } else if (what_changed.contains (Properties::position) && what_changed.contains (Properties::length)) {
+               notify_region_start_trimmed (region);
        }
 
-
        /* don't notify about layer changes, since we are the only object that can initiate
           them, and we notify in ::relayer()
        */
@@ -1650,6 +1698,18 @@ Playlist::drop_regions ()
        all_regions.clear ();
 }
 
+void
+Playlist::sync_all_regions_with_regions ()
+{
+       RegionLock rl (this);
+
+       all_regions.clear ();
+
+       for (RegionList::iterator i = regions.begin(); i != regions.end(); ++i) {
+               all_regions.insert (*i);
+       }
+}
+
 void
 Playlist::clear (bool with_signals)
 {
@@ -1664,18 +1724,18 @@ Playlist::clear (bool with_signals)
 
                regions.clear ();
 
-                for (set<boost::shared_ptr<Region> >::iterator s = pending_removes.begin(); s != pending_removes.end(); ++s) {
-                        remove_dependents (*s);
-                }
+               for (set<boost::shared_ptr<Region> >::iterator s = pending_removes.begin(); s != pending_removes.end(); ++s) {
+                       remove_dependents (*s);
+               }
        }
 
        if (with_signals) {
 
-                for (set<boost::shared_ptr<Region> >::iterator s = pending_removes.begin(); s != pending_removes.end(); ++s) {
-                        RegionRemoved (boost::weak_ptr<Region> (*s)); /* EMIT SIGNAL */
-                }
+               for (set<boost::shared_ptr<Region> >::iterator s = pending_removes.begin(); s != pending_removes.end(); ++s) {
+                       RegionRemoved (boost::weak_ptr<Region> (*s)); /* EMIT SIGNAL */
+               }
 
-                pending_removes.clear ();
+               pending_removes.clear ();
                pending_length = false;
                LengthChanged ();
                pending_contents_change = false;
@@ -1697,12 +1757,12 @@ Playlist::regions_at (framepos_t frame)
 }
 
 uint32_t
-Playlist::count_regions_at (framepos_t frame)
+Playlist::count_regions_at (framepos_t frame) const
 {
-       RegionLock rlock (this);
+       RegionLock rlock (const_cast<Playlist*>(this));
        uint32_t cnt = 0;
 
-       for (RegionList::iterator i = regions.begin(); i != regions.end(); ++i) {
+       for (RegionList::const_iterator i = regions.begin(); i != regions.end(); ++i) {
                if ((*i)->covers (frame)) {
                        cnt++;
                }
@@ -1772,7 +1832,7 @@ Playlist::regions_to_read (framepos_t start, framepos_t end)
        to_check.insert (start);
        to_check.insert (end);
 
-        DEBUG_TRACE (DEBUG::AudioPlayback, ">>>>> REGIONS TO READ\n");
+       DEBUG_TRACE (DEBUG::AudioPlayback, ">>>>> REGIONS TO READ\n");
 
        for (RegionList::iterator i = regions.begin(); i != regions.end(); ++i) {
 
@@ -1784,38 +1844,38 @@ Playlist::regions_to_read (framepos_t start, framepos_t end)
 
                case OverlapInternal:
                        covering.push_back (*i);
-                        DEBUG_TRACE (DEBUG::AudioPlayback, string_compose ("toread: will cover %1 (OInternal)\n", (*i)->name()));
+                       DEBUG_TRACE (DEBUG::AudioPlayback, string_compose ("toread: will cover %1 (OInternal)\n", (*i)->name()));
                        break;
 
                case OverlapStart:
                        to_check.insert ((*i)->position());
-                        if ((*i)->position() != 0) {
-                                to_check.insert ((*i)->position()-1);
-                        }
-                        DEBUG_TRACE (DEBUG::AudioPlayback, string_compose ("toread: will check %1 for %2\n", (*i)->position(), (*i)->name()));
+                       if ((*i)->position() != 0) {
+                               to_check.insert ((*i)->position()-1);
+                       }
+                       DEBUG_TRACE (DEBUG::AudioPlayback, string_compose ("toread: will check %1 for %2\n", (*i)->position(), (*i)->name()));
                        covering.push_back (*i);
                        break;
 
                case OverlapEnd:
                        to_check.insert ((*i)->last_frame());
                        to_check.insert ((*i)->last_frame()+1);
-                        DEBUG_TRACE (DEBUG::AudioPlayback, string_compose ("toread: will cover %1 (OEnd)\n", (*i)->name()));
-                        DEBUG_TRACE (DEBUG::AudioPlayback, string_compose ("\ttoread: will check %1 for %2\n", (*i)->last_frame(), (*i)->name()));
-                        DEBUG_TRACE (DEBUG::AudioPlayback, string_compose ("\ttoread: will check %1 for %2\n", (*i)->last_frame(), (*i)->name()));
+                       DEBUG_TRACE (DEBUG::AudioPlayback, string_compose ("toread: will cover %1 (OEnd)\n", (*i)->name()));
+                       DEBUG_TRACE (DEBUG::AudioPlayback, string_compose ("\ttoread: will check %1 for %2\n", (*i)->last_frame(), (*i)->name()));
+                       DEBUG_TRACE (DEBUG::AudioPlayback, string_compose ("\ttoread: will check %1 for %2\n", (*i)->last_frame(), (*i)->name()));
                        covering.push_back (*i);
                        break;
 
                case OverlapExternal:
                        covering.push_back (*i);
                        to_check.insert ((*i)->position());
-                        if ((*i)->position() != 0) {
-                                to_check.insert ((*i)->position()-1);
-                        }
+                       if ((*i)->position() != 0) {
+                               to_check.insert ((*i)->position()-1);
+                       }
                        to_check.insert ((*i)->last_frame());
                        to_check.insert ((*i)->last_frame()+1);
-                        DEBUG_TRACE (DEBUG::AudioPlayback, string_compose ("toread: will cover %1 (OExt)\n", (*i)->name()));
-                        DEBUG_TRACE (DEBUG::AudioPlayback, string_compose ("\ttoread: will check %1 for %2\n", (*i)->position(), (*i)->name()));
-                        DEBUG_TRACE (DEBUG::AudioPlayback, string_compose ("\ttoread: will check %1 for %2\n", (*i)->last_frame(), (*i)->name()));
+                       DEBUG_TRACE (DEBUG::AudioPlayback, string_compose ("toread: will cover %1 (OExt)\n", (*i)->name()));
+                       DEBUG_TRACE (DEBUG::AudioPlayback, string_compose ("\ttoread: will check %1 for %2\n", (*i)->position(), (*i)->name()));
+                       DEBUG_TRACE (DEBUG::AudioPlayback, string_compose ("\ttoread: will check %1 for %2\n", (*i)->last_frame(), (*i)->name()));
                        break;
                }
 
@@ -1833,7 +1893,7 @@ Playlist::regions_to_read (framepos_t start, framepos_t end)
        if (covering.size() == 1) {
 
                rlist->push_back (covering.front());
-                DEBUG_TRACE (DEBUG::AudioPlayback, string_compose ("Just one covering region (%1)\n", covering.front()->name()));
+               DEBUG_TRACE (DEBUG::AudioPlayback, string_compose ("Just one covering region (%1)\n", covering.front()->name()));
 
        } else {
 
@@ -1842,20 +1902,20 @@ Playlist::regions_to_read (framepos_t start, framepos_t end)
 
                        here.clear ();
 
-                        DEBUG_TRACE (DEBUG::AudioPlayback, string_compose ("++++ Considering %1\n", *t));
+                       DEBUG_TRACE (DEBUG::AudioPlayback, string_compose ("++++ Considering %1\n", *t));
 
                        for (RegionList::iterator x = covering.begin(); x != covering.end(); ++x) {
 
                                if ((*x)->covers (*t)) {
                                        here.push_back (*x);
-                                        DEBUG_TRACE (DEBUG::AudioPlayback, string_compose ("region %1 covers %2\n",
-                                                                                           (*x)->name(),
-                                                                                           (*t)));
+                                       DEBUG_TRACE (DEBUG::AudioPlayback, string_compose ("region %1 covers %2\n",
+                                                                                          (*x)->name(),
+                                                                                          (*t)));
                                } else {
-                                        DEBUG_TRACE (DEBUG::AudioPlayback, string_compose ("region %1 does NOT covers %2\n",
-                                                                                           (*x)->name(),
-                                                                                           (*t)));
-                                }
+                                       DEBUG_TRACE (DEBUG::AudioPlayback, string_compose ("region %1 does NOT covers %2\n",
+                                                                                          (*x)->name(),
+                                                                                          (*t)));
+                               }
                                         
                        }
 
@@ -1871,8 +1931,8 @@ Playlist::regions_to_read (framepos_t start, framepos_t end)
                                if ((*c)->opaque()) {
 
                                        /* the other regions at this position are hidden by this one */
-                                        DEBUG_TRACE (DEBUG::AudioPlayback, string_compose ("%1 is opaque, ignore all others\n",
-                                                                                           (*c)->name()));
+                                       DEBUG_TRACE (DEBUG::AudioPlayback, string_compose ("%1 is opaque, ignore all others\n",
+                                                                                          (*c)->name()));
                                        break;
                                }
                        }
@@ -1890,7 +1950,7 @@ Playlist::regions_to_read (framepos_t start, framepos_t end)
                }
        }
 
-        DEBUG_TRACE (DEBUG::AudioPlayback, string_compose ("<<<<< REGIONS TO READ returns %1\n", rlist->size()));
+       DEBUG_TRACE (DEBUG::AudioPlayback, string_compose ("<<<<< REGIONS TO READ returns %1\n", rlist->size()));
 
        return rlist;
 }
@@ -2146,20 +2206,40 @@ Playlist::clear_owned_changes ()
 void
 Playlist::update (const RegionListProperty::ChangeRecord& change)
 {
-        DEBUG_TRACE (DEBUG::Properties, string_compose ("Playlist %1 updates from a change record with %2 adds %3 removes\n", 
-                                                        name(), change.added.size(), change.removed.size()));
+       DEBUG_TRACE (DEBUG::Properties, string_compose ("Playlist %1 updates from a change record with %2 adds %3 removes\n", 
+                                                       name(), change.added.size(), change.removed.size()));
         
-        freeze ();
-        /* add the added regions */
-        for (RegionListProperty::ChangeContainer::iterator i = change.added.begin(); i != change.added.end(); ++i) {
-                add_region ((*i), (*i)->position());
-        }
-        /* remove the removed regions */
-        for (RegionListProperty::ChangeContainer::iterator i = change.removed.begin(); i != change.removed.end(); ++i) {
-                remove_region (*i);
-        }
+       freeze ();
+       /* add the added regions */
+       for (RegionListProperty::ChangeContainer::iterator i = change.added.begin(); i != change.added.end(); ++i) {
+               add_region ((*i), (*i)->position());
+       }
+       /* remove the removed regions */
+       for (RegionListProperty::ChangeContainer::iterator i = change.removed.begin(); i != change.removed.end(); ++i) {
+               remove_region (*i);
+       }
+
+       thaw ();
+}
+
+void
+Playlist::load_nested_sources (const XMLNode& node)
+{
+       XMLNodeList nlist;
+       XMLNodeConstIterator niter;
+
+       nlist = node.children();
 
-        thaw ();
+       for (niter = nlist.begin(); niter != nlist.end(); ++niter) {
+               if ((*niter)->name() == "Source") {
+                       try {
+                               SourceFactory::create (_session, **niter, true);
+                       } 
+                       catch (failed_constructor& err) {
+                               error << string_compose (_("Cannot reconstruct nested source for playlist %1"), name()) << endmsg;
+                       }
+               }
+       }
 }
 
 int
@@ -2191,13 +2271,15 @@ Playlist::set_state (const XMLNode& node, int version)
 
                if (prop->name() == X_("name")) {
                        _name = prop->value();
-                        _set_sort_id ();
+                       _set_sort_id ();
                } else if (prop->name() == X_("id")) {
-                        _id = prop->value();
+                       _id = prop->value();
                } else if (prop->name() == X_("orig_diskstream_id")) {
                        _orig_diskstream_id = prop->value ();
                } else if (prop->name() == X_("frozen")) {
                        _frozen = string_is_affirmative (prop->value());
+               } else if (prop->name() == X_("combine-ops")) {
+                       _combine_ops = atoi (prop->value());
                }
        }
 
@@ -2205,6 +2287,19 @@ Playlist::set_state (const XMLNode& node, int version)
 
        nlist = node.children();
 
+       /* find the "Nested" node, if any, and recreate the PlaylistSources
+          listed there
+       */
+
+       for (niter = nlist.begin(); niter != nlist.end(); ++niter) {
+               child = *niter;
+
+               if (child->name() == "Nested") {
+                       load_nested_sources (*child);
+                       break;
+               }
+       }
+
        for (niter = nlist.begin(); niter != nlist.end(); ++niter) {
 
                child = *niter;
@@ -2233,7 +2328,7 @@ Playlist::set_state (const XMLNode& node, int version)
                                error << _("Playlist: cannot create region from XML") << endmsg;
                                continue;
                        }
-
+                       
 
                        add_region (region, region->position(), 1.0);
 
@@ -2277,7 +2372,7 @@ XMLNode&
 Playlist::state (bool full_state)
 {
        XMLNode *node = new XMLNode (X_("Playlist"));
-       char buf[64] = "";
+       char buf[64];
 
        node->add_property (X_("id"), id().to_s());
        node->add_property (X_("name"), _name);
@@ -2289,6 +2384,34 @@ Playlist::state (bool full_state)
 
        if (full_state) {
                RegionLock rlock (this, false);
+               XMLNode* nested_node = 0;
+
+               snprintf (buf, sizeof (buf), "%u", _combine_ops);
+               node->add_property ("combine-ops", buf);
+
+               for (RegionList::iterator i = regions.begin(); i != regions.end(); ++i) {
+                       if ((*i)->max_source_level() > 0) {
+
+                               if (!nested_node) {
+                                       nested_node = new XMLNode (X_("Nested"));
+                               }
+
+                               /* region is compound - get its playlist and
+                                  store that before we list the region that
+                                  needs it ...
+                               */
+
+                               const SourceList& sl ((*i)->sources());
+
+                               for (SourceList::const_iterator s = sl.begin(); s != sl.end(); ++s) {
+                                       nested_node->add_child_nocopy ((*s)->get_state ());
+                               }
+                       }
+               }
+
+               if (nested_node) {
+                       node->add_child_nocopy (*nested_node);
+               }
 
                for (RegionList::iterator i = regions.begin(); i != regions.end(); ++i) {
                        node->add_child_nocopy ((*i)->get_state());
@@ -2379,11 +2502,11 @@ Playlist::set_edit_mode (EditMode mode)
 void
 Playlist::relayer ()
 {
-        /* never compute layers when changing state for undo/redo or setting from XML */
+       /* never compute layers when changing state for undo/redo or setting from XML */
 
-        if (in_update || in_set_state) {
-                return;
-        }
+       if (in_update || in_set_state) {
+               return;
+       }
 
        bool changed = false;
 
@@ -2633,7 +2756,7 @@ Playlist::move_region_to_layer (layer_t target_layer, boost::shared_ptr<Region>
                }
        }
 
-        freeze ();
+       freeze ();
 
        /* now reset the layers without holding the region lock */
 
@@ -2643,16 +2766,16 @@ Playlist::move_region_to_layer (layer_t target_layer, boost::shared_ptr<Region>
 
        region->set_layer (target_layer);
 
-        /* now check all dependents, since we changed the layering */
+       /* now check all dependents, since we changed the layering */
 
        for (list<LayerInfo>::iterator x = layerinfo.begin(); x != layerinfo.end(); ++x) {
                check_dependents (x->first, false);
        }
 
        check_dependents (region, false);
-        notify_layering_changed ();
+       notify_layering_changed ();
 
-        thaw ();
+       thaw ();
 
        return 0;
 }
@@ -2704,6 +2827,20 @@ Playlist::nudge_after (framepos_t start, framecnt_t distance, bool forwards)
 
 }
 
+bool
+Playlist::uses_source (boost::shared_ptr<const Source> src) const
+{
+       RegionLock rlock (const_cast<Playlist*> (this));
+
+       for (set<boost::shared_ptr<Region> >::iterator r = all_regions.begin(); r != all_regions.end(); ++r) {
+               if ((*r)->uses_source (src)) {
+                       return true;
+               }
+       }
+
+       return false;
+}
+
 boost::shared_ptr<Region>
 Playlist::find_region (const ID& id) const
 {
@@ -2724,11 +2861,11 @@ uint32_t
 Playlist::region_use_count (boost::shared_ptr<Region> r) const
 {
        RegionLock rlock (const_cast<Playlist*> (this));
-        uint32_t cnt = 0;
+       uint32_t cnt = 0;
 
        for (RegionList::const_iterator i = regions.begin(); i != regions.end(); ++i) {
                if ((*i) == r) {
-                        cnt++;
+                       cnt++;
                }
        }
 
@@ -3012,3 +3149,118 @@ Playlist::find_next_top_layer_position (framepos_t t) const
 
        return max_framepos;
 }
+
+void
+Playlist::join (const RegionList& r, const std::string& name)
+{
+       PropertyList plist; 
+       uint32_t channels = 0;
+       uint32_t layer = 0;
+       framepos_t earliest_position = max_framepos;
+       vector<TwoRegions> old_and_new_regions;
+
+       boost::shared_ptr<Playlist> pl = PlaylistFactory::create (_type, _session, name, true);
+
+       for (RegionList::const_iterator i = r.begin(); i != r.end(); ++i) {
+               earliest_position = min (earliest_position, (*i)->position());
+       }
+
+       /* enable this so that we do not try to create xfades etc. as we add
+        * regions
+        */
+
+       pl->in_partition = true;
+
+       for (RegionList::const_iterator i = r.begin(); i != r.end(); ++i) {
+
+               /* copy the region */
+
+               boost::shared_ptr<Region> original_region = (*i);
+               boost::shared_ptr<Region> copied_region = RegionFactory::create (original_region, false);
+
+               old_and_new_regions.push_back (TwoRegions (original_region,copied_region));
+
+               /* make position relative to zero */
+
+               pl->add_region (copied_region, original_region->position() - earliest_position);
+
+               /* use the maximum number of channels for any region */
+
+               channels = max (channels, original_region->n_channels());
+
+               /* it will go above the layer of the highest existing region */
+
+               layer = max (layer, original_region->layer());
+       }
+
+       pl->in_partition = false;
+
+       /* now create a new PlaylistSource for each channel in the new playlist */
+
+       SourceList sources;
+       pair<framepos_t,framepos_t> extent = pl->get_extent();
+       
+       for (uint32_t chn = 0; chn < channels; ++chn) {
+               sources.push_back (SourceFactory::createFromPlaylist (_type, _session, pl, name, chn, 0, extent.second, false, false));
+       }
+       
+       /* now a new region using the list of sources */
+
+       plist.add (Properties::start, 0);
+       plist.add (Properties::length, extent.second);
+       plist.add (Properties::name, name);
+       plist.add (Properties::layer, layer+1);
+       
+       boost::shared_ptr<Region> compound_region = RegionFactory::create (sources, plist, true);
+
+       /* add any dependent regions to the new playlist */
+
+       copy_dependents (old_and_new_regions, pl);
+
+       /* remove all the selected regions from the current playlist
+        */
+
+       freeze ();
+       
+       for (RegionList::const_iterator i = r.begin(); i != r.end(); ++i) {
+               remove_region (*i);
+       }
+
+       /* add the new region at the right location */
+       
+       add_region (compound_region, earliest_position);
+
+       _combine_ops++;
+
+       thaw ();
+}
+
+uint32_t
+Playlist::max_source_level () const
+{
+       RegionLock rlock (const_cast<Playlist *> (this));
+       uint32_t lvl = 0;
+
+       for (RegionList::const_iterator i = regions.begin(); i != regions.end(); ++i) {
+               lvl = max (lvl, (*i)->max_source_level());
+       }
+
+       return lvl;
+}
+
+
+uint32_t
+Playlist::count_joined_regions () const
+{
+       RegionLock rlock (const_cast<Playlist *> (this));
+       uint32_t cnt = 0;
+
+       for (RegionList::const_iterator i = regions.begin(); i != regions.end(); ++i) {
+               if ((*i)->max_source_level() > 0) {
+                       cnt++;
+               }
+       }
+
+       return cnt;
+}
+