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     ! 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: