X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=src%2Flanguage%2Fsyntax-string-source.c;h=5f495776d9660ccedf51ddff94875b2e4770f20c;hb=8019f5ebb77a3b010ff63b14ba69d70810b040fb;hp=85478bf7c0ef033264194f7457783adf45166d67;hpb=e6ab905e28e6759c1f475bf47eaca92ee2c49334;p=pspp

diff --git a/src/language/syntax-string-source.c b/src/language/syntax-string-source.c
index 85478bf7c0..5f495776d9 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);
+}