Return to sm1Socket.hh CVS log

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

Annotation of OpenXM/src/kan96xx/plugin/sm1Socket.hh, Revision 1.3

1.3     ! takayama    1: /* $OpenXM: OpenXM/src/kan96xx/plugin/sm1Socket.hh,v 1.2 2000/01/16 07:55:48 takayama Exp $ */
1.1       maekawa     2:   else if (strcmp(key,"sm1.socket") == 0) {
                      3:     if (size != 3)  {
                      4:       errorKan1("%s\n","[(sm1.socket) (key for sm1.socket) [ args ]] extension");
                      5:     }
1.3     ! takayama    6:        if (SecureMode) errorKan1("%s\n","Security violation for sm1.socket.");
1.1       maekawa     7:     obj1 = getoa(obj,1);
                      8:     obj2 = getoa(obj,2);
                      9:     if (obj1.tag != Sdollar) {
                     10:       errorKan1("%s\n","[(sm1.socket) (key for sm1.socket) [ args ]] extension : the second argument must be a keyword.");
                     11:     }
                     12:     if (obj2.tag != Sarray) {
                     13:       errorKan1("%s\n","[(sm1.socket) (key for sm1.socket) [ args ]] extension : the third argument must be an array of argument.");
                     14:     }
                     15:     rob = Kplugin_sm1Socket(KopString(obj1),obj2);
                     16:   }
                     17: