Return to asir1.ccc.old1 CVS log

Up to [local] / OpenXM / src / k097 / debug

Annotation of OpenXM/src/k097/debug/asir1.ccc.old1, Revision 1.1

1.1     ! maekawa     1:
        !             2:
        !             3: /* SSWork/yacc/debug/asir1.ccc,  1996, 7/28 */
        !             4: /* load("lib/tostr.ccc"); */
        !             5: sm1(" [(parse) (lib/tostr.sm1) pushfile] extension ");
        !             6: x = Poly("x");
        !             7:
        !             8: f = Test("(x-1)^3");
        !             9: Println(f);
        !            10: g = Test(AddString([ " fctr",AsciiToString(40), tostr2(f),AsciiToString(41)]));
        !            11: Println(g);
        !            12:
        !            13: /*   Use cpp and make them a macro or install call-asir command to sm1.
        !            14:       gcc -x c -E ,
        !            15:      Preprocessor is not a good idea. It doesn't works good.
        !            16: #define Factor(f)  Test(AddString([ " fctr",AsciiToString(40), \
        !            17:                         tostr2(f),AsciiToString(41)]))
        !            18:
        !            19:
        !            20: #define Cancel(f)  Test(AddString([ " red",AsciiToString(40), \
        !            21:                          tostr2(f),AsciiToString(41)]))
        !            22: */
        !            23:
        !            24: