Diff for /gforth/engine/main.c between versions 1.7 and 1.8

version 1.7, 1998/04/14 16:43:21 version 1.8, 1998/06/04 16:17:59
Line 38 Line 38
 #include "forth.h"  #include "forth.h"
 #include "io.h"  #include "io.h"
 #include "getopt.h"  #include "getopt.h"
 #include "version.h"  
   
 #define PRIM_VERSION 1  #define PRIM_VERSION 1
 /* increment this whenever the primitives change in an incompatible way */  /* increment this whenever the primitives change in an incompatible way */
Line 536  int main(int argc, char **argv, char **e Line 535  int main(int argc, char **argv, char **e
     case 'f': fsize = convsize(optarg,sizeof(Float)); break;      case 'f': fsize = convsize(optarg,sizeof(Float)); break;
     case 'l': lsize = convsize(optarg,sizeof(Cell)); break;      case 'l': lsize = convsize(optarg,sizeof(Cell)); break;
     case 'p': path1 = optarg; break;      case 'p': path1 = optarg; break;
     case 'v': fprintf(stderr, "gforth %s\n", gforth_version); exit(0);      case 'v': fprintf(stderr, "gforth %s\n", VERSION); exit(0);
     case 'h':       case 'h': 
       fprintf(stderr, "Usage: %s [engine options] [image arguments]\n\        fprintf(stderr, "Usage: %s [engine options] [image arguments]\n\
 Engine Options:\n\  Engine Options:\n\
Line 559  SIZE arguments consist of an integer fol Line 558  SIZE arguments consist of an integer fol
 \n\  \n\
 Arguments of default image `gforth.fi':\n\  Arguments of default image `gforth.fi':\n\
  FILE                               load FILE (with `require')\n\   FILE                               load FILE (with `require')\n\
  -e STRING, --evaluate STRING       interpret STRING (with `EVALUATE')\n",   -e STRING, --evaluate STRING       interpret STRING (with `EVALUATE')\n\n\
   Report bugs to <bug-gforth@gnu.ai.mit.edu>\n",
               argv[0]); exit(0);                argv[0]); exit(0);
     }      }
   }    }

Removed from v.1.7  
changed lines
  Added in v.1.8


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>