Annotation of OpenXM/src/k097/debug/asir1.ccc, 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: You no longer need this. ToString is now in slib.ccc */
7: x = Poly("x");
8:
9: f = sm1("[(asir0) ((x-1)^3)] extension");
10: Println(f);
11: tmp = AddString([ " fctr",AsciiToString(40), ToString(f),AsciiToString(41)]);
12: g = sm1("[(asir0) ",tmp, " ] extension ");
13: Println(g);
14:
15: def Factor(f) {
16: local tmp,ans;
17: tmp = AddString([ " fctr",AsciiToString(40),ToString(f),AsciiToString(41)]);
18: ans = sm1("[(asir0) ",tmp, " ] extension ");
19: return(ans);
20: }
21:
22: def Cancel(f) {
23: local tmp,ans;
24: tmp = AddString([ " red",AsciiToString(40),ToString(f),AsciiToString(41)]);
25: ans = sm1("[(asir0) ",tmp, " ] extension ");
26: return(ans);
27: }
28:
29:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>