Return to gram.expr CVS log

Up to [Research Unix] / researchv10dc / cmd / f2c

Annotation of researchv10dc/cmd/f2c/gram.expr, revision 1.1.1.1

1.1       root        1: funarglist:
                      2:                { $$ = 0; }
                      3:        | funargs
                      4:                { $$ = revchain($1); }
                      5:        ;
                      6: 
                      7: funargs:  expr
                      8:                { $$ = mkchain((char *)$1, CHNULL); }
                      9:        | funargs SCOMMA expr
                     10:                { $$ = mkchain((char *)$3, $1); }
                     11:        ;
                     12: 
                     13: 
                     14: expr:    uexpr
                     15:        | SLPAR expr SRPAR      { $$ = $2; if ($$->tag == TPRIM)
                     16:                                        $$->primblock.parenused = 1; }
                     17:        | complex_const
                     18:        ;
                     19: 
                     20: uexpr:   lhs
                     21:        | simple_const
                     22:        | expr addop expr   %prec SPLUS
                     23:                { $$ = mkexpr($2, $1, $3); }
                     24:        | expr SSTAR expr
                     25:                { $$ = mkexpr(OPSTAR, $1, $3); }
                     26:        | expr SSLASH expr
                     27:                { $$ = mkexpr(OPSLASH, $1, $3); }
                     28:        | expr SPOWER expr
                     29:                { $$ = mkexpr(OPPOWER, $1, $3); }
                     30:        | addop expr  %prec SSTAR
                     31:                { if($1 == OPMINUS)
                     32:                        $$ = mkexpr(OPNEG, $2, ENULL);
                     33:                  else  $$ = $2;
                     34:                }
                     35:        | expr relop expr  %prec SEQ
                     36:                { $$ = mkexpr($2, $1, $3); }
                     37:        | expr SEQV expr
                     38:                { NO66(".EQV. operator");
                     39:                  $$ = mkexpr(OPEQV, $1,$3); }
                     40:        | expr SNEQV expr
                     41:                { NO66(".NEQV. operator");
                     42:                  $$ = mkexpr(OPNEQV, $1, $3); }
                     43:        | expr SOR expr
                     44:                { $$ = mkexpr(OPOR, $1, $3); }
                     45:        | expr SAND expr
                     46:                { $$ = mkexpr(OPAND, $1, $3); }
                     47:        | SNOT expr
                     48:                { $$ = mkexpr(OPNOT, $2, ENULL); }
                     49:        | expr SCONCAT expr
                     50:                { NO66("concatenation operator //");
                     51:                  $$ = mkexpr(OPCONCAT, $1, $3); }
                     52:        ;
                     53: 
                     54: addop:   SPLUS         { $$ = OPPLUS; }
                     55:        | SMINUS        { $$ = OPMINUS; }
                     56:        ;
                     57: 
                     58: relop:   SEQ   { $$ = OPEQ; }
                     59:        | SGT   { $$ = OPGT; }
                     60:        | SLT   { $$ = OPLT; }
                     61:        | SGE   { $$ = OPGE; }
                     62:        | SLE   { $$ = OPLE; }
                     63:        | SNE   { $$ = OPNE; }
                     64:        ;
                     65: 
                     66: lhs:    name
                     67:                { $$ = mkprim($1, LBNULL, CHNULL); }
                     68:        | name substring
                     69:                { NO66("substring operator :");
                     70:                  $$ = mkprim($1, LBNULL, $2); }
                     71:        | name SLPAR funarglist SRPAR
                     72:                { $$ = mkprim($1, mklist($3), CHNULL); }
                     73:        | name SLPAR funarglist SRPAR substring
                     74:                { NO66("substring operator :");
                     75:                  $$ = mkprim($1, mklist($3), $5); }
                     76:        ;
                     77: 
                     78: substring:  SLPAR opt_expr SCOLON opt_expr SRPAR
                     79:                { $$ = mkchain((char *)$2, mkchain((char *)$4,CHNULL)); }
                     80:        ;
                     81: 
                     82: opt_expr:
                     83:                { $$ = 0; }
                     84:        | expr
                     85:        ;
                     86: 
                     87: simple:          name
                     88:                { if($1->vclass == CLPARAM)
                     89:                        $$ = (expptr) cpexpr(
                     90:                                ( (struct Paramblock *) ($1) ) -> paramval);
                     91:                }
                     92:        | simple_const
                     93:        ;
                     94: 
                     95: simple_const:   STRUE  { $$ = mklogcon(1); }
                     96:        | SFALSE        { $$ = mklogcon(0); }
                     97:        | SHOLLERITH  { $$ = mkstrcon(toklen, token); }
                     98:        | SICON = { $$ = mkintcon( convci(toklen, token) ); }
                     99:        | SRCON = { $$ = mkrealcon(tyreal, token); }
                    100:        | SDCON = { $$ = mkrealcon(TYDREAL, token); }
                    101:        | bit_const
                    102:        ;
                    103: 
                    104: complex_const:  SLPAR uexpr SCOMMA uexpr SRPAR
                    105:                { $$ = mkcxcon($2,$4); }
                    106:        ;
                    107: 
                    108: bit_const:  SHEXCON
                    109:                { NOEXT("hex constant");
                    110:                  $$ = mkbitcon(4, toklen, token); }
                    111:        | SOCTCON
                    112:                { NOEXT("octal constant");
                    113:                  $$ = mkbitcon(3, toklen, token); }
                    114:        | SBITCON
                    115:                { NOEXT("binary constant");
                    116:                  $$ = mkbitcon(1, toklen, token); }
                    117:        ;
                    118: 
                    119: fexpr:   unpar_fexpr
                    120:        | SLPAR fexpr SRPAR
                    121:                { $$ = $2; }
                    122:        ;
                    123: 
                    124: unpar_fexpr:     lhs
                    125:        | simple_const
                    126:        | fexpr addop fexpr   %prec SPLUS
                    127:                { $$ = mkexpr($2, $1, $3); }
                    128:        | fexpr SSTAR fexpr
                    129:                { $$ = mkexpr(OPSTAR, $1, $3); }
                    130:        | fexpr SSLASH fexpr
                    131:                { $$ = mkexpr(OPSLASH, $1, $3); }
                    132:        | fexpr SPOWER fexpr
                    133:                { $$ = mkexpr(OPPOWER, $1, $3); }
                    134:        | addop fexpr  %prec SSTAR
                    135:                { if($1 == OPMINUS)
                    136:                        $$ = mkexpr(OPNEG, $2, ENULL);
                    137:                  else  $$ = $2;
                    138:                }
                    139:        | fexpr SCONCAT fexpr
                    140:                { NO66("concatenation operator //");
                    141:                  $$ = mkexpr(OPCONCAT, $1, $3); }
                    142:        ;

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