Initial import of the CDE 2.1.30 sources from the Open Group.

cde/programs/nsgmls/IListBase.C

@@ -0,0 +1,37 @@
+/* $XConsortium: IListBase.C /main/1 1996/07/29 16:53:20 cde-hp $ */
+// Copyright (c) 1994 James Clark
+// See the file COPYING for copying permission.
+
+#include "splib.h"
+#include "IListBase.h"
+
+#ifdef SP_NAMESPACE
+namespace SP_NAMESPACE {
+#endif
+
+void IListBase::append(Link *p)
+{
+  Link **pp;
+  for (pp = &head_; *pp; pp = &(*pp)->next_)
+    ;
+  *pp = p;
+}
+
+void IListBase::remove(Link *p)
+{
+  for (Link **pp = &head_; *pp; pp = &(*pp)->next_)
+    if (*pp == p) {
+      *pp = p->next_;
+      break;
+    }
+}
+
+void IListBase::clear()
+{
+  while (!empty())
+    delete get();
+}
+
+#ifdef SP_NAMESPACE
+}
+#endif