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
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
|
/* $Id: lispreader.h,v 1.2 2005/02/04 13:31:09 gurumeditation Exp $ */
/*
* lispreader.h
*
* Copyright (C) 1998-2000 Mark Probst
* Copyright (C) 2002 Ingo Ruhnke <grumbel@gmx.de>
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
* License as published by the Free Software Foundation; either
* version 2 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Library General Public License for more details.
*
* You should have received a copy of the GNU Library General Public
* License along with this library; if not, write to the
* Free Software Foundation, Inc., 59 Temple Place - Suite 330,
* Boston, MA 02111-1307, USA.
*/
#ifndef __LISPREADER_H__
#define __LISPREADER_H__
#include <stdio.h>
//#include <zlib.h>
#include <string>
#include <vector>
#define LISP_STREAM_FILE 1
#define LISP_STREAM_STRING 2
#define LISP_STREAM_ANY 3
#define LISP_TYPE_INTERNAL -3
#define LISP_TYPE_PARSE_ERROR -2
#define LISP_TYPE_EOF -1
#define LISP_TYPE_NIL 0
#define LISP_TYPE_SYMBOL 1
#define LISP_TYPE_INTEGER 2
#define LISP_TYPE_STRING 3
#define LISP_TYPE_REAL 4
#define LISP_TYPE_CONS 5
#define LISP_TYPE_PATTERN_CONS 6
#define LISP_TYPE_BOOLEAN 7
#define LISP_TYPE_PATTERN_VAR 8
#define LISP_PATTERN_ANY 1
#define LISP_PATTERN_SYMBOL 2
#define LISP_PATTERN_STRING 3
#define LISP_PATTERN_INTEGER 4
#define LISP_PATTERN_REAL 5
#define LISP_PATTERN_BOOLEAN 6
#define LISP_PATTERN_LIST 7
#define LISP_PATTERN_OR 8
typedef struct
{
int type;
union
{
FILE *file;
struct
{
char *buf;
int pos;
}
string;
struct
{
void *data;
int (*next_char) (void *data);
void (*unget_char) (char c, void *data);
}
any;
} v;
}
lisp_stream_t;
typedef struct _lisp_object_t lisp_object_t;
struct _lisp_object_t
{
int type;
union
{
struct
{
struct _lisp_object_t *car;
struct _lisp_object_t *cdr;
}
cons;
char *string;
int integer;
float real;
struct
{
int type;
int index;
struct _lisp_object_t *sub;
}
pattern;
} v;
};
//lisp_stream_t* lisp_stream_init_gzfile (lisp_stream_t *stream, gzFile file);
lisp_stream_t* lisp_stream_init_file (lisp_stream_t *stream, FILE *file);
lisp_stream_t* lisp_stream_init_string (lisp_stream_t *stream, char *buf);
lisp_stream_t* lisp_stream_init_any (lisp_stream_t *stream, void *data,
int (*next_char) (void *data),
void (*unget_char) (char c, void *data));
lisp_object_t* lisp_read (lisp_stream_t *in);
lisp_object_t* lisp_read_from_file(const std::string& filename);
void lisp_free (lisp_object_t *obj);
lisp_object_t* lisp_read_from_string (const char *buf);
int lisp_compile_pattern (lisp_object_t **obj, int *num_subs);
int lisp_match_pattern (lisp_object_t *pattern, lisp_object_t *obj, lisp_object_t **vars, int num_subs);
int lisp_match_string (const char *pattern_string, lisp_object_t *obj, lisp_object_t **vars);
int lisp_type (lisp_object_t *obj);
int lisp_integer (lisp_object_t *obj);
float lisp_real (lisp_object_t *obj);
char* lisp_symbol (lisp_object_t *obj);
char* lisp_string (lisp_object_t *obj);
int lisp_boolean (lisp_object_t *obj);
lisp_object_t* lisp_car (lisp_object_t *obj);
lisp_object_t* lisp_cdr (lisp_object_t *obj);
lisp_object_t* lisp_cxr (lisp_object_t *obj, const char *x);
lisp_object_t* lisp_make_integer (int value);
lisp_object_t* lisp_make_real (float value);
lisp_object_t* lisp_make_symbol (const char *value);
lisp_object_t* lisp_make_string (const char *value);
lisp_object_t* lisp_make_cons (lisp_object_t *car, lisp_object_t *cdr);
lisp_object_t* lisp_make_boolean (int value);
int lisp_list_length (lisp_object_t *obj);
lisp_object_t* lisp_list_nth_cdr (lisp_object_t *obj, int index);
lisp_object_t* lisp_list_nth (lisp_object_t *obj, int index);
void lisp_dump (lisp_object_t *obj, FILE *out);
#define lisp_nil() ((lisp_object_t*)0)
#define lisp_nil_p(obj) (obj == 0)
#define lisp_integer_p(obj) (lisp_type((obj)) == LISP_TYPE_INTEGER)
#define lisp_real_p(obj) (lisp_type((obj)) == LISP_TYPE_REAL)
#define lisp_symbol_p(obj) (lisp_type((obj)) == LISP_TYPE_SYMBOL)
#define lisp_string_p(obj) (lisp_type((obj)) == LISP_TYPE_STRING)
#define lisp_cons_p(obj) (lisp_type((obj)) == LISP_TYPE_CONS)
#define lisp_boolean_p(obj) (lisp_type((obj)) == LISP_TYPE_BOOLEAN)
/** */
class LispReader
{
private:
lisp_object_t* lst;
lisp_object_t* search_for(const char* name);
public:
/** cur == ((pos 1 2 3) (id 12 3 4)...) */
LispReader (lisp_object_t* l);
bool read_int_vector (const char* name, std::vector<int>* vec);
bool read_char_vector (const char* name, std::vector<char>* vec);
bool read_string_vector (const char* name, std::vector<std::string>* vec);
bool read_string (const char* name, std::string* str);
bool read_int (const char* name, int* i);
bool read_float (const char* name, float* f);
bool read_bool (const char* name, bool* b);
bool read_lisp (const char* name, lisp_object_t** b);
};
/** */
class LispWriter
{
private:
std::vector<lisp_object_t*> lisp_objs;
void append (lisp_object_t* obj);
lisp_object_t* make_list3 (lisp_object_t*, lisp_object_t*, lisp_object_t*);
lisp_object_t* make_list2 (lisp_object_t*, lisp_object_t*);
public:
LispWriter (const char* name);
void write_float (const char* name, float f);
void write_int (const char* name, int i);
void write_boolean (const char* name, bool b);
void write_string (const char* name, const char* str);
void write_symbol (const char* name, const char* symname);
void write_lisp_obj(const char* name, lisp_object_t* lst);
/** caller is responible to free the returned lisp_object_t */
lisp_object_t* create_lisp ();
};
#endif
|
