--- stack/stack.c	2002/02/09 00:40:45	1.66
+++ stack/stack.c	2002/02/11 00:54:04	1.69
@@ -896,22 +896,25 @@
   push_int(&(env->head), env->err);
 }
 
+extern void read(environment*);
+
 int main()
 {
   environment myenv;
-  char in_string[100];
 
   init_env(&myenv);
 
-  printf("okidok\n ");
-
-  while(fgets(in_string, 100, stdin) != NULL) {
-    stack_read(&myenv, in_string);
+  while(1) {
+    fprintf(stderr, "okidok\n ");
+    read(&myenv);
     if(myenv.err) {
       printf("(error %d) ", myenv.err);
       myenv.err=0;
+    } else if(myenv.head->item->type==symb
+	      && ((symbol*)(myenv.head->item->content.ptr))->id[0]==';') {
+      toss(&myenv); 		/* No error check in main */
+      eval(&myenv);
     }
-    printf("okidok\n ");
   }
   quit(&myenv);
   return EXIT_FAILURE;
@@ -1256,9 +1259,82 @@
 
   push_sym(env, "[");
 
-  for(i= start; i<= ending; i++)
-    push_int(&(env->head), i);
+  if(ending>=start) {
+    for(i= start; i<=ending; i++)
+      push_int(&(env->head), i);
+  } else {
+    for(i= start; i>=ending; i--)
+      push_int(&(env->head), i);
+  }
 
   push_sym(env, "[");
   pack(env); if(env->err) return;
 }
+
+/* Read a string */
+extern void readline(environment *env) {
+  char in_string[101];
+
+  fgets(in_string, 100, stdin);
+  push_cstring(&(env->head), in_string);
+}
+
+/* Read a value and place on stack */
+extern void read(environment *env) {
+  const char symbform[]= "%[a-zA-Z0-9!$%*+./:<=>?@^_~-]%100c";
+  const char strform[]= "\"%[^\"]\"%100c";
+  const char intform[]= "%i%100c";
+  const char blankform[]= "%*[ \t]%100c";
+  const char ebrackform[]= "%*1[]]%100c";
+  const char semicform[]= "%*1[;]%100c";
+  const char bbrackform[]= "%*1[[]%100c";
+
+  int itemp, rerun= 0;
+  static int depth= 0;
+  char *rest, *match;
+  static char *in_string= NULL;
+  size_t inlength;
+
+  if(in_string==NULL) {
+    readline(env); if(env->err) return;
+    
+    in_string= malloc(strlen(env->head->item->content.ptr)+1);
+    strcpy(in_string, env->head->item->content.ptr);
+    toss(env); if(env->err) return;
+  }
+  
+  inlength= strlen(in_string)+1;
+  match= malloc(inlength);
+  rest= malloc(inlength);
+
+  if(sscanf(in_string, blankform, rest)) {
+    rerun= 1;    
+  } else if(sscanf(in_string, intform, &itemp, rest) > 0) {
+    push_int(&(env->head), itemp);
+  } else if(sscanf(in_string, strform, match, rest) > 0) {
+    push_cstring(&(env->head), match);
+  } else if(sscanf(in_string, symbform, match, rest) > 0) {
+    push_sym(env, match);
+  } else if(sscanf(in_string, ebrackform, rest) > 0) {
+    push_sym(env, "[");
+    pack(env); if(env->err) return;
+    if(depth!=0) depth--;
+  } else if(sscanf(in_string, semicform, rest) > 0) {
+    push_sym(env, ";");
+  } else if(sscanf(in_string, bbrackform, rest) > 0) {
+    push_sym(env, "[");
+    depth++;
+  } else {
+    free(rest);
+    rest= NULL;
+    rerun= 1;
+  }
+      
+  free(in_string);
+  free(match);
+
+  in_string= rest;
+
+  if(rerun || depth)
+    return read(env);
+}