From 9bc1175caad1172db2e89aca27debd3c8d2ca084 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Wed, 8 Jan 1997 20:48:44 +0000
Subject: [PATCH] flower-1.0.19

---
 flower/cursor.hh  |  1 +
 flower/list.hh    | 25 ++++++++++++++++++-------
 flower/pcursor.hh | 16 ++++++++++++++--
 flower/plist.hh   |  4 +---
 4 files changed, 34 insertions(+), 12 deletions(-)

diff --git a/flower/cursor.hh b/flower/cursor.hh
index c6a8584335..1484770688 100644
--- a/flower/cursor.hh
+++ b/flower/cursor.hh
@@ -18,6 +18,7 @@ class Cursor
     Cursor( const Cursor<T>& cursor );
 
     T& thing();
+
     /// return current T
     T& operator *() { return thing(); }
     operator T() { return thing(); }
diff --git a/flower/list.hh b/flower/list.hh
index f49b5d7850..4a4aab2f5b 100644
--- a/flower/list.hh
+++ b/flower/list.hh
@@ -29,11 +29,15 @@ class List
 
     void concatenate(List<T> const &s);
     
-
     /// make *this empty
     void set_empty();
     /**
-      WARNING: contents lost, and not deleted.
+
+      POST:
+      size == 0
+      
+      WARNING:
+      contents lost, and not deleted.
       */
     
     /// add after after_me
@@ -41,13 +45,20 @@ class List
 
     /// put thing before #before_me#
     void insert( const T& thing, Cursor<T> &before_me );
-    virtual void remove( Cursor<T> me );
-    /**
-      Remove link pointed to by me.
+    
+    void remove( Cursor<T> me );
+    /** Remove link pointed to by me. Destructor of contents called
+      (nop for pointers)
 
       POST
-      none; WARNING: do not use #me#.
-     */
+      none;
+
+
+      WARNING: do not use #me# after calling
+      */
+
+    /****************/
+    
     int size_;
     Link<T>* top_;
     Link<T>* bottom_;
diff --git a/flower/pcursor.hh b/flower/pcursor.hh
index eeaa866ea8..383a450a1a 100644
--- a/flower/pcursor.hh
+++ b/flower/pcursor.hh
@@ -13,10 +13,22 @@
 template<class T>
 struct PCursor : private Cursor<void *> {
     friend class IPointerList<T>;
+
+    /// delete contents
+    void junk();
 public:
     Cursor<void*>::ok;
-    Cursor<void*>::del;
-    Cursor<void*>::backspace;
+    void del() { junk(); Cursor<void*>::del(); }
+    void backspace() { junk(); Cursor<void*>::backspace(); }
+    T get() {
+	T p = ptr();
+	Cursor<void*>::del();
+	return p;
+    }
+    T get_prev() {
+	(*this)--;
+	return get();
+    }
     
     PointerList<T> &list() { return (PointerList<T>&)Cursor<void*>::list(); }
     PCursor<T> operator++(int) { return Cursor<void*>::operator++(0);}
diff --git a/flower/plist.hh b/flower/plist.hh
index bac9f7bf02..0aedfba60b 100644
--- a/flower/plist.hh
+++ b/flower/plist.hh
@@ -34,9 +34,7 @@ template<class T>
 struct IPointerList : public PointerList<T> {
     IPointerList(const IPointerList&) { set_empty(); }
     IPointerList() { }
-protected:
-    virtual void remove( Cursor<void*> me ) { remove (PCursor<T>(me)); }
-    virtual void remove( PCursor<T> me );
+    ~IPointerList();
 };
 /**
   NOTE:
-- 
2.39.5