Return to cmo.hh CVS log

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

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: