OpenXM/src/kan96xx/Kan/Kclass/tree.hh - view

Return to tree.hh CVS log

Up to [local] / OpenXM / src / kan96xx / Kan / Kclass

File: [local] / OpenXM / src / kan96xx / Kan / Kclass / tree.hh (download)

Revision 1.2, Tue Nov 25 11:27:23 2003 UTC (20 years, 6 months ago) by takayama
Branch: MAIN
CVS Tags: R_1_3_1-2, 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, KNOPPIX_2006, HEAD, DEB_REL_1_2_3-9
Changes since 1.1: +42 -1 lines

Added XML DOM like interfaces for cmo trees.

/* $OpenXM: OpenXM/src/kan96xx/Kan/Kclass/tree.hh,v 1.2 2003/11/25 11:27:23 takayama Exp $ */
else if (strcmp(key,"treeGetDocumentElement") == 0) {
  if (size != 2) errorKan1("%s\n","[(treeGetDocumentElement)  treeobj] extension strobj.");
  obj1 = getoa(obj,1);
  if (obj1.tag != Sclass) {
    errorKan1("%s\n","[(treeGetDocumentElement) treeobj] extension strobj.");
  }
  if (ectag(obj1) != CLASSNAME_tree) {
    errorKan1("%s\n","getDocumentElement: the argument must be a tree object.");
  }
  rob = KtreeGetDocumentElement(obj1);
}
else if (strcmp(key,"treeGetAttributes") == 0) {
  if (size != 2) errorKan1("%s\n","[(treeGetAttributes)  treeobj] extension strobj.");
  obj1 = getoa(obj,1);
  if (obj1.tag != Sclass) {
    errorKan1("%s\n","[(treeGetAttributes) treeobj] extension strobj.");
  }
  if (ectag(obj1) != CLASSNAME_tree) {
    errorKan1("%s\n","getAttributes: the argument must be a tree object.");
  }
  rob = KtreeGetAttributes(obj1);
}
else if (strcmp(key,"treeGetChildNodes") == 0) {
  if (size != 2) errorKan1("%s\n","[(treeGetChildNodes)  treeobj] extension strobj.");
  obj1 = getoa(obj,1);
  if (obj1.tag != Sclass) {
    errorKan1("%s\n","[(treeGetChildNodes) treeobj] extension strobj.");
  }
  if (ectag(obj1) != CLASSNAME_tree) {
    errorKan1("%s\n","getChildNodes: the argument must be a tree object.");
  }
  rob = KtreeGetChildNodes(obj1);
}
else if (strcmp(key,"treeCreateElement") == 0) {
  if (size != 2) errorKan1("%s\n","[(treeCreateElement) strobj] extension treeobj.");
  obj1 = getoa(obj,1);
  if (obj1.tag != Sdollar) {
    errorKan1("%s\n","[(treeCreateElement) strobj] extension treeobj.");
  }
  rob = KtreeCreateElement(obj1);
}