Return to gram.y CVS log

Up to [Research Unix] / researchv10dc / cmd / oworm / oscsi

Annotation of researchv10dc/cmd/oworm/oscsi/gram.y, revision 1.1

1.1     ! root        1: %start         input
        !             2: 
        !             3: %{
        !             4: 
        !             5: #include       "scsi.h"
        !             6: 
        !             7: %}
        !             8: 
        !             9: %token         DISK ID RELEASE HELP SET EJECT INQUIRY READ CAPACITY SENSE
        !            10: %token         NUMBER EXT SIDEA SIDEB ALL RESET SLEEP START STOP STATUS
        !            11: %token         ECHO ERROR MEDIA WORM WRITE DIAGNOSTIC STRING COPY
        !            12: 
        !            13: %type <str>    STRING
        !            14: %type <num>    NUMBER drive side shelf
        !            15: 
        !            16: %union {
        !            17:        char *str;
        !            18:        long num;
        !            19: }
        !            20: 
        !            21: %%
        !            22: 
        !            23: input  :       /* nothing */
        !            24:        |       input line error '\n'
        !            25:        |       input line '\n'
        !            26:        |       input line ';'
        !            27:        |       input line error ';'
        !            28:        ;
        !            29: 
        !            30:        /*
        !            31:                help can be done explicitly by :help info::
        !            32:        */
        !            33: line   :               /* nothing */
        !            34:        |       CAPACITY drive   { s_capacity($2, (long *)0, (long *)0); }
        !            35:        |       COPY drive NUMBER NUMBER drive NUMBER {/*:COPY sdrive sstart nblocks ddrive dstart:: */
        !            36:                        s_copy($2, $3, $4, $5, $6);
        !            37:                }
        !            38:        |       DIAGNOSTIC drive { s_drdiag($2); }
        !            39:        |       DISK EJECT drive  { s_diskeject($3); }
        !            40:        |       DISK RELEASE drive shelf side  { s_diskrelease($4, $5, $3, 1); }
        !            41:        |       DISK RELEASE drive  { s_diskrelease(-1, A, $3, 1); }
        !            42:        |       DISK SET shelf side drive  { s_diskset($3, $4, $5, 1); }
        !            43:        |       ECHO NUMBER  { print(">> %d <<\n", $2); }
        !            44:        |       HELP  { help(); }
        !            45:        |       ID drive  { scsiid($2); }
        !            46:        |       INQUIRY {
        !            47:                        int i;
        !            48:                        for(i = 0; i<8; i++)
        !            49:                                s_inquiry(scsi_id, i);
        !            50:                }
        !            51:        |       INQUIRY drive  { s_inquiry(scsi_id, $2); }
        !            52:        |       MEDIA drive NUMBER NUMBER  { s_media($2, $3, $4, 0); }
        !            53:        |       MEDIA drive NUMBER NUMBER STRING  { s_mediaf($2, $3, $4, $5); } /*:MEDIA drive start nblocks \"filename\"::*/
        !            54:        |       EXT MEDIA drive NUMBER NUMBER  { s_media($3, $4, $5, 1); }
        !            55:        |       READ drive NUMBER  {
        !            56:                        struct scsi_o output;
        !            57:                        s_read($2, $3, 1, &output);
        !            58:                        scsiodump(output.data, 1024);
        !            59:                }
        !            60:        |       READ ID drive  {
        !            61:                        struct scsi_o output;
        !            62:                        s_read($3, 1, 1, &output);
        !            63:                        print("id='%s'\n", &output.data[42]);
        !            64:                }
        !            65:        |       RESET  { s_reset(); }
        !            66:        |       SENSE drive { s_sense($2, 0); }
        !            67:        |       EXT SENSE drive { s_sense($3, 1); }
        !            68:        |       SLEEP NUMBER  { sleep($2); }
        !            69:        |       START drive { s_start($2); }
        !            70:        |       STATUS drive { s_status($2, (struct scsi_o *)0); }
        !            71:        |       STATUS { s_status(0, (struct scsi_o *)0); }
        !            72:        |       STOP drive  { s_stop($2); }
        !            73:        |       WORM drive { s_worm($2, 1); }
        !            74:        |       WORM drive NUMBER { s_worm($2, $3); } /*:WORM drive start:: */
        !            75:        |       WRITE drive NUMBER { s_write($2, $3, 1); }
        !            76:        |       WRITE drive NUMBER NUMBER { s_write($2, $3, $4); } /*:WRITE drive start n:: */
        !            77:        ;
        !            78: 
        !            79: drive  :       NUMBER
        !            80:        ;
        !            81: 
        !            82: shelf  :       NUMBER
        !            83:        ;
        !            84: 
        !            85: side   :       SIDEA  { $$ = 0; }
        !            86:        |       SIDEB   { $$ = 1; }
        !            87:        ;
        !            88: 
        !            89: %%
        !            90: 
        !            91: yywrap()
        !            92: {
        !            93:        return(1);
        !            94: }
        !            95: 
        !            96: yyerror(s1, s2)
        !            97:        char *s1, *s2;
        !            98: {
        !            99:        fprint(2, s1, s2);
        !           100:        fprint(2, "\n");
        !           101: }

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