OpenXM/src/kan96xx/Kan/kanExport0.c - diff

Return to kanExport0.c CVS log

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

version 1.43, 2005/06/16 05:07:23

version 1.45, 2005/07/03 11:08:53

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.42 2005/06/09 05:46:57 takayama Exp $ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.44 2005/06/16 06:21:21 takayama Exp $ */

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include "datatype.h"

#include "stackm.h"

#include "extern.h"

Line 3184 struct object KgetAttributeList(struct object ob){

Line 3186 struct object KgetAttributeList(struct object ob){

else rob = NullObject;

return rob;

}

struct object KputAttributeList(struct object ob,struct object attr) {

struct object KsetAttributeList(struct object ob,struct object attr) {

ob.attr = newObject();

*(ob.attr) = attr;

return ob;

Line 3213 struct object KgetAttribute(struct object ob,struct ob

Line 3215 struct object KgetAttribute(struct object ob,struct ob

}

return rob;

}

/* ob (key) (value) putAttribute /ob set. They are not destructive. */

/* ob (key) (value) setAttribute /ob set. They are not destructive. */

struct object KputAttribute(struct object ob,struct object key,struct object value) {

struct object KsetAttribute(struct object ob,struct object key,struct object value) {

struct object rob = OINIT;

struct object alist = OINIT;

int n,i;