release: 1.1.53

[lilypond.git] / flower / include / cons.hh

diff --git a/flower/include/cons.hh b/flower/include/cons.hh
index 8fd58acb7f799b763323b6d94c6808dd91890a4f..266b9ce51c7a5017181f42a8954abffb6e3409fd 100644 (file)
--- a/flower/include/cons.hh
+++ b/flower/include/cons.hh
@@ -106,6 +106,10 @@ public:
       head_ =0;
       nil_pointer_address_ = &head_;
     }
+  void append (T *c)
+    {
+      append (new Cons<T> (c,0));
+    }
   void append (Cons<T> *c)
     {
       assert (!c->next_);
@@ -124,6 +128,24 @@ public:
 
       return ::remove_cons (pp);
     }
+
+  /// junk everything after the  first I elements.
+  void truncate (int i)
+    {
+      Cons<T> **p  = &head_;
+      for (; *p && i;  p = &((*p)->next_))
+       {
+         i--;
+       }
+
+      if (*p)
+       {
+         delete *p;
+         *p = 0;
+       }
+      nil_pointer_address_ = p;
+    }
+
   void junk ()
     {
       delete head_;