02110-1301, USA. */
+#include <config.h>
+
#include <libpspp/getl.h>
#include <libpspp/alloc.h>
#include <libpspp/compiler.h>
static void
-close (struct getl_interface *i )
+do_close (struct getl_interface *i )
{
struct syntax_string_source *sss = (struct syntax_string_source *) i;
va_end (args);
sss->parent.interactive = always_false;
- sss->parent.close = close;
+ sss->parent.close = do_close;
sss->parent.read = read_single_line;
sss->parent.name = name;
return (struct getl_interface *) sss;
}
+
+/* Return the syntax currently contained in S.
+ Primarily usefull for debugging */
+const char *
+syntax_string_source_get_syntax (const struct syntax_string_source *s)
+{
+ return ds_cstr (&s->buffer);
+}