version 1.1, 1999/10/08 02:12:05 |
version 1.3, 2000/02/24 12:33:48 |
|
|
|
/* $OpenXM: OpenXM/src/kan96xx/plugin/sm1Socket.hh,v 1.2 2000/01/16 07:55:48 takayama Exp $ */ |
else if (strcmp(key,"sm1.socket") == 0) { |
else if (strcmp(key,"sm1.socket") == 0) { |
if (size != 3) { |
if (size != 3) { |
errorKan1("%s\n","[(sm1.socket) (key for sm1.socket) [ args ]] extension"); |
errorKan1("%s\n","[(sm1.socket) (key for sm1.socket) [ args ]] extension"); |
} |
} |
|
if (SecureMode) errorKan1("%s\n","Security violation for sm1.socket."); |
obj1 = getoa(obj,1); |
obj1 = getoa(obj,1); |
obj2 = getoa(obj,2); |
obj2 = getoa(obj,2); |
if (obj1.tag != Sdollar) { |
if (obj1.tag != Sdollar) { |