Return to config.l CVS log

Up to [XINU] / xinu / con

Annotation of xinu/con/config.l, revision 1.1

1.1     ! root        1: A              [a-z_A-Z]
        !             2: M              [a-z_A-Z0-9]
        !             3:        int skipping;
        !             4: %%
        !             5: "/*"                   {skipping = 1;}
        !             6: "*/"                   {skipping = 0;}
        !             7: "%"                    {extern int     brkcount;
        !             8:                         if (! skipping)
        !             9:                                if (++brkcount == 2)
        !            10:                                        return(0); /* end-of-file */
        !            11:                                else
        !            12:                                        return(DEFBRK);
        !            13:                        }
        !            14: ":"                    {if (! skipping) return(COLON);}
        !            15: 0[0-9]*                        {if (! skipping) return(OCTAL);}
        !            16: [1-9][0-9]+            {if (! skipping) return(INTEGER);}
        !            17: is                     {if (! skipping) return(IS);}
        !            18: on                     {if (! skipping) return(ON);}
        !            19: "="                    ;
        !            20: "iint"                 {if (! skipping) return(IINT);}
        !            21: "-iint"                        {if (! skipping) return(IINT);}
        !            22: "oint"                 {if (! skipping) return(OINT);}
        !            23: "-oint"                        {if (! skipping) return(OINT);}
        !            24: "-csr"                 {if (! skipping) return(CSR);}
        !            25: "csr"                  {if (! skipping) return(CSR);}
        !            26: "-ivec"                        {if (! skipping) return(IVEC);}
        !            27: "ivec"                 {if (! skipping) return(IVEC);}
        !            28: "-ovec"                        {if (! skipping) return(OVEC);}
        !            29: "ovec"                 {if (! skipping) return(OVEC);}
        !            30: "-i"                   {if (! skipping) return(INIT);}
        !            31: "i"                    {if (! skipping) return(INIT);}
        !            32: "-o"                   {if (! skipping) return(OPEN);}
        !            33: "o"                    {if (! skipping) return(OPEN);}
        !            34: "-c"                   {if (! skipping) return(CLOSE);}
        !            35: "c"                    {if (! skipping) return(CLOSE);}
        !            36: "-r"                   {if (! skipping) return(READ);}
        !            37: "r"                    {if (! skipping) return(READ);}
        !            38: "-g"                   {if (! skipping) return(GETC);}
        !            39: "g"                    {if (! skipping) return(GETC);}
        !            40: "-p"                   {if (! skipping) return(PUTC);}
        !            41: "p"                    {if (! skipping) return(PUTC);}
        !            42: "-w"                   {if (! skipping) return(WRITE);}
        !            43: "w"                    {if (! skipping) return(WRITE);}
        !            44: "-s"                   {if (! skipping) return(SEEK);}
        !            45: "s"                    {if (! skipping) return(SEEK);}
        !            46: "-n"                   {if (! skipping) return(CNTL);}
        !            47: "n"                    {if (! skipping) return(CNTL);}
        !            48: [ \t]+                 ;
        !            49: "\n"                   {extern int linectr;
        !            50:                         linectr++;
        !            51:                        }
        !            52: {A}{M}*                        {if (! skipping) return(IDENT);}
        !            53: .                      {if (! skipping) return(yytext[0]);}

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