OpenXM/src/kan96xx/Kan/extern.h - diff

Return to extern.h CVS log

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

Diff for /OpenXM/src/kan96xx/Kan/extern.h between version 1.6 and 1.35

version 1.6, 2002/10/24 05:19:50

version 1.35, 2006/02/01 00:30:05

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/extern.h,v 1.5 2002/02/24 10:27:18 takayama Exp $ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/extern.h,v 1.34 2005/09/27 06:10:43 takayama Exp $ */

/*********** global variables for module stackmachine***************/

extern int VerboseStack;

extern int DebugStack;

Line 19 struct tokens *decomposeToTokens(char *str,int *size);

struct tokens getokenSM();

struct tokens *decomposeToTokens();

char *getLOAD_SM1_PATH();

char *traceShowScannerBuf();

/* stackmachine.c object */

struct object *newObject(void);

struct object newObjectArray(int size);

Line 65 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);

Line 80 char * KSstringPop(void);

Line 82 char * KSstringPop(void);

int KSstackPointer(void);

struct object KSdupErrors(void);

struct object KSpeek(int k);

struct object KSnewObjectArray(int k);

/* stackmachine.c context */

struct context *newContext0(struct context *super,char *name);

Line 89 void KsetContext(struct object contextobj);

Line 92 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);

struct object *traceNameStackToArrayp(void);

/* kclass.c */

int initClassDataBase();

void fprintClass(FILE *fp,struct object ob);

Line 121 struct object *cdr(struct object *list);

Line 131 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);

struct object newByteArray(int size,struct object obj);

struct object newByteArrayFromStr(char *s,int size);

struct object byteArrayToArray(struct object obj);

/* kanExport0.c */

/** arithmetic **/

Line 135 struct object KaoMult(struct object aa,struct object b

Line 154 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);

Line 155 struct object KooLess(struct object o1,struct object o

Line 175 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);

Line 162 struct object KpoArrayOfPOLY(struct arrayOfPOLY *ap);

Line 183 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 )

Line 174 struct object KpoDouble(double a);

Line 197 struct object KpoDouble(double a);

#define Knumerator(o) ( (o).lc.op )

#define Kdenominator(o) ( (o).rc.op )

#define KopDouble(ob) (*((ob).lc.dbl))

#define KopByteArray(o) ( (o).lc.bytes )

#define getByteArraySize(o) ( (o).rc.ival )

char *KPOLYToString(POLY f);

/** conversion 2 **/

struct object arrayOfPOLYToArray(struct arrayOfPOLY *aa);

Line 187 int objArrayToOrderMatrix(struct object oA,int order[]

Line 212 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);

Line 203 struct object Khead(struct object ob);

Line 229 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);

struct object KstringToArgv2(struct object ob1,struct object ob2);

void Kclose(void);

int warningKan(char *s);

int warningKanNoStrictMode(char *s);

Line 218 struct object test(struct object ob);

Line 247 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);

int KtoArgvbyCurryBrace(char *str,char *argv[],int limit);

/** Attribute */

struct object KgetAttributeList(struct object ob);

struct object KsetAttributeList(struct object ob,struct object attr);

struct object KgetAttribute(struct object ob,struct object key);

struct object KsetAttribute(struct object ob,struct object key,struct object value);

/* ob (key) (value) setAttribute /ob set. They are not destructive. */

/** kanExport1.c */

/* :ring :kan */

struct object Kreduction(struct object f,struct object set);

Line 241 POLY arrayToPOLY(struct object ob);

Line 281 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);

Line 266 struct object KschreyerSkelton(struct object g);

Line 312 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);

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>