From 7d3a45468b07356d6ca2863b59163b165a83a0f0 Mon Sep 17 00:00:00 2001
From: Tavian Barnes <tavianator@gmail.com>
Date: Tue, 9 Feb 2010 21:03:10 -0500
Subject: Get rid of fmemopen() hack.

---
 dimension/grammar.epilogue | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

(limited to 'dimension/grammar.epilogue')

diff --git a/dimension/grammar.epilogue b/dimension/grammar.epilogue
index e8760c7..ecb910a 100644
--- a/dimension/grammar.epilogue
+++ b/dimension/grammar.epilogue
@@ -47,6 +47,36 @@ dmnsn_parse(FILE *file, dmnsn_symbol_table *symtable)
   return astree;
 }
 
+dmnsn_astree *
+dmnsn_parse_string(const char *str, dmnsn_symbol_table *symtable)
+{
+  const char *filename;
+  dmnsn_astnode *fnode = dmnsn_find_symbol(symtable, "__file__");
+  if (fnode && fnode->type == DMNSN_AST_STRING) {
+    filename = fnode->ptr;
+  } else {
+    filename = "<string>";
+    dmnsn_declare_symbol(symtable, "__file__", dmnsn_new_ast_string(filename));
+  }
+
+  void *scanner;
+  dmnsn_astree *astree = dmnsn_new_array(sizeof(dmnsn_astnode));
+
+  dmnsn_yylex_init(&scanner);
+  dmnsn_yyset_extra(NULL, scanner);
+
+  void *buffer = dmnsn_yy_make_string_buffer(str, scanner);
+  dmnsn_yy_push_buffer(buffer, scanner);
+
+  if (yyparse(filename, scanner, astree, symtable) != 0) {
+    dmnsn_delete_astree(astree);
+    astree = NULL;
+  }
+
+  dmnsn_yylex_destroy(scanner);
+  return astree;
+}
+
 const char *
 dmnsn_token_string(dmnsn_token_type token_type)
 {
-- 
cgit v1.2.3