BSD 4 release

[unix-history] / usr / src / cmd / pi / yymain.c

/* Copyright (c) 1979 Regents of the University of California */

static  char sccsid[] = "@(#)yymain.c 1.1 8/27/80";

#include "whoami.h"
#include "0.h"
#include "yy.h"
#include <a.out.h>
#include "objfmt.h"
#include <signal.h>

short   line = 1;

/*
* Yymain initializes each of the utility
* clusters and then starts the processing
* by calling yyparse.
*/
yymain()
{

       /*
        * Initialize the scanner
        */
#ifdef PXP
       if (bracket == 0) {
#endif
               if (getline() == -1) {
                       Perror(filename, "No lines in file");
                       pexit(NOSTART);
               }
#ifdef PXP
       } else
               yyline = 0;
#endif

#ifdef PI
#   ifdef OBJ
       magic();
#   endif OBJ
#endif
       /*
        * Initialize the clusters
        *
       initstring();
        */
       inithash();
       inittree();
#ifdef PI
       initnl();
#endif

       /*
        * Process the input
        */
       yyparse();
#ifdef PI
#   ifdef OBJ
       magic2();
#   endif OBJ
#   ifdef DEBUG
       dumpnl(0);
#   endif
#endif
#ifdef PXP
       prttab();
       if (onefile) {
               extern int outcol;

               if (outcol)
                       pchr('\n');
               flush();
               if (eflg) {
                       writef(2, "File not rewritten because of errors\n");
                       pexit(ERRS);
               }
               signal(SIGHUP, SIG_IGN);
               signal(SIGINT, SIG_IGN);
               copyfile();
       }
#endif
       pexit(eflg ? ERRS : AOK);
}

#ifdef PXP
copyfile()
{
       extern int fout[];
       register int c;

       close(1);
       if (creat(firstname, 0644) != 1) {
               perror(firstname);
               pexit(ERRS);
       }
       lseek(fout[0], 0l, 0);
       while ((c = read(fout[0], &fout[3], 512)) > 0) {
               if (write(1, &fout[3], c) != c) {
                       perror(firstname);
                       pexit(ERRS);
               }
       }
}
#endif

static
struct exec magichdr;

#ifdef PI
#ifdef OBJ
magic()
{

       short           buf[HEADER_BYTES / sizeof ( short )];
       unsigned        *ubuf = buf;
       register int    hf, i;

       hf = open(PX_HEADER,0);
       if (hf >= 0 && read(hf, buf, HEADER_BYTES) > sizeof(struct exec)) {
               magichdr.a_magic = ubuf[0];
               magichdr.a_text = ubuf[1];
               magichdr.a_data = ubuf[2];
               magichdr.a_bss = ubuf[3];
               magichdr.a_syms = ubuf[4];
               magichdr.a_entry = ubuf[5];
               magichdr.a_trsize = ubuf[6];
               magichdr.a_drsize = ubuf[7];
               for (i = 0; i < HEADER_BYTES / sizeof ( short ); i++)
                       word(buf[i]);
       }
       close(hf);
}
#endif OBJ

#ifdef OBJ
magic2()
{
       struct pxhdr pxhd;

       if  (magichdr.a_magic != 0407)
               panic ( "magic2" );
       pflush();
       lseek(ofil, 0l, 0);
       magichdr.a_data = ( unsigned ) lc - magichdr.a_text;
       magichdr.a_data -= sizeof (struct exec);
       write(ofil, &magichdr, sizeof(struct exec));
       pxhd.objsize = ( ( unsigned ) lc) - HEADER_BYTES;
       pxhd.maketime = time(0);
       pxhd.magicnum = MAGICNUM;
       lseek(ofil, ( long ) ( HEADER_BYTES - sizeof ( pxhd ) ) , 0);
       write(ofil, &pxhd, sizeof (pxhd));
}
#endif OBJ
#endif

#ifdef PXP
writef(i, cp)
{

       write(i, cp, strlen(cp));
}
#endif