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:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>