faultier-esoteric 0.0.1 → 0.0.2

data/ChangeLog

@@ -2,3 +2,10 @@
 
 * initial release
 
+== 0.0.2 / 2009-02-20
+
+* コンパイラではないので、CompilerクラスをParserクラスに名称変更
+* Brainf*ckのパーサを追加
+* てってってーのパーサを追加 [http://kugyu.info/?page=%A5%D7%A5%ED%A5%B0%A5%E9%A5%E0%B8%C0%B8%EC%A1%D6%A4%C6%A4%C3%A4%C6%A4%C3%A4%C6%A1%BC%A1%D7]
+* 中間コードを似非アセンブラからParseTreeの抽象構文木相当のものに変更
+* Esoteric LanguageからRubyスクリプトを作るツールesocを追加

data/README

@@ -5,14 +5,10 @@ by faultier <roteshund+github@gmail.com>
 
 == Description
 
-    Esoteric language compilers and virtual machine
+    Esoteric language parsers/compilers and virtual machine
 
 == Installation
 
-=== Archive Installation
-
-	rake install
-
 === Gem Installation
 
 	gem install faultier-esoteric
@@ -25,10 +21,17 @@ Hosted by GitHub[http://github.com/faultier/esoteric/tree/master]
 
 == Features/Problems
 
+* Whitespace parser
+* DT parser
+* Brainf*ck parser
+* てってってー parser [http://kugyu.info/?page=%A5%D7%A5%ED%A5%B0%A5%E9%A5%E0%B8%C0%B8%EC%A1%D6%A4%C6%A4%C3%A4%C6%A4%C3%A4%C6%A1%BC%A1%D7]
+* Esoteric Language compiler (単に実行可能なRubyスクリプトを生成するだけのツール)
+* Ruby AST を実行するVM (できてない)
 * しょうもない言語ばかりなのが一番の問題
 
-== Synopsis
+== Usaeg
 
+そのうち気が向いたら書く
 
 == Copyright
 

data/Rakefile

@@ -14,11 +14,11 @@ include FileUtils
 NAME              = "esoteric"
 AUTHOR            = "faultier"
 EMAIL             = "roteshund+github@gmail.com"
-DESCRIPTION       = ""
+DESCRIPTION       = "Esoteric langage compilers and virtual machines"
 HOMEPATH          = "http://blog.livedoor.jp/faultier/"
-BIN_FILES         = %w(esm whitespace dt)
+BIN_FILES         = %w(bf dt esoc tetete ws)
 
-VERS              = Esoteric::VERSION::STRING
+VERS              = Esoteric::VERSION
 REV = File.read(".svn/entries")[/committed-rev="(d+)"/, 1] rescue nil
 CLEAN.include ['**/.*.sw?', '*.gem', '.config']
 RDOC_OPTS = [
@@ -50,6 +50,8 @@ spec = Gem::Specification.new do |s|
 	s.require_path      = "lib"
 	#s.autorequire       = ""
 
+  s.add_dependency('ruby2ruby', '>= 1.2.2')
+
 	s.required_ruby_version = '>= 1.8.6'
 
 	s.files = %w(README ChangeLog Rakefile) +

data/bin/bf

@@ -0,0 +1,9 @@
+#!/usr/bin/env ruby
+# vim: filetype=ruby fileencoding=utf-8 :
+
+require 'esoteric/brainfuck'
+require 'esoteric/runner'
+require 'esoteric/easyvm'
+$esoteric_bin_version = "esoteric #{Esoteric::VERSION}, Brainf*ck #{Esoteric::Brainfuck::VERSION}"
+source, options = Esoteric::Runner.parse_option
+Esoteric::Runner.run(source, Esoteric::Brainfuck::Parser, Esoteric::EasyVM, options)

data/bin/dt

@@ -1,9 +1,9 @@
 #!/usr/bin/env ruby
 # vim: filetype=ruby fileencoding=utf-8 :
 
-require 'esoteric'
-require 'esoteric/compiler/dt'
-ESOTERIC_BIN_VERSION = Esoteric::Compiler::DT::VERSION unless defined?(ESOTERIC_BIN_VERSION)
-
+require 'esoteric/dt'
 require 'esoteric/runner'
-Esoteric::Runner.run($source, Esoteric::Compiler::DT, Esoteric::VM, $options)
+require 'esoteric/easyvm'
+$esoteric_bin_version = "esoteric #{Esoteric::VERSION}, DT #{Esoteric::DT::VERSION}"
+source, options = Esoteric::Runner.parse_option
+Esoteric::Runner.run(source, Esoteric::DT::Parser, Esoteric::EasyVM, options)

data/bin/esoc

@@ -0,0 +1,48 @@
+#!/usr/bin/env ruby
+# vim: filetype=ruby fileencoding=utf-8
+
+require 'esoteric/brainfuck'
+require 'esoteric/dt'
+require 'esoteric/tetete'
+require 'esoteric/whitespace'
+require 'optparse'
+require 'ruby2ruby'
+
+options = {
+  :outfile => 'eso.out',
+}
+OptionParser.new { |opt|
+  opt.on('-o FILENAME') { |v| options[:outfile] = v }
+  opt.on('-l LANGNAME', '--language=LANGNAME') { |v| options[:language] = v }
+  opt.on('-v', '--version') {
+    puts <<-"EOS"
+esoteric #{Esoteric::VERSION}
+ruby2ruby #{Ruby2Ruby::VERSION}
+    EOS
+    exit 0
+  }
+
+  opt.parse!(ARGV)
+}
+
+options[:language] ||= case ARGV.first
+                       when /\.bf\z/  then 'brainfuck'
+                       when /\.dt\z/  then 'dt'
+                       when /\.ttt\z/ then 'てってってー'
+                       when /\.ws\z/  then 'whitespace'
+                       end
+
+parser = case options[:language]
+         when /\A(brainf[u*]ck|bf)\z/  then Esoteric::Brainfuck::Parser
+         when 'dt'                     then Esoteric::DT::Parser
+         when 'てってってー','tetete'  then Esoteric::Tetete::Parser
+         when 'whitespace','ws'        then Esoteric::Whitespace::Parser
+         end
+
+ast       = parser.parse(ARGF.read)
+processor = Ruby2Ruby.new
+
+open(options[:outfile], 'w+') { |f|
+  f.print %(#!/usr/bin/env ruby\n# coding: utf-8\n#{processor.process(Sexp.from_array(ast))})
+  f.chmod 0755
+}

data/bin/tetete

@@ -0,0 +1,9 @@
+#!/usr/bin/env ruby
+# vim: fileencoding=utf-8 filetype=ruby :
+
+require 'esoteric/tetete'
+require 'esoteric/easyvm'
+require 'esoteric/runner'
+$esoteric_bin_version = "esoteric #{Esoteric::VERSION}, てってってー #{Esoteric::Tetete::VERSION}"
+source, options = Esoteric::Runner.parse_option
+Esoteric::Runner.run(source, Esoteric::Tetete::Parser, Esoteric::EasyVM, options)

data/bin/ws

@@ -0,0 +1,9 @@
+#!/usr/bin/env ruby
+# vim: filetype=ruby fileencoding=utf-8 :
+
+require 'esoteric/whitespace'
+require 'esoteric/runner'
+require 'esoteric/easyvm'
+$esoteric_bin_version = "esoteric #{Esoteric::VERSION}, Whitespace #{Esoteric::Whitespace::VERSION}"
+source, options = Esoteric::Runner.parse_option
+Esoteric::Runner.run(source, Esoteric::Whitespace::Parser, Esoteric::EasyVM, options)

data/lib/esoteric.rb

@@ -1,8 +1,8 @@
 # coding: utf-8
 
-require 'esoteric/version'
-require 'esoteric/compiler'
+require 'esoteric/parser'
 require 'esoteric/vm'
 
 module Esoteric
+  VERSION = '0.0.2'
 end

data/lib/esoteric/brainfuck.rb

@@ -0,0 +1,10 @@
+# coding: utf-8
+
+require 'esoteric'
+require 'esoteric/brainfuck/parser'
+
+module Esoteric
+  module Brainfuck
+    VERSION = '0.0.1'
+  end
+end

data/lib/esoteric/brainfuck/parser.rb

@@ -0,0 +1,71 @@
+# coding: utf-8
+
+module Esoteric
+  module Brainfuck
+    class Parser < Esoteric::Parser
+      def initialize(src, logger = nil)
+        super
+        @p   = 0
+        @ast = [
+          exp_gasgn(:pc, exp_literal(0)),
+          exp_gasgn(:tape, [:array]),
+          [:defn, :get_value,
+            [:scope,
+              [:block,
+                [:args],
+                [:op_asgn1,
+                  [:gvar, :$tape],
+                  [:arglist, [:gvar, :$pc]],
+                  :"||",
+                  [:lit, 0]]]]],
+          [:defn, :set_value,
+            [:scope,
+              [:block,
+                [:args, :val],
+                [:call,
+                  [:gvar, :$tape],
+                  :[]=,
+                  [:arglist,
+                    [:gvar, :$pc],
+                    [:lvar, :val]]]]]]
+        ]
+      end
+
+      def normalize(src)
+        src.gsub(/[^><+-.,\[\]]/, '').split(//)
+      end 
+
+      def next_token
+        @src[@p]
+      end
+
+      def process
+        exp = case next_token
+              when '>' then exp_opgasgn :pc, :+, exp_literal(1)
+              when '<' then exp_opgasgn :pc, :+, exp_literal(-1)
+              when '+' then
+                exp_fcall :set_value, exp_mcall( exp_fcall(:get_value), :+, exp_literal(1))
+              when '-' then
+                exp_fcall :set_value, exp_mcall( exp_fcall(:get_value), :+, exp_literal(-1))
+              when '.' then
+                exp_fcall :print, exp_mcall( exp_fcall(:get_value), :chr )
+              when ',' then
+                exp_fcall :set_value, exp_mcall( exp_fcall(:getc), :ord )
+              when '[' then
+                @p += 1
+                [:until,
+                  [:call,
+                    [:call, nil,:get_value, [:arglist]],
+                    :==,
+                    [:arglist, [:lit, 0]]],
+                  process_until(lambda { |t| t == ']' }),
+                  nil
+                ]
+              when ']' then raise LoopInterrapt
+              end
+        @p += 1
+        exp
+      end
+    end
+  end
+end

data/lib/esoteric/dt.rb

@@ -0,0 +1,10 @@
+# coding: utf-8
+
+require 'esoteric'
+require 'esoteric/dt/parser'
+
+module Esoteric
+  module DT
+    VERSION = '0.0.2'
+  end
+end

data/lib/esoteric/dt/parser.rb

@@ -0,0 +1,147 @@
+# coding: utf-8
+
+if RUBY_VERSION =~ /^1\.8\./
+  $KCODE = 'u'
+  require 'jcode'
+end
+
+require 'strscan'
+
+module Esoteric
+  module DT
+    class Parser < Esoteric::Parser
+      NVAL    = /((?:ど|童貞ちゃうわっ！)+)…/
+      LVAL    = NVAL
+      PUSH    = /どど#{NVAL}/
+      DUP     = /ど…ど/
+      COPY    = /ど童貞ちゃうわっ！ど#{NVAL}/
+      SWAP    = /ど…童貞ちゃうわっ！/
+      DISCARD = /ど……/
+      SLIDE   = /ど童貞ちゃうわっ！…#{NVAL}/
+      ADD     = /童貞ちゃうわっ！どどど/
+      SUB     = /童貞ちゃうわっ！どど童貞ちゃうわっ！/
+      MUL     = /童貞ちゃうわっ！どど…/
+      DIV     = /童貞ちゃうわっ！ど童貞ちゃうわっ！ど/
+      MOD     = /童貞ちゃうわっ！ど童貞ちゃうわっ！童貞ちゃうわっ！/
+      HWRITE  = /童貞ちゃうわっ！童貞ちゃうわっ！ど/
+      HREAD   = /童貞ちゃうわっ！童貞ちゃうわっ！童貞ちゃうわっ！/
+      LABEL   = /…どど#{LVAL}/
+      CALL    = /…ど童貞ちゃうわっ！#{LVAL}/
+      JUMP    = /…ど…#{LVAL}/
+      JUMPZ   = /…童貞ちゃうわっ！ど#{LVAL}/
+      JUMPN   = /…童貞ちゃうわっ！童貞ちゃうわっ！#{LVAL}/
+      RETURN  = /…童貞ちゃうわっ！…/
+      EXIT    = /………/
+      COUT    = /童貞ちゃうわっ！…どど/
+      NOUT    = /童貞ちゃうわっ！…ど童貞ちゃうわっ！/
+      CIN     = /童貞ちゃうわっ！…童貞ちゃうわっ！ど/
+      NIN     = /童貞ちゃうわっ！…童貞ちゃうわっ！童貞ちゃうわっ！/
+
+      def initialize(src, logger=nil)
+        super
+        @s = StringScanner.new(@src)
+        @ast = [
+          [:gasgn, :$stack, [:array]],
+          [:gasgn, :$heap, [:hash]],
+        ]
+      end
+
+      def parse
+        begin
+          loop do
+            exp = process
+            next unless !!exp
+            if exp.first == :defn
+              @ast.unshift exp
+            else
+              @ast.push exp
+            end
+          end
+        rescue ProcessInterrapt
+          # do nothing
+        end
+        @ast.unshift :block
+#       require 'pp'; pp @ast
+        @ast
+      end
+
+
+      private
+
+      def normalize(src)
+        normalized = ''
+        normalized << $1 while src.sub!(/(ど|童貞ちゃうわっ！|…)/, '*')
+        normalized
+      end
+
+      def process
+        case
+        when @s.eos?          then raise ProcessInterrapt
+        when @s.scan(PUSH)    then exp_push exp_literal(numeric(@s[1]))
+        when @s.scan(DUP)     then exp_push exp_gvarcall(:stack, :last)
+        when @s.scan(COPY)    then exp_push exp_gvarcall(:stack, :[], exp_literal(-(numeric(@s[1]))-1))
+        when @s.scan(SWAP)    then exp_push exp_pop, exp_pop
+        when @s.scan(DISCARD) then exp_pop
+        when @s.scan(SLIDE)   then
+          exp_block exp_lasgn(:top, exp_gvarcall(:stack, :pop)), exp_mcall(exp_literal(numeric(@s[1])), :times, exp_pop), exp_push(exp_lvar(:top))
+        when @s.scan(ADD)     then
+          exp_block exp_lasgn(:y, exp_pop), exp_lasgn(:x, exp_pop), exp_mcallpush(exp_lvar(:x), :+, exp_lvar(:y))
+        when @s.scan(SUB)     then
+          exp_block exp_lasgn(:y, exp_pop), exp_lasgn(:x, exp_pop), exp_mcallpush(exp_lvar(:x), :-, exp_lvar(:y))
+        when @s.scan(MUL)     then
+          exp_block exp_lasgn(:y, exp_pop), exp_lasgn(:x, exp_pop), exp_mcallpush(exp_lvar(:x), :*, exp_lvar(:y))
+        when @s.scan(DIV)     then
+          exp_block exp_lasgn(:y, exp_pop), exp_lasgn(:x, exp_pop), exp_mcallpush(exp_lvar(:x), :/, exp_lvar(:y))
+        when @s.scan(MOD)     then
+          exp_block exp_lasgn(:y, exp_pop), exp_lasgn(:x, exp_pop), exp_mcallpush(exp_lvar(:x), :%, exp_lvar(:y))
+        when @s.scan(HWRITE)  then
+          exp_block exp_lasgn(:val, exp_pop), exp_lasgn(:addr, exp_pop), exp_gvarcall(:heap, :[]=, exp_lvar(:addr), exp_lvar(:val))
+        when @s.scan(HREAD)   then
+          exp_block exp_lasgn(:addr, exp_pop), exp_push(exp_gvarcall(:heap, :[], exp_lvar(:addr)))
+        when @s.scan(LABEL)   then
+          defn(string(@s[1]).intern) { process_until( lambda {|*args| @s.eos? || !!@s.match?(RETURN)} ) }
+        when @s.scan(CALL)    then exp_fcall(string(@s[1]).intern)
+        when @s.scan(JUMP)
+          exp_if exp_literal(true), exp_fcall(string(@s[1]).intern), process_until( lambda {|*args| @s.eos? || !!@s.match?(RETURN)} )
+        when @s.scan(JUMPZ)
+          exp_if exp_mcall(pop, :==, exp_literal(0)), exp_fcall(string(@s[1]).intern), process_until( lambda {|*args| @s.eos? || !!@s.match?(RETURN)} )
+        when @s.scan(JUMPN)
+          exp_if exp_mcall(pop, :<, exp_literal(0)), exp_fcall(string(@s[1]).intern), process_until( lambda {|*args| @s.eos? || !!@s.match?(RETURN)} )
+        when @s.scan(RETURN)  then nil
+        when @s.scan(EXIT)    then exp_fcall :exit, exp_literal(0)
+        when @s.scan(COUT)    then exp_gvarcall :stdout, :print, exp_mcall(exp_pop, :chr)
+        when @s.scan(NOUT)    then exp_gvarcall :stdout, :print, exp_mcall(exp_pop, :to_i)
+        when @s.scan(CIN)     then exp_mcallpush exp_gvarcall(:stdin, :getc), :ord
+        when @s.scan(NIN)     then exp_mcallpush exp_gvarcall(:stdin, :getc), :to_i
+        else raise SyntaxError
+        end
+      end
+
+      def exp_pop
+        exp_gvarcall :stack, :pop
+      end
+
+      def exp_push(value)
+        exp_gvarcall :stack, :push, value
+      end
+
+      def exp_mcallpush(receiver, method, *args)
+        exp_push exp_mcall(receiver, method, *args)
+      end
+
+      def numeric(value)
+        raise ArgumentError if "#{value}…" !~ /\A#{NVAL}\z/
+        n = value.sub(/\Aど/, '+').
+                  sub(/\A童貞ちゃうわっ！/, '-').
+                  gsub(/ど/, '0').
+                  gsub(/童貞ちゃうわっ！/, '1')
+        n.to_i(2)
+      end
+
+      def string(value)
+        raise ArgumentError if "#{value}…" !~ /\A#{LVAL}\z/
+        value.sub(/ど/, 'd').sub(/童貞ちゃうわっ！/, 'D')
+      end
+    end
+  end
+end

data/lib/esoteric/easyvm.rb

@@ -0,0 +1,25 @@
+# config: utf-8
+
+require 'logger'
+require 'ruby2ruby'
+
+module Esoteric
+  class EasyVM
+    def self.run(ast, logger = nil)
+      new(ast, logger).run
+    end
+
+    def initialize(ast, logger = nil)
+      @ast       = Sexp.from_array(ast)
+      @processor = Ruby2Ruby.new
+    end
+
+    def run
+      # これじゃああんまりにもあんまりなので
+      # 抽象構文木を実行できるVMをあとで作る
+#     puts code = @processor.process(@ast)
+#     eval code
+      eval @processor.process(@ast)
+    end
+  end
+end