Index: trunk/Ohana/src/opihi/cmd.basic/list.c
===================================================================
--- trunk/Ohana/src/opihi/cmd.basic/list.c	(revision 39402)
+++ trunk/Ohana/src/opihi/cmd.basic/list.c	(revision 39403)
@@ -2,4 +2,5 @@
 # include <glob.h>
 # define D_NLINES 100
+# define MAX_LINE_LENGTH 1024
 static char prompt[] = ">> ";
 
@@ -11,5 +12,5 @@
 
   int ThisList, depth, i, done, found;
-  char *input, line[1024];
+  char *input, line[MAX_LINE_LENGTH];
   int N;
 
@@ -93,5 +94,5 @@
       set_str_variable (line, argv[i+3]);
     }
-    snprintf (line, 1024, "%s:n", argv[1]);
+    snprintf (line, MAX_LINE_LENGTH, "%s:n", argv[1]);
     set_int_variable (line, i);
 
@@ -108,5 +109,5 @@
     int isFound;
 
-    snprintf (line, 1024, "%s:n", argv[1]);
+    snprintf (line, MAX_LINE_LENGTH, "%s:n", argv[1]);
     int nList = get_int_variable (line, &isFound);
     if (!isFound) {
@@ -115,16 +116,16 @@
     }
 
-    char tmpline[1024], output[1024];
-    memset (tmpline, 0, 1024);
-    memset (output, 0, 1024);
+    char tmpline[MAX_LINE_LENGTH], output[MAX_LINE_LENGTH];
+    memset (tmpline, 0, MAX_LINE_LENGTH);
+    memset (output, 0, MAX_LINE_LENGTH);
 
     for (i = 0; i < nList; i++) {
-      snprintf (line, 1024, "%s:%d", argv[1], i);
+      snprintf (line, MAX_LINE_LENGTH, "%s:%d", argv[1], i);
       char *word = get_variable (line);
       if (!word) break;
       if (i > 0) {
-	snprintf (output, 1024, "%s %s", tmpline, word);
+	snprintf (output, MAX_LINE_LENGTH, "%s %s", tmpline, word);
       } else {
-	snprintf (output, 1024, "%s", word);
+	snprintf (output, MAX_LINE_LENGTH, "%s", word);
       }
       strcpy (tmpline, output);
@@ -154,5 +155,5 @@
     
     // old list must exist, or give an error
-    snprintf (line, 1024, "%s:n", argv[3]);
+    snprintf (line, MAX_LINE_LENGTH, "%s:n", argv[3]);
     N = get_int_variable (line, &found);
     if (!found) {
@@ -163,10 +164,10 @@
       
 
-    snprintf (line, 1024, "%s:n", argv[1]);
+    snprintf (line, MAX_LINE_LENGTH, "%s:n", argv[1]);
     set_int_variable (line, N);
     for (i = 0; i < N; i++) {
-      snprintf (line, 1024, "%s:%d", argv[3], i);
+      snprintf (line, MAX_LINE_LENGTH, "%s:%d", argv[3], i);
       value = get_variable (line);
-      // snprintf (line, 1024, "%s:%d", argv[1], i);
+      // snprintf (line, MAX_LINE_LENGTH, "%s:%d", argv[1], i);
       set_list_varname (line, argv[1], i, EXCEL_STYLE);
       set_str_variable (line, value);
@@ -182,12 +183,12 @@
     }
     
-    snprintf (line, 1024, "%s:n", argv[1]);
+    snprintf (line, MAX_LINE_LENGTH, "%s:n", argv[1]);
     N = get_int_variable (line, &found);
     for (i = 0; i < argc - 3; i++) {
-      // snprintf (line, 1024, "%s:%d", argv[1], N + i);
+      // snprintf (line, MAX_LINE_LENGTH, "%s:%d", argv[1], N + i);
       set_list_varname (line, argv[1], N + i, EXCEL_STYLE);
       set_str_variable (line, argv[i+3]);
     }
-    snprintf (line, 1024, "%s:n", argv[1]);
+    snprintf (line, MAX_LINE_LENGTH, "%s:n", argv[1]);
     set_int_variable (line, N + i);
 
@@ -204,10 +205,10 @@
     int j;
     char *value, *next_value;
-    char line2[1024];
-
-    snprintf (line, 1024, "%s:n", argv[1]);
+    char line2[MAX_LINE_LENGTH];
+
+    snprintf (line, MAX_LINE_LENGTH, "%s:n", argv[1]);
     N = get_int_variable (line, &found);
     for (i = 0; i < N; i++) {
-      // snprintf (line, 1024, "%s:%d", argv[1], i);
+      // snprintf (line, MAX_LINE_LENGTH, "%s:%d", argv[1], i);
       set_list_varname (line, argv[1], i, EXCEL_STYLE);
       value = get_variable (line);
@@ -216,5 +217,5 @@
 	free (value);
 	for (j = i + 1; j < N; j++) {
-	  // snprintf (line, 10242, "%s:%d", argv[1], j);
+	  // snprintf (line, MAX_LINE_LENGTH, "%s:%d", argv[1], j);
 	  set_list_varname (line2, argv[1], j, EXCEL_STYLE);
 	  next_value = get_variable (line2);
@@ -223,5 +224,5 @@
 	}
 	DeleteNamedScalar (line);
-	snprintf (line, 10242, "%s:n", argv[1]);
+	snprintf (line, MAX_LINE_LENGTH, "%s:n", argv[1]);
 	set_int_variable (line2, N - 1);
 	return (TRUE);
@@ -274,5 +275,5 @@
       depth --;
       if (depth < 0) { /* we hit the last "END", loop is done */
-	snprintf (line, 1024, "%s:n", argv[1]);
+	snprintf (line, MAX_LINE_LENGTH, "%s:n", argv[1]);
 	set_int_variable (line, i);
 	free (input);
@@ -282,5 +283,5 @@
 
     if (*input) { 
-      // snprintf (line, 1024, "%s:%d", argv[1], i);
+      // snprintf (line, MAX_LINE_LENGTH, "%s:%d", argv[1], i);
       set_list_varname (line, argv[1], i, EXCEL_STYLE);
       set_str_variable (line, input);
@@ -294,8 +295,8 @@
 int CommandToList (char *listname, char *Command, int EXCEL_STYLE) {
 
-  char line[1024];
+  char line[MAX_LINE_LENGTH];
 
   /* val will hold the result */
-  int NBYTES = 1024;
+  int NBYTES = MAX_LINE_LENGTH;
   char *val;
   ALLOCATE (val, char, NBYTES);
@@ -315,5 +316,5 @@
     if (Nread > 0) {
       Nbytes += Nread;
-      NBYTES = 1024 + Nbytes;
+      NBYTES = MAX_LINE_LENGTH + Nbytes;
       REALLOCATE (val, char, NBYTES);
     }
@@ -346,5 +347,5 @@
   free (val);
     
-  snprintf (line, 1024, "%s:n", listname);
+  snprintf (line, MAX_LINE_LENGTH, "%s:n", listname);
   set_int_variable (line, i);
   return (TRUE);
@@ -354,5 +355,5 @@
 
   int i;
-  char line[1024];
+  char line[MAX_LINE_LENGTH];
   glob_t globList;
 
@@ -364,5 +365,5 @@
   // otherwise save all glob matches
   if (globList.gl_pathc == 0) {
-    snprintf (line, 1024, "%s:n", listname);
+    snprintf (line, MAX_LINE_LENGTH, "%s:n", listname);
     set_int_variable (line, 0);
     return TRUE;
@@ -374,5 +375,5 @@
     set_str_variable (line, globList.gl_pathv[i]);
   }
-  snprintf (line, 1024, "%s:n", listname);
+  snprintf (line, MAX_LINE_LENGTH, "%s:n", listname);
   set_int_variable (line, Nfile);
   return (TRUE);
@@ -382,5 +383,5 @@
 
   int i, j;
-  char line[1024];
+  char line[MAX_LINE_LENGTH];
 
   int nWords = 0;
@@ -407,5 +408,5 @@
     FREE (new);
   }
-  snprintf (line, 1024, "%s:n", argv[1]);
+  snprintf (line, MAX_LINE_LENGTH, "%s:n", argv[1]);
   set_int_variable (line, nWords);