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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
/*
* Copyright 1993, 1995 Christopher Seiwald.
*
* This file is part of Jam - see jam.c for Copyright information.
*/
/* This file is ALSO:
* Copyright 2001-2004 David Abrahams.
* Distributed under the Boost Software License, Version 1.0.
* (See accompanying file LICENSE_1_0.txt or http://www.boost.org/LICENSE_1_0.txt)
*/
/*
* lists.h - the LIST structure and routines to manipulate them
*
* The whole of jam relies on lists of objects as a datatype. This
* module, in conjunction with object.c, handles these relatively
* efficiently.
*
* Structures defined:
*
* LIST - list of OBJECTs
* LOL - list of LISTs
*
* External routines:
*
* list_append() - append a list onto another one, returning total
* list_new() - tack an object onto the end of a list of objects
* list_copy() - copy a whole list of objects
* list_sublist() - copy a subset of a list of objects
* list_free() - free a list of objects
* list_print() - print a list of objects to stdout
* list_length() - return the number of items in the list
*
* lol_init() - initialize a LOL (list of lists)
* lol_add() - append a LIST onto an LOL
* lol_free() - free the LOL and its LISTs
* lol_get() - return one of the LISTs in the LOL
* lol_print() - debug print LISTS separated by ":"
*
* 04/13/94 (seiwald) - added shorthand L0 for null list pointer
* 08/23/94 (seiwald) - new list_append()
*/
#ifndef LISTS_DWA20011022_H
# define LISTS_DWA20011022_H
#include "object.h"
#ifdef HAVE_PYTHON
#include <Python.h>
#endif
/*
* LIST - list of strings
*/
typedef struct _list LIST;
struct _list {
union {
int size;
OBJECT *align;
} impl;
};
typedef OBJECT * * LISTITER;
/*
* LOL - list of LISTs
*/
typedef struct _lol LOL;
# define LOL_MAX 19
struct _lol {
int count;
LIST *list[ LOL_MAX ];
};
LIST * list_new( OBJECT * value );
LIST * list_append( LIST *l, LIST *nl );
LIST * list_copy( LIST *l );
LIST * list_copy_range( LIST *l, LISTITER first, LISTITER last );
void list_free( LIST *head );
LIST * list_push_back( LIST *head, OBJECT *string );
void list_print( LIST *l );
int list_length( LIST *l );
LIST * list_sublist( LIST *l, int start, int count );
LIST * list_pop_front( LIST *l );
LIST * list_sort( LIST *l);
LIST * list_unique( LIST *sorted_list);
int list_in(LIST* l, OBJECT* value);
LIST * list_reverse( LIST * );
int list_cmp( LIST * lhs, LIST * rhs );
int list_is_sublist( LIST * sub, LIST * l );
void list_done();
LISTITER list_begin( LIST * );
LISTITER list_end( LIST * );
# define list_next( it ) ((it) + 1)
# define list_item( it ) (*(it))
# define list_empty( l ) ( (l) == L0 )
# define list_front( l ) list_item( list_begin( l ) )
# define L0 ((LIST *)0)
void lol_add( LOL *lol, LIST *l );
void lol_init( LOL *lol );
void lol_free( LOL *lol );
LIST * lol_get( LOL *lol, int i );
void lol_print( LOL *lol );
void lol_build( LOL* lol, const char** elements );
#ifdef HAVE_PYTHON
PyObject *list_to_python(LIST *l);
LIST *list_from_python(PyObject *l);
#endif
#endif
|