m.c

Go to the documentation of this 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);
}

---