===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/ext.c,v
retrieving revision 1.48
retrieving revision 1.50
diff -u -p -r1.48 -r1.50
--- OpenXM/src/kan96xx/Kan/ext.c	2016/03/31 05:27:34	1.48
+++ OpenXM/src/kan96xx/Kan/ext.c	2020/10/06 11:33:46	1.50
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM/src/kan96xx/Kan/ext.c,v 1.47 2016/03/31 03:22:54 takayama Exp $ */
+/* $OpenXM: OpenXM/src/kan96xx/Kan/ext.c,v 1.49 2018/09/07 00:09:32 takayama Exp $ */
 #include <stdio.h>
 #include <string.h>
 #include <sys/types.h>
@@ -22,6 +22,8 @@
 #include "ox_pathfinder.h"
 #include "mysig.h"
 
+void cmoDumpCmo(struct object ob); /* defined in ../plugin/cmo0.h */
+
 extern int Quiet;
 extern char **environ;
 extern char *MsgSourceTrace;
@@ -124,7 +126,7 @@ struct object Kextension(struct object obj)
   char **argv;
   FILE *fp;
   void (*oldsig)();
-  extern SecureMode;
+  extern int SecureMode;
   extern char *UD_str;
   extern int UD_attr;
 
@@ -524,6 +526,11 @@ struct object Kextension(struct object obj)
     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)));
+  }else if (strcmp(key,"quiet")==0) {
+    obj1 = getoa(obj,1);
+    if (obj1.tag != Sinteger) errorKan1("%s\n","quiet, the first argument should be an integer.");
+    Quiet = KopInteger(obj1);
+    rob = obj1;
   }
 #include "plugin.hh"
 #include "Kclass/tree.hh"