Changeset 10647 for trunk/Ohana/src/opihi/lib.shell/ListOps.c

Timestamp:

Dec 11, 2006, 10:15:41 PM (20 years ago)

Author:

eugene

Message:

moved global List into ListOps.c

File:

• trunk/Ohana/src/opihi/lib.shell/ListOps.c (modified) (3 diffs)

trunk/Ohana/src/opihi/lib.shell/ListOps.c

@@ -1 +1 @@
 # include "opihi.h"
 # include "macro.h"
+
+/*** local static variables used to track the command lists  ***/
+static List *lists;                     /* variable to store the list of all lists */
+static int  Nlists;                     /* number of currently available lists */
 
 void InitLists () {
@@ -8 +12 @@
 }
 
+int current_list_depth () {
+  return Nlists;
+}
+
+int increase_list_depth () {
+  Nlists ++;
+  REALLOCATE (lists, List, MAX (Nlists + 1, 0) + 1);
+  ALLOCATE (lists[Nlists].line, char *, 16);
+  lists[Nlists].Nalloc = 16;
+  lists[Nlists].Nlines = 0;
+  lists[Nlists].n = 0;
+  return Nlists;
+}
+
+int decrease_list_depth () {
+  
+  int i;
+
+  for (i = 0; i < lists[Nlists].Nlines; i++) {
+    free (lists[Nlists].line[i]);
+  }
+  free (lists[Nlists].line);
+  Nlists --;
+  REALLOCATE (lists, List, MAX (Nlists + 1, 0) + 1);
+  return Nlists;
+}
+
 /* return a new string consisting of the next line in the current list */
 char *get_next_listentry (int ThisList) {
 
+  int Nline;
   char *output;
 
-  lists[ThisList].n++;
-
-  if (lists[ThisList].n >= lists[Nlists].Nlines) 
-    return ((char *) NULL);
-
-  output = lists[Nlists].line[lists[ThisList].n];
+  Nline = lists[ThisList].n;
+
+  if (Nline >= lists[ThisList].Nlines) return (NULL);
+
+  output = strcreate (lists[ThisList].line[Nline]);
+  lists[ThisList].n ++;
   
   return (output);
-
-}
-
+}
+
+# if (0)
 char *remove_listentry (int current) {
 
@@ -41 +73 @@
   return (output);
 
+}
+# endif 
+
+int add_listentry (int ThisList, char *line) {
+
+  int Nlines;
+  char *output;
+
+  Nlines = lists[ThisList].Nlines;
+  lists[ThisList].line[Nlines] = strcreate (line);
+  lists[ThisList].Nlines ++;
+
+  if (lists[ThisList].Nlines == lists[ThisList].Nalloc) {
+    lists[ThisList].Nalloc += 16;
+    REALLOCATE (lists[ThisList].line, char *, lists[ThisList].Nalloc);
+  }
+    
+  return (lists[ThisList].Nlines);
 }