Return to ipa_trans.lex CVS log

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

Annotation of researchv10no/cmd/ipa/ipa_trans.lex, revision 1.1

1.1     ! root        1: %Start P1 P2 P3
        !             2: %{
        !             3: void ipa_out();
        !             4: %}
        !             5: %%
        !             6: "@ipa("        { BEGIN P1; }
        !             7: "@ipa{"        { BEGIN P2; }
        !             8: "@ipa/" { BEGIN P3; }
        !             9: <P1>")"        { BEGIN 0; }
        !            10: <P2>"}" { BEGIN 0; }
        !            11: <P3>"/" { BEGIN 0; }
        !            12: <P1,P2,P3>"p"  ipa_out(1,1);
        !            13: <P1,P2,P3>"t"  ipa_out(1,3);
        !            14: <P1,P2,P3>"C"  { ipa_out(1,3); ipa_out(1,66); }
        !            15: <P1,P2,P3>"k"  ipa_out(1,5);
        !            16: <P1,P2,P3>"b"  ipa_out(1,2);
        !            17: <P1,P2,P3>"d"  ipa_out(1,4);
        !            18: <P1,P2,P3>"J"  { ipa_out(1,4); ipa_out(1,67); }
        !            19: <P1,P2,P3>"g"  ipa_out(1,11);
        !            20: <P1,P2,P3>"m"  ipa_out(1,6);
        !            21: <P1,P2,P3>"n"  ipa_out(1,7);
        !            22: <P1,P2,P3>"G"  ipa_out(1,39);
        !            23: <P1,P2,P3>"l"  ipa_out(1,8);
        !            24: <P1,P2,P3>"r"  ipa_out(1,59);
        !            25: <P1,P2,P3>"f"  ipa_out(1,9);
        !            26: <P1,P2,P3>"T"  ipa_out(1,57);
        !            27: <P1,P2,P3>"D"  ipa_out(1,58);
        !            28: <P1,P2,P3>"s"  ipa_out(1,18);
        !            29: <P1,P2,P3>"S"  ipa_out(1,66);
        !            30: <P1,P2,P3>"Z"  ipa_out(1,67);
        !            31: <P1,P2,P3>"v"  ipa_out(1,19);
        !            32: <P1,P2,P3>"z"  ipa_out(1,22);
        !            33: <P1,P2,P3>"w"  ipa_out(1,20);
        !            34: <P1,P2,P3>"y"  ipa_out(1,99);
        !            35: <P1,P2,P3>"h"  ipa_out(1,10);
        !            36: <P1,P2,P3>"?"  ipa_out(1,35);
        !            37: <P1,P2,P3>"Q"  ipa_out(1,52);
        !            38: <P1,P2,P3>"E"  ipa_out(1,91);
        !            39: <P1,P2,P3>"i"  ipa_out(2,8);
        !            40: <P1,P2,P3>"e"  ipa_out(1,93);
        !            41: <P1,P2,P3>"A"  { ipa_out(1,92); ipa_out(2,71); }
        !            42: <P1,P2,P3>"a"  ipa_out(2,12);
        !            43: <P1,P2,P3>"o"  ipa_out(1,95);
        !            44: <P1,P2,P3>"@"  ipa_out(2,2);
        !            45: <P1,P2,P3>"^"  ipa_out(2,3);
        !            46: <P1,P2,P3>"O"  ipa_out(1,97);
        !            47: <P1,P2,P3>"U"  ipa_out(1,98);
        !            48: <P1,P2,P3>"u"  ipa_out(2,9);
        !            49: <P1,P2,P3>"W"  { ipa_out(1,94); ipa_out(2,73); }
        !            50: <P1,P2,P3>"I"  { ipa_out(1,94); ipa_out(2,71); }
        !            51: <P1,P2,P3>"Y"  { ipa_out(1,96); ipa_out(2,71); }
        !            52: <P1,P2,P3>"R"  ipa_out(2,77);
        !            53: <P1,P2,P3>"%"  ipa_out(2,99);
        !            54: <P1,P2,P3>"c"  ipa_out(1,96);
        !            55: <P1,P2,P3>">"  ipa_out(1,96);
        !            56: <P1,P2,P3>"&"  ipa_out(2,14);
        !            57: <P1,P2,P3>"*"  ipa_out(2,6);
        !            58: <P1,P2,P3>"#"  ECHO;
        !            59: <P1,P2,P3>"+"  ECHO;
        !            60: <P1,P2,P3>"'"  ipa_out(2,78);
        !            61: <P1,P2,P3>"."  ipa_out(2,79);
        !            62: <P1,P2,P3>"N"  ipa_out(2,76);
        !            63: <P1,P2,P3>"L"  ipa_out(2,74);
        !            64: <P1,P2,P3>":"   ipa_out(2,66);
        !            65: <P1,P2,P3>"["[1-2]"."[0-9]+"]"         {
        !            66:                /* any member of one of the two fonts */
        !            67:                ipa_out(atoi(&yytext[1]),atoi(&yytext[3]));
        !            68:        }
        !            69: <P1,P2,P3>[    \n]     ECHO;
        !            70: <P1,P2,P3>.    { 
        !            71:                ipa_out(2,68);   /* a slightly raised 'x'
        !            72:                                            for all characters not otherwise
        !            73:                                            defined */
        !            74:                }
        !            75: .      ECHO;
        !            76: %%
        !            77: void
        !            78: ipa_out(fontnum,charnum)
        !            79: int fontnum, charnum;
        !            80: {
        !            81:        printf("\\f(P%d\\N'%d'\\fP",fontnum,charnum);
        !            82: /* should check that charnum is in range */
        !            83: }

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