=================================================================== RCS file: /home/cvs/OpenXM/src/kan96xx/plugin/file2.hh,v retrieving revision 1.1.1.1 retrieving revision 1.3 diff -u -p -r1.1.1.1 -r1.3 --- OpenXM/src/kan96xx/plugin/file2.hh 1999/10/08 02:12:05 1.1.1.1 +++ OpenXM/src/kan96xx/plugin/file2.hh 2000/02/24 12:33:48 1.3 @@ -1,5 +1,7 @@ +/* $OpenXM: OpenXM/src/kan96xx/plugin/file2.hh,v 1.2 2000/01/16 07:55:47 takayama Exp $ */ else if (strcmp(key,"fp2fdopen") == 0) { if (size != 2) errorKan1("%s\n","[(fp2fdopen) obj] extension obj-fp2."); + if (SecureMode) errorKan1("%s\n","Security violation for fp2fdopen."); obj1 = getoa(obj,1); if (obj1.tag != Sinteger) { errorKan1("%s\n","[(fp2fdopen) file-descriptor-integer] extension obj-fp2."); @@ -71,6 +73,7 @@ else if (strcmp(key,"fp2dumpBuffer") == 0) { } else if (strcmp(key,"fp2openForRead") == 0) { if (size != 2) errorKan1("%s\n","[(fp2openForRead) name] extension c."); + if (SecureMode) errorKan1("%s\n","Security violation for fp2openForRead."); obj1= getoa(obj,1); if (obj1.tag != Sdollar) { errorKan1("%s\n","[(fp2openForRead) name-string] extension c."); @@ -79,6 +82,7 @@ else if (strcmp(key,"fp2openForRead") == 0) { } else if (strcmp(key,"fp2openForWrite") == 0) { if (size != 2) errorKan1("%s\n","[(fp2openForWrite) name] extension c."); + if (SecureMode) errorKan1("%s\n","Security violation for fp2openForWrite."); obj1= getoa(obj,1); if (obj1.tag != Sdollar) { errorKan1("%s\n","[(fp2openForWrite) name-string] extension c.");