1 /* PSPP - computes sample statistics.
2 Copyright (C) 1997-9, 2000, 2006 Free Software Foundation, Inc.
3 Written by Ben Pfaff <blp@gnu.org>.
5 This program is free software; you can redistribute it and/or
6 modify it under the terms of the GNU General Public License as
7 published by the Free Software Foundation; either version 2 of the
8 License, or (at your option) any later version.
10 This program is distributed in the hope that it will be useful, but
11 WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, write to the Free Software
17 Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
25 #include <libpspp/str.h>
26 #include <libpspp/ll.h>
27 #include <libpspp/version.h>
28 #include <libpspp/alloc.h>
32 struct getl_source *included_from; /* File that this is nested inside. */
33 struct getl_source *includes; /* File nested inside this file. */
35 struct ll ll; /* Element in the sources list */
37 struct getl_interface *interface;
42 struct ll_list sources ; /* List of source files. */
44 struct string the_include_path;
48 getl_include_path (const struct source_stream *ss)
50 return ds_cstr (&ss->the_include_path);
53 static struct getl_source *
54 current_source (const struct source_stream *ss)
56 const struct ll *ll = ll_head (&ss->sources);
57 return ll_data (ll, struct getl_source, ll );
60 /* Initialize getl. */
61 struct source_stream *
62 create_source_stream (const char *initial_include_path)
64 struct source_stream *ss = xzalloc (sizeof (*ss));
65 ll_init (&ss->sources);
67 ds_init_cstr (&ss->the_include_path,
68 fn_getenv_default ("STAT_INCLUDE_PATH", include_path));
70 ds_init_cstr (&ss->the_include_path, initial_include_path);
75 /* Delete everything from the include path. */
77 getl_clear_include_path (struct source_stream *ss)
79 ds_clear (&ss->the_include_path);
82 /* Add to the include path. */
84 getl_add_include_dir (struct source_stream *ss, const char *path)
86 if (ds_length (&ss->the_include_path))
87 ds_put_char (&ss->the_include_path, ':');
89 ds_put_cstr (&ss->the_include_path, path);
92 /* Appends source S to the list of source files. */
94 getl_append_source (struct source_stream *ss, struct getl_interface *i)
96 struct getl_source *s = xzalloc (sizeof ( struct getl_source ));
100 ll_push_head (&ss->sources, &s->ll);
103 /* Nests source S within the current source file. */
105 getl_include_source (struct source_stream *ss, struct getl_interface *i)
107 struct getl_source *current = current_source (ss);
108 struct getl_source *s = xzalloc (sizeof ( struct getl_source ));
112 s->included_from = current ;
114 current->includes = s;
116 ll_push_head (&ss->sources, &s->ll);
119 /* Closes the current source, and move the current source to the
120 next file in the chain. */
122 close_source (struct source_stream *ss)
124 struct getl_source *s = current_source (ss);
126 if ( s->interface->close )
127 s->interface->close (s->interface);
129 ll_pop_head (&ss->sources);
131 if (s->included_from != NULL)
132 current_source (ss)->includes = NULL;
137 /* Closes all sources until an interactive source is
140 getl_abort_noninteractive (struct source_stream *ss)
142 while ( ! ll_is_empty (&ss->sources))
144 const struct getl_source *s = current_source (ss);
146 if ( !s->interface->interactive (s->interface) )
151 /* Returns true if the current source is interactive,
154 getl_is_interactive (const struct source_stream *ss)
156 const struct getl_source *s = current_source (ss);
158 if (ll_is_empty (&ss->sources) )
161 return s->interface->interactive (s->interface);
164 /* Returns the name of the current source, or NULL if there is no
167 getl_source_name (const struct source_stream *ss)
169 const struct getl_source *s = current_source (ss);
171 if ( ll_is_empty (&ss->sources) )
174 if ( ! s->interface->name )
177 return s->interface->name (s->interface);
180 /* Returns the location within the current source, or -1 if there is
183 getl_source_location (const struct source_stream *ss)
185 const struct getl_source *s = current_source (ss);
187 if ( ll_is_empty (&ss->sources) )
190 if ( !s->interface->location )
193 return s->interface->location (s->interface);
199 destroy_source_stream (struct source_stream *ss)
201 while ( !ll_is_empty (&ss->sources))
203 ds_destroy (&ss->the_include_path);
209 /* Reads a single line into LINE.
210 Returns true when a line has been read, false at end of input.
211 On success, sets *SYNTAX to the style of the syntax read. */
213 getl_read_line (struct source_stream *ss, struct string *line,
214 enum getl_syntax *syntax)
216 while (!ll_is_empty (&ss->sources))
218 struct getl_source *s = current_source (ss);
221 if (s->interface->read (s->interface, line, syntax))
225 if (s->interface->filter)
226 s->interface->filter (s->interface, line, *syntax);
227 s = s->included_from;