===================================================================
RCS file: /home/cvs/OpenXM/src/kxx/serversm.h,v
retrieving revision 1.3
retrieving revision 1.5
diff -u -p -r1.3 -r1.5
--- OpenXM/src/kxx/serversm.h	2005/06/09 04:47:16	1.3
+++ OpenXM/src/kxx/serversm.h	2006/02/01 00:30:05	1.5
@@ -38,6 +38,8 @@ struct object{
   union cell rc;          /* right cell */
   struct object *attr;
 };
+#define OINIT  { .attr = NULL }
+
 /********** macros to use Sarray **********************/
 /* put to Object Array */
 #define putoa(ob,i,cc) {\
@@ -59,10 +61,12 @@ void KSpush(struct object ob);
 struct object KfindUserDictionary(char *s);
 struct object KputUserDictionary(char *s,struct object ob);
 struct object KnewErrorPacket(int serial,int no,char *s);
+struct object KnewErrorPacketObj(struct object);
 struct object KSmathCap(void);  /* defined plugin/cmo.c */
 void *KSmathCapByStruct(void);  /* defined plugin/cmo.c */
 char *popErrorStackByString(void);
 struct object KSdupErrors(void);
 struct object KpoInteger(int i);
+struct object KpoString(char *s);
 struct object KSpeek(int k);
-
+struct object KSnewObjectArray(int k);