Return to sm1Socket.hh CVS log

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

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

1.1     ! maekawa     1:   else if (strcmp(key,"sm1.socket") == 0) {
        !             2:     if (size != 3)  {
        !             3:       errorKan1("%s\n","[(sm1.socket) (key for sm1.socket) [ args ]] extension");
        !             4:     }
        !             5:     obj1 = getoa(obj,1);
        !             6:     obj2 = getoa(obj,2);
        !             7:     if (obj1.tag != Sdollar) {
        !             8:       errorKan1("%s\n","[(sm1.socket) (key for sm1.socket) [ args ]] extension : the second argument must be a keyword.");
        !             9:     }
        !            10:     if (obj2.tag != Sarray) {
        !            11:       errorKan1("%s\n","[(sm1.socket) (key for sm1.socket) [ args ]] extension : the third argument must be an array of argument.");
        !            12:     }
        !            13:     rob = Kplugin_sm1Socket(KopString(obj1),obj2);
        !            14:   }
        !            15: