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