[BACK]Return to asir1.ccc CVS log [TXT][DIR] Up to [local] / OpenXM / src / k097 / debug
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, 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 ");
   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);
}