=================================================================== RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/extern.h,v retrieving revision 1.3 retrieving revision 1.28 diff -u -p -r1.3 -r1.28 --- OpenXM/src/kan96xx/Kan/extern.h 2000/02/02 03:30:48 1.3 +++ OpenXM/src/kan96xx/Kan/extern.h 2004/09/13 11:24:11 1.28 @@ -1,9 +1,13 @@ -/* $OpenXM: OpenXM/src/kan96xx/Kan/extern.h,v 1.2 2000/01/16 07:55:38 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; extern FILE *Fstack; +#if defined(__CYGWIN__) +extern sigjmp_buf EnvOfStackMachine; +#else extern jmp_buf EnvOfStackMachine; +#endif extern struct object NullObject; extern struct object NoObject; extern int Lookup[TYPES][TYPES]; @@ -61,12 +65,14 @@ void printObjectArray(struct object ob,int nl,FILE *fp /* stackmachine.c misc*/ void scanner(void); void ctrlC(int sig); +void cancelAlarm(); int executeToken(struct tokens token); int executePrimitive(struct object ob); 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); @@ -85,6 +91,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); @@ -117,6 +129,12 @@ struct object *cdr(struct object *list); void printObjectList(struct object *op); int memberQ(struct object *list1,struct object list2); +struct object KvJoin(struct object listo1,struct object listo2); +struct object Kcar(struct object listo); +struct object Kcdr(struct object listo); +struct object KlistToArray(struct object listo); +struct object KarrayToList(struct object ob); + /* list:conversion */ struct object listToArray(struct object *op); struct object *arrayToList(struct object ob); @@ -131,6 +149,7 @@ struct object KaoMult(struct object aa,struct object b struct object KooDiv2(struct object ob1,struct object ob2); struct object KoNegate(struct object ob1); struct object KreduceRationalFunction(struct object ob); +struct object KooPower(struct object ob1,struct object ob2); /* for rational function object */ struct object KoInverse(struct object ob); @@ -151,6 +170,7 @@ struct object KooLess(struct object o1,struct object o /** Conversion */ struct object KdataConversion(struct object ob1, char *key); +struct object Kto_int32(struct object ob); struct object KpoInteger(int i); struct object KpoString(char *s); struct object KpoPOLY(POLY f); @@ -158,6 +178,8 @@ struct object KpoArrayOfPOLY(struct arrayOfPOLY *ap); struct object KpoMatrixOfPOLY(struct matrixOfPOLY *mp); struct object KpoRingp(struct ring *ringp); struct object KpoDouble(double a); +struct object KpoUniversalNumber(struct coeff *u); +struct object KintToUniversalNumber(int n); #define KopInteger(o) ( (o).lc.ival ) #define KopString(o) ( (o).lc.str ) #define KopPOLY(o) ( (o).lc.poly ) @@ -183,6 +205,7 @@ int objArrayToOrderMatrix(struct object oA,int order[] int KsetOrderByObjArray(struct object oA); struct object oGetOrderMatrix(struct ring *ringp); /* order.c */ struct object KgetOrderMatrixOfCurrentRing(); +struct object oRingToOXringStructure(struct ring *ringp); /* order.c */ int KsetUpRing(struct object ob1,struct object ob2, struct object ob3,struct object ob4,struct object ob5); void KshowRing(struct ring *ringp); struct object KdefaultPolyRing(struct object num); @@ -199,20 +222,26 @@ 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); /** misc **/ struct object KtoRecords(struct object ob1); +struct object KstringToArgv(struct object ob1); void Kclose(void); int warningKan(char *s); +int warningKanNoStrictMode(char *s); int errorKan1(char *s,char *m); 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); +struct object Kget(struct object ob1, struct object ob2); /** Utilities */ char *KremoveSpace(char *s); @@ -236,14 +265,20 @@ POLY arrayToPOLY(struct object ob); struct object POLYToArray(POLY f); struct object oPrincipalPart(struct object ob); struct object oInitW(struct object ob,struct object oWeight); +struct object KordWsAll(struct object ob,struct object oWeight); /* :misc */ struct object homogenizeObject(struct object ob,int *gradep); struct object homogenizeObject_vec(struct object ob,int *gradep); +struct object homogenizeObject_go(struct object ob,int *gradep); +void KresetDegreeShift(void); int oGrade(struct object ob); struct ring *oRingp(struct object ob); struct object KisOrdered(struct object of); struct object KvectorToSchreyer_es(struct object obarray); +POLY objArrayToPOLY(struct object ob); +struct object POLYtoObjArray(POLY f,int size); +struct object KgetExponents(struct object obPoly,struct object type); /* hilbert.c */ struct object hilberto(struct object obgb,struct object obvlist); @@ -258,3 +293,12 @@ char *KobjectToBinary(struct object ob,int *size); int mmLarger_tower3(POLY ff,POLY gg,struct object *gbList); /* order.c */ struct object KschreyerSkelton(struct object g); + +/* misc */ +struct object KregionMatches(struct object sobj, struct object keyArray); +int objToInteger(struct object ob); + +/* shell.c */ +struct object KoxWhich(struct object cmdo,struct object patho); +struct object KoxShell(struct object ob); +void KoxShellHelp(char *key,FILE *fp);