Annotation of OpenXM/src/kan96xx/plugin/cmo.hh, Revision 1.2
1.2 ! takayama 1: /* $OpenXM$ */
1.1 maekawa 2: else if (strcmp(key,"cmoObjectToCmo") == 0) {
3: if (size != 2) errorKan1("%s\n","[(cmoObjectToCmo) obj] extension cmo-obj.");
4: obj1 = getoa(obj,1);
5: rob = cmoObjectToCmo(obj1);
6: }
7: else if (strcmp(key,"cmoDumpCmo") == 0) {
8: if (size != 2) errorKan1("%s\n","[(cmoDumpCmo) cmo-obj] extension 0.");
9: cmoDumpCmo(getoa(obj,1));
10: rob = KpoInteger(0);
11: }
12: else if (strcmp(key,"cmoCmoToObject") == 0) {
13: if (size != 2) errorKan1("%s\n","[(CmoToObject) cmo-obj] extension obj.");
14: obj1 = getoa(obj,1);
15: rob = cmoCmoToObject(obj1);
16: }
17: else if (strcmp(key,"cmoCmoToStream") == 0) {
18: if (size != 3) errorKan1("%s\n","[(cmoCmoToStream) cmo-obj stream] extension obj.");
19: obj1 = getoa(obj,1);
20: obj2 = getoa(obj,2);
21: cmoToStream(obj1,obj2);
22: rob = KpoInteger(0);
23: }
24: else if (strcmp(key,"cmoStreamToCmo") == 0) {
25: if (size != 2) errorKan1("%s\n","[(cmoStreamToCmo) stream] extension obj.");
26: obj1 = getoa(obj,1);
27: rob = streamToCmo(obj1);
28: }
29: else if (strcmp(key,"cmoToStream") == 0) {
30: if (size != 3) errorKan1("%s\n","[(cmoToStream) cmo-obj stream] extension obj.");
31: obj1 = getoa(obj,1);
32: obj2 = getoa(obj,2);
33: rob = cmoObjectToStream(obj1,obj2);
34: }
35: else if (strcmp(key,"cmoFromStream") == 0) {
36: if (size != 2) errorKan1("%s\n","[(cmoFromStream) stream] extension obj.");
37: obj1 = getoa(obj,1);
38: rob = cmoObjectFromStream(obj1);
39: }
40: else if (strcmp(key,"cmoMathCap") == 0) {
41: if (size != 1) errorKan1("%s\n","[(cmoMathCap)] extension obj.");
42: rob = KSmathCap();
43: }
44: else if (strcmp(key,"cmoDebugCMO") == 0) {
45: if (size != 2) errorKan1("%s\n","[(cmoDebugCMO) obj] extension cmo-obj.");
46: obj1 = getoa(obj,1);
47: if (obj1.tag != Sinteger) errorKan1("%s\n","[(cmoDebugCMO) integer] extension cmo-obj.");
48: DebugCMO = KopInteger(obj1);
49: rob = KpoInteger(DebugCMO);
50: }
51: else if (strcmp(key,"cmoOxSystemVersion") == 0) {
52: extern char *OxSystemVersion;
53: if (size != 2) errorKan1("%s\n","[(cmoOxSystemVersion) string] extension obj.");
54: obj1 = getoa(obj,1);
55: if (obj1.tag != Sdollar) errorKan1("%s\n","OxSystemVersion must be given by a string.");
56: OxSystemVersion = KopString(obj1);
57: rob = obj1;
58: }
59: else if (strcmp(key,"cmoOxSystem") == 0) {
60: extern char *OxSystem;
61: if (size != 2) errorKan1("%s\n","[(cmoOxSystem) string] extension obj. Set the OxSystemName for mathcap.");
62: obj1 = getoa(obj,1);
63: if (obj1.tag != Sdollar) errorKan1("%s\n","OxSystem must be given by a string.");
64: OxSystem = KopString(obj1);
65: rob = obj1;
66: }
67: else if (strcmp(key,"cmoLispLike") == 0) {
68: extern int Lisplike;
69: if (size != 2) errorKan1("%s\n","[(cmoLispLike) int] extension obj. Output lisplike expressions for debugging when decoding cmo to an object.");
70: obj1 = getoa(obj,1);
71: if (obj1.tag != Sinteger) errorKan1("%s\n","Argument must be an integer.");
72: Lisplike = KopInteger(obj1);
73: rob = obj1;
74: }
75:
76:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>