Return to scn.y CVS log

Up to [MW Coherent from dump] / coherent / d / usr / lib / scn

Annotation of coherent/d/usr/lib/scn/scn.y, revision 1.1

1.1     ! root        1: %{
        !             2: #include <scnbld.h>
        !             3: 
        !             4: clump *clumps, *lastc, *thisc;
        !             5: loc *locs, *last, *this;
        !             6: 
        !             7: /*
        !             8:  * Generate a unique name.
        !             9:  */
        !            10: static char *
        !            11: genname()
        !            12: {
        !            13:        char buf[20];
        !            14:        static int i = 0;
        !            15: 
        !            16:        sprintf(buf, "L%04d", ++i);
        !            17:        return(newcpy(buf));
        !            18: }
        !            19: 
        !            20: %}
        !            21: 
        !            22: %union {
        !            23:        char *string;
        !            24:        int  val;
        !            25: }
        !            26: 
        !            27: %token <string> NAME
        !            28: %token  <string> STRING
        !            29: %token  <val>   NUMBER
        !            30: 
        !            31: %token EXT     /* external field do not define */
        !            32: %token RONLY   /* readonly field */
        !            33: %token LONG    /* long field */
        !            34: %token DEFAULT  /* default for field */
        !            35: %token SKIP    /* skip factor */
        !            36: %token GROUP   /* group skip */
        !            37: %token HELP    /* help message */
        !            38: %token VERIFY  /* verify function */
        !            39: %token NL      /* new line */
        !            40: %token DO      /* repeat group */
        !            41: %token DONE    /* end of repeat group */
        !            42: %token DESIG   /* change field designator */
        !            43: 
        !            44: %%
        !            45: 
        !            46: file : line | file line | /* nothing */ ;
        !            47: 
        !            48: line   : command NL
        !            49:        | NL 
        !            50:        | error NL {
        !            51:                yyerrok; 
        !            52:        };
        !            53: 
        !            54: command        : NAME NUMBER {
        !            55:                if (0 >= $2)
        !            56:                        yyerror("Invalid field size");
        !            57:                this = alloc(sizeof(*this));
        !            58:                if (NULL == locs)
        !            59:                        last = locs = this;
        !            60:                else
        !            61:                        last = last->next = this;
        !            62:                        
        !            63:                this->field = $1;
        !            64:                this->len = $2; 
        !            65: 
        !            66:                if ((NULL != thisc) && (!thisc->count++))
        !            67:                        thisc->from = this;
        !            68:        } options
        !            69: 
        !            70:        | DESIG STRING {
        !            71:                extern char fieldDesig;
        !            72: 
        !            73:                fieldDesig = $2[1];
        !            74:        }
        !            75: 
        !            76:        | DO NUMBER NAME {
        !            77:                if (NULL != thisc)
        !            78:                        yyerror("Nested do statements");
        !            79:                if (0 >= $2)
        !            80:                        yyerror("Invalid repeat count");
        !            81: 
        !            82:                thisc = alloc(sizeof(*thisc));
        !            83:                if (NULL == clumps)
        !            84:                        lastc = clumps = thisc;
        !            85:                else
        !            86:                        lastc = lastc->next = thisc;
        !            87: 
        !            88:                thisc->times = $2;
        !            89: 
        !            90:                fprintf(ohp, "#define %s %d\n", $3, $2);
        !            91:        }
        !            92: 
        !            93:        | DONE {
        !            94:                if (NULL == thisc)
        !            95:                        yyerror("Unmatched done statement");
        !            96:                thisc = NULL;
        !            97:        };
        !            98: 
        !            99: options : option | options option | /* nothing */ ;
        !           100: 
        !           101: option : LONG  { this->flags |= LONGFIELD; }
        !           102:        | RONLY { this->flags |= READONLY; }
        !           103:        | EXT   { this->flags |= EXTERNAL; }
        !           104:        | DEFAULT STRING {
        !           105:                if (NULL != this->Default)
        !           106:                        yyerror("Default already set");
        !           107:                this->Default = genname();
        !           108:                fprintf(ofp, "static char %s[] = %s;\n", this->Default, $2);
        !           109:                }
        !           110:        | DEFAULT NAME {
        !           111:                if (NULL != this->Default)
        !           112:                        yyerror("Default already set");
        !           113:                this->Default = $2;
        !           114:                }
        !           115:        | HELP STRING {
        !           116:                if (NULL != this->help)
        !           117:                        yyerror("Help already set");
        !           118:                this->help = genname();
        !           119:                fprintf(ofp, "static char %s[] = %s;\n", this->help, $2);
        !           120:                }
        !           121:        | HELP NAME {
        !           122:                if (NULL != this->help)
        !           123:                        yyerror("Help already set");
        !           124:                this->help = $2;
        !           125:                }
        !           126:        | SKIP NUMBER {
        !           127:                if (0 >= $2 || 254 < $2)
        !           128:                        yyerror("Invalid skip number");
        !           129:                if (this->skipf)
        !           130:                        yyerror("Skip factor already set");
        !           131:                this->skipf = $2;
        !           132:                }
        !           133:        | VERIFY NAME {
        !           134:                if (NULL != this->verify)
        !           135:                        yyerror("Verify already set");
        !           136:                this->verify = $2;
        !           137:        }
        !           138:        | SKIP GROUP {
        !           139:                if (this->skipf)
        !           140:                        yyerror("Skip factor already set");
        !           141:                if (NULL == thisc)
        !           142:                        yyerror("group must be in do");
        !           143:                else
        !           144:                        this->skipf = 255;
        !           145:                };

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