meta_compile 0.0.1

data/bin/meta_compile

@@ -0,0 +1,229 @@
+#!/usr/bin/env ruby
+require "strscan"
+class RMetaII
+def compile(str, out)
+@i, @o = StringScanner.new(str), out
+compile_program
+end
+def compile_arg
+begin
+@i.scan /\s*/; s='$'
+@f = (@i.peek(s.length) == s) ? (@t=s; @i.pos += s.length) : nil
+if @f
+@o.print '@o.print @t'
+@o.print "\n"
+end
+break if @f
+@i.scan /\s*/; @f = @t = @i.scan /\047[^\047]*\047/
+if @f
+@o.print '@o.print '
+@o.print @t
+@o.print "\n"
+end
+end while false
+end
+def compile_output
+begin
+@i.scan /\s*/; s='<'
+@f = (@i.peek(s.length) == s) ? (@t=s; @i.pos += s.length) : nil
+if @f
+begin
+compile_arg
+end while @f
+@f = true
+raise("error at: " + @i.rest.split("\n")[0]) if !@f
+@i.scan /\s*/; s='>'
+@f = (@i.peek(s.length) == s) ? (@t=s; @i.pos += s.length) : nil
+raise("error at: " + @i.rest.split("\n")[0]) if !@f
+@o.print '@o.print "\n"'
+@o.print "\n"
+end
+end while false
+end
+def compile_exp3
+begin
+@i.scan /\s*/; @f = @t = @i.scan /[A-Za-z]+[A-Za-z0-9_]+/
+if @f
+@o.print 'compile_'
+@o.print @t
+@o.print "\n"
+end
+break if @f
+@i.scan /\s*/; @f = @t = @i.scan /\047[^\047]*\047/
+if @f
+@o.print '@i.scan /\s*/; s='
+@o.print @t
+@o.print "\n"
+@o.print '@f = (@i.peek(s.length) == s) ? (@t=s; @i.pos += s.length) : nil'
+@o.print "\n"
+end
+break if @f
+@i.scan /\s*/; s='.id'
+@f = (@i.peek(s.length) == s) ? (@t=s; @i.pos += s.length) : nil
+if @f
+@o.print '@i.scan /\s*/; @f = @t = @i.scan /[A-Za-z]+[A-Za-z0-9_]+/'
+@o.print "\n"
+end
+break if @f
+@i.scan /\s*/; s='.string'
+@f = (@i.peek(s.length) == s) ? (@t=s; @i.pos += s.length) : nil
+if @f
+@o.print '@i.scan /\s*/; @f = @t = @i.scan /\047[^\047]*\047/'
+@o.print "\n"
+end
+break if @f
+@i.scan /\s*/; s='('
+@f = (@i.peek(s.length) == s) ? (@t=s; @i.pos += s.length) : nil
+if @f
+compile_exp1
+raise("error at: " + @i.rest.split("\n")[0]) if !@f
+@i.scan /\s*/; s=')'
+@f = (@i.peek(s.length) == s) ? (@t=s; @i.pos += s.length) : nil
+raise("error at: " + @i.rest.split("\n")[0]) if !@f
+end
+break if @f
+@i.scan /\s*/; s='.e'
+@f = (@i.peek(s.length) == s) ? (@t=s; @i.pos += s.length) : nil
+if @f
+@o.print '@f = true'
+@o.print "\n"
+end
+break if @f
+@i.scan /\s*/; s='*'
+@f = (@i.peek(s.length) == s) ? (@t=s; @i.pos += s.length) : nil
+if @f
+@o.print 'begin'
+@o.print "\n"
+compile_exp3
+raise("error at: " + @i.rest.split("\n")[0]) if !@f
+@o.print 'end while @f'
+@o.print "\n"
+@o.print '@f = true'
+@o.print "\n"
+end
+end while false
+end
+def compile_exp2
+begin
+begin
+compile_exp3
+if @f
+@o.print 'if @f'
+@o.print "\n"
+end
+break if @f
+compile_output
+if @f
+@o.print 'if true'
+@o.print "\n"
+end
+end while false
+if @f
+begin
+begin
+compile_exp3
+if @f
+@o.print 'raise("error at: " + @i.rest.split("\n")[0]) if !@f'
+@o.print "\n"
+end
+break if @f
+compile_output
+if @f
+end
+end while false
+end while @f
+@f = true
+raise("error at: " + @i.rest.split("\n")[0]) if !@f
+@o.print 'end'
+@o.print "\n"
+end
+end while false
+end
+def compile_exp1
+begin
+@o.print 'begin'
+@o.print "\n"
+if true
+compile_exp2
+raise("error at: " + @i.rest.split("\n")[0]) if !@f
+begin
+begin
+@i.scan /\s*/; s='|'
+@f = (@i.peek(s.length) == s) ? (@t=s; @i.pos += s.length) : nil
+if @f
+@o.print 'break if @f'
+@o.print "\n"
+compile_exp2
+raise("error at: " + @i.rest.split("\n")[0]) if !@f
+end
+end while false
+end while @f
+@f = true
+raise("error at: " + @i.rest.split("\n")[0]) if !@f
+@o.print 'end while false'
+@o.print "\n"
+end
+end while false
+end
+def compile_stat
+begin
+@i.scan /\s*/; @f = @t = @i.scan /[A-Za-z]+[A-Za-z0-9_]+/
+if @f
+@o.print 'def compile_'
+@o.print @t
+@o.print "\n"
+@i.scan /\s*/; s='='
+@f = (@i.peek(s.length) == s) ? (@t=s; @i.pos += s.length) : nil
+raise("error at: " + @i.rest.split("\n")[0]) if !@f
+compile_exp1
+raise("error at: " + @i.rest.split("\n")[0]) if !@f
+@i.scan /\s*/; s=';'
+@f = (@i.peek(s.length) == s) ? (@t=s; @i.pos += s.length) : nil
+raise("error at: " + @i.rest.split("\n")[0]) if !@f
+@o.print 'end'
+@o.print "\n"
+end
+end while false
+end
+def compile_program
+begin
+@i.scan /\s*/; s='.syntax'
+@f = (@i.peek(s.length) == s) ? (@t=s; @i.pos += s.length) : nil
+if @f
+@i.scan /\s*/; @f = @t = @i.scan /[A-Za-z]+[A-Za-z0-9_]+/
+raise("error at: " + @i.rest.split("\n")[0]) if !@f
+@o.print '#!/usr/bin/env ruby'
+@o.print "\n"
+@o.print 'require "strscan"'
+@o.print "\n"
+@o.print 'class '
+@o.print @t
+@o.print "\n"
+@o.print 'def compile(str, out)'
+@o.print "\n"
+@o.print '@i, @o = StringScanner.new(str), out'
+@o.print "\n"
+@o.print 'compile_program'
+@o.print "\n"
+@o.print 'end'
+@o.print "\n"
+begin
+compile_stat
+end while @f
+@f = true
+raise("error at: " + @i.rest.split("\n")[0]) if !@f
+@i.scan /\s*/; s='.end'
+@f = (@i.peek(s.length) == s) ? (@t=s; @i.pos += s.length) : nil
+raise("error at: " + @i.rest.split("\n")[0]) if !@f
+@o.print 'end'
+@o.print "\n"
+@o.print 'begin; puts "Use: meta_compile <in> <out>"; exit; end if ARGV.length != 2'
+@o.print "\n"
+@o.print 'File.open(ARGV[1], "w") {|f| RMetaII.new.compile(File.read(ARGV[0]), f)}'
+@o.print "\n"
+end
+end while false
+end
+end
+begin; puts "Use: meta_compile <in> <out>"; exit; end if ARGV.length != 2
+File.open(ARGV[1], "w") {|f| RMetaII.new.compile(File.read(ARGV[0]), f)}

metadata

@@ -0,0 +1,46 @@
+--- !ruby/object:Gem::Specification
+name: meta_compile
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+  prerelease: 
+platform: ruby
+authors:
+- Robert Feldt
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2012-11-25 00:00:00.000000000 Z
+dependencies: []
+description: A meta compilation framework à la Meta-II by Val Schorre
+email: robert.feldt@gmail.com
+executables:
+- meta_compile
+extensions: []
+extra_rdoc_files: []
+files:
+- bin/meta_compile
+homepage: http://rubygems.org/gems/meta_compile
+licenses: []
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.24
+signing_key: 
+specification_version: 3
+summary: meta compiler framework
+test_files: []