Annotation of OpenXM/src/k097/debug/asir1.ccc, 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: 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>