| version 1.4, 2000/07/17 02:58:45 |
version 1.6, 2001/04/12 06:48:25 |
|
|
| /* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.3 2000/06/08 08:35:02 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" |
|
|
| break; |
break; |
| case Spoly: |
case Spoly: |
| if (strcmp(key,"poly")==0) { |
if (strcmp(key,"poly")==0) { |
| |
rob = obj; |
| return(rob); |
return(rob); |
| }else if (strcmp(key,"integer")==0) { |
}else if (strcmp(key,"integer")==0) { |
| if (obj.lc.poly == ZERO) return(KpoInteger(0)); |
if (obj.lc.poly == ZERO) return(KpoInteger(0)); |
| Line 1737 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