Return to tree.hh CVS log

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

Annotation of OpenXM/src/kan96xx/Kan/Kclass/tree.hh, Revision 1.2

1.2     ! takayama    1: /* $OpenXM: OpenXM/src/kan96xx/Kan/Kclass/tree.hh,v 1.1 2003/11/24 23:12:28 takayama Exp $ */
        !             2: else if (strcmp(key,"treeGetDocumentElement") == 0) {
        !             3:   if (size != 2) errorKan1("%s\n","[(treeGetDocumentElement)  treeobj] extension strobj.");
        !             4:   obj1 = getoa(obj,1);
        !             5:   if (obj1.tag != Sclass) {
        !             6:     errorKan1("%s\n","[(treeGetDocumentElement) treeobj] extension strobj.");
        !             7:   }
        !             8:   if (ectag(obj1) != CLASSNAME_tree) {
        !             9:     errorKan1("%s\n","getDocumentElement: the argument must be a tree object.");
        !            10:   }
        !            11:   rob = KtreeGetDocumentElement(obj1);
        !            12: }
        !            13: else if (strcmp(key,"treeGetAttributes") == 0) {
        !            14:   if (size != 2) errorKan1("%s\n","[(treeGetAttributes)  treeobj] extension strobj.");
        !            15:   obj1 = getoa(obj,1);
        !            16:   if (obj1.tag != Sclass) {
        !            17:     errorKan1("%s\n","[(treeGetAttributes) treeobj] extension strobj.");
        !            18:   }
        !            19:   if (ectag(obj1) != CLASSNAME_tree) {
        !            20:     errorKan1("%s\n","getAttributes: the argument must be a tree object.");
        !            21:   }
        !            22:   rob = KtreeGetAttributes(obj1);
        !            23: }
        !            24: else if (strcmp(key,"treeGetChildNodes") == 0) {
        !            25:   if (size != 2) errorKan1("%s\n","[(treeGetChildNodes)  treeobj] extension strobj.");
        !            26:   obj1 = getoa(obj,1);
        !            27:   if (obj1.tag != Sclass) {
        !            28:     errorKan1("%s\n","[(treeGetChildNodes) treeobj] extension strobj.");
        !            29:   }
        !            30:   if (ectag(obj1) != CLASSNAME_tree) {
        !            31:     errorKan1("%s\n","getChildNodes: the argument must be a tree object.");
        !            32:   }
        !            33:   rob = KtreeGetChildNodes(obj1);
        !            34: }
        !            35: else if (strcmp(key,"treeCreateElement") == 0) {
        !            36:   if (size != 2) errorKan1("%s\n","[(treeCreateElement) strobj] extension treeobj.");
        !            37:   obj1 = getoa(obj,1);
        !            38:   if (obj1.tag != Sdollar) {
        !            39:     errorKan1("%s\n","[(treeCreateElement) strobj] extension treeobj.");
        !            40:   }
        !            41:   rob = KtreeCreateElement(obj1);
        !            42: }