Return to cmo.hh CVS log

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

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: