Return to machcomm.h CVS log

Up to [Research Unix] / researchv10no / cmd / twig

Annotation of researchv10no/cmd/twig/machcomm.h, revision 1.1.1.1

1.1       root        1: /*
                      2:  * The machine is laid out as a sequence of integers in the walker.
                      3:  * The form described above is only used inside the preprocessor.
                      4:  * Each machine state is one of the following sequence:
                      5:  *
                      6:  * TABLE <value_1><index_1>...<value_n><index_n> -1 [FAIL <fail_index>] -1
                      7:  * or
                      8:  * TABLE2 <value_1><index_1>...<value_n><index_n> -1 [FAIL <fail_index>] -1
                      9:  * or
                     10:  * ACCEPT <accept table index> -1
                     11:  *
                     12:  * The accept table is in the form:
                     13:  *
                     14:  * <tree index_1> ...<tree_index_m> -1
                     15:  *
                     16:  */
                     17: 
                     18: #define FASTLIM        0
                     19: #define TABLE  1
                     20: #define FAIL   2
                     21: #define ACCEPT 3
                     22: #define TABLE2 4
                     23: #define EOT    -1
                     24: 
                     25: /* special machine state */
                     26: #define HANG   -1
                     27: 
                     28: /* used by the evaluator to interpret path table */
                     29: #define        eSTOP   0
                     30: #define        ePOP    -1
                     31: #define eEVAL  -2
                     32: #define eNEXT  -3
                     33: #define ePUSH  -4
                     34: 
                     35: /* Tags that indicate the type of a value */
                     36: #define M_BRANCH 010000
                     37: #define M_NODE 0
                     38: #define M_LABEL 01000
                     39: #define MAX_NODE_VALUE 00777
                     40: #define MTAG_SHIFT 9
                     41: #define M_DETAG(x)     ((x)&~(M_BRANCH|M_LABEL|M_NODE))
                     42: 
                     43: /* predicates to tell whether a value x is of type NODE, BRANCH, or LABEL */
                     44: #define MI_NODE(x)     (((x)&(M_BRANCH|M_LABEL))==0)
                     45: #define MI_DEFINED(x)  ((x)!=-1)
                     46: #define MI_LABEL(x)    (((x)&M_LABEL)!=0)
                     47: #define MI_BRANCH(x)   (((x)&M_BRANCH)!=0)
                     48: 
                     49: /* build a tagged value */
                     50: #define MV_NODE(x)     (x)
                     51: #define MV_BRANCH(x)   ((x)|M_BRANCH)
                     52: #define MV_LABEL(x)    ((x)|M_LABEL)
                     53: 

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