OpenXM/src/kan96xx/Kan/kanExport0.c - diff

Return to kanExport0.c CVS log

Up to [local] / OpenXM / src / kan96xx / Kan

version 1.4, 2000/07/17 02:58:45

version 1.5, 2000/12/28 00:07:14

Line 1

/* $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.4 2000/07/17 02:58:45 takayama Exp $ */

#include <stdio.h>

#include "datatype.h"

#include "stackm.h"

Line 985 char *key;

break;

case Spoly:

if (strcmp(key,"poly")==0) {

rob = obj;

return(rob);

}else if (strcmp(key,"integer")==0) {

if (obj.lc.poly == ZERO) return(KpoInteger(0));