version 1.3, 2001/05/04 01:06:24 |
version 1.7, 2005/07/03 11:08:54 |
|
|
/* $OpenXM: OpenXM/src/kan96xx/Kan/list.c,v 1.2 2000/01/16 07:55:39 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kan96xx/Kan/list.c,v 1.6 2005/06/16 05:07:23 takayama Exp $ */ |
/* list.c */ |
/* list.c */ |
#include <stdio.h> |
#include <stdio.h> |
|
#include <stdlib.h> |
#include "datatype.h" |
#include "datatype.h" |
#include "stackm.h" |
#include "stackm.h" |
#include "extern.h" |
#include "extern.h" |
Line 27 struct object *newList(objp) |
|
Line 28 struct object *newList(objp) |
|
/* Warning!! Make a copy of the object. It is important. */ |
/* Warning!! Make a copy of the object. It is important. */ |
*(op->lc.op) = *(objp); |
*(op->lc.op) = *(objp); |
op->rc.op = (struct object *)NULL; |
op->rc.op = (struct object *)NULL; |
|
op->attr = NULL; |
return(op); |
return(op); |
} |
} |
|
|
Line 48 struct object listToArray(objp) |
|
Line 50 struct object listToArray(objp) |
|
/* This function copies only the top level of the list */ |
/* This function copies only the top level of the list */ |
{ |
{ |
int n; |
int n; |
struct object ans; |
struct object ans = OINIT; |
int i; |
int i; |
if (objp->tag != Slist) { |
if (objp->tag != Slist) { |
warningList("use objectListToObjectArray() for object-list."); |
warningList("use objectListToObjectArray() for object-list."); |
Line 136 struct object *cdr(list) |
|
Line 138 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) |
struct object *list1; |
struct object *list1; |
struct object obj2; |
struct object obj2; |
Line 180 static warningList(str) |
|
Line 190 static warningList(str) |
|
fprintf(stderr,"Warning. list.c: %s\n",str); |
fprintf(stderr,"Warning. list.c: %s\n",str); |
} |
} |
|
|
|
struct object KvJoin(struct object listo1,struct object listo2) { |
|
struct object rob = OINIT; |
|
struct object *op1,*op2; |
|
if (listo1.tag == Snull) return listo2; |
|
if (listo2.tag == Snull) return listo1; |
|
if ((listo1.tag == Slist) && (listo2.tag == Slist)) { |
|
op1 = (struct object *)sGC_malloc(sizeof(struct object)); |
|
op2 = (struct object *)sGC_malloc(sizeof(struct object)); |
|
if ((op1 == NULL) || (op2 == NULL)) errorKan1("%s\n","KvJoin, No more memory."); |
|
*op1 = listo1; *op2 = listo2; |
|
rob = *(vJoin(op1,op2)); |
|
return rob; |
|
}else{ |
|
errorKan1("%s\n","KvJoin(Slist,Slist)"); |
|
} |
|
} |
|
struct object Kcar(struct object listo) { |
|
if (listo.tag == Snull) return listo; |
|
if (listo.tag == Slist) { |
|
return car(&listo); |
|
}else{ |
|
errorKan1("%s\n","Kcar(Slist)"); |
|
} |
|
} |
|
struct object Kcdr(struct object listo) { |
|
struct object *op; |
|
struct object rob = OINIT; |
|
if (listo.tag == Snull) return listo; |
|
if (listo.tag == Slist) { |
|
op = cdr(&listo); |
|
if (isNullList(op)) { |
|
rob = NullObject; |
|
}else{ |
|
rob = *op; |
|
} |
|
return rob; |
|
}else{ |
|
errorKan1("%s\n","Kcar(Slist)"); |
|
} |
|
} |
|
struct object KlistToArray(struct object listo) { |
|
if (listo.tag == Snull) { |
|
return newObjectArray(0); |
|
} |
|
if (listo.tag == Slist) { |
|
return listToArray(&listo); |
|
}else{ |
|
errorKan1("%s\n","KlistToArray(Slist)"); |
|
} |
|
} |
|
struct object KarrayToList(struct object ob) { |
|
struct object *op; |
|
if (ob.tag != Sarray) { |
|
errorKan1("%s\n","KarrayToList(Sarray)"); |
|
} |
|
op = arrayToList(ob); |
|
if (isNullList(op)) return NullObject; |
|
return *op; |
|
} |
|
|
/********************** test codes for Stest: ********************/ |
/********************** test codes for Stest: ********************/ |
/* test of objectArrayToObjectList. in Stest: stackmachine.c |
/* test of objectArrayToObjectList. in Stest: stackmachine.c |