| version 1.4, 2004/09/09 11:42:22 |
version 1.5, 2004/09/11 01:00:42 |
|
|
| /* $OpenXM: OpenXM/src/kan96xx/Kan/list.c,v 1.3 2001/05/04 01:06:24 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kan96xx/Kan/list.c,v 1.4 2004/09/09 11:42:22 takayama Exp $ */ |
| /* list.c */ |
/* list.c */ |
| #include <stdio.h> |
#include <stdio.h> |
| #include "datatype.h" |
#include "datatype.h" |
| Line 136 struct object *cdr(list) |
|
| Line 136 struct object *cdr(list) |
|
| } |
} |
| |
|
| |
|
| void printObjectList(op) |
static void printObjectList0(op,br) |
| struct object *op; |
struct object *op; int br; |
| { |
{ |
| if (op == NULL) return; |
if (op == NULL) return; |
| if (isNullList(op)) return; |
if (isNullList(op)) return; |
| if (op->tag == Slist) { |
if (op->tag == Slist) { |
| printObjectList(op->lc.op); |
if (br) printf("<"); |
| |
printObjectList0(op->lc.op,1); |
| printf(", "); |
printf(", "); |
| printObjectList(op->rc.op); |
printObjectList0(op->rc.op,0); |
| |
if (br) printf(">"); |
| }else { |
}else { |
| printObject(*op,0,stdout); |
printObject(*op,0,stdout); |
| } |
} |
| |
} |
| |
|
| |
void printObjectList(op) |
| |
struct object *op; |
| |
{ |
| |
printObjectList0(op,1); |
| } |
} |
| |
|
| memberQ(list1,obj2) |
memberQ(list1,obj2) |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to list.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / kan96xx / Kan