version 1.20, 2017/10/08 12:40:37 |
version 1.21, 2017/10/09 14:51:31 |
|
|
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 = 1; |
compile_time = 1; |
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); |
|
|
setlocale(LC_NUMERIC, ""); /* back to whatever it is locally */ |
setlocale(LC_NUMERIC, ""); /* back to whatever it is locally */ |
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 = 0; |
compile_time = 0; |
run(winner); |
run(winner); |