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

Return to list.c CVS log

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

version 1.7, 2005/07/03 11:08:54

version 1.8, 2020/10/06 11:33:46

Line 1

/* $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 */

#include <stdio.h>

#include <stdlib.h>

Line 6

#include "stackm.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

struct object *,

Line 160 void printObjectList(op)

printObjectList0(op,1);

}

memberQ(list1,obj2)

int memberQ(list1,obj2)

struct object *list1;

struct object obj2;

/* If obj2 is an member of list1, the functions the position.

Line 177 memberQ(list1,obj2)

}

static errorList(str)

static void errorList(str)

char *str;

{

fprintf(stderr,"list.c: %s\n",str);

exit(10);

}

static warningList(str)

static void warningList(str)

char *str;

{

fprintf(stderr,"Warning. list.c: %s\n",str);