Return to gram.y CVS log

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

Annotation of researchv10no/cmd/2500/gram.y, revision 1.1.1.1

1.1       root        1: %start         input
                      2: 
                      3: %{
                      4: 
                      5: #define                LTIME(t, hr, mi, se, fr)        (t.h=hr, t.m=mi, t.s=se, t.f=fr)
                      6: 
                      7: #define                YYDEBUG         1
                      8: 
                      9: #include       "hdr.h"
                     10: 
                     11: %}
                     12: 
                     13: %token         AUTO CUE EDIT HELP INSERT MODE PLAY REC SET SNAP STATUS STEP STOP
                     14: %token         LOOP VIEW WAIT FRAME STANDBY REMOTE SHOOT SLEEP
                     15: %token         FWD REV OFF ON PREROLL STILL GO
                     16: %token         VIDSYNC AUDIO1 AUDIO2 AUDIO3 VIDEO
                     17: %token         TIME LTC VITC T1 T2 TCR UB
                     18: %token         NUMBER STRING
                     19: 
                     20: %type <time>   time
                     21: %type <ival>   NUMBER timertype channel channels
                     22: %type <str>    STRING
                     23: 
                     24: %union{
                     25:        int ival;
                     26:        Time time;
                     27:        char *str;
                     28: }
                     29: 
                     30: %%
                     31: 
                     32: input  :       /* nothing */
                     33:        |       input line '\n'
                     34:        |       input line ';'
                     35:        |       input line error '\n'
                     36:        |       input line error ';'
                     37:        ;
                     38:        /*
                     39:                help can be done explicitly by :help info::
                     40:        */
                     41: 
                     42: line   :               /* nothing */
                     43:        |       AUTO ON  { two("auto on", 0x40, 0x41); } /*:::*/
                     44:        |       AUTO OFF  { two("auto off", 0x40, 0x40); } /*:AUTO [ON|OFF]::*/
                     45:        |       CUE time { cue($2); }
                     46:        |       EDIT OFF  { two("edit off", 0x20, 0x64); }
                     47:        |       FRAME OFF { frame(0); } /*:::*/
                     48:        |       FRAME ON { frame(1); } /*:FRAME [ON|OFF]::*/
                     49:        |       HELP  { help(); }
                     50:        |       EDIT SET time time channels { editset($3, $4, $5); }/*:EDIT SET in_time out_time channels::*/
                     51:        |       EDIT GO { editgo(); }
                     52:        |       INSERT time  { insert($2, 1); }/*:INSERT time [nframes=1]::*/
                     53:        |       INSERT time NUMBER  { insert($2, $3); } /*:::*/
                     54:        |       LOOP time time NUMBER   { loop($2, $3, $4); } /*:LOOP tbegin tend frames/s:: */
                     55:        |       PLAY  { two("play", 0x20, 0x01); }
                     56:        |       PREROLL TIME time  { prerollt($3); }
                     57:        |       REC  { two("rec", 0x20, 0x02); }
                     58:        |       REC STEP  { three("rec step", 0x41, 0x3F, 2); }
                     59:        |       REMOTE NUMBER { remiframe($2); } /*:REMOTE [frame|str]::*/
                     60:        |       REMOTE STRING { remsframe($2); } /*:::*/
                     61:        |       REMOTE { remiframe(-1); } /*:::*/
                     62:        |       REMOTE STRING STRING { remsetup($2, $3, (char *)0); } /*:REMOTE system prog [relay]::*/
                     63:        |       REMOTE STRING STRING STRING { remsetup($2, $3, $4); } /*:REMOTE system prog [relay]::*/
                     64:        |       SET TIME T1 time { settimer($4, 0); } /*:SET TIME [T1|TCR] time::*/
                     65:        |       SET TIME TCR time { settimer($4, 4); } /*:::*/
                     66:        |       SHOOT NUMBER NUMBER { shoot($2, $3, 1); } /*:SHOOT start nframes::*/
                     67:        |       SLEEP NUMBER { sleep($2); }
                     68:        |       snap { snap(1); } /*:SNAP [nframes=1]::*/
                     69:        |       snap NUMBER { snap($2); } /*:::*/
                     70:        |       STANDBY OFF  { two("stop", 0x20, 0x00); two("standby off", 0x20, 0x04); }
                     71:        |       STATUS  { status(0); }
                     72:        |       STATUS STATUS  { status(1); }
                     73:        |       STEP FWD  { two("step fwd", 0x20, 0x14); } /*:STEP [FWD|REV]::*/
                     74:        |       STEP REV  { two("step rev", 0x20, 0x24); } /*:::*/
                     75:        |       STILL time  { still($2); }
                     76:        |       STILL MODE ON { three("", 0x41, 0x3F, 0x01); } /*:STILL MODE [ON|OFF]::*/
                     77:        |       STILL MODE OFF { three("", 0x41, 0x3F, 0x00); } /*:::*/
                     78:        |       STOP  { two("stop", 0x20, 0x00); printclock(); }
                     79:        |       TIME timertype  { timer($2); }
                     80:        |       TIME MODE TCR  { three("time mode tcr", 0x41, 0x36, 0); } /*:TIME MODE [T1|T2|TCR]::*/
                     81:        |       TIME MODE T1  { three("time mode t1", 0x41, 0x36, 1); } /*:::*/
                     82:        |       TIME MODE T2  { three("time mode t2", 0x41, 0x36, 2); } /*:::*/
                     83:        |       VIEW time time { view($2,$3); } /*:VIEW tbegin tend:: */
                     84:        |       WAIT  {  swait(); }
                     85:        ;
                     86: 
                     87: /*DO NOT MOVE, used to generate helptab.c*/
                     88: 
                     89: snap   :       SNAP
                     90:        |       EDIT ON
                     91:        ;
                     92: 
                     93: time   :       NUMBER  { LTIME($$, 0, 0, $1, 0); }
                     94:        |       NUMBER '.' NUMBER  { LTIME($$, 0, 0, $1, $3); }
                     95:        |       NUMBER '.' NUMBER '.' NUMBER  { LTIME($$, 0, $1, $3, $5); }
                     96:        |       NUMBER '.' NUMBER '.' NUMBER '.' NUMBER  { LTIME($$, $1, $3, $5, $7); }
                     97:        ;
                     98: 
                     99: timertype      :       LTC  { $$ = 0x01; }
                    100:        |        { $$ = 0x01; }
                    101:        |       VITC  { $$ = 0x02; }
                    102:        |       T1  { $$ = 0x04; }
                    103:        |       T2  { $$ = 0x08; }
                    104:        ;
                    105: 
                    106: channels       :       channel { $$ = $1; }
                    107:        |       channels channel { $$ = $1|$2; }
                    108:        ;
                    109: 
                    110: channel        :       AUDIO1  { $$ = 0x01; }
                    111:        |       AUDIO2  { $$ = 0x02; }
                    112:        |       AUDIO3  { $$ = 0x04; }
                    113:        |       VIDEO   { $$ = 0x18; }
                    114:        ;
                    115: 
                    116: %%
                    117: 
                    118: yywrap()
                    119: {
                    120:        return(1);
                    121: }
                    122: 
                    123: yyerror(s1, s2)
                    124:        char *s1;
                    125: {
                    126:        fprint(2, s1, s2);
                    127: }

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