Return to awk.def CVS log

Up to [CSRG BSD Unix] / 43BSD / bin / awk

Annotation of 43BSD/bin/awk/awk.def, revision 1.1

1.1     ! root        1: /*     awk.def 4.3     83/12/09        */
        !             2: 
        !             3: #define hack   int
        !             4: #define        AWKFLOAT        float
        !             5: #define        xfree(a)        { if(a!=NULL) { yfree(a); a=NULL;} }
        !             6: #define        strfree(a)      { if(a!=NULL && a!=EMPTY) { yfree(a);} a=EMPTY; }
        !             7: #define yfree free
        !             8: #define        isnull(x)       ((x) == EMPTY || (x) == NULL)
        !             9: 
        !            10: #ifdef DEBUG
        !            11: #      define  dprintf if(dbg)printf
        !            12: #else
        !            13: #      define  dprintf(x1, x2, x3, x4)
        !            14: #endif
        !            15: typedef        AWKFLOAT        awkfloat;
        !            16: 
        !            17: extern char    **FS;
        !            18: extern char    **RS;
        !            19: extern char    **ORS;
        !            20: extern char    **OFS;
        !            21: extern char    **OFMT;
        !            22: extern awkfloat *NR;
        !            23: extern awkfloat *NF;
        !            24: extern char    **FILENAME;
        !            25: 
        !            26: extern char    record[];
        !            27: extern char    EMPTY[];
        !            28: extern int     dbg;
        !            29: extern int     lineno;
        !            30: extern int     errorflag;
        !            31: extern int     donefld;        /* 1 if record broken into fields */
        !            32: extern int     donerec;        /* 1 if record is valid (no fld has changed */
        !            33: 
        !            34: typedef struct val {   /* general value during processing */
        !            35:        char    *nval;  /* name, for variables only */
        !            36:        char    *sval;  /* string value */
        !            37:        awkfloat        fval;   /* value as number */
        !            38:        unsigned        tval;   /* type info */
        !            39:        struct val      *nextval;       /* ptr to next if chained */
        !            40: } cell;
        !            41: extern cell *symtab[];
        !            42: cell   *setsymtab(), *lookup(), **makesymtab();
        !            43: 
        !            44: extern cell    *recloc;        /* location of input record */
        !            45: extern cell    *nrloc;         /* NR */
        !            46: extern cell    *nfloc;         /* NF */
        !            47: 
        !            48: #define        STR     01      /* string value is valid */
        !            49: #define        NUM     02      /* number value is valid */
        !            50: #define FLD    04      /* FLD means don't free string space */
        !            51: #define        CON     010     /* this is a constant */
        !            52: #define        ARR     020     /* this is an array */
        !            53: 
        !            54: awkfloat setfval(), getfval();
        !            55: char   *setsval(), *getsval();
        !            56: char   *tostring(), *tokname(), *malloc();
        !            57: double log(), sqrt(), exp(), atof();
        !            58: 
        !            59: /* function types */
        !            60: #define        FLENGTH 1
        !            61: #define        FSQRT   2
        !            62: #define        FEXP    3
        !            63: #define        FLOG    4
        !            64: #define        FINT    5
        !            65: 
        !            66: typedef struct {
        !            67:        char otype;
        !            68:        char osub;
        !            69:        cell *optr;
        !            70: } obj;
        !            71: 
        !            72: #define BOTCH  1
        !            73: struct nd {
        !            74:        char ntype;
        !            75:        char subtype;
        !            76:        struct nd *nnext;
        !            77:        int nobj;
        !            78:        struct nd *narg[BOTCH]; /* C won't take a zero length array */
        !            79: };
        !            80: typedef struct nd node;
        !            81: extern node    *winner;
        !            82: extern node    *nullstat;
        !            83: 
        !            84: /* otypes */
        !            85: #define OCELL  0
        !            86: #define OEXPR  1
        !            87: #define OBOOL  2
        !            88: #define OJUMP  3
        !            89: 
        !            90: /* cell subtypes */
        !            91: #define CTEMP  4
        !            92: #define CNAME  3 
        !            93: #define CVAR   2
        !            94: #define CFLD   1
        !            95: #define CCON   0
        !            96: 
        !            97: /* bool subtypes */
        !            98: #define BTRUE  1
        !            99: #define BFALSE 2
        !           100: 
        !           101: /* jump subtypes */
        !           102: #define JEXIT  1
        !           103: #define JNEXT  2
        !           104: #define        JBREAK  3
        !           105: #define        JCONT   4
        !           106: 
        !           107: /* node types */
        !           108: #define NVALUE 1
        !           109: #define NSTAT  2
        !           110: #define NEXPR  3
        !           111: #define NPA2   4
        !           112: 
        !           113: extern obj     (*proctab[])();
        !           114: extern obj     true, false;
        !           115: extern int     pairstack[], paircnt;
        !           116: 
        !           117: #define cantexec(n)    (n->ntype == NVALUE)
        !           118: #define notlegal(n)    (n <= FIRSTTOKEN || n >= LASTTOKEN || proctab[n-FIRSTTOKEN]== nullproc)
        !           119: #define isexpr(n)      (n->ntype == NEXPR)
        !           120: #define isjump(n)      (n.otype == OJUMP)
        !           121: #define isexit(n)      (n.otype == OJUMP && n.osub == JEXIT)
        !           122: #define        isbreak(n)      (n.otype == OJUMP && n.osub == JBREAK)
        !           123: #define        iscont(n)       (n.otype == OJUMP && n.osub == JCONT)
        !           124: #define        isnext(n)       (n.otype == OJUMP && n.osub == JNEXT)
        !           125: #define isstr(n)       (n.optr->tval & STR)
        !           126: #define istrue(n)      (n.otype == OBOOL && n.osub == BTRUE)
        !           127: #define istemp(n)      (n.otype == OCELL && n.osub == CTEMP)
        !           128: #define isfld(n)       (!donefld && n.osub==CFLD && n.otype==OCELL && n.optr->nval==EMPTY)
        !           129: #define isrec(n)       (donefld && n.osub==CFLD && n.otype==OCELL && n.optr->nval!=EMPTY)
        !           130: obj    nullproc();
        !           131: obj    relop();
        !           132: 
        !           133: #define MAXSYM 50
        !           134: #define        HAT     0177    /* matches ^ in regular expr */
        !           135:                        /* watch out for mach dep */

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