version 1.8, 1999/12/04 00:12:25 |
version 1.9, 1999/12/08 23:09:45 |
|
|
THIS SOFTWARE. |
THIS SOFTWARE. |
****************************************************************/ |
****************************************************************/ |
|
|
char *version = "version 19990416"; |
char *version = "version 19990620"; |
|
|
#define DEBUG |
#define DEBUG |
#include <stdio.h> |
#include <stdio.h> |
|
|
argc--; |
argc--; |
argv++; |
argv++; |
if (npfile >= MAX_PFILE - 1) |
if (npfile >= MAX_PFILE - 1) |
ERROR "too many -f options" FATAL; |
FATAL("too many -f options"); |
if (argc <= 1) |
if (argc <= 1) |
ERROR "no program filename" FATAL; |
FATAL("no program filename"); |
pfile[npfile++] = argv[1]; |
pfile[npfile++] = argv[1]; |
break; |
break; |
case 'F': /* set field separator */ |
case 'F': /* set field separator */ |
|
|
fs = &argv[1][0]; |
fs = &argv[1][0]; |
} |
} |
if (fs == NULL || *fs == '\0') |
if (fs == NULL || *fs == '\0') |
ERROR "field separator FS is empty" WARNING; |
WARNING("field separator FS is empty"); |
break; |
break; |
case 'v': /* -v a=1 to be done NOW. one -v for each */ |
case 'v': /* -v a=1 to be done NOW. one -v for each */ |
if (argv[1][2] == '\0' && --argc > 1 && isclvar((++argv)[1])) |
if (argv[1][2] == '\0' && --argc > 1 && isclvar((++argv)[1])) |
|
|
switch (marg[2]) { |
switch (marg[2]) { |
case 'r': recsize = temp; break; |
case 'r': recsize = temp; break; |
case 'f': nfields = temp; break; |
case 'f': nfields = temp; break; |
default: ERROR "unknown option %s\n", marg FATAL; |
default: FATAL("unknown option %s\n", marg); |
} |
} |
break; |
break; |
case 'd': |
case 'd': |
|
|
exit(0); |
exit(0); |
break; |
break; |
default: |
default: |
ERROR "unknown option %s ignored", argv[1] WARNING; |
WARNING("unknown option %s ignored", argv[1]); |
break; |
break; |
} |
} |
argc--; |
argc--; |
|
|
if (argc <= 1) { |
if (argc <= 1) { |
if (dbg) |
if (dbg) |
exit(0); |
exit(0); |
ERROR "no program given" FATAL; |
FATAL("no program given"); |
} |
} |
dprintf( ("program = |%s|\n", argv[1]) ); |
dprintf( ("program = |%s|\n", argv[1]) ); |
lexprog = argv[1]; |
lexprog = argv[1]; |
|
|
if (strcmp(pfile[curpfile], "-") == 0) |
if (strcmp(pfile[curpfile], "-") == 0) |
yyin = stdin; |
yyin = stdin; |
else if ((yyin = fopen(pfile[curpfile], "r")) == NULL) |
else if ((yyin = fopen(pfile[curpfile], "r")) == NULL) |
ERROR "can't open file %s", pfile[curpfile] FATAL; |
FATAL("can't open file %s", pfile[curpfile]); |
lineno = 1; |
lineno = 1; |
} |
} |
if ((c = getc(yyin)) != EOF) |
if ((c = getc(yyin)) != EOF) |