1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
/************************************************************************
* This program is Copyright (C) 1986-1996 by Jonathan Payne. JOVE is *
* provided to you without charge, and with no warranty. You may give *
* away copies of JOVE, including sources, provided that this notice is *
* included in all the files. *
************************************************************************/
#include "jove.h"
#include "list.h"
private List *
list_new()
{
List *new;
new = (List *) emalloc(sizeof (List));
new->car = NULL;
return new;
}
/* push an object to the beginning of list */
UnivPtr
list_push(list, element)
register List **list;
UnivPtr element;
{
List *new;
new = list_new();
new->cdr = *list;
new->car = element;
*list = new;
return element;
}
UnivPtr
list_pop(list)
List **list;
{
List *cell = *list;
UnivPtr element;
if (cell == NULL)
return NULL;
element = cell->car;
*list = cell->cdr;
free((UnivPtr) cell);
return element;
}
|
