WIP metatool

meta_src/scanner.l

@@ -0,0 +1,50 @@
+%{
+
+#include <stdio.h>
+
+FILE* outfile1 = NULL;
+FILE* outfile2 = NULL;
+FILE* interface_file = NULL;
+
+%}
+
+%option noyywrap
+%option nounput
+%option noinput
+
+%x LEX_STATE_EXPORT
+%x LEX_STATE_EXPORT_FUNCTION
+
+%%
+
+<INITIAL,LEX_STATE_EXPORT>. fprintf(outfile1, "%s", yytext); fprintf(outfile2, "%s", yytext);
+<INITIAL>\n fprintf(outfile1, "%s", yytext); fprintf(outfile2, "%s", yytext);
+<INITIAL>"$export_split" BEGIN(LEX_STATE_EXPORT);
+
+<LEX_STATE_EXPORT>"function" fprintf(outfile1, "function"); fprintf(outfile2, "function"); fprintf(interface_file, "function"); BEGIN(LEX_STATE_EXPORT_FUNCTION);
+<LEX_STATE_EXPORT_FUNCTION>"{" fprintf(outfile1, "{"); fprintf(outfile2, "{"); fprintf(interface_file, "{return 0;}"); BEGIN(INITIAL);
+<LEX_STATE_EXPORT_FUNCTION>(.|\n) fprintf(outfile1, "%s", yytext); fprintf(outfile2, "%s", yytext); fprintf(interface_file, "%s", yytext);
+<LEX_STATE_EXPORT>\n fprintf(outfile1, "\n"); fprintf(outfile2, "\n"); fprintf(interface_file, "\n"); BEGIN(INITIAL);
+
+%%
+
+int main(int argn, char** argv)
+{
+	if(argn < 4)
+	{
+		printf("Give output file as argument.\n");
+		return 1;
+	}
+
+	outfile1 = fopen(argv[1], "w");
+	outfile2 = fopen(argv[2], "w");
+	interface_file = fopen(argv[3], "w");
+
+	yylex();
+
+	fclose(outfile1);
+	fclose(outfile2);
+	fclose(interface_file);
+
+	return 0;
+}