===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/Kclass/tree.c,v
retrieving revision 1.2
retrieving revision 1.5
diff -u -p -r1.2 -r1.5
--- OpenXM/src/kan96xx/Kan/Kclass/tree.c	2003/11/24 02:13:40	1.2
+++ OpenXM/src/kan96xx/Kan/Kclass/tree.c	2003/12/05 13:51:32	1.5
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM/src/kan96xx/Kan/Kclass/tree.c,v 1.1 2003/11/21 02:10:37 takayama Exp $ */
+/* $OpenXM: OpenXM/src/kan96xx/Kan/Kclass/tree.c,v 1.4 2003/11/24 08:16:13 takayama Exp $ */
 #include <stdio.h>
 #include "../datatype.h"
 #include "../stackm.h"
@@ -67,6 +67,8 @@ struct object addTree(struct object ob1, struct object
 {
   struct object rob,aob;
   struct object ob3,ob4;
+  struct object attr;
+  struct object keyValue;
   int i;
   if (isTreeAdd(ob1) && !isTreeAdd(ob2)) {
     ob1 = KopTree(ob1);
@@ -101,9 +103,14 @@ struct object addTree(struct object ob1, struct object
     putoa(aob,0,ob1);
     putoa(aob,1,ob2);
   }
+  attr = newObjectArray(1);
+  keyValue = newObjectArray(2);
+  putoa(keyValue,0,KpoString("arith1"));
+  putoa(keyValue,1,KpoString("plus"));
+  putoa(attr,0,keyValue);
   rob = newObjectArray(3);
   putoa(rob,0,KpoString("add"));
-  putoa(rob,1,KpoString("basic"));
+  putoa(rob,1,attr);
   putoa(rob,2,aob);
   return(KpoTree(rob));
 }
@@ -112,37 +119,41 @@ struct object addTree(struct object ob1, struct object
 struct object KtreeGetDocumentElement(struct object to) {
   struct object rob;
   struct object ob;
-  rob = NullObject;
-  if (to.tag != Sclass) return rob;
-  if (ectag(to) != CLASSNAME_tree) return rob;
+  if (to.tag != Sclass) errorKan1("%s\n","KtreeGetDocumentElement");
+  if (ectag(to) != CLASSNAME_tree) errorKan1("%s\n","KtreeGetDocumentElement");
   ob = KopTree(to);
-  return getoa(ob,0);
+  if (ob.tag != Sarray) errorKan1("%s\n","KtreeGetDocumentElement: not an array.");
+  if (getoaSize(ob) != 3) errorKan1("%s\n","KtreeGetDocumentElement: array is broken.");
+  ob=getoa(ob,0);
+  if (ob.tag != Sdollar) errorKan1("%s\n","KtreeGetDocumentElement: element must be a string");
+  return ob;
 }
 
 struct object KtreeGetAttributes(struct object to) {
   struct object rob;
   struct object ob;
-  rob = NullObject;
-  if (to.tag != Sclass) return rob;
-  if (ectag(to) != CLASSNAME_tree) return rob;
+  if (to.tag != Sclass) errorKan1("%s\n","KtreeGetAttributes:");
+  if (ectag(to) != CLASSNAME_tree) errorKan1("%s\n","KtreeGetAttributes:");
   ob = KopTree(to);
+  if (ob.tag != Sarray) errorKan1("%s\n","KtreeGetAttributes: not an array.");
+  if (getoaSize(ob) != 3) errorKan1("%s\n","KtreeGetAttributes: array is broken.");
   return getoa(ob,1);
 }
 
 struct object KtreeGetChildNodes(struct object to) {
   struct object rob;
   struct object ob;
-  rob = NullObject;
-  if (to.tag != Sclass) return rob;
-  if (ectag(to) != CLASSNAME_tree) return rob;
+  if (to.tag != Sclass) errorKan1("%s\n","KtreeGetChildNodes:");
+  if (ectag(to) != CLASSNAME_tree) errorKan1("%s\n","KtreeGetChildNodes:");
   ob = KopTree(to);
+  if (ob.tag != Sarray) errorKan1("%s\n","KtreeGetChildNodes: not an array.");
+  if (getoaSize(ob) != 3) errorKan1("%s\n","KtreeGetChildNodes: array is broken.");
   return getoa(ob,2);
 }
 
 struct object KtreeCreateElement(struct object ostr) {
   struct object ob;
-  ob = NullObject;
-  if (ostr.tag != Sdollar) return NullObject;
+  if (ostr.tag != Sdollar) errorKan1("%s\n","KtreeCreateElement: not a string.");
   ob = newObjectArray(3);
   getoa(ob,0)=ostr;
   getoa(ob,1) = newObjectArray(0);