=================================================================== RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/extern.h,v retrieving revision 1.24 retrieving revision 1.28 diff -u -p -r1.24 -r1.28 --- OpenXM/src/kan96xx/Kan/extern.h 2004/09/09 11:42:22 1.24 +++ OpenXM/src/kan96xx/Kan/extern.h 2004/09/13 11:24:11 1.28 @@ -1,4 +1,4 @@ -/* $OpenXM: OpenXM/src/kan96xx/Kan/extern.h,v 1.23 2004/09/09 03:14:46 takayama Exp $ */ +/* $OpenXM: OpenXM/src/kan96xx/Kan/extern.h,v 1.27 2004/09/12 10:22:50 takayama Exp $ */ /*********** global variables for module stackmachine***************/ extern int VerboseStack; extern int DebugStack; @@ -72,6 +72,7 @@ int isLiteral(char *str); void lockCtrlCForOx(); void unlockCtrlCForOx(); void restoreCtrlCForOx(); +int executeExecutableArray(struct object ob,char *fname,int withGotoP); /* stackmachine.c export */ int KSdefineMacros(void); @@ -221,8 +222,9 @@ struct object Khead(struct object ob); int KpolyLength(POLY f); struct object KsetOutputOrder(struct object obj,struct ring *rp); struct object KsetVariableNames(struct object obj,struct ring *rp); +/* KgetRingInfo has not yet been implemented. */ +struct object KgetRingInfo(struct object ringObj, struct object ofunc); - /* :eval */ struct object Keval(struct object obj); @@ -239,6 +241,7 @@ struct object KgbExtension(struct object ob); struct object KmpzExtension(struct object ob); struct object Krest(struct object ob); struct object Kjoin(struct object ob1, struct object ob2); +struct object Kget(struct object ob1, struct object ob2); /** Utilities */ char *KremoveSpace(char *s);