compiler main

diff --git a/lib/as3/main.c b/lib/as3/main.c
new file mode 100644 (file)
index 0000000..04f25e9
--- /dev/null
+++ b/lib/as3/main.c
@@ -0,0 +1,108 @@
+/* main.c
+
+   Flash ActionScript 3.0 compiler
+
+   Part of the swftools package.
+
+   Copyright (c) 2008 Matthias Kramm <kramm@quiss.org>
+ 
+   This program is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 2 of the License, or
+   (at your option) any later version.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program; if not, write to the Free Software
+   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA */
+
+#include <stdlib.h>
+#include <stdio.h>
+#include <unistd.h>
+#include <memory.h>
+#include "../rfxswf.h"
+#include "../os.h"
+#include "files.h"
+#include "tokenizer.h"
+#include "parser.tab.h"
+#include "parser.h"
+
+void test_lexer()
+{
+    while(1) {
+        int token = avm2_lex();
+        if(token==T_EOF)
+            break;
+        if(token>=32 && token<256) {
+            printf("'%c'\n", token);
+        } else {
+            printf("%s\n", token2string(avm2_lval));
+        }
+    }
+}
+
+int main(int argn, char*argv[])
+{
+    char*filename = 0;
+    char buf[512];
+    
+    if(argn<=1) {
+        fprintf(stderr, "please supply a filename\n");
+        exit(1);
+    }
+    filename=argv[1];
+    
+    registry_init();
+    
+    add_include_dir(getcwd(buf, 512));
+    char*fullfilename = enter_file(filename, 0);
+
+    FILE*fi = fopen(fullfilename, "rb");
+    if(!fi) {
+        perror(fullfilename);
+        return 1;
+    }
+    initialize_state();
+    avm2_set_in(fi);
+
+    if(argn>2 && !strcmp(argv[2], "-lex")) {
+        test_lexer();
+        return 0;
+    }
+    avm2_parse();
+    void*code = finalize_state();
+
+    SWF swf;
+    memset(&swf, 0, sizeof(swf));
+    swf.fileVersion = 9;
+    swf.frameRate = 0x2500;
+    swf.movieSize.xmin = swf.movieSize.ymin = 0;
+    swf.movieSize.xmax = 1024*20;
+    swf.movieSize.ymax = 768*20;
+    TAG*tag = swf.firstTag = swf_InsertTag(0, ST_DOABC);
+    swf_WriteABC(tag, code);
+
+    if(globalclass) {
+        tag = swf_InsertTag(tag, ST_SYMBOLCLASS);
+        swf_SetU16(tag, 1);
+        swf_SetU16(tag, 0);
+        swf_SetString(tag, globalclass);
+    } else {
+        printf("Warning: no global public MovieClip subclass\n");
+    }
+
+    tag = swf_InsertTag(tag, ST_SHOWFRAME);
+    tag = swf_InsertTag(tag, ST_END);
+
+    swf_FreeABC(code);
+
+    int f = open("abc.swf",O_RDWR|O_CREAT|O_TRUNC|O_BINARY,0644);
+    swf_WriteSWF(f,&swf);
+    close(f);
+
+    return 0;
+}