=================================================================== RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/extern.h,v retrieving revision 1.29 retrieving revision 1.33 diff -u -p -r1.29 -r1.33 --- OpenXM/src/kan96xx/Kan/extern.h 2004/09/20 02:11:22 1.29 +++ OpenXM/src/kan96xx/Kan/extern.h 2005/07/18 10:55:16 1.33 @@ -1,4 +1,4 @@ -/* $OpenXM: OpenXM/src/kan96xx/Kan/extern.h,v 1.28 2004/09/13 11:24:11 takayama Exp $ */ +/* $OpenXM: OpenXM/src/kan96xx/Kan/extern.h,v 1.32 2005/06/16 06:21:21 takayama Exp $ */ /*********** global variables for module stackmachine***************/ extern int VerboseStack; extern int DebugStack; @@ -19,8 +19,8 @@ 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); @@ -139,6 +139,7 @@ struct object KarrayToList(struct object ob); 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 */ @@ -250,6 +251,14 @@ struct object Kget(struct object ob1, struct object ob /** 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 */