=================================================================== RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/extern.h,v retrieving revision 1.20 retrieving revision 1.23 diff -u -p -r1.20 -r1.23 --- OpenXM/src/kan96xx/Kan/extern.h 2004/08/31 04:45:42 1.20 +++ OpenXM/src/kan96xx/Kan/extern.h 2004/09/09 03:14:46 1.23 @@ -1,4 +1,4 @@ -/* $OpenXM: OpenXM/src/kan96xx/Kan/extern.h,v 1.19 2004/08/22 12:52:34 takayama Exp $ */ +/* $OpenXM: OpenXM/src/kan96xx/Kan/extern.h,v 1.22 2004/09/04 11:25:58 takayama Exp $ */ /*********** global variables for module stackmachine***************/ extern int VerboseStack; extern int DebugStack; @@ -90,6 +90,12 @@ void KsetContext(struct object contextobj); void contextControl(actionOfContextControl ctl); struct object getSuperContext(struct object contextObj) ; +/* stackmachine.c back-trace */ +void tracePushName(char *s); +void traceClearStack(void); +char *tracePopName(void); +char *traceShowStack(void); + /* kclass.c */ int initClassDataBase(); void fprintClass(FILE *fp,struct object ob); @@ -157,7 +163,7 @@ struct object KooLess(struct object o1,struct object o /** Conversion */ struct object KdataConversion(struct object ob1, char *key); -struct object Kto_int(struct object ob); +struct object Kto_int32(struct object ob); struct object KpoInteger(int i); struct object KpoString(char *s); struct object KpoPOLY(POLY f); @@ -225,6 +231,8 @@ struct object test(struct object ob); struct object Kextension(struct object ob); 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); /** Utilities */ char *KremoveSpace(char *s);