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: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>