OpenXM/src/kan96xx/plugin/cmo.hh - view

Return to cmo.hh CVS log

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

File: [local] / OpenXM / src / kan96xx / plugin / cmo.hh (download)

Revision 1.2, Sun Jan 16 07:55:46 2000 UTC (24 years, 4 months ago) by takayama
Branch: MAIN
CVS Tags: maekawa-ipv6, R_1_3_1-2, RELEASE_20000124, RELEASE_1_3_1_13b, RELEASE_1_2_3_12, RELEASE_1_2_3, RELEASE_1_2_2_KNOPPIX_b, RELEASE_1_2_2_KNOPPIX, RELEASE_1_2_2, RELEASE_1_2_1, RELEASE_1_1_3, RELEASE_1_1_2, KNOPPIX_2006, HEAD, DEB_REL_1_2_3-9
Changes since 1.1: +1 -0 lines

Congratulation of sm1 version 3.* !

/* $OpenXM: OpenXM/src/kan96xx/plugin/cmo.hh,v 1.2 2000/01/16 07:55:46 takayama Exp $ */
else if (strcmp(key,"cmoObjectToCmo") == 0) {
  if (size != 2) errorKan1("%s\n","[(cmoObjectToCmo)  obj] extension cmo-obj.");
  obj1 = getoa(obj,1);
  rob = cmoObjectToCmo(obj1);
}
else if (strcmp(key,"cmoDumpCmo") == 0) {
  if (size != 2) errorKan1("%s\n","[(cmoDumpCmo) cmo-obj] extension 0.");
  cmoDumpCmo(getoa(obj,1));
  rob = KpoInteger(0);
}
else if (strcmp(key,"cmoCmoToObject") == 0) {
  if (size != 2) errorKan1("%s\n","[(CmoToObject)  cmo-obj] extension obj.");
  obj1 = getoa(obj,1);
  rob = cmoCmoToObject(obj1);
}
else if (strcmp(key,"cmoCmoToStream") == 0) {
  if (size != 3) errorKan1("%s\n","[(cmoCmoToStream)  cmo-obj stream] extension obj.");
  obj1 = getoa(obj,1);
  obj2 = getoa(obj,2);
  cmoToStream(obj1,obj2);
  rob = KpoInteger(0);
}
else if (strcmp(key,"cmoStreamToCmo") == 0) {
  if (size != 2) errorKan1("%s\n","[(cmoStreamToCmo)  stream] extension obj.");
  obj1 = getoa(obj,1);
  rob = streamToCmo(obj1);
}
else if (strcmp(key,"cmoToStream") == 0) {
  if (size != 3) errorKan1("%s\n","[(cmoToStream)  cmo-obj stream] extension obj.");
  obj1 = getoa(obj,1);
  obj2 = getoa(obj,2);
  rob = cmoObjectToStream(obj1,obj2);
}
else if (strcmp(key,"cmoFromStream") == 0) {
  if (size != 2) errorKan1("%s\n","[(cmoFromStream)  stream] extension obj.");
  obj1 = getoa(obj,1);
  rob = cmoObjectFromStream(obj1);
}
else if (strcmp(key,"cmoMathCap") == 0) {
  if (size != 1) errorKan1("%s\n","[(cmoMathCap)] extension obj.");
  rob = KSmathCap();
}
else if (strcmp(key,"cmoDebugCMO") == 0) {
  if (size != 2) errorKan1("%s\n","[(cmoDebugCMO) obj] extension cmo-obj.");
  obj1 = getoa(obj,1);
  if (obj1.tag != Sinteger) errorKan1("%s\n","[(cmoDebugCMO) integer] extension cmo-obj.");
  DebugCMO = KopInteger(obj1);
  rob = KpoInteger(DebugCMO);
}
else if (strcmp(key,"cmoOxSystemVersion") == 0) {
  extern char *OxSystemVersion;
  if (size != 2) errorKan1("%s\n","[(cmoOxSystemVersion)  string] extension obj.");
  obj1 = getoa(obj,1);
  if (obj1.tag != Sdollar) errorKan1("%s\n","OxSystemVersion must be given by a string.");
  OxSystemVersion = KopString(obj1);
  rob = obj1;
}
else if (strcmp(key,"cmoOxSystem") == 0) {
  extern char *OxSystem;
  if (size != 2) errorKan1("%s\n","[(cmoOxSystem)  string] extension obj. Set the OxSystemName for mathcap.");
  obj1 = getoa(obj,1);
  if (obj1.tag != Sdollar) errorKan1("%s\n","OxSystem must be given by a string.");
  OxSystem = KopString(obj1);
  rob = obj1;
}
else if (strcmp(key,"cmoLispLike") == 0) {
  extern int Lisplike;
  if (size != 2) errorKan1("%s\n","[(cmoLispLike)  int] extension obj. Output lisplike expressions for debugging when decoding cmo to an object.");
  obj1 = getoa(obj,1);
  if (obj1.tag != Sinteger) errorKan1("%s\n","Argument must be an integer.");
  Lisplike = KopInteger(obj1);
  rob = obj1;
}