Annotation of OpenXM/src/kan96xx/plugin/oxx.hh, Revision 1.11
1.11 ! takayama 1: /*$OpenXM: OpenXM/src/kan96xx/plugin/oxx.hh,v 1.10 2004/09/17 08:46:10 takayama Exp $*/
1.1 maekawa 2: else if (strcmp(key,"oxCreateClient") == 0) {
1.10 takayama 3: if (size < 4) errorKan1("%s\n","[(oxCreateClient) ip dataport controlport (optional pass)] extension client.");
1.3 takayama 4: if (SecureMode) errorKan1("%s\n","Security violation for oxCreateClient.");
1.10 takayama 5: if (size == 4) {
1.11 ! takayama 6: rob = KoxCreateClient(getoa(obj,1),getoa(obj,2),getoa(obj,3),NullObject);
1.10 takayama 7: }else if (size == 5) {
8: rob = KoxCreateClient(getoa(obj,1),getoa(obj,2),getoa(obj,3),getoa(obj,4));
9: }
1.1 maekawa 10: }
11: else if (strcmp(key,"oxCreateClientFile") == 0) {
12: if (size != 3) errorKan1("%s\n","[(oxCreateClientFile) fname mode] extension client.");
1.3 takayama 13: if (SecureMode) errorKan1("%s\n","Security violation for oxCreateClientFile.");
1.11 ! takayama 14: rob = KoxCreateClient(getoa(obj,1),getoa(obj,2),getoa(obj,2),NullObject);
1.1 maekawa 15: /* dummy */
16: }
17: else if (strcmp(key,"oxReq") == 0) {
18: if (size == 4) {
19: lockCtrlCForOx();
20: rob = KoxReq(getoa(obj,1),getoa(obj,2),getoa(obj,3));
21: unlockCtrlCForOx();
22: }else if (size == 3) {
23: lockCtrlCForOx();
24: rob = KoxReq(getoa(obj,1),getoa(obj,2),rob); /* rob is a dummy. */
25: unlockCtrlCForOx();
26: }else {
27: errorKan1("%s\n","[(oxReq) client func arg] extension result.");
28: }
29: }
30: else if (strcmp(key,"oxGet") == 0) {
31: if (size != 2) errorKan1("%s\n","[(oxGet) client] extension obj.");
32: lockCtrlCForOx();
33: obj1 = getoa(obj,1);
34: rob = KoxGet(obj1); /* Note that lock and unlock are also temporary done in
35: oxGetHeader(). */
36: unlockCtrlCForOx();
37: }
38: else if (strcmp(key,"oxGetFromControl") == 0) {
39: if (size != 2) errorKan1("%s\n","[(oxGetFromControl) client] extension obj.");
40: obj1 = getoa(obj,1);
41: rob = KoxGetFromControl(obj1);
42: }
43: else if (strcmp(key,"oxMultiSelect") == 0) {
44: if (size != 3) errorKan1("%s\n","[(oxMultiSelect) client t] extension obj.");
45: rob = KoxMultiSelect(getoa(obj,1),getoa(obj,2));
46: }
47: else if (strcmp(key,"oxWatch") == 0) {
1.2 takayama 48: if (size > 2) errorKan1("%s\n","[(oxWatch) client] extension obj");
49: if (size == 2) {
50: rob = KoxWatch(getoa(obj,1),rob); /* rob is dummy for now. */
51: }else {
52: rob = KoxWatch(KpoInteger(1),rob);
53: }
1.9 takayama 54: }
55: else if (strcmp(key,"oxLog") == 0) {
56: if (size != 4) errorKan1("%s\n","[(oxLog) client file_in file_out] extension obj");
57: rob = KoxLog(getoa(obj,1),getoa(obj,2),getoa(obj,3));
58: }
59: else if (strcmp(key,"oxLogStop") == 0) {
60: if (size != 2) errorKan1("%s\n","[(oxLogStop) client] extension obj ");
61: rob = KoxLogStop(getoa(obj,1));
1.1 maekawa 62: }
63: else if (strcmp(key,"oxCloseClient") == 0) {
64: if (size != 2) errorKan1("%s\n","[(oxCloseClient) client] extension obj");
65: rob = KoxCloseClient(getoa(obj,1));
66: }
67: else if (strcmp(key,"oxSerial") == 0) {
68: if (size != 1) errorKan1("%s\n","[(oxSerial)] extension obj");
69: rob = KpoInteger(SerialOX);
70: }
71: else if (strcmp(key,"oxGenPortFile") == 0) {
72: if (size != 1) errorKan1("%s\n","[(oxGenPortFile)] extension obj");
73: rob = KoxGenPortFile();
74: }
75: else if (strcmp(key,"oxRemovePortFile") == 0) {
76: if (size != 1) errorKan1("%s\n","[(oxRemovePortFile)] extension obj");
77: KoxRemovePortFile();
78: }
79: else if (strcmp(key,"oxGenPass") == 0) {
80: if (size != 1) errorKan1("%s\n","[(oxGenPass)] extension obj");
81: rob = KoxGenPass();
82: }
83: else if (strcmp(key,"oxGetPort") == 0) {
84: if (size != 2) errorKan1("%s\n","[(oxGetPort) host] extension obj");
1.6 takayama 85: if (SecureMode) errorKan1("%s\n","Security violation for oxGetPort.");
86: rob = KoxGetPort(getoa(obj,1));
87: }
88: else if (strcmp(key,"oxGetPort1") == 0) {
89: if (size != 2) errorKan1("%s\n","[(oxGetPort1) host] extension obj");
1.3 takayama 90: if (SecureMode) errorKan1("%s\n","Security violation for oxGetPort.");
1.7 takayama 91: rob = KoxGetPort1(getoa(obj,1));
1.1 maekawa 92: }
93: else if (strcmp(key,"oxCreateClient2") == 0) {
94: if (size != 4) errorKan1("%s\n","[(oxCreateClient2) peer ipmask pass] extension client.");
1.3 takayama 95: if (SecureMode) errorKan1("%s\n","Security violation for oxCreateClient2.");
1.1 maekawa 96: rob = KoxCreateClient2(getoa(obj,1),getoa(obj,2),getoa(obj,3));
97: }
98: else if (strcmp(key,"oxPrintMessage") == 0) {
99: if (size == 1) {
100: rob = KpoInteger(OXprintMessage);
101: }else{
102: if (size != 2) errorKan1("%s\n","[(oxPrintMessge) level] extension obj");
103: obj1 = getoa(obj,1);
104: if (obj1.tag != Sinteger)
105: errorKan1("%s\n","[(oxPrintMessge) level] extension obj, integer level");
106: OXprintMessage = KopInteger(obj1);
107: rob = KpoInteger(OXprintMessage);
108: }
109: }
110: else if (strcmp(key,"oxPrintMessage") == 0) {
111: if (size == 1) {
112: rob = KpoInteger(OXprintMessage);
113: }else{
114: if (size != 2) errorKan1("%s\n","[(oxPrintMessge) level] extension obj");
115: obj1 = getoa(obj,1);
116: if (obj1.tag != Sinteger)
117: errorKan1("%s\n","[(oxPrintMessge) level] extension obj, integer level");
118: OXprintMessage = KopInteger(obj1);
119: rob = KpoInteger(OXprintMessage);
1.4 takayama 120: }
121: }
122: else if (strcmp(key,"oxPushCMD") == 0) {
123: if (size == 3) {
124: lockCtrlCForOx();
125: rob = KoxPushCMD(getoa(obj,1),getoa(obj,2));
126: unlockCtrlCForOx();
127: }else {
128: errorKan1("%s\n","[(oxPushCMD) client SM_id] extension result.");
129: }
130: }
131: else if (strcmp(key,"oxPushCMO") == 0) {
132: if (size == 3) {
133: lockCtrlCForOx();
134: rob = KoxPushCMO(getoa(obj,1),getoa(obj,2));
135: unlockCtrlCForOx();
136: }else {
137: errorKan1("%s\n","[(oxPushCMO) client obj] extension result.");
1.1 maekawa 138: }
1.5 takayama 139: }
140: else if (strcmp(key,"oxCreateControl_RFC_101") == 0) {
141: if (size != 4) errorKan1("%s\n","[(oxCreateControl_RFC_101) peer ipmask pass] extension client.");
142: if (SecureMode) errorKan1("%s\n","Security violation for oxCreateControl_RFC_101.");
143: rob = KoxCreateControl_RFC_101(getoa(obj,1),getoa(obj,2),getoa(obj,3));
1.7 takayama 144: }
145: else if (strcmp(key,"oxCreateEngine_RFC_101") == 0) {
146: if (size != 5) errorKan1("%s\n","[(oxCreateEngine_RFC_101) peer ipmask pass engineID] extension client.");
147: if (SecureMode) errorKan1("%s\n","Security violation for oxCreateEngine_RFC_101.");
148: rob = KoxCreateEngine_RFC_101(getoa(obj,1),getoa(obj,2),getoa(obj,3),getoa(obj,4));
1.1 maekawa 149: }
1.8 takayama 150: else if (strcmp(key,"oxGetClientList") == 0) {
151: if (size != 1) errorKan1("%s\n","[(oxClientList)] extension list_of_clients.");
152: rob = KoxGetClientList();
153: }
1.1 maekawa 154:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>