Add C/Bison/Lex ct parser

[~andy/ct] / parse.y

diff --git a/parse.y b/parse.y
new file mode 100644 (file)
index 0000000..11eb57c
--- /dev/null
+++ b/parse.y
@@ -0,0 +1,49 @@
+%{
+#define YYSTYPE char *
+#include <stdio.h>
+#include <glib.h>
+extern FILE *yyin;
+int yylex(void);
+void yyerror(gpointer node, char const *s);
+static GList *code = NULL;
+static GList *data = NULL;
+%}
+%error-verbose
+%parse-param {gpointer root};
+%token START END DATA OUT
+%%
+
+input : all | all input ;
+
+all   : data | code | print ;
+
+data  : DATA {
+       static int i = 0;
+       data = g_list_prepend(data, g_strdup_printf(
+               "static char data%d[] = \"%s\\n\";\n",
+               i, g_strescape($1, "")));
+       code = g_list_prepend(code, g_strdup_printf(
+               "fwrite(data%d, sizeof(data%d)-1, 1, stdout);\n",
+               i, i));
+       i++;
+};
+
+code  : START DATA END {
+       code = g_list_prepend(code, g_strdup_printf("%s\n", $2));
+};
+
+print : START OUT DATA END {
+       code = g_list_prepend(code, g_strdup_printf("printf(%s);\n", $3));
+};
+
+%%
+gpointer parse(FILE *input, GList **_data, GList **_code) {
+       yyin = input;
+       yyparse(NULL);
+       *_data = data;
+       *_code = code;
+       return NULL;
+}
+void yyerror(gpointer root, char const *s) {
+       g_error("[%s]\n", s);
+}