Annotation of OpenXM/src/kan96xx/plugin/cmo.hh, Revision 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>