burn 0.1.0

data/lib/burn/util/pxes.rb

@@ -0,0 +1,180 @@
+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
+      
+      def to_c
+        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::CSource.new(self)
+        Dsl::Scene.new(@resource_name, generator).instance_eval exp
+        # return the result
+        @context.instance_exec(generator.global) do |generator_global|
+          @global.concat generator_global
+        end
+        generator.code_blocks.join
+      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
+            s[1][1]
+          
+          when :var_ref
+            case s[1][1]
+            when "true", "false"
+              s[1][1].upcase
+            else
+              s[1][1]
+            end
+            
+          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 !Dsl::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
+              #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"
+              parse_sexp(s[1]) + "(PAD_" + parse_sexp(s[2]).delete(":").upcase + ")"
+            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}"
+            
+          #when :def
+          # is not supported for to_c as return data type cannot be defined
+          
+          when :else
+            "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

data/lib/burn/util/server.rb

@@ -0,0 +1,21 @@
+module Burn
+  module Util
+    class Server
+      require 'webrick'
+      
+      def initialize(document_root)
+        @server = WEBrick::HTTPServer.new({:DocumentRoot => document_root, :BindAddress => '127.0.0.1', :Port => 17890})
+        trap 'INT' do 
+          @server.shutdown
+        end
+        @server.mount_proc('/shutdown'){ |req, resp|
+          @server.stop
+        }
+      end
+      
+      def start
+        @server.start
+      end
+    end
+  end
+end

data/lib/burn/util.rb

@@ -0,0 +1,4 @@
+require 'burn/util/os'
+require 'burn/util/patternizer'
+require 'burn/util/server'
+require 'burn/util/pxes'

data/lib/burn/version.rb

@@ -0,0 +1,3 @@
+module Burn
+  VERSION = "0.1.0"
+end

data/lib/burn/workspace_default/asset/crt0.s

@@ -0,0 +1,260 @@
+; Startup code for cc65 and Shiru's NES library
+; based on code by Groepaz/Hitmen <groepaz@gmx.net>, Ullrich von Bassewitz <uz@cc65.org>
+
+
+NES_MAPPER				=0	;mapper number
+NES_PRG_BANKS			=1	;number of 16K PRG banks, change to 2 for NROM256
+NES_CHR_BANKS			=1	;number of 8K CHR banks
+NES_MIRRORING			=1	;0 horizontal, 1 vertical, 8 four screen
+
+FT_DPCM_OFF				=$ffc0	;samples offset, $c000 or higher, 64-byte steps
+FT_SFX_STREAMS			=4	;number of sound effects played at once, can be 4 or less (faster)
+
+.define FT_DPCM_ENABLE 	0	;zero to exclude all the DMC code
+.define FT_SFX_ENABLE  	1	;zero to exclude all the sound effects code
+
+.define SPEED_FIX		1	;zero if you want to handle PAL/NTSC speed difference by yourself
+
+
+    .export _exit,__STARTUP__:absolute=1
+	.import initlib,push0,popa,popax,_main,zerobss,copydata
+
+; Linker generated symbols
+	.import __RAM_START__   ,__RAM_SIZE__
+	.import __ROM0_START__  ,__ROM0_SIZE__
+	.import __STARTUP_LOAD__,__STARTUP_RUN__,__STARTUP_SIZE__
+	.import	__CODE_LOAD__   ,__CODE_RUN__   ,__CODE_SIZE__
+	.import	__RODATA_LOAD__ ,__RODATA_RUN__ ,__RODATA_SIZE__
+
+    .include "zeropage.inc"
+
+
+PPU_CTRL	=$2000
+PPU_MASK	=$2001
+PPU_STATUS	=$2002
+PPU_OAM_ADDR=$2003
+PPU_OAM_DATA=$2004
+PPU_SCROLL	=$2005
+PPU_ADDR	=$2006
+PPU_DATA	=$2007
+PPU_OAM_DMA	=$4014
+PPU_FRAMECNT=$4017
+DMC_FREQ	=$4010
+CTRL_PORT1	=$4016
+CTRL_PORT2	=$4017
+
+OAM_BUF		=$0200
+PAL_BUF		=$01c0
+
+FRAMECNT1	=$00
+FRAMECNT2	=$01
+NTSCMODE	=$02
+VRAMUPDATE	=$03
+PAD_STATE	=$04	;2 bytes, one per controller
+PAD_STATEP	=$06	;2 bytes
+PAD_STATET	=$08	;2 bytes
+FT_TEMP		=$0a	;7 bytes in zeropage
+SCROLL_X	=$11
+SCROLL_Y	=$12
+PPU_CTRL_VAR=$13
+PPU_MASK_VAR=$14
+NAME_UPD_ADR=$15	;word
+NAME_UPD_LEN=$17
+PAL_PTR		=$18	;word
+RAND_SEED	=$1a	;word
+
+TEMP		=$1c
+
+PAD_BUF		=TEMP+1
+
+PTR			=TEMP	;word
+LEN			=TEMP+2	;word
+NEXTSPR		=TEMP+4
+SCRX		=TEMP+5
+SCRY		=TEMP+6
+SRC			=TEMP+7	;word
+DST			=TEMP+9	;word
+
+RLE_LOW		=TEMP
+RLE_HIGH	=TEMP+1
+RLE_TAG		=TEMP+2
+RLE_BYTE	=TEMP+3
+
+
+FT_BASE_ADR		=$0100	;page in RAM, should be $xx00
+FT_DPCM_PTR		=(FT_DPCM_OFF&$3fff)>>6
+
+.define FT_THREAD      1;undefine if you call sound effects in the same thread as sound update
+
+
+
+.segment "HEADER"
+
+    .byte $4e,$45,$53,$1a
+	.byte NES_PRG_BANKS
+	.byte NES_CHR_BANKS
+	.byte NES_MIRRORING|(NES_MAPPER<<4)
+	.byte NES_MAPPER&$f0
+	.res 8,0
+
+
+.segment "STARTUP"
+
+start:
+_exit:
+
+    sei
+    ldx #$ff
+    txs
+    inx
+    stx PPU_MASK
+    stx DMC_FREQ
+    stx PPU_CTRL		;no NMI
+
+waitSync1:
+    bit PPU_STATUS
+@1:
+    bit PPU_STATUS
+    bpl @1
+
+clearPalette:
+	ldy #$3f
+	sty PPU_ADDR
+	stx PPU_ADDR
+	lda #$0f
+	ldx #$20
+@1:
+	sta PPU_DATA
+	dex
+	bne @1
+
+clearVRAM:
+	txa
+	ldy #$20
+	sty PPU_ADDR
+	sta PPU_ADDR
+	ldy #$10
+@1:
+	sta PPU_DATA
+	inx
+	bne @1
+	dey
+	bne @1
+
+clearRAM:
+    txa
+@1:
+    sta $000,x
+    sta $100,x
+    sta $200,x
+    sta $300,x
+    sta $400,x
+    sta $500,x
+    sta $600,x
+    sta $700,x
+    inx
+    bne @1
+
+	lda #4
+	jsr _pal_bright
+	jsr _pal_clear
+	jsr _oam_clear
+
+    jsr	zerobss
+	jsr	copydata
+
+    lda #<(__RAM_START__+__RAM_SIZE__)
+    sta	sp
+    lda	#>(__RAM_START__+__RAM_SIZE__)
+    sta	sp+1            ; Set argument stack ptr
+
+	jsr	initlib
+
+waitSync2:
+    bit PPU_STATUS
+@1:
+    bit PPU_STATUS
+    bpl @1
+
+	lda #%10000000
+	sta <PPU_CTRL_VAR
+	sta PPU_CTRL		;enable NMI
+	lda #%00000110
+	sta <PPU_MASK_VAR
+
+waitSync3:
+	lda <FRAMECNT1
+@1:
+	cmp <FRAMECNT1
+	beq @1
+
+detectNTSC:
+	ldx #52				;blargg's code
+	ldy #24
+@1:
+	dex
+	bne @1
+	dey
+	bne @1
+
+	lda PPU_STATUS
+	and #$80
+	sta <NTSCMODE
+
+	jsr _ppu_off
+
+	lda <NTSCMODE
+	jsr FamiToneInit
+
+	.if(FT_DPCM_ENABLE)
+	ldx #<music_dpcm
+	ldy #>music_dpcm
+	jsr FamiToneSampleInit
+	.endif
+
+	.if(FT_SFX_ENABLE)
+	ldx #<sounds_data
+	ldy #>sounds_data
+	jsr FamiToneSfxInit
+	.endif
+
+	.if(!SPEED_FIX)
+	lda #0
+	sta <NTSCMODE
+	.endif
+
+	lda #$fd
+	sta <RAND_SEED
+	sta <RAND_SEED+1
+
+	lda #0
+	sta PPU_SCROLL
+	sta PPU_SCROLL
+
+	jmp _main			;no parameters
+
+	.include "neslib.s"
+
+.segment "RODATA"
+
+	.include "music.s"
+
+	.if(FT_SFX_ENABLE)
+sounds_data:
+	.include "sounds.s"
+	.endif
+
+.segment "SAMPLES"
+
+	;.incbin "music_dpcm.bin"
+
+.segment "VECTORS"
+
+    .word nmi	;$fffa vblank nmi
+    .word start	;$fffc reset
+   	.word irq	;$fffe irq / brk
+
+
+.segment "CHARS"
+
+	.incbin "tileset.chr"