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