OpenXM/src/kan96xx/Kan/Kclass/tree.c - diff

Return to tree.c CVS log

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

version 1.5, 2003/12/05 13:51:32

version 1.6, 2003/12/05 23:14:14

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/Kclass/tree.c,v 1.4 2003/11/24 08:16:13 takayama Exp $ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/Kclass/tree.c,v 1.5 2003/12/05 13:51:32 takayama Exp $ */

#include <stdio.h>

#include "../datatype.h"

#include "../stackm.h"

Line 56 int isTreeAdd(struct object ob) {

if (name.tag != Sdollar) {

errorKan1("%s\n","CLASSNAME_tree is broken. Should be string.");

}

if (strcmp(KopString(name),"add") == 0) {

if (strcmp(KopString(name),"plus") == 0) {

}else{

Line 69 struct object addTree(struct object ob1, struct object

struct object ob3,ob4;

struct object attr;

struct object keyValue;

struct object to;

int i;

to = ob2; ob2=ob1; ob1=to; /* Exchange ob1 and ob2 */

if (isTreeAdd(ob1) && !isTreeAdd(ob2)) {

ob1 = KopTree(ob1);

ob3 = getoa(ob1,2);

Line 105 struct object addTree(struct object ob1, struct object

Line 107 struct object addTree(struct object ob1, struct object

}

putoa(keyValue,0,KpoString("arith1"));

putoa(keyValue,0,KpoString("cd"));

putoa(keyValue,1,KpoString("plus"));

putoa(keyValue,1,KpoString("arith1"));

putoa(attr,0,keyValue);

putoa(rob,0,KpoString("add"));

putoa(rob,0,KpoString("plus"));

putoa(rob,1,attr);

putoa(rob,2,aob);

return(KpoTree(rob));