OpenXM/src/kan96xx/plugin/file2.hh - diff

Return to file2.hh CVS log

Up to [local] / OpenXM / src / kan96xx / plugin

version 1.2, 2000/01/16 07:55:47

version 1.3, 2000/02/24 12:33:48

Line 1

/* $OpenXM$ */

/* $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.");

Line 72 else if (strcmp(key,"fp2dumpBuffer") == 0) {

Line 73 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.");

Line 80 else if (strcmp(key,"fp2openForRead") == 0) {

Line 82 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.");