142 lines
2.4 KiB
C
Executable File
142 lines
2.4 KiB
C
Executable File
/*
|
|
* a small awk clone
|
|
*
|
|
* (C) 1989 Saeko Hirabauashi & Kouichi Hirabayashi
|
|
*
|
|
* Absolutely no warranty. Use this software with your own risk.
|
|
*
|
|
* Permission to use, copy, modify and distribute this software for any
|
|
* purpose and without fee is hereby granted, provided that the above
|
|
* copyright and disclaimer notice.
|
|
*
|
|
* This program was written to fit into 64K+64K memory of the Minix 1.2.
|
|
*/
|
|
|
|
|
|
#include <stdio.h>
|
|
#include <sys/types.h>
|
|
#include <signal.h>
|
|
#include "awk.h"
|
|
|
|
extern char **FS, **FILENAME;
|
|
extern char record[];
|
|
extern FILE *ifp;
|
|
|
|
NODE *parse();
|
|
CELL *execute();
|
|
FILE *efopen(), *fopen();
|
|
char *strsave();
|
|
|
|
int xargc;
|
|
char **xargv;
|
|
char *srcprg;
|
|
FILE *pfp;
|
|
char *cmd;
|
|
#if 0
|
|
int iflg; /* interactive mode */
|
|
#endif
|
|
|
|
main(argc, argv) char **argv;
|
|
{
|
|
char *s, *strpbrk(), *strchr();
|
|
void onint();
|
|
|
|
#ifdef DOS
|
|
_sharg(&argc, &argv);
|
|
#endif
|
|
signal(SIGINT, onint);
|
|
signal(SIGFPE, onint);
|
|
cmd = argv[0];
|
|
init();
|
|
while (--argc > 0 && (*++argv)[0] == '-')
|
|
for (s = argv[0]+1; *s; s++)
|
|
if (strcmp(argv[0], "-") == 0)
|
|
break;
|
|
else
|
|
switch (*s) {
|
|
#if 0
|
|
case 'i':
|
|
iflg++;
|
|
pfp = stdin;
|
|
interactive();
|
|
/* no return */
|
|
#endif
|
|
case 'F':
|
|
*FS = ++s;
|
|
break;
|
|
case 'f':
|
|
if (*(s+1))
|
|
s++;
|
|
else {
|
|
argc--; s = *++argv;
|
|
}
|
|
pfp = efopen(s, "r");
|
|
s += strlen(s) - 1;
|
|
break;
|
|
}
|
|
xargc = argc; xargv = argv;
|
|
if (pfp == NULL && xargc > 0) {
|
|
srcprg = *xargv++; xargc--;
|
|
}
|
|
/*
|
|
if (pfp == NULL && xargc > 0) {
|
|
if (strpbrk(xargv[0], " !$^()={}[];<>,/~") != NULL) {
|
|
sprintf(record, "%s\n", xargv[0]);
|
|
srcprg = strsave(record);
|
|
}
|
|
else {
|
|
sprintf(record, "%s.awk", xargv[0]);
|
|
if ((pfp = fopen(record, "r")) == NULL)
|
|
error("can't open %s", record);
|
|
}
|
|
xargc--; xargv++;
|
|
}
|
|
*/
|
|
|
|
while (*xargv != NULL && strchr(*xargv, '=') != NULL) {
|
|
setvar(*xargv++);
|
|
xargc--;
|
|
}
|
|
|
|
initarg(cmd, xargc, xargv);
|
|
if (xargc == 0) {
|
|
ifp = stdin; *FILENAME = "-";
|
|
}
|
|
parse();
|
|
closeall();
|
|
exit(0);
|
|
}
|
|
|
|
FILE *
|
|
efopen(file, mode) char *file, *mode;
|
|
{
|
|
FILE *fp, *fopen();
|
|
|
|
if ((fp = fopen(file, mode)) == NULL)
|
|
error("cannot open %s", file);
|
|
return fp;
|
|
}
|
|
|
|
error(s, t) char *s, *t;
|
|
{
|
|
extern double *NR;
|
|
|
|
fprintf(stderr, "awk: ");
|
|
fprintf(stderr, s, t);
|
|
fprintf(stderr, "\n");
|
|
if (NR != NULL) {
|
|
fprintf(stderr, "record number %g\n", *NR);
|
|
}
|
|
#ifdef DOS
|
|
closeall();
|
|
#endif
|
|
exit(1);
|
|
}
|
|
|
|
void
|
|
onint(i)
|
|
{
|
|
closeall();
|
|
exit(0x80 | i);
|
|
}
|