Return to as11.c CVS log

Up to [Research Unix] / researchv8dc / cmd / PDP11 / 11as

Annotation of researchv8dc/cmd/PDP11/11as/as11.c, revision 1.1.1.1

1.1       root        1: /* PDP-11 assembler pass 0 */
                      2: #include "as1.h"
                      3: #include <signal.h>
                      4: 
                      5: #ifndef PASS2PGM
                      6: #define PASS2PGM "/lib/as2"            /*god: is tweakable */
                      7: #endif
                      8: #ifndef A_DOT_OUT
                      9: #define A_DOT_OUT "a.out"              /*god: " */
                     10: #endif
                     11: 
                     12: char atmp1[] = "/tmp/atm1XXXXXX";
                     13: char atmp2[] = "/tmp/atm2XXXXXX";
                     14: char atmp3[] = "/tmp/atm3XXXXXX";
                     15: char fpass2[] = PASS2PGM;              /*god: use -DPASS2PGM=/xxxx... */
                     16: char unglob[3] = "-";
                     17: char *outfile = A_DOT_OUT;             /*god:6/17/80 made for porting*/
                     18: 
                     19: main(argc, argv)
                     20: char **argv;
                     21: {
                     22:        extern aexit();
                     23:        FILE *t;
                     24:        char *buf1,*buf2;
                     25: 
                     26:        if (signal(SIGINT,SIG_IGN)!=SIG_IGN) signal(SIGINT,aexit);
                     27:        while (--argc>=0 && (++argv)[0][0]=='-') {
                     28:                if (argv[0][1]=='u' || argv[0][1]=='\0') unglob[1]='g';
                     29:                else if (argv[0][1]=='o' && --argc>=0) outfile= *++argv;
                     30:        }
                     31:        nargs=argc+1; curarg=argv-1;
                     32:        if (NULL==(pof=fopen(mktemp(atmp1),"w"))) wrterr();
                     33:        setbuf(pof,buf1=sbrk(BUFSIZ));
                     34:        if (NULL==(fbfil=fopen(mktemp(atmp2),"w"))) wrterr();
                     35:        setbuf(fbfil,buf2=sbrk(BUFSIZ));
                     36:        setup();
                     37:        fclose(stdin);
                     38:        assem();
                     39:        if (EOF==fclose(pof)) wrterr(); if (EOF==fclose(fbfil)) wrterr();
                     40:        if (errflg) aexit();
                     41:        if (NULL==(t=fopen(mktemp(atmp3),"w"))) wrterr();
                     42:        setbuf(t,buf1);
                     43:        if ((symend-usymtab)!=fwrite(usymtab,sizeof(*usymtab),symend-usymtab,t)) wrterr();
                     44:        if (EOF==fclose(t)) wrterr();
                     45:        execl(fpass2,fpass2,unglob,"-o",outfile,atmp1,atmp2,atmp3,0);
                     46:        filerr(fpass2,"?\n");
                     47:        aexit();
                     48: }
                     49: 
                     50: aexit()
                     51: {
                     52:        unlink(atmp1); unlink(atmp2); unlink(atmp3);
                     53:        exit(3);
                     54: }
                     55: 
                     56: filerr(file,str)
                     57: char *file,*str;
                     58: {
                     59:        fprintf(stderr,"%s%s",file,str);
                     60: }
                     61: 
                     62: wrterr()
                     63: {
                     64:        fprintf(stderr,"as: Write error on temp file.\n");
                     65:        ++errflg; aexit();
                     66: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.