meta_compile 0.0.6 → 0.0.7

data/Rakefile

@@ -82,6 +82,7 @@ task :default => :make_bin
 
 desc "Build the gem"
 task :build_gem => [:make_bin] do
+	Rake::Task["clean"].invoke
 	pexec "rm *.gem"
 	pexec "gem build meta_compile.gemspec"
 end

data/meta_compile.gemspec

@@ -1,6 +1,6 @@
 Gem::Specification.new do |s|
   s.name        = 'meta_compile'
-  s.version     = '0.0.6'
+  s.version     = '0.0.7'
   s.date        = '2012-11-25'
   s.summary     = "meta compiler framework"
   s.description = "A meta compilation framework à la Meta-II by Val Schorre"

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: meta_compile
 version: !ruby/object:Gem::Version
-  version: 0.0.6
+  version: 0.0.7
   prerelease: 
 platform: ruby
 authors:
@@ -23,16 +23,10 @@ files:
 - meta_compile.gemspec
 - bin/meta_compile
 - bootstrap/bootstrap.c
-- bootstrap/bootstrapped_c
-- bootstrap/compile_syntax_c_to_ruby.c
 - bootstrap/meta_for_c.txt
 - bootstrap/meta_for_ruby.txt
 - bootstrap/meta_for_ruby_single_flag.txt
-- bootstrap/meta_r
 - bootstrap/meta_ruby_compiler.rb
-- bootstrap/meta_ruby_compiler2.rb
-- bootstrap/meta_ruby_compiler3.rb
-- bootstrap/meta_ruby_compiler_from_c.rb
 - bootstrap/original_support.h
 - bootstrap/support.h
 homepage: http://rubygems.org/gems/meta_compile

data/bootstrap/compile_syntax_c_to_ruby.c

@@ -1,214 +0,0 @@
-#include "support.h"
-void meta_outarg(void)
-{
-do {
-read_literal("$");
-if (test_flag) {
-emit("@o.print @t");
-emit_nl();
-}
-if (test_flag) { break; }
-read_string();
-if (test_flag) {
-emit("@o.print ");
-emit_token();
-emit_nl();
-}
-} while (0);
-}
-void meta_out(void)
-{
-do {
-read_literal("<");
-if (test_flag) {
-do {
-meta_outarg();
-} while (test_flag);
-test_flag = 1;
-error_if_false();
-read_literal(">");
-error_if_false();
-emit("@o.print \"\\n\"");
-emit_nl();
-}
-} while (0);
-}
-void meta_exp3(void)
-{
-do {
-read_id();
-if (test_flag) {
-emit("compile_");
-emit_token();
-emit_nl();
-}
-if (test_flag) { break; }
-read_string();
-if (test_flag) {
-emit("@i.scan /\\s*/; s=");
-emit_token();
-emit("; l=s.length;");
-emit_nl();
-emit("@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : nil");
-emit_nl();
-}
-if (test_flag) { break; }
-read_literal(".id");
-if (test_flag) {
-emit("@i.scan /\\s*/; @f = @t = @i.scan /[A-Za-z]+[A-Za-z0-9_]+/");
-emit_nl();
-}
-if (test_flag) { break; }
-read_literal(".string");
-if (test_flag) {
-emit("@i.scan /\\s*/; @f = @t = @i.scan /\\047[^\\047]*\\047/");
-emit_nl();
-}
-if (test_flag) { break; }
-read_literal("(");
-if (test_flag) {
-meta_exp1();
-error_if_false();
-read_literal(")");
-error_if_false();
-}
-if (test_flag) { break; }
-read_literal(".e");
-if (test_flag) {
-emit("@f = true");
-emit_nl();
-}
-if (test_flag) { break; }
-read_literal("*");
-if (test_flag) {
-emit("begin");
-emit_nl();
-meta_exp3();
-error_if_false();
-emit("end while @f");
-emit_nl();
-emit("@f = true");
-emit_nl();
-}
-} while (0);
-}
-void meta_exp2(void)
-{
-do {
-do {
-meta_exp3();
-if (test_flag) {
-emit("if @f");
-emit_nl();
-}
-if (test_flag) { break; }
-meta_out();
-if (test_flag) {
-emit("if true");
-emit_nl();
-}
-} while (0);
-if (test_flag) {
-do {
-do {
-meta_exp3();
-if (test_flag) {
-emit("raise(\"error at: \" + @i.rest.split(\"\\n\")[0]) if !@f");
-emit_nl();
-}
-if (test_flag) { break; }
-meta_out();
-if (test_flag) {
-}
-} while (0);
-} while (test_flag);
-test_flag = 1;
-error_if_false();
-emit("end");
-emit_nl();
-}
-} while (0);
-}
-void meta_exp1(void)
-{
-do {
-emit("begin");
-emit_nl();
-if (1) {
-meta_exp2();
-error_if_false();
-do {
-do {
-read_literal("|");
-if (test_flag) {
-emit("break if @f");
-emit_nl();
-meta_exp2();
-error_if_false();
-}
-} while (0);
-} while (test_flag);
-test_flag = 1;
-error_if_false();
-emit("end while false");
-emit_nl();
-}
-} while (0);
-}
-void meta_rule(void)
-{
-do {
-read_id();
-if (test_flag) {
-emit("def compile_");
-emit_token();
-emit_nl();
-read_literal("=");
-error_if_false();
-meta_exp1();
-error_if_false();
-read_literal(";");
-error_if_false();
-emit("end");
-emit_nl();
-}
-} while (0);
-}
-void meta_program(void)
-{
-do {
-read_literal(".syntax");
-if (test_flag) {
-read_id();
-error_if_false();
-emit("#!/usr/bin/env ruby");
-emit_nl();
-emit("require \"strscan\"");
-emit_nl();
-emit("class ");
-emit_token();
-emit_nl();
-emit("def compile(str, out)");
-emit_nl();
-emit("@i, @o = StringScanner.new(str), out");
-emit_nl();
-emit("compile_program");
-emit_nl();
-emit("end");
-emit_nl();
-do {
-meta_rule();
-} while (test_flag);
-test_flag = 1;
-error_if_false();
-read_literal(".end");
-error_if_false();
-emit("end");
-emit_nl();
-emit("begin; puts(\"Use: \" + $0 + \" <in> <out>\"); exit; end if ARGV.length != 2");
-emit_nl();
-emit("File.open(ARGV[1], \"w\") {|f| RMetaII.new.compile(File.read(ARGV[0]), f)}");
-emit_nl();
-}
-} while (0);
-}

data/bootstrap/meta_ruby_compiler2.rb

@@ -1,230 +0,0 @@
-#!/usr/bin/env ruby
-require "strscan"
-class RMetaII
-def compile(str, out)
-@i, @o = StringScanner.new(str), out
-compile_program
-end
-def compile_outarg
-begin
-@i.scan /\s*/; s='$'; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : 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_out
-begin
-@i.scan /\s*/; s='<'; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : nil
-if @f
-begin
-compile_outarg
-end while @f
-@f = true
-raise("error at: " + @i.rest.split("\n")[0]) if !@f
-@i.scan /\s*/; s='>'; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : 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 '; l=s.length;'
-@o.print "\n"
-@o.print '@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : nil'
-@o.print "\n"
-end
-break if @f
-@i.scan /\s*/; s='.id'; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : 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'; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : 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='('; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : nil
-if @f
-compile_exp1
-raise("error at: " + @i.rest.split("\n")[0]) if !@f
-@i.scan /\s*/; s=')'; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : nil
-raise("error at: " + @i.rest.split("\n")[0]) if !@f
-end
-break if @f
-@i.scan /\s*/; s='.e'; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : nil
-if @f
-@o.print '@f = true'
-@o.print "\n"
-end
-break if @f
-@i.scan /\s*/; s='*'; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : 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_out
-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_out
-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='|'; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : 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_rule
-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='='; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : 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=';'; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : 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'; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : 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_rule
-end while @f
-@f = true
-raise("error at: " + @i.rest.split("\n")[0]) if !@f
-@i.scan /\s*/; s='.end'; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : nil
-raise("error at: " + @i.rest.split("\n")[0]) if !@f
-@o.print 'end'
-@o.print "\n"
-@o.print 'begin; puts("Use: " + $0 + " <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: " + $0 + " <in> <out>"); exit; end if ARGV.length != 2
-File.open(ARGV[1], "w") {|f| RMetaII.new.compile(File.read(ARGV[0]), f)}

data/bootstrap/meta_ruby_compiler3.rb

@@ -1,230 +0,0 @@
-#!/usr/bin/env ruby
-require "strscan"
-class RMetaII
-def compile(str, out)
-@i, @o = StringScanner.new(str), out
-compile_program
-end
-def compile_outarg
-begin
-@i.scan /\s*/; s='$'; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : 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_out
-begin
-@i.scan /\s*/; s='<'; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : nil
-if @f
-begin
-compile_outarg
-end while @f
-@f = true
-raise("error at: " + @i.rest.split("\n")[0]) if !@f
-@i.scan /\s*/; s='>'; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : 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 '; l=s.length;'
-@o.print "\n"
-@o.print '@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : nil'
-@o.print "\n"
-end
-break if @f
-@i.scan /\s*/; s='.id'; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : 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'; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : 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='('; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : nil
-if @f
-compile_exp1
-raise("error at: " + @i.rest.split("\n")[0]) if !@f
-@i.scan /\s*/; s=')'; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : nil
-raise("error at: " + @i.rest.split("\n")[0]) if !@f
-end
-break if @f
-@i.scan /\s*/; s='.e'; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : nil
-if @f
-@o.print '@f = true'
-@o.print "\n"
-end
-break if @f
-@i.scan /\s*/; s='*'; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : 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_out
-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_out
-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='|'; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : 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_rule
-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='='; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : 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=';'; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : 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'; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : 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_rule
-end while @f
-@f = true
-raise("error at: " + @i.rest.split("\n")[0]) if !@f
-@i.scan /\s*/; s='.end'; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : nil
-raise("error at: " + @i.rest.split("\n")[0]) if !@f
-@o.print 'end'
-@o.print "\n"
-@o.print 'begin; puts("Use: " + $0 + " <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: " + $0 + " <in> <out>"); exit; end if ARGV.length != 2
-File.open(ARGV[1], "w") {|f| RMetaII.new.compile(File.read(ARGV[0]), f)}

data/bootstrap/meta_ruby_compiler_from_c.rb

@@ -1,230 +0,0 @@
-#!/usr/bin/env ruby
-require "strscan"
-class RMetaII
-def compile(str, out)
-@i, @o = StringScanner.new(str), out
-compile_program
-end
-def compile_outarg
-begin
-@i.scan /\s*/; s="$"; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : 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_out
-begin
-@i.scan /\s*/; s="<"; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : nil
-if @f
-begin
-compile_outarg
-end while @f
-@f = true
-raise("error at: " + @i.rest.split("\n")[0]) if !@f
-@i.scan /\s*/; s=">"; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : 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 "; l=s.length;"
-@o.print "\n"
-@o.print "@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : nil"
-@o.print "\n"
-end
-break if @f
-@i.scan /\s*/; s=".id"; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : 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"; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : 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="("; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : nil
-if @f
-compile_exp1
-raise("error at: " + @i.rest.split("\n")[0]) if !@f
-@i.scan /\s*/; s=")"; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : nil
-raise("error at: " + @i.rest.split("\n")[0]) if !@f
-end
-break if @f
-@i.scan /\s*/; s=".e"; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : nil
-if @f
-@o.print "@f = true"
-@o.print "\n"
-end
-break if @f
-@i.scan /\s*/; s="*"; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : 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_out
-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_out
-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="|"; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : 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_rule
-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="="; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : 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=";"; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : 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"; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : 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_rule
-end while @f
-@f = true
-raise("error at: " + @i.rest.split("\n")[0]) if !@f
-@i.scan /\s*/; s=".end"; l=s.length;
-@f = (@i.peek(l) == s) ? (@t=s; @i.pos += l) : nil
-raise("error at: " + @i.rest.split("\n")[0]) if !@f
-@o.print "end"
-@o.print "\n"
-@o.print "begin; puts(\"Use: \" + $0 + \" <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: " + $0 + " <in> <out>"); exit; end if ARGV.length != 2
-File.open(ARGV[1], "w") {|f| RMetaII.new.compile(File.read(ARGV[0]), f)}