From 2357718357740a870cf57cb50acbc95b34797e8d Mon Sep 17 00:00:00 2001
From: Pixel <pixel@nobis-crew.org>
Date: Fri, 6 Nov 2009 13:38:14 -0800
Subject: Adding script compiler.

---
 compil.lex | 203 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 203 insertions(+)
 create mode 100644 compil.lex

diff --git a/compil.lex b/compil.lex
new file mode 100644
index 0000000..ad24a2c
--- /dev/null
+++ b/compil.lex
@@ -0,0 +1,203 @@
+ #include <string.h>
+    /* In text block */
+%s I
+    /* In port block */
+%s P
+    /* In unknown 1 block */
+%s U1
+    /* In unknown 2 block, arg1 */
+%s U21
+    /* In unknown 2 block, arg2 */
+%s U22
+    /* Script ended */
+%s E
+
+    void putcode(int);
+    void putcode1(int, int);
+    void putcode2(int, int, int);
+    int cmd = 0;
+    int arg1 = 0;
+    int errstate = 0;
+    int got_ptr = 0;
+
+%%
+
+<INITIAL>"<roomscripts>" {
+	fprintf(yyout, "rooms_txts = {\n");
+	BEGIN(I);
+    }
+
+<INITIAL>.*	{
+	fprintf(stderr, "Invalid file, must begin with <roomscripts>\n");
+	errstate = 1;
+    }
+
+<I>"\n\n<ptr n=\""[[:digit:]]+"\" room=\""[^\"]*"\"/>\n"	{
+	int d = atoi(yytext + 10);
+	if (got_ptr) {
+	    fprintf(yyout, "\x5d\x5d },\n");
+	}
+	fprintf(yyout, "    [%i] = { \x5b\x5b", d);
+	got_ptr = 1;
+    }
+
+<I>"\n<new/>\n"	{
+	putcode(1);
+    }
+
+<I>"<rspd/>"	{
+	putcode1(3, 255);
+    }
+
+<I>"<st spd=\""[[:digit:]]+"\"/>"	{
+	int d = atoi(yytext + 9);
+	putcode1(3, d);
+    }
+
+<I>"<st clr=\""[[:digit:]]+"\"/>"	{
+	int d = atoi(yytext + 9);
+	putcode1(4, d);
+    }
+
+<I>"<start/>"	{
+	putcode(5);
+    }
+
+<I>"<rrep/>"	{
+	putcode1(7, 1);
+    }
+
+<I>"<st rep=\""[[:digit:]]+"\"/>"	{
+	int d = atoi(yytext + 9);
+	putcode1(7, d);
+    }
+
+<I>"<rsiz/>"	{
+	putcode1(8, 1);
+    }
+
+<I>"<st siz=\""[[:digit:]]+"\"/>"	{
+	int d = atoi(yytext + 9);
+	putcode1(8, d);
+    }
+
+<I>"<dport/>"	{
+	putcode2(19, 255, 255);
+    }
+
+<I>"<port a1=\""[[:digit:]]+"\" "	{
+	arg1 = atoi(yytext + 10);
+	BEGIN(P);
+    }
+
+<P>"a2=\""[[:digit:]]+"\"/>"	{
+	int d = atoi(yytext + 4);
+	putcode2(19, arg1, d);
+	BEGIN(I);
+    }
+
+<I>"<var n=\""[[:digit:]]+"\"/>"	{
+	int d = atoi(yytext + 8);
+	putcode1(14, d);
+    }
+
+<I>"<uk c=\""[[:digit:]]+"\"/>"	{
+	int d = atoi(yytext + 7);
+	putcode(d);
+    }
+
+<I>"<u1 c=\""[[:digit:]]+"\" "	{
+	cmd = atoi(yytext + 7);
+	BEGIN(U1);
+}
+
+<U1>"a1=\""[[:digit:]]+"\"/>"	{
+	int d = atoi(yytext + 4);
+	putcode1(cmd, d);
+	BEGIN(I);
+}
+
+<I>"<u2 c=\""[[:digit:]]+"\" "	{
+	cmd = atoi(yytext + 7);
+	BEGIN(U21);
+}
+
+<U21>"a1=\""[[:digit:]]+"\" "	{
+	arg1 = atoi(yytext + 4);
+	BEGIN(U22);
+}
+
+<U22>"a2=\""[[:digit:]]+"\"/>"	{
+	int d = atoi(yytext + 4);
+	putcode2(cmd, arg1, d);
+	BEGIN(I);
+}
+
+<I>"\n"	{
+	putcode(0);
+    }
+
+<I>"</roomscripts>\n"	{
+	fprintf(yyout, "\x5d\x5d}\n}\n");
+	BEGIN(E);
+    }
+
+<I>"abcdef<"[^\>\n]*"/>"	{
+	yytext[strlen(yytext) - 2] = 0;
+	fprintf(stderr, "Error: Invalid command: '%s'\n", yytext + 1);
+	errstate = 1;
+    }
+
+<I>.	{
+	fputc(*yytext, yyout);
+    }
+
+.	{
+	fprintf(stderr, "Hu uh, something's wrong...\n");
+    }
+
+%%
+
+int	yywrap(void) {
+    exit(errstate ? -1 : 0);
+}
+
+int	main(int argc, char ** argv) {
+    if ((argc < 2) || (argc > 3)) {
+	fprintf(stderr, "Usage: %s <output> [input]\n", argv[0]);
+	exit(-1);
+    }
+    if (!(yyout = fopen(argv[1], "wb"))) {
+	fprintf(stderr, "Error: can't open file %s\n", argv[1]);
+	exit(-1);
+    }
+    if (argc == 3) {
+	if (!(yyin = fopen(argv[2], "rb"))) {
+	    fprintf(stderr, "Error: can't open file %s\n", argv[2]);
+	    exit(-1);
+	}
+    }
+    fprintf(stderr, "Creating file %s\n", argv[1]);
+    yylex();
+    exit(errstate ? -1 : 0);
+}
+
+void	unputs(char * s) {
+    int l = strlen(s), i;
+    
+    for (i = l - 1; i >= 0; i--) {
+	unput(s[i]);
+    }
+}
+
+void	putcode(int code) {
+    fprintf(yyout, "\x5d\x5d, { %i }, \x5b\x5b", code);
+}
+
+void	putcode1(int code, int arg) {
+    fprintf(yyout, "\x5d\x5d, { %i, %i }, \x5b\x5b", code, arg);
+}
+
+void	putcode2(int code, int arg1, int arg2) {
+    fprintf(yyout, "\x5d\x5d, { %i, %i, %i }, \x5b\x5b", code, arg1, arg2);
+}
-- 
cgit v1.2.3