=================================================================== RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/extern.h,v retrieving revision 1.29 retrieving revision 1.32 diff -u -p -r1.29 -r1.32 --- OpenXM/src/kan96xx/Kan/extern.h 2004/09/20 02:11:22 1.29 +++ OpenXM/src/kan96xx/Kan/extern.h 2005/06/16 06:21:21 1.32 @@ -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.31 2005/06/09 05:46:57 takayama Exp $ */ /*********** global variables for module stackmachine***************/ extern int VerboseStack; extern int DebugStack; @@ -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 */