version 1.41, 2020/06/26 15:50:06 |
version 1.42, 2020/06/26 15:57:39 |
|
|
THIS SOFTWARE. |
THIS SOFTWARE. |
****************************************************************/ |
****************************************************************/ |
|
|
const char *version = "version 20200612"; |
const char *version = "version 20200625"; |
|
|
#define DEBUG |
#define DEBUG |
#include <stdio.h> |
#include <stdio.h> |
|
|
exit(0); |
exit(0); |
FATAL("no program given"); |
FATAL("no program given"); |
} |
} |
DPRINTF( ("program = |%s|\n", argv[1]) ); |
DPRINTF("program = |%s|\n", argv[1]); |
lexprog = argv[1]; |
lexprog = argv[1]; |
argc--; |
argc--; |
argv++; |
argv++; |
|
|
syminit(); |
syminit(); |
compile_time = COMPILING; |
compile_time = COMPILING; |
argv[0] = cmdname; /* put prog name at front of arglist */ |
argv[0] = cmdname; /* put prog name at front of arglist */ |
DPRINTF( ("argc=%d, argv[0]=%s\n", argc, argv[0]) ); |
DPRINTF("argc=%d, argv[0]=%s\n", argc, argv[0]); |
arginit(argc, argv); |
arginit(argc, argv); |
if (!safe) |
if (!safe) |
envinit(environ); |
envinit(environ); |
|
|
#endif |
#endif |
if (fs) |
if (fs) |
*FS = qstring(fs, '\0'); |
*FS = qstring(fs, '\0'); |
DPRINTF( ("errorflag=%d\n", errorflag) ); |
DPRINTF("errorflag=%d\n", errorflag); |
if (errorflag == 0) { |
if (errorflag == 0) { |
compile_time = RUNNING; |
compile_time = RUNNING; |
run(winner); |
run(winner); |