Return to asir1.ccc CVS log

Up to [local] / OpenXM / src / k097 / debug

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: