===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/ext.c,v
retrieving revision 1.33
retrieving revision 1.37
diff -u -p -r1.33 -r1.37
--- OpenXM/src/kan96xx/Kan/ext.c	2004/11/23 01:37:47	1.33
+++ OpenXM/src/kan96xx/Kan/ext.c	2005/06/16 06:21:21	1.37
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM/src/kan96xx/Kan/ext.c,v 1.32 2004/09/17 12:32:11 takayama Exp $ */
+/* $OpenXM: OpenXM/src/kan96xx/Kan/ext.c,v 1.36 2005/06/16 05:07:23 takayama Exp $ */
 #include <stdio.h>
 #include <sys/types.h>
 #include <sys/stat.h>
@@ -94,9 +94,12 @@ struct object Kextension(struct object obj)
 {
   char *key;
   int size;
-  struct object keyo;
+  struct object keyo = OINIT;
   struct object rob = NullObject;
-  struct object obj1,obj2,obj3,obj4;
+  struct object obj1 = OINIT;
+  struct object obj2 = OINIT;
+  struct object obj3 = OINIT;
+  struct object obj4 = OINIT;
   int m,i,pid, uid;
   int argListc, fdListc;
   char *abc;
@@ -312,6 +315,18 @@ struct object Kextension(struct object obj)
     printObject(obj2,0,fp);
     fclose(fp);
     rob = NullObject;
+  }else if (strcmp(key,"getAttributeList")==0) {
+    if (size != 2) errorKan1("%s\n","[(getAttributeList) ob] extension rob");
+    rob = KgetAttributeList(getoa(obj,1));
+  }else if (strcmp(key,"setAttributeList")==0) {
+    if (size != 3) errorKan1("%s\n","[(setAttributeList) ob attrlist] extension rob");
+    rob = KsetAttributeList(getoa(obj,1), getoa(obj,2));
+  }else if (strcmp(key,"getAttribute")==0) {
+    if (size != 3) errorKan1("%s\n","[(getAttribute) ob key] extension rob");
+    rob = KgetAttribute(getoa(obj,1),getoa(obj,2));
+  }else if (strcmp(key,"setAttribute")==0) {
+    if (size != 4) errorKan1("%s\n","[(setAttributeList) ob key value] extension rob");
+    rob = KsetAttribute(getoa(obj,1), getoa(obj,2),getoa(obj,3));
   }else if (strcmp(key,"hilbert")==0) {
     if (size != 3) errorKan1("%s\n","[(hilbert) obgb obvlist] extension.");
     rob = hilberto(getoa(obj,1),getoa(obj,2));
@@ -469,7 +484,11 @@ struct object Kextension(struct object obj)
     if (size == 3) obj3 = newObjectArray(0);
     else obj3 = getoa(obj,3);
     rob = oregexec(obj1,obj2,obj3);
-
+  }else if (strcmp(key,"unlink")==0) {
+    if (size != 2) errorKan1("%s\n","[(unlink) filename] extension b");
+    obj1 = getoa(obj,1);
+    if (obj1.tag != Sdollar) errorKan1("%s\n","unlink, the first argument should be a string (filename).");
+    rob = KpoInteger(oxDeleteFile(KopString(obj1)));
   }
 #include "plugin.hh"
 #include "Kclass/tree.hh"
@@ -484,7 +503,7 @@ struct object Kextension(struct object obj)
 
 struct object KregionMatches(struct object sobj, struct object keyArray)
 {
-  struct object rob;
+  struct object rob = OINIT;
   int n,i,j,m,keyn;
   char *s,*key;
   rob = newObjectArray(3);
@@ -518,8 +537,8 @@ struct object KregionMatches(struct object sobj, struc
 }
 
 static struct object oregexec(struct object oregex,struct object ostrArray,struct object oflag) {
-  struct object rob;
-  struct object ob;
+  struct object rob = OINIT;
+  struct object ob = OINIT;
   int n,i,j,m,keyn,cflag,eflag,er;
   char *regex;
   regex_t preg;