[BACK]Return to asir1.ccc.old1 CVS log [TXT][DIR] Up to [local] / OpenXM / src / k097 / debug
File: [local] / OpenXM / src / k097 / debug / Attic / asir1.ccc.old1 (download)

Revision 1.1.1.1 (vendor branch), Fri Oct 8 02:12:15 1999 UTC (24 years, 8 months ago) by maekawa
Branch: OpenXM
CVS Tags: maekawa-ipv6, RELEASE_20000124, RELEASE_1_1_3, RELEASE_1_1_2, ALPHA
Changes since 1.1: +0 -0 lines 

o import OpenXM sources


/* SSWork/yacc/debug/asir1.ccc,  1996, 7/28 */
/* load("lib/tostr.ccc"); */
sm1(" [(parse) (lib/tostr.sm1) pushfile] extension ");
x = Poly("x");

f = Test("(x-1)^3");
Println(f);
g = Test(AddString([ " fctr",AsciiToString(40), tostr2(f),AsciiToString(41)]));
Println(g);

/*   Use cpp and make them a macro or install call-asir command to sm1. 
      gcc -x c -E ,
     Preprocessor is not a good idea. It doesn't works good.
#define Factor(f)  Test(AddString([ " fctr",AsciiToString(40), \
                        tostr2(f),AsciiToString(41)]))


#define Cancel(f)  Test(AddString([ " red",AsciiToString(40), \
                         tostr2(f),AsciiToString(41)]))
*/