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

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: