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