1 /* PSPP - a program for statistical analysis.
2 Copyright (C) 1997-9, 2000, 2006, 2009 Free Software Foundation, Inc.
4 This program is free software: you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation, either version 3 of the License, or
7 (at your option) any later version.
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
14 You should have received a copy of the GNU General Public License
15 along with this program. If not, see <http://www.gnu.org/licenses/>. */
23 #include <libpspp/str.h>
24 #include <libpspp/ll.h>
25 #include <libpspp/version.h>
31 struct getl_source *included_from; /* File that this is nested inside. */
32 struct getl_source *includes; /* File nested inside this file. */
34 struct ll ll; /* Element in the sources list */
36 struct getl_interface *interface;
37 enum syntax_mode syntax_mode;
38 enum error_mode error_mode;
43 struct ll_list sources ; /* List of source files. */
45 struct string the_include_path;
49 getl_include_path (const struct source_stream *ss)
51 return ds_cstr (&ss->the_include_path);
54 static struct getl_source *
55 current_source (const struct source_stream *ss)
57 const struct ll *ll = ll_head (&ss->sources);
58 return ll_data (ll, struct getl_source, ll );
62 source_stream_current_syntax_mode (const struct source_stream *ss)
64 struct getl_source *cs = current_source (ss);
66 return cs->syntax_mode;
72 source_stream_current_error_mode (const struct source_stream *ss)
74 struct getl_source *cs = current_source (ss);
76 return cs->error_mode;
81 /* Initialize getl. */
82 struct source_stream *
83 create_source_stream (const char *initial_include_path)
85 struct source_stream *ss = xzalloc (sizeof (*ss));
86 ll_init (&ss->sources);
88 ds_init_cstr (&ss->the_include_path,
89 fn_getenv_default ("STAT_INCLUDE_PATH", include_path));
91 ds_init_cstr (&ss->the_include_path, initial_include_path);
96 /* Delete everything from the include path. */
98 getl_clear_include_path (struct source_stream *ss)
100 ds_clear (&ss->the_include_path);
103 /* Add to the include path. */
105 getl_add_include_dir (struct source_stream *ss, const char *path)
107 if (ds_length (&ss->the_include_path))
108 ds_put_char (&ss->the_include_path, ':');
110 ds_put_cstr (&ss->the_include_path, path);
113 /* Appends source S to the list of source files. */
115 getl_append_source (struct source_stream *ss,
116 struct getl_interface *i,
117 enum syntax_mode syntax_mode,
118 enum error_mode err_mode)
120 struct getl_source *s = xzalloc (sizeof ( struct getl_source ));
123 s->syntax_mode = syntax_mode;
124 s->error_mode = err_mode;
126 ll_push_tail (&ss->sources, &s->ll);
129 /* Nests source S within the current source file. */
131 getl_include_source (struct source_stream *ss,
132 struct getl_interface *i,
133 enum syntax_mode syntax_mode,
134 enum error_mode err_mode)
136 struct getl_source *current = current_source (ss);
137 struct getl_source *s = xzalloc (sizeof ( struct getl_source ));
141 s->included_from = current ;
143 s->syntax_mode = syntax_mode;
144 s->error_mode = err_mode;
145 current->includes = s;
147 ll_push_head (&ss->sources, &s->ll);
150 /* Closes the current source, and move the current source to the
151 next file in the chain. */
153 close_source (struct source_stream *ss)
155 struct getl_source *s = current_source (ss);
157 if ( s->interface->close )
158 s->interface->close (s->interface);
160 ll_pop_head (&ss->sources);
162 if (s->included_from != NULL)
163 current_source (ss)->includes = NULL;
168 /* Closes all sources until an interactive source is
171 getl_abort_noninteractive (struct source_stream *ss)
173 while ( ! ll_is_empty (&ss->sources))
175 const struct getl_source *s = current_source (ss);
177 if ( !s->interface->interactive (s->interface) )
182 /* Returns true if the current source is interactive,
185 getl_is_interactive (const struct source_stream *ss)
187 const struct getl_source *s = current_source (ss);
189 if (ll_is_empty (&ss->sources) )
192 return s->interface->interactive (s->interface);
195 /* Returns the name of the current source, or NULL if there is no
198 getl_source_name (const struct source_stream *ss)
200 const struct getl_source *s = current_source (ss);
202 if ( ll_is_empty (&ss->sources) )
205 if ( ! s->interface->name )
208 return s->interface->name (s->interface);
211 /* Returns the location within the current source, or -1 if there is
214 getl_source_location (const struct source_stream *ss)
216 const struct getl_source *s = current_source (ss);
218 if ( ll_is_empty (&ss->sources) )
221 if ( !s->interface->location )
224 return s->interface->location (s->interface);
230 destroy_source_stream (struct source_stream *ss)
232 while ( !ll_is_empty (&ss->sources))
234 ds_destroy (&ss->the_include_path);
240 /* Reads a single line into LINE.
241 Returns true when a line has been read, false at end of input.
244 getl_read_line (struct source_stream *ss, struct string *line)
247 while (!ll_is_empty (&ss->sources))
249 struct getl_source *s = current_source (ss);
252 if (s->interface->read (s->interface, line))
256 if (s->interface->filter)
257 s->interface->filter (s->interface, line);
258 s = s->included_from;