File: [local] / OpenXM / src / k097 / debug / Attic / asir1.ccc (download)
Revision 1.1.1.1 (vendor branch), Fri Oct 8 02:12:15 1999 UTC (24 years, 11 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 ");
You no longer need this. ToString is now in slib.ccc */
x = Poly("x");
f = sm1("[(asir0) ((x-1)^3)] extension");
Println(f);
tmp = AddString([ " fctr",AsciiToString(40), ToString(f),AsciiToString(41)]);
g = sm1("[(asir0) ",tmp, " ] extension ");
Println(g);
def Factor(f) {
local tmp,ans;
tmp = AddString([ " fctr",AsciiToString(40),ToString(f),AsciiToString(41)]);
ans = sm1("[(asir0) ",tmp, " ] extension ");
return(ans);
}
def Cancel(f) {
local tmp,ans;
tmp = AddString([ " red",AsciiToString(40),ToString(f),AsciiToString(41)]);
ans = sm1("[(asir0) ",tmp, " ] extension ");
return(ans);
}