date and time created 83/04/18 13:45:19 by slatteng

SCCS-vsn: local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/db3.c 1.1

diff --git a/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/db3.c b/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/db3.c
new file mode 100644 (file)
index 0000000..2734a90
--- /dev/null
+++ b/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/db3.c
@@ -0,0 +1,48 @@
+\f
+/* db3.c -
+ *
+ *
+ * Copyright -C- 1982 Barry S. Roitblat
+ *
+ *       This file contains additional routines to implement the database
+ * manipulations necessary for the gremlin picture editor.
+ */
+
+#include "gremlin.h"
+#include "grem2.h"
+
+/* the following variable is a pointer for the current set and is
+ * available to the outside world.
+ */
+
+ELT *cset;
+
+DBAddSet(element)
+ELT *element;
+/*
+ *      This routine adds the element to the current set database.
+ */
+
+{
+       ELT *elist;
+
+       elist = cset;
+       while ( !DBNullelt(elist) )             /* makes sure element not */
+       {                                       /* already in list        */
+               if (elist == element) return;
+               elist = DBNextofSet(elist);
+       };
+       element->setnext = cset;
+       cset = element;
+}  /* end AddSet */
+
+DBClearSet()
+/*
+ *      This routine clears the current set by setting the pointer
+ * to a null element.
+ */
+
+{
+       while ( !DBNullelt(cset) )
+               cset = DBNextofSet(cset);
+}  /* end ClearSet */