[gforth] / gforth / Attic / main.c  

gforth: gforth/Attic/main.c

Diff for /gforth/Attic/main.c between version 1.11 and 1.12

version 1.11, Thu Sep 8 17:20:09 1994 UTC version 1.12, Mon Sep 12 19:00:34 1994 UTC
Line 14 
Line 14 
 #include <stdlib.h>  #include <stdlib.h>
 #include "forth.h"  #include "forth.h"
 #include "io.h"  #include "io.h"
   #ifdef USE_GETOPT
 #include "getopt.h"  #include "getopt.h"
   #else
        extern int getopt (argc, argv, optstring);
   
        extern char *optarg;
        extern int optind, opterr;
   #endif
   
 #ifndef DEFAULTPATH  #ifndef DEFAULTPATH
 #       define DEFAULTPATH "/usr/local/lib/gforth:."  #       define DEFAULTPATH "/usr/local/lib/gforth:."
Line 184 
Line 191 
         char *path, *path1;          char *path, *path1;
         char *imagename="gforth.fi";          char *imagename="gforth.fi";
         FILE *image_file;          FILE *image_file;
         int c;          int c, retvalue;
   
 #if defined(i386) && defined(ALIGNMENT_CHECK)  #if defined(i386) && defined(ALIGNMENT_CHECK)
         /* turn on alignment checks on the 486.          /* turn on alignment checks on the 486.
Line 198 
Line 205 
         opterr=0;          opterr=0;
         while (1) {          while (1) {
           int option_index=0;            int option_index=0;
   #ifdef USE_GETOPT
           static struct option opts[] = {            static struct option opts[] = {
             {"image-file", required_argument, NULL, 'i'},              {"image-file", required_argument, NULL, 'i'},
             {"dictionary-size", required_argument, NULL, 'm'},              {"dictionary-size", required_argument, NULL, 'm'},
Line 211 
Line 219 
           };            };
   
           c = getopt_long(argc, argv, "+drfl", opts, &option_index);            c = getopt_long(argc, argv, "+drfl", opts, &option_index);
   #else
             c = getopt(argc, argv, "imdrflp");
   #endif
   
           if (c==EOF)            if (c==EOF)
             break;              break;
           if (c=='?') {            if (c=='?') {
Line 255 
Line 267 
           for (i=0; i<environ[0]; i++)            for (i=0; i<environ[0]; i++)
             printf("%s\n", ((char **)(environ[1]))[i]);              printf("%s\n", ((char **)(environ[1]))[i]);
 */  */
           exit(go_forth(loader(image_file),3, environ));       retvalue=go_forth(loader(image_file),3,environ);
        deprep_terminal();
        exit(retvalue);
         }          }
 }  }

Generate output suitable for use with a patch program
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help