===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/primitive.c,v
retrieving revision 1.1
retrieving revision 1.3
diff -u -p -r1.1 -r1.3
--- OpenXM/src/kan96xx/Kan/primitive.c	1999/10/08 02:12:02	1.1
+++ OpenXM/src/kan96xx/Kan/primitive.c	2000/02/24 12:33:47	1.3
@@ -1,3 +1,4 @@
+/* $OpenXM: OpenXM/src/kan96xx/Kan/primitive.c,v 1.2 1999/11/07 13:24:19 takayama Exp $ */
 /*   primitive.c */
 /*  The functions in this module were in stackmachine.c */
 
@@ -299,8 +300,9 @@ FILE *fp;
 {
   int size;
   int i;
+  extern char *LeftBracket, *RightBracket;
   size = ob.lc.ival;
-  fprintf(fp,"[  ");
+  fprintf(fp,"%s  ",LeftBracket);
   for (i=0; i<size; i++) {
     if (PrintComma && (i != 0)) {
       fprintf(fp," , ");
@@ -309,7 +311,7 @@ FILE *fp;
     }
     printObject((ob.rc.op)[i],0,fp);
   }
-  fprintf(fp," ] ");
+  fprintf(fp," %s ",RightBracket);
   if (nl) fprintf(fp,"\n");
 }
 
@@ -431,6 +433,7 @@ struct object ob;
   extern int History;
   extern struct ring *CurrentRingp;
   extern TimerOn;
+  extern SecureMode;
 
   if (DebugStack >= 2) {
     fprintf(Fstack,"In execute %d\n",ob.lc.ival); printOperandStack();
@@ -1047,6 +1050,7 @@ struct object ob;
               /* ob2       ob1  */
     ob1 = Kpop();
     ob2 = Kpop();
+	if (SecureMode) errorStackmachine("Security violation: you cannot open a file.");
     switch(ob1.tag) {
     case Sdollar: break;
     default: errorStackmachine("Usage:file");
@@ -1179,6 +1183,7 @@ struct object ob;
     case Sstring: break;
     default: errorStackmachine("Usage:system");
     }
+	if (SecureMode) errorStackmachine("Security violation.");
     system( ob1.lc.str );
     break;