Return to opinfo.h CVS log

Up to [CSRG BSD Unix] / 43BSDReno / pgrm / pascal / pdx / tree

Annotation of 43BSDReno/pgrm/pascal/pdx/tree/opinfo.h, revision 1.1.1.1

1.1       root        1: /*
                      2:  * Copyright (c) 1980 Regents of the University of California.
                      3:  * All rights reserved.  The Berkeley software License Agreement
                      4:  * specifies the terms and conditions for redistribution.
                      5:  *
                      6:  *     @(#)opinfo.h    5.1 (Berkeley) 6/6/85
                      7:  */
                      8: 
                      9: /*
                     10:  * Tree operator definitions.
                     11:  */
                     12: 
                     13: struct opinfo {
                     14:        short opflags;
                     15:        char *opstring;
                     16: };
                     17: 
                     18: OPINFO opinfo[];
                     19: 
                     20: #define O_NOP  0       /* no op */
                     21: #define O_NAME 1       /* leaf op for address of a variable */
                     22: #define O_QNAME        2       /* variable qualified by surrounding block */
                     23: #define O_LCON 3       /* long constant (i.e. integer) */
                     24: #define O_FCON 4       /* floating constant (i.e. real) */
                     25: #define O_SCON 5       /* string constant (type alfa) */
                     26: #define O_INDEX        6       /* array subscript (does just one index) */
                     27: #define O_INDIR 7      /* indirection through a pointer */
                     28: #define O_RVAL 8       /* get value of an operand address */
                     29: #define O_COMMA        9       /* as in parameter lists */
                     30: 
                     31: /*
                     32:  * arithmetic operators
                     33:  */
                     34: 
                     35: #define O_ITOF 10      /* convert integer to real */
                     36: #define O_ADD  11
                     37: #define O_ADDF 12
                     38: #define O_SUB  13
                     39: #define O_SUBF 14
                     40: #define O_NEG  15
                     41: #define O_NEGF 16
                     42: #define O_MUL  17
                     43: #define O_MULF 18
                     44: #define O_DIVF 19      /* real divided by real */
                     45: #define O_DIV  20      /* integer divided by integer, integer result */
                     46: #define O_MOD  21
                     47: 
                     48: /*
                     49:  * logical operators
                     50:  */
                     51: 
                     52: #define O_AND  22
                     53: #define O_OR   23
                     54: 
                     55: /*
                     56:  * relational operators
                     57:  */
                     58: 
                     59: #define O_LT   24
                     60: #define O_LTF  25
                     61: #define O_LE   26
                     62: #define O_LEF  27
                     63: #define O_GT   28
                     64: #define O_GTF  29
                     65: #define O_GE   30
                     66: #define O_GEF  31
                     67: #define O_EQ   32
                     68: #define O_EQF  33
                     69: #define O_NE   34
                     70: #define O_NEF  35
                     71: 
                     72: /*
                     73:  * debugger commands
                     74:  */
                     75: 
                     76: #define O_ASSIGN 36
                     77: #define O_CHFILE 37
                     78: #define O_CONT 38
                     79: #define O_LIST 39
                     80: #define O_NEXT 40
                     81: #define O_PRINT        41
                     82: #define O_STEP 42
                     83: #define O_WHATIS 43
                     84: #define O_WHERE        44
                     85: #define O_XI   45
                     86: #define O_XD   46
                     87: #define O_CALL 47
                     88: #define O_EDIT 48
                     89: #define O_DUMP 49
                     90: #define O_HELP 50
                     91: #define O_REMAKE 51
                     92: #define O_RUN  52
                     93: #define O_SOURCE 53
                     94: #define O_STATUS 54
                     95: #define O_TRACE        55
                     96: #define O_TRACEI 56
                     97: #define O_STOP 57
                     98: #define O_STOPI        58
                     99: #define O_DELETE 59
                    100: #define O_WHICH 60
                    101: #define O_QLINE 61             /* filename : linenumber */
                    102: #define O_ALIAS 62
                    103: #define O_GRIPE 63
                    104: 
                    105: #define O_LASTOP 63            /* must be number of last operator */
                    106: 
                    107: /*
                    108:  * operator flags and predicates
                    109:  */
                    110: 
                    111: #define LEAF 01
                    112: #define UNARY 02
                    113: #define BINARY 04
                    114: #define BOOL 010
                    115: #define REALOP 020
                    116: #define INTOP 040
                    117: 
                    118: #define isbitset(a, m) ((a&m) == m)
                    119: #define isleaf(o)      isbitset(opinfo[o].opflags, LEAF)
                    120: #define isunary(o)     isbitset(opinfo[o].opflags, UNARY)
                    121: #define isbinary(o)    isbitset(opinfo[o].opflags, BINARY)
                    122: #define isreal(o)      isbitset(opinfo[o].opflags, REALOP)
                    123: #define isint(o)       isbitset(opinfo[o].opflags, INTOP)
                    124: #define isboolean(o)   isbitset(opinfo[o].opflags, BOOL)
                    125: 
                    126: #define degree(o)      (opinfo[o].opflags&(LEAF|UNARY|BINARY))

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