root/as3/E3Engine/E3Test.as

package
{
        import flash.display.*;
        import flash.text.*;
        import e33.*;

        public class E3Test extends Sprite
        {
                private static var theInstance:E3Test;
                private var mTxOut:TextField;

                function E3Test()
                {
                        mTxOut = new TextField();
                        addChild(mTxOut);
                        mTxOut.width = 640;
                        mTxOut.height = 480;
                        mTxOut.textColor = 0xffffff;

                        if (!theInstance)
                                theInstance = this;

                        var src:Array = [
"function putline(){ var a=[]; for(var i = 0;i < 50;i++) a.push('-'); trace(a.join('')); }",
"function fibo(n, a){",
" trace('called fibo('+n+', ['+a.join(',')+'])');",
" if (n == 0) {a.push(0); return;}",
" else if (n == 1) {fibo(n-1, a); a.push(1); return;}",
" fibo(n-1, a);",
" a.push(a[a.length-1] + a[a.length-2]);",
"}",
"function do_test(n){",
" putline();",
" var fibo_nums = [];",
" fibo(n, fibo_nums);",
" putline(); trace('result: '+fibo_nums.join('  '));",
" return 'OK';",
"}"
                        ]

                        puts( src.join("\n") );

                        var lx:Scanner = new Scanner(src.join("\n"));
                        var psr:Parser = new Parser(lx);
                        var bc:Array = psr.parse();
                        var vm:VirtualMachine = new VirtualMachine();
                        vm.setByteCode(bc);

                        vm.getGlobalObject().trace = puts;
                        vm.execute();

                        var rval:Object = vm.invokeScriptFunction("do_test", [10]);
                        puts("retval: " + rval);
                }

                public static function puts(s:*):void
                {
                        if (s == null)
                                theInstance.mTxOut.appendText("(null)\n");
                        else
                                theInstance.mTxOut.appendText(s+"\n");
                }
        }
}