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); |
} |
} |
} |
} |