burn 0.1.3 → 0.2.0

data/lib/burn/generator/telnet/jit_compiler.rb

@@ -0,0 +1,41 @@
+module Burn
+  module Generator
+    module Telnet
+      class JitCompiler
+        include Fuel::Telnet
+        include Debug
+        attr_reader :opcodes
+        
+        def initialize
+          @opcodes = Array.new
+        end
+        
+        def get_context
+          self
+        end
+        
+        def compile(source)
+          instance_eval source
+          @opcodes
+        end
+        
+        def method_missing(method_symbol, *args, &block)
+          log :method_symbol=>method_symbol, :args=>args, :block=>block
+          if method_symbol == :scene then
+            # preprocess
+            args[0] = "main" if args[0].nil?
+            
+            # execute dsls
+            @opcodes << "##{args[0]}"
+            Scene.new(args[0], self).instance_eval(&block)
+            @opcodes << "#END"
+            
+          elsif method_symbol == :declare then
+            Declare.new(args[0], self).instance_eval(&block) 
+            
+          end
+        end
+      end
+    end
+  end
+end

data/lib/burn/generator/telnet/screen.rb

@@ -0,0 +1,86 @@
+module Burn
+  module Generator
+    module Telnet
+      class Screen
+        include Debug
+        ESC = 27.chr # equal to "\033"
+        CLEARSCREEN = ESC + "[2J"
+        JUMPTOHOME = ESC + "[H"
+        RESETALLATTR = ESC + "[0m"
+        CRLF = 13.chr + 10.chr
+        
+        attr_accessor :display, :fg_color, :bg_color, :activated_sprite_objects
+        
+        def initialize(conf)
+          @fg_color = 37
+          @bg_color = 40
+          @activated_sprite_objects = [] # activated sprite objects by #sprite method call during main_loop will be contained
+          @conf = conf
+          flush_screen
+        end
+        
+        def to_terminal
+          #CLEARSCREEN + escape_color(@fg_color) + escape_color(@bg_color) + @display.join("\r\n") + JUMPTOHOME + RESETALLATTR
+          #JUMPTOHOME + RESETALLATTR + CLEARSCREEN + escape_color(@fg_color) + escape_color(@bg_color) + @display.join("\r\n") + ESC + "[#{@conf.app.height};2H" + RESETALLATTR
+          #CLEARSCREEN + escape_color(@fg_color) + escape_color(@bg_color) + @display.join("\r\n") + ESC + "[#{@conf.app.height};2H" + RESETALLATTR
+          #JUMPTOHOME + crlf + crlf + crlf + crlf + crlf + crlf + @display.join(crlf)
+          #JUMPTOHOME + crlf + crlf + crlf + crlf + crlf + crlf + @display.join(crlf) + crlf
+          #JUMPTOHOME + @display.join(CRLF) + CRLF
+          
+          JUMPTOHOME +  escape_color(@fg_color) + escape_color(@bg_color) + ppu_emulate + CRLF + RESETALLATTR
+          #JUMPTOHOME + @display.join(CRLF) + CRLF
+        end
+                
+        def flush_screen
+          @display = Array.new
+          @conf.app.height.times{ @display << Array.new(@conf.app.width){' '}.join }
+          @activated_sprite_objects = []
+        end
+        
+        def is_pressed(key, user_input)
+          log " ** program is waiting for:" + key.to_s
+          if !user_input.nil? then
+            log " **** confiremd user input:" + user_input.class.to_s, user_input.chr, user_input.to_s
+            if [*'0'..'9', *'a'..'z', *'A'..'Z'].include?(user_input.chr) && key.to_s == user_input.chr then
+              log "****** is_pressed() returned true"
+              return true
+            end
+          end
+          false
+        end
+        
+        private
+        
+        def escape_color(num)
+          ESC + "[" + num.to_s + ";1m"
+        end
+        
+        def ppu_emulate
+          if @activated_sprite_objects.count == 0 then
+            @display.join(CRLF)
+          else
+            canvas = @display.map(&:dup) # deep copy
+            @activated_sprite_objects.each do |obj|
+              obj.tile.split("\n").each_with_index do |line, i|
+                canvas[(obj.y+ i) % @conf.app.height][obj.x % @conf.app.width,line.length] = line.chomp
+              end
+              
+#              struct_var = "static sprite_schema #{key}={0, 0, {"
+#              @pattern_table_index[key.to_sym] = @pattern_table_pointer
+#              patternizer.patterns.each_with_index do |p, i|
+#                log p, i, patternizer.height, "aaaaaaaaaaaaaaaaaaa"
+#                struct_var += sprintf("%d, %d, %#x, 0,", (i % patternizer.width)*8 , (i / (patternizer.patterns.size / patternizer.height) )*8 , @pattern_table_pointer)
+#                @pattern_tables << p
+#                @pattern_table_pointer+=1
+#              end
+#              struct_var += "128}};"
+              
+            end
+            canvas.join(CRLF)
+          end
+        end
+        
+      end
+    end
+  end
+end

data/lib/burn/generator/telnet/sprite.rb

@@ -0,0 +1,16 @@
+module Burn
+  module Generator
+    module Telnet
+      class Sprite
+        attr_accessor :tile, :x, :y
+        
+        def initialize(tile, x, y)
+          @tile = tile
+          @x = x
+          @y = y
+        end
+        
+      end
+    end
+  end
+end

data/lib/burn/generator/telnet/user_input.rb

@@ -0,0 +1,25 @@
+module Burn
+  module Generator
+    module Telnet
+      class UserInput
+        attr_reader :val
+        
+        def initialize(conf)
+          @conf = conf
+          @signal = nil
+          @val = nil
+        end
+        
+        def receive_signal(signal)
+          @signal = signal if @conf.app.user_input ==:enable
+        end
+        
+        def init_for_next_loop
+          @val = @signal
+          @signal = nil
+        end
+        
+      end
+    end
+  end
+end

data/lib/burn/generator/telnet_vm.rb

@@ -0,0 +1,50 @@
+module Burn
+  module Generator
+    class TelnetVm
+      include Generator::Telnet
+      include Debug
+      attr_reader :screen
+      attr_accessor :wait
+      
+      def initialize(source, conf)
+        @pc = 0 # Program Counter
+        @screen = Screen.new(conf)
+        @wait = 10
+        @opcodes = JitCompiler.new.compile(source) # compiled methods
+        log @opcodes.join(":::")
+        @user_input = UserInput.new(conf)
+        @conf = conf
+        @finish = false
+      end
+      
+      def next_frame
+        log @pc
+        if @wait > 0 then
+          @wait = @wait - 1
+        elsif !@finish then
+          log @user_input
+          if @opcodes[@pc] != "#END" && (@opcodes.count-1) > @pc then
+            @pc = @pc+1
+            # skipping comment out to speed up
+            while @opcodes[@pc-1][0] == '#' do
+              @pc = @pc+1
+            end
+            log @opcodes[@pc-1]
+            self.instance_eval @opcodes[@pc-1]
+          else
+            log "Program counter reached at the end of program. #END"
+            @finish = true
+          end
+        else # if @finish == true then
+          # do nothing
+        end
+      end
+      
+      def interrupt(signal)
+        log "INTTERUPT_SETTING:" + @conf.app.user_input.to_s
+        @user_input.receive_signal(signal)
+      end
+      
+    end
+  end
+end

data/lib/burn/pxes.rb

@@ -0,0 +1,3 @@
+require 'burn/pxes/transpiler_base'
+require 'burn/pxes/cc65_transpiler'
+require 'burn/pxes/cruby_transpiler'

data/lib/burn/{util/pxes.rb → pxes/cc65_transpiler.rb}

@@ -1,14 +1,6 @@
 module Burn
-  module Util
-    class Pxes
-      include Debug
-      attr_reader :sexp
-      
-      def initialize(sexp, context=nil, resource_name=nil)
-        @sexp = sexp
-        @context = context || self
-        @resource_name = resource_name
-      end
+  module Pxes
+    class Cc65Transpiler < TranspilerBase
       
       def to_c
         parse_sexp(@sexp)
@@ -27,9 +19,10 @@ module Burn
       #  end
       #end
       
+      
       def invoke_dsl_processing(exp)
-        generator = Generator::CSource.new(self)
-        Dsl::Scene.new(@resource_name, generator).instance_eval exp
+        generator = Generator::Rom::CSource.new(self)
+        Fuel::Rom::Scene.new(@resource_name, generator).instance_eval exp
         # return the result
         @context.instance_exec(generator.global) do |generator_global|
           @global.concat generator_global
@@ -100,14 +93,14 @@ module Burn
             
           # this is why you can't use pre-defined dsl name as a variable name. e.g) you are not allowed to declare variables like show or label or stop. these all are defined dsl.
           when :vcall 
-            if !Dsl::Scene.new(@resource_name,self).methods.index(s[1][1].to_sym).nil? then
+            if !Fuel::Rom::Scene.new(@resource_name,self).methods.index(s[1][1].to_sym).nil? then
               invoke_dsl_processing parse_sexp(s[1])
             else
               parse_sexp(s[1])
             end
             
           when :command
-            if !Dsl::Scene.new(@resource_name,self).methods.index(s[1][1].to_sym).nil? then
+            if !Fuel::Rom::Scene.new(@resource_name,self).methods.index(s[1][1].to_sym).nil? then
               #invoke_dsl_processing parse_sexp(s[1]) + "(" + parse_sexp( replace_vcall_to_symbol(s[2]) ) + ")"
               invoke_dsl_processing parse_sexp(s[1]) + "(" + parse_sexp( s[2] ) + ")"
             else
@@ -175,6 +168,7 @@ module Burn
           log s[0].class.to_s
         end
       end
+      
     end
   end
 end

data/lib/burn/pxes/cruby_transpiler.rb

@@ -0,0 +1,189 @@
+module Burn
+  module Pxes
+    class CrubyTranspiler < TranspilerBase
+      
+      def to_rb
+        parse_sexp(@sexp)
+      end
+      
+      private
+      #def replace_vcall_to_symbol(sexp_array)
+      #  sexp_array.map do |a|
+      #    if a.instance_of?(Array) then
+      #      replace_vcall_to_symbol(a)
+      #    elsif a==:vcall then
+      #      :symbol
+      #    else
+      #      a
+      #    end
+      #  end
+      #end
+      
+      def invoke_dsl_processing(exp)
+        generator = Generator::Telnet::JitCompiler.new
+        # class(@@)|instance(@) variable inside exp need to be stringified before the #instance_eval.
+        # Without this, variables will be evaluated immediately now (and will get disappered as a result of this) by #instance_eval 
+        Fuel::Telnet::Scene.new(@resource_name, generator).instance_eval exp.gsub(/(@[@\w]*)/, "\"\\1\"")
+        generator.opcodes.join "\n"
+      end
+      
+      def parse_sexp(s)
+        if s.instance_of?(String) then
+          s
+        elsif s.instance_of?(Array) && s[0].instance_of?(Symbol) then
+          log "--array and symbol--"
+          log s[0]
+          case s[0]
+          when :assign
+            parse_sexp(s[1]) + "=" + parse_sexp(s[2])
+            
+          when :var_field, :var_ref
+            if s[1][0] == :@ident then
+              var_scope = "@___"
+            else
+              var_scope = ""
+            end
+            var_scope + s[1][1]
+            
+          when :void_stmt
+            "" # this happens when rip "if true then # do nothing end" type of code
+          
+          when :binary
+            case s[2]
+            when :or
+              operator = "||"
+            when :and
+              operator = "&&"
+            else
+              operator = s[2].to_s
+            end
+            parse_sexp(s[1]) + operator + parse_sexp(s[3])
+            
+          when :opassign
+            parse_sexp(s[1]) + parse_sexp(s[2]) + parse_sexp(s[3])
+            
+          when :unary
+            case s[1]
+            when :not, :!
+              "!" + parse_sexp(s[2])
+            else
+              parse_sexp(s[2])
+            end
+            
+          when :paren
+            "(" + parse_sexp(s[1][0]) + ")"
+            
+          when :symbol
+            ':' + s[1][1]
+            
+          when :field, :call
+            parse_sexp(s[1]) + "."  + parse_sexp(s[3])
+            
+          when :@ident, :@int, :@kw, :@op
+            s[1]
+            
+          when :@tstring_content
+            '"' + s[1] + '"'
+            
+          # this is why you can't use pre-defined dsl name as a variable name. e.g) you are not allowed to declare variables like show or label or stop. these all are defined dsl.
+          when :vcall
+            if s[1][0] == :@ident then
+              var_scope = "@___"
+            else
+              var_scope = ""
+            end
+            s[1][1] = var_scope + s[1][1]
+            parse_sexp(s[1])
+          
+          # this is why you can't use pre-defined dsl name as a variable name. e.g) you are not allowed to declare variables like show or label or stop. these all are defined dsl.
+          when :command
+            if !Fuel::Telnet::Scene.new(@resource_name,@context).methods.index(s[1][1].to_sym).nil? then
+              #invoke_dsl_processing parse_sexp(s[1]) + "(" + parse_sexp( replace_vcall_to_symbol(s[2]) ) + ")"
+              invoke_dsl_processing parse_sexp(s[1]) + "(" + parse_sexp( s[2] ) + ")"
+            else
+              parse_sexp(s[1]) + "(" + parse_sexp(s[2]) + ")"
+            end
+            
+          when :method_add_arg
+            command = s[1][1][1]
+            # check if it matches dsl.
+            case command
+            when "is_pressed"
+              "@screen.is_pressed(" + parse_sexp(s[2]) + ", @user_input.val)"
+            #when "rand"
+            #  parse_sexp(s[1]) + "8()"
+            else
+              parse_sexp(s[1]) + "(" + parse_sexp(s[2]) + ")"
+            end
+            
+          # Currently pssing block is not supported
+          #when :method_add_block
+          
+          when :args_add_block
+            a = Array.new
+            s[1].each_with_index do |sexp,i|
+              log "<<<<<<<<<<<<<<<<<<NUM #{i}>>>>>>"
+              log sexp
+              a << parse_sexp(sexp)
+            end
+            a.join(",")
+            
+          when :while
+            "while(" + parse_sexp(s[1]) + "){" + parse_sexp(s[2]) + "}"
+            
+          when :if, :if_mod, :elsif
+            if s[0]==:elsif then
+              keyword = "else if"
+            else
+              keyword = "if"
+            end
+            additional_condition = parse_sexp(s[3]) if !s[3].nil?
+            #"#{keyword} (" + parse_sexp(s[1]) + "){" + parse_sexp(s[2]) + "} #{additional_condition}"
+            label = "##{@resource_name}-" + [*0-9, *'a'..'z', *'A'..'Z'].sample(10).join
+            #"@pc = @opcodes.index(\"#{label}\") if !(" + parse_sexp(s[1]) + ")\n" + parse_sexp(s[2]) + "\n#{label}"
+            if additional_condition then
+              # jump to else
+              # + script for if clause
+              # jump to end
+              # label for else
+              # + script for else
+              # label for end
+              "@pc = @opcodes.index(\"#{label}\") if !(" + parse_sexp(s[1]) + ")\n" \
+                + parse_sexp(s[2]) + "\n" \
+                + "@pc = @opcodes.index(\"#{label}-else\")\n" \
+                + "#{label}\n" \
+                + additional_condition + "\n" \
+                + "#{label}-else"
+            else
+              "@pc = @opcodes.index(\"#{label}\") if !(" + parse_sexp(s[1]) + ")\n" + parse_sexp(s[2]) + "\n#{label}"
+            end
+            
+            
+          #when :def
+          # is not supported for to_c as return data type cannot be defined
+          
+          when :else
+            parse_sexp(s[1])
+            
+          else
+            parse_sexp(s[1])
+            
+          end
+        # Safety net
+        elsif s.instance_of?(Array) && s[0].instance_of?(Array) then
+          a = Array.new
+          s.each_with_index do |sexp,i|
+            log "<<<<<<<<<<<<<<<<<<NUM #{i}>>>>>>"
+            log sexp
+            a << parse_sexp(sexp)
+          end
+          a.join("\n")
+        else
+          log "--else--"
+          log s.class.to_s
+          log s[0].class.to_s
+        end
+      end
+    end
+  end
+end