Return to rewrite.l CVS log

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

Annotation of researchv10no/cmd/diction/rewrite.l, revision 1.1

1.1     ! root        1: %{
        !             2: #include <ctype.h>
        !             3: int i;
        !             4: %}
        !             5: L      [a-z0-9]
        !             6: %%
        !             7: ^be[\t].+[\n]  {
        !             8:        for(i=0;i<yyleng;i++)
        !             9:                if(yytext[i] == '\t')break;
        !            10:        while(++i<yyleng-1){
        !            11:                if(islower(yytext[i]))
        !            12:                        putchar(toupper(yytext[i]));
        !            13:                else putchar(yytext[i]);
        !            14:        }
        !            15:        putchar(' ');
        !            16:        }
        !            17: ^prep[\t].+[\n]        {
        !            18:        for(i=0;i<yyleng;i++)
        !            19:                if(yytext[i] == '\t')break;
        !            20:        while(++i<yyleng-1){
        !            21:                if(islower(yytext[i]))
        !            22:                        putchar(toupper(yytext[i]));
        !            23:                else putchar(yytext[i]);
        !            24:        }
        !            25:        putchar(' ');
        !            26:        }
        !            27: ^"verb"[\t]"be"[\n]    {
        !            28:        printf("BE");
        !            29:        putchar(' ');
        !            30:        }
        !            31: ^{L}+[\t].+[\n]        {
        !            32:        for(i=0;i<yyleng;i++)
        !            33:                if(yytext[i] == '\t')break;
        !            34:        while(++i<yyleng-1){
        !            35:                if(isupper(yytext[i]))
        !            36:                        putchar(tolower(yytext[i]));
        !            37:                else
        !            38:                        putchar(yytext[i]);
        !            39:        }
        !            40:        putchar(' ');
        !            41:        }
        !            42: ^[.,;:][\t][.,;:!][\n] {
        !            43:        putchar(yytext[2]);
        !            44:        putchar('\n');
        !            45:        }
        !            46: ^"..."[\t]"..."[\n]    {
        !            47:        printf(" ...");
        !            48:        }
        !            49: ^[\[\]()\{\}\"-][\t][\[\]()\{\}\"-][\n]        {
        !            50:        putchar(yytext[0]);
        !            51:        }
        !            52: ^"``"[\t]"``"[\n]      {
        !            53:        printf("``");
        !            54:        }
        !            55: ^"--"[\t]"--"[\n]      {
        !            56:        printf(" -- ");
        !            57:        }
        !            58: ^"."[\t]".\""  {
        !            59:        printf(" .\"");
        !            60:        }
        !            61: ^"'    '"[\n]  {
        !            62:        putchar(yytext[0]);
        !            63:        }
        !            64: ^"''"[\t]"''"[\n]      {
        !            65:        printf(" ''");
        !            66:        }
        !            67: ^"`    `"[\n]  {
        !            68:        putchar(yytext[0]);
        !            69:        }

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