| version 1.5, 2000/12/28 00:07:14 |
version 1.6, 2001/04/12 06:48:25 |
|
|
| /* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.4 2000/07/17 02:58:45 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.5 2000/12/28 00:07:14 takayama Exp $ */ |
| #include <stdio.h> |
#include <stdio.h> |
| #include "datatype.h" |
#include "datatype.h" |
| #include "stackm.h" |
#include "stackm.h" |
| Line 1738 struct object rule; |
|
| Line 1738 struct object rule; |
|
| } |
} |
| n = getoaSize(rule); |
n = getoaSize(rule); |
| |
|
| if (of.tag != Spoly) { |
if (of.tag == Spoly) { |
| |
}else if (of.tag ==Sclass && ectag(of) == CLASSNAME_recursivePolynomial) { |
| |
return(KreplaceRecursivePolynomial(of,rule)); |
| |
}else{ |
| errorKan1("%s\n"," KoReplace(): The first argument must be a polynomial."); |
errorKan1("%s\n"," KoReplace(): The first argument must be a polynomial."); |
| } |
} |
| f = KopPOLY(of); |
f = KopPOLY(of); |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to kanExport0.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / kan96xx / Kan