Return to glob.c CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / link

Annotation of 43BSD/contrib/icon/link/glob.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * Routines for processing .u2 files.
                      3:  */
                      4: 
                      5: #include "ilink.h"
                      6: #include "opcode.h"
                      7: 
                      8: int trace = 0;                 /* initial setting of &trace */
                      9: int nrecords = 0;              /* number of records in program */
                     10: 
                     11: /*
                     12:  * globals reads the global information from infile (.u2) and merges it with
                     13:  *  the global table and record table.
                     14:  */
                     15: globals(i)
                     16: int i;
                     17:    {
                     18:    register char *id;
                     19:    register int n, op;
                     20:    int k;
                     21:    int implicit;
                     22:    char *name;
                     23:    struct gentry *gp, *glocate();
                     24:    extern char *getid(), *getstr();
                     25:    extern struct gentry *putglob();
                     26: 
                     27:    while ((op = getop(&name)) != EOF) {
                     28:       switch (op) {
                     29:          case OP_RECORD:       /* a record declaration */
                     30:             id = getid();      /* record name */
                     31:             n = getdec();      /* number of fields */
                     32:             newline();
                     33:             gp = glocate(id);
                     34:             /*
                     35:              * It's ok if the name isn't already in use or if the
                     36:              *  name is just used in a "global" declaration.  Otherwise,
                     37:              *  it is an inconsistent redeclaration.
                     38:              */
                     39:             if (gp == NULL || (gp->g_flag & ~F_GLOBAL) == 0) {
                     40:                putglob(id, F_RECORD, n, ++nrecords);
                     41:                while (n--) {   /* loop reading field numbers and names */
                     42:                   k = getdec();
                     43:                   putfield(getid(), nrecords, k);
                     44:                   newline();
                     45:                   }
                     46:                }
                     47:             else {
                     48:                err(id, "inconsistent redeclaration", 0);
                     49:                while (n--)
                     50:                   newline();
                     51:                }
                     52:             break;
                     53: 
                     54:          case OP_IMPL:         /* undeclared identifiers should be noted */
                     55:             if (getop(&name) == OP_LOCAL)
                     56:                implicit = 0;
                     57:             else
                     58:                implicit = F_IMPERROR;
                     59:             break;
                     60: 
                     61:          case OP_TRACE:                /* turn on tracing */
                     62:             trace = -1;
                     63:             break;
                     64: 
                     65:          case OP_GLOBAL:       /* global variable declarations */
                     66:             n = getdec();      /* number of global declarations */
                     67:             newline();
                     68:             while (n--) {      /* process each declaration */
                     69:                getdec();       /* throw away sequence number */
                     70:                k = getoct();   /* get flags */
                     71:                if (k & (F_PROC & ~F_GLOBAL))
                     72:                   k |= implicit;
                     73:                id = getid();   /* get variable name */
                     74:                gp = glocate(id);
                     75:                /*
                     76:                 * Check for conflicting declarations and install the
                     77:                 *  variable.
                     78:                 */
                     79:                if (gp != NULL &&
                     80:                    (k & (F_PROC & ~F_GLOBAL)) && gp->g_flag != F_GLOBAL)
                     81:                   err(id, "inconsistent redeclaration", 0);
                     82:                else if (gp == NULL || (k & (F_PROC & ~F_GLOBAL)))
                     83:                   putglob(id, k, getdec(), 0);
                     84:                newline();
                     85:                }
                     86:             break;
                     87: 
                     88:          case OP_LINK:         /* link the named file */
                     89:             name = getstr();   /* get the name and */
                     90:             addlfile(name);    /*  put it on the list of files to link */
                     91:             newline();
                     92:             break;
                     93: 
                     94:          default:
                     95:             fprintf(stderr, "%s: ill-formed global file %s\n", pname, inname);
                     96:             exit(1);
                     97:          }
                     98:       }
                     99:    }

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