=================================================================== RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/extern.h,v retrieving revision 1.33 retrieving revision 1.35 diff -u -p -r1.33 -r1.35 --- OpenXM/src/kan96xx/Kan/extern.h 2005/07/18 10:55:16 1.33 +++ OpenXM/src/kan96xx/Kan/extern.h 2006/02/01 00:30:05 1.35 @@ -1,4 +1,4 @@ -/* $OpenXM: OpenXM/src/kan96xx/Kan/extern.h,v 1.32 2005/06/16 06:21:21 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; @@ -82,6 +82,7 @@ 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); @@ -96,6 +97,7 @@ void tracePushName(char *s); void traceClearStack(void); char *tracePopName(void); char *traceShowStack(void); +struct object *traceNameStackToArrayp(void); /* kclass.c */ int initClassDataBase(); @@ -236,6 +238,7 @@ 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);