X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fsyntax-string-source.c;h=5f495776d9660ccedf51ddff94875b2e4770f20c;hb=9491a8bd354152d3a228e1bf041c7ad6228750d7;hp=85478bf7c0ef033264194f7457783adf45166d67;hpb=ece16c8d0b27fc6c970f6d491b9a3e8a958fde82;p=pspp-builds.git

diff --git a/src/language/syntax-string-source.c b/src/language/syntax-string-source.c
index 85478bf7..5f495776 100644
--- a/src/language/syntax-string-source.c
+++ b/src/language/syntax-string-source.c
@@ -123,3 +123,11 @@ create_syntax_string_source (const char *format, ...)
 
   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);
+}