version 1.7, 2005/07/03 11:08:54 |
version 1.8, 2020/10/06 11:33:46 |
|
|
/* $OpenXM: OpenXM/src/kan96xx/Kan/list.c,v 1.6 2005/06/16 05:07:23 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kan96xx/Kan/list.c,v 1.7 2005/07/03 11:08:54 ohara Exp $ */ |
/* list.c */ |
/* list.c */ |
#include <stdio.h> |
#include <stdio.h> |
#include <stdlib.h> |
#include <stdlib.h> |
|
|
#include "stackm.h" |
#include "stackm.h" |
#include "extern.h" |
#include "extern.h" |
|
|
static errorList(char *s); |
static void errorList(char *s); |
static warningList(char *s); |
static void warningList(char *s); |
|
|
/* The basic data structure for list is |
/* The basic data structure for list is |
struct object *, |
struct object *, |
Line 160 void printObjectList(op) |
|
Line 160 void printObjectList(op) |
|
printObjectList0(op,1); |
printObjectList0(op,1); |
} |
} |
|
|
memberQ(list1,obj2) |
int memberQ(list1,obj2) |
struct object *list1; |
struct object *list1; |
struct object obj2; |
struct object obj2; |
/* If obj2 is an member of list1, the functions the position. |
/* If obj2 is an member of list1, the functions the position. |
Line 177 memberQ(list1,obj2) |
|
Line 177 memberQ(list1,obj2) |
|
return(0); |
return(0); |
} |
} |
|
|
static errorList(str) |
static void errorList(str) |
char *str; |
char *str; |
{ |
{ |
fprintf(stderr,"list.c: %s\n",str); |
fprintf(stderr,"list.c: %s\n",str); |
exit(10); |
exit(10); |
} |
} |
|
|
static warningList(str) |
static void warningList(str) |
char *str; |
char *str; |
{ |
{ |
fprintf(stderr,"Warning. list.c: %s\n",str); |
fprintf(stderr,"Warning. list.c: %s\n",str); |