Changeset 3244 for lang/ruby/brainfuck

Timestamp:

12/18/07 02:06:40 (5 years ago)

Author:

naoya_t

Message:

r3308@localhost: naochan | 2007-12-18 02:04:53 +0900
supporting / and %; sample program to calculate prime numbers

Location:

lang/ruby/brainfuck/trunk

Files:

• . (modified) (1 prop)
• README (modified) (2 diffs)
• lib/brainfuck/vm.rb (modified) (2 diffs)
• lib/brainfuck/writer.rb (modified) (26 diffs)
• lib/textgraph (deleted)
• lib/textgraph.rb (deleted)
• lib/zu+textgraph.README (deleted)
• mytest.rb (modified) (2 diffs)
• prime.rb (added)
• zu2bf (modified) (4 diffs)

lang/ruby/brainfuck/trunk/README

@@ -23 +23 @@
   zu2bf : ２次元プログラミング言語「ず」のコンパイラ
 
-    「ず」については作者のyharaさんの
+    yharaさんの textgraph ライブラリが必要。
+    % gem install textgraph
+
+    プログラミング言語「ず」については作者のyharaさんの
       http://mono.kmc.gr.jp/~yhara/w/?ZuLanguage
-    を参照のこと。textgraphライブラリ（zu-0.1.0.tar.gzに含まれる）が必要。
+    を参照のこと。
 
-    生成したコードは、８ビットでwrap aroundしない処理系では動きません。
+    生成したコードは、今のところ８ビットでwrap aroundしない処理系では動きません。
 
     % ./zu2bf foo.zu > foo.bf
 
       「ず」で書かれたプログラム foo.zu をBrainf*ckオブジェクトコードにコンパイル
+　　　デフォルトで80字／行に折り畳み。-n を付ければ折り畳まない (0.1.3)
 
     % ./zu2bf -r foo.zu 
@@ -43 +47 @@
 ! 開発履歴
 
+  * ver 0.1.3
+  * ver 0.1.2
   * ver 0.1.1 : 2007-12-06夜
-  * ver 0.1.0 : 2007-12-06朝
-  ** 初公開
+  * ver 0.1.0 : 2007-12-06朝 初公開
 
 ! 作者

lang/ruby/brainfuck/trunk/lib/brainfuck/vm.rb

@@ -12 +12 @@
       @wrap_around = true
     end
-    attr_reader :wrap_around
+    attr_accessor :wrap_around
 
     def load(code)
@@ -63 +63 @@
       when :show_status
         printf(" :: ix = %d\n", @ix)
-        print  " ::  0  1  2  3  4  5  6  7  8  9  10 11 12 13 14 15 16 17 18 19\n ::"
-        (0..9).each{|i| print @st[i] ? sprintf(" %2x", @st[i]) : "  -" }
-        printf(" ")
-        (10..19).each{|i| print @st[i] ? sprintf(" %2x", @st[i]) : "  -" }
+        print  " ::  0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19\n ::"
+        (0..19).each{|i| print @st[i] ? sprintf(" %2x", @st[i]) : "  -" }
+        printf("\n")
+        print  " :: 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39\n ::"
+        (20..39).each{|i| print @st[i] ? sprintf(" %2x", @st[i]) : "  -" }
         printf("\n")
       end

lang/ruby/brainfuck/trunk/lib/brainfuck/writer.rb

@@ -1 @@
-class String
-  def optimize
-    begin
-      last_length = self.length
-      self.gsub!(/<>/,"") ; self.gsub!(/></,"")
-    end while self.length < last_length
-    self.sub!(/[-+<>,]*\Z/, "")
-  end
-  def fold(per)
-    lines = ((length + (per-1)) / per).to_i
-    s = ""
-    (lines - 1).times{|l|
-      s += self[per*l .. per*l + (per-1)] + "\n"
-    }
-    s += self[per*(lines-1) .. -1] + "\n" if per*(lines-1) < length
-    s
-  end
-end
-
 module Brainfuck
 
@@ -30 +11 @@
 
       @wrap_around = false
-    end
-    attr_reader :wrap_around
+      @debug_mode = false
+      @debug_indent = "\t: "
+    end
+    attr_accessor :wrap_around, :debug_mode
+
+    private
+    def debug_indent_incr
+      @debug_indent += "  "
+    end
+    def debug_indent_decr
+      @debug_indent.sub!(/  \Z/,"")
+    end
+    def debug_print(s)
+      printf("%s%s\n", @debug_indent, s)
+    end
 
     I_NODE     = 0
@@ -44 +38 @@
     I_TMP_MUL  = 9
     I_TMP_MUL1 = 10 ; I_TMP_MUL2 = 11
-    
-    I_FLAG     = 12
-    I_FLAG_AND = I_FLAG_OR = I_FLAG_NOT  = 13
-    I_FLAG_BUP = 14
-
-    I_TMP_YN   = 15 # +3
-
-    K_         = 18 # +2
-    K100       = 20 ; K10 = 21 ; K1 = 22
+    I_TMP_DIV  = 12 ; I_TMP_DIV1 = 13
+    I_TMP_MOD  = 14 ; I_TMP_MOD1 = 15
+
+    I_FLAG     = 16
+    I_FLAG_AND = I_FLAG_OR = I_FLAG_NOT  = 17
+    I_FLAG_BUP = 18
+    I_FLAG_BORROW = 19 # 減算で０を下回るときに立つフラグ
+
+    I_TMP_YN   = 20 # +3
+
+    K_         = 23 # +2
+    K100       = 25 ; K10 = 26 ; K1 = 27
 
 #   TMP        = 19
-    VAR_BASE   = 23
+    VAR_BASE   = 28
+
+    private
+    def label(pos)
+      case pos
+      when 0 ; "I_NODE"
+      when 1 ; "I_NODE_TMP"
+      when 2 ; "I_TMP_SPACE"
+      when 3 ; "I_TMP_PUT"
+      when 4 ; "I_TMP_PUT + 1"
+      when 5 ; "I_TMP_COPY"
+      when 6 ; "I_TMP_ZNZ"
+      when 7 ; "I_TMP_EQ"
+      when 8 ; "I_TMP_ADD"
+      when 9 ; "I_TMP_MUL"
+      when 10 ; "I_TMP_MUL1D"
+      when 11 ; "I_TMP_MUL2"
+      when 12 ; "I_TMP_DIV"
+      when 13 ; "I_TMP_DIV+1"
+      when 14 ; "I_TMP_MOD"
+      when 15 ; "I_TMP_MOD+1"
+      when 16 ; "I_FLAG"
+      when 17 ; "I_FLAG_AND"
+      when 18 ; "I_FLAG_BUP"
+      when 19 ; "I_FLAG_BORROW"
+      when 20 ; "I_TMP_YN"
+      when 21 ; "I_TMP_YN+1"
+      when 22 ; "I_TMP_YN+2"
+      when 23 ; "K_"
+      when 24 ; "K_+1"
+      when 25 ; "K100"
+      when 26 ; "K10"
+      when 27 ; "K1"
+      when 28 ; "VAR_BASE"
+      else "VAR_BASE+#{pos-28}"
+      end
+    end
 
     private
@@ -103 +136 @@
     # 絶対移動: ix = pos
     def move_to(pos)
+      if @debug_mode
+        debug_print "move_to #{label(pos)}"
+        return
+      end
+
       return "" if pos == @_ix
       move(pos - @_ix)
@@ -124 +162 @@
     # while (st[ix]) { ...content... }
     def bf_loop(&b)
+      if @debug_mode
+        debug_print "loop {"
+        debug_indent_incr
+
+        b.call
+
+        debug_indent_decr
+        debuf_print "}"
+        return
+      end
+
       "[" + b.call + "]"
     end
     def loop_at(k,&b)
+      if @debug_mode
+        debug_print "loop_at #{label(k)} {"
+        debug_indent_incr
+
+        # move_to(k) + "["
+        b.call
+        # move_to(k) + "]"
+        move_to(k)
+
+        debug_indent_decr
+        debug_print "}"
+        return
+      end
+
       move_to(k) + "[" + b.call + move_to(k) + "]"
     end
     def do_once_if(flag_pos,&b)
+      if @debug_mode
+        debug_print "do_once_if #{label(flag_pos)} {"
+        debug_indent_incr
+
+        # move_to(flag_pos) + "[" 
+        b.call
+        # + clr_at(flag_pos) + "]"
+
+        debug_indent_decr
+        debug_print "}"
+        return
+      end
+
       move_to(flag_pos) + "[" + b.call + clr_at(flag_pos) + "]"
     end
@@ -135 +211 @@
     # st[ix] = 0
     def clr
+      if @debug_mode
+        debug_print "clr"
+        return
+      end
+
       _set 0
       "[-]"
@@ -140 +221 @@
 
     def save_ix(&b)
+      if @debug_mode
+        ix_keep = @_ix
+        b.call
+        move_to(ix_keep)
+        return
+      end
+
       ix_keep = @_ix
       b.call + move_to(ix_keep)
@@ -150 +238 @@
     # st[src_pos] の内容は保持される。
     def copy_byte(dest_pos, src_pos)
+      if @debug_mode
+        debug_print "copy_byte #{label(dest_pos)}, #{label(src_pos)}"
+        return
+      end
+
       return "" if dest_pos == src_pos
 
       save_ix {
-        clr_at(dest_pos) + clr_at(I_TMP_COPY) + 
+        clr_at(dest_pos) + clr_at(I_TMP_COPY) +
         repeat(src_pos) { incr_at(dest_pos) + incr_at(I_TMP_COPY) } +
         repeat(I_TMP_COPY) { incr_at(src_pos) }
@@ -161 +254 @@
     # st[ix] += st[k]
     def add_byte(k)
+      if @debug_mode
+        debug_print "add_byte #{label(k)}"
+        return
+      end
+
       ix_keep = @_ix
       save_ix {
@@ -167 +265 @@
       }
     end
-    # st[ix] -= st[k]
+
+    # st[ix] -= st[k], set borrow_flag if result < 0
     def sub_byte(k)
+      if @debug_mode
+        debug_print "sub_byte #{label(k)}"
+        return
+      end
+
+#      save_ix {
+#        copy_byte(I_TMP_SUB, k) +
+#        repeat(I_TMP_SUB) { decr_at(ix_keep) }
+#      }
       ix_keep = @_ix
       save_ix {
+        reset_flag_at(I_FLAG_BORROW) +
         copy_byte(I_TMP_SUB, k) +
-        repeat(I_TMP_SUB) { decr_at(ix_keep) }
+        repeat(I_TMP_SUB) {
+          if_zero_at(ix_keep) { set_flag_at(I_FLAG_BORROW) } +
+          decr_at(ix_keep)
+        }
       }
     end
@@ -179 +291 @@
     # uint8 - 符号なし8ビット整数演算
     #
+
+    # st[ix] = val
     def set_uint8(val)
-      # st[ix] = val
+      if @debug_mode
+        debug_print "set_uint8 #{val}"
+        return
+      end
+
       clr + add_uint8(val)
     end
 
+    # st[ix] += val
     def add_uint8(val)
-      # st[ix] += val
+      if @debug_mode
+        debug_print "add_uint8 #{val}"
+        return
+      end
+
       if val == 0
         return ""
@@ -212 +335 @@
     end
 
-    def sub_uint8(val) ; add_uint8(-val) ; end
+    # st[ix] -= val
+    def sub_uint8(val)
+      if @debug_mode
+        debug_print "sub_uint8 #{val}"
+        return
+      end
+
+      add_uint8(-val)
+    end
 
     # st[ix] *= val
     def mul_uint8(val)
+      if @debug_mode
+        debug_print "mul_uint8 #{val}"
+        return
+      end
+
       save_ix {
         copy_byte(I_TMP_MUL1,@_ix) +
@@ -227 +363 @@
       copy_byte(@_ix, I_TMP_MUL)
     end
-    # st[ix] /= val, I_MOD = mod
+
+    # st[ix] / st[k] = I_TMP_DIV ... I_TMP_MOD
+    def div_byte(k)
+      if @debug_mode
+        debug_print "div_byte #{label(k)}"
+        return
+      end
+
+      ix_keep = @_ix
+      save_ix {
+        copy_byte(I_TMP_MOD,ix_keep) +
+        clr_at(I_TMP_DIV) +
+        copy_byte(I_TMP_DIV1,k) +
+        set_flag_at(I_TMP_MOD1) + # use this addr for flag
+        loop_at(I_TMP_MOD1) {
+          move_to(I_TMP_MOD) +
+          sub_byte(I_TMP_DIV1) +
+          incr_at(I_TMP_DIV) +
+          if_nonzero_at(I_FLAG_BORROW) {
+            move_to(I_TMP_MOD) +
+            add_byte(I_TMP_DIV1) +
+            decr_at(I_TMP_DIV) +
+            reset_flag_at(I_TMP_MOD1)
+          }
+        }# +
+#        copy_byte(ix_keep,I_TMP_MOD)
+      }
+    end
+
+    # st[ix] / val = st[ix] ... I_MOD
     def div_uint8(val)
-    end
-#    # st[ix] %= val
-#    def mod_uint8(val)
-#    end
+      if @debug_mode
+        debug_print "div_uint8 #{val}"
+        return
+      end
+
+      ix_keep = @_ix
+      save_ix {
+        copy_byte(I_TMP_DIV, ix_keep) +
+        set_uint8_at(I_TMP_DIV1,val) +
+        move_to(I_TMP_DIV) +
+        div_byte(I_TMP_DIV1) +
+        copy_byte(ix_keep, I_TMP_DIV)
+      }
+    end
+    # st[ix] %= val
+    def mod_uint8(val)
+      if @debug_mode
+        debug_print "mod_uint8 #{val}"
+        return
+      end
+
+      ix_keep = @_ix
+      save_ix {
+        copy_byte(I_TMP_DIV, ix_keep) +
+        set_uint8_at(I_TMP_DIV1,val) +
+        move_to(I_TMP_DIV) +
+        div_byte(I_TMP_DIV1) +
+        copy_byte(ix_keep, I_TMP_MOD)
+      }
+    end
 
     # boolean
     # st[ix] &= st[k]
     def and_bool(k)
+      if @debug_mode
+        debug_print "and_bool #{label(k)}"
+        return
+      end
+
       save_ix {
         if_zero_at(k) { clr_at(@_ix) }
       }
     end
+
     # st[ix] |= st[k]
     def or_bool(k)
+      if @debug_mode
+        debug_print "or_bool #{label(k)}"
+        return
+      end
+
       save_ix {
         if_nonzero_at(k) { copy_byte(@_ix,k) }
       }
     end
+
     # st[ix] = not st[k]
     def bool_not(k)
+      if @debug_mode
+        debug_print "bool_not #{label(k)}"
+        return
+      end
+
       save_ix {
         copy_byte(I_FLAG_NOT, I_FLAG) +
@@ -256 +464 @@
 
     # ***_at(pos) - ※ixはposに留める
-    def incr_at(pos) ; move_to(pos) + bf_incr ; end
-    def decr_at(pos) ; move_to(pos) + bf_decr ; end
-    def read_at(pos) ; move_to(pos) + bf_read ; end
-    def clr_at(pos)  ; move_to(pos) + clr ; end
-    def set_uint8_at(pos,val) ; move_to(pos) + set_uint8(val) ; end
-    def add_uint8_at(pos,val) ; move_to(pos) + add_uint8(val) ; end
-    def sub_uint8_at(pos,val) ; move_to(pos) + sub_uint8(val) ; end
-    def set_flag_at(pos) ; set_uint8_at(pos,1) ; end
-    def reset_flag_at(pos) ; clr_at(pos) ; end
+    def incr_at(pos)
+      if @debug_mode
+        debug_print "incr_at #{label(pos)}"
+        return
+      end
+      move_to(pos) + bf_incr
+    end
+    def decr_at(pos)
+      if @debug_mode
+        debug_print "decr_at #{label(pos)}"
+        return
+      end
+      move_to(pos) + bf_decr
+    end
+    def read_at(pos)
+      if @debug_mode
+        debug_print "read_at #{label(pos)}"
+        return
+      end
+      move_to(pos) + bf_read
+    end
+    def clr_at(pos)
+      if @debug_mode
+        debug_print "clr_at #{label(pos)}"
+        return
+      end
+      move_to(pos) + clr
+    end
+    def set_uint8_at(pos,val)
+      if @debug_mode
+        debug_print "set_uint8_at #{label(pos)},#{val}"
+        return
+      end
+      move_to(pos) + set_uint8(val)
+    end
+    def add_uint8_at(pos,val)
+      if @debug_mode
+        debug_print "add_uint8_at #{label(pos)},#{val}"
+        return
+      end
+      move_to(pos) + add_uint8(val)
+    end
+    def sub_uint8_at(pos,val)
+      if @debug_mode
+        debug_print "sub_uint8_at #{label(pos)},#{val}"
+        return
+      end
+      move_to(pos) + sub_uint8(val)
+    end
+    def set_flag_at(pos)
+      if @debug_mode
+        debug_print "set_flag_at #{label(pos)}"
+        return
+      end
+      set_uint8_at(pos,1)
+    end
+    def reset_flag_at(pos)
+      if @debug_mode
+        debug_print "reset_flag_at #{label(pos)}"
+        return
+      end
+      clr_at(pos)
+    end
 
     # ブロック
     def if_nonzero_at(pos, &b)
+      if @debug_mode
+        debug_print "if_nonzero_at #{label(pos)} {"
+        debug_indent_incr
+
+        b.call
+
+        debug_indent_decr
+        debug_print "}"
+        return
+      end
       # st[pos]が 0 でない場合のみブロックの内容を実行。
       # st[pos]の値は保持される。
@@ -278 +550 @@
     end
     def repeat(count_pos, &b)
+      if @debug_mode
+        debug_print "repeat #{label(count_pos)}"
+        debug_indent_incr
+
+        b.call
+
+        debug_indent_decr
+        debug_print "}"
+        return
+      end
       # st[count_pos]に指定された回数だけブロックの内容を実行
       loop_at(count_pos) { b.call + decr_at(count_pos) }
@@ -284 +566 @@
     # test系。ここではtestで始まる名前を付けない
     def check_if_zero
+      if @debug_mode
+        debug_print "check_if_zero"
+        return
+      end
+
       # st[ix] の内容が 0 かどうかを I_FLAG にセットする
       copy_byte(I_TMP_ZNZ, @_ix) +
@@ -292 +579 @@
       # ix = I_FLAGで戻る
     end
+
     def check_if_nonzero
+      if @debug_mode
+        debug_print "check_if_nonzero"
+        return
+      end
+
       # st[ix] の内容が 0 でないかどうかを I_FLAG にセットする
       copy_byte(I_TMP_ZNZ, @_ix) +
@@ -301 +594 @@
       # ix = I_FLAGで戻る
     end
+
     def check_if_n(n)
+      if @debug_mode
+        debug_print "check_if_n #{n}"
+        return
+      end
+
       # st[ix] の内容が n に等しいかどうかを I_FLAG にセットする
       sub_uint8(n) + check_if_zero + add_uint8(n)
@@ -308 +607 @@
     # i/o
     def write_char(c)
+      if @debug_mode
+        debug_print "write_char #{c}"
+        return
+      end
+
       # １文字表示する。引数cはコード。
       save_ix {
@@ -314 +618 @@
     end
     def write_string(s)
+      if @debug_mode
+        debug_print "write_string \"#{s.gsub(/\n/,"\\n")}\""
+        return
+      end
+
       return "" unless s and s.length > 0
 
@@ -345 +654 @@
     end
     def write_uint8(i)
+      if @debug_mode
+        debug_print "write_uint8 #{i}"
+        return
+      end
+
+#      set_uint8_at(I_TMP_PUT,i) + write_byte_as_uint8(I_TMP_PUT)
       save_ix {
         set_uint8_at(I_TMP_PUT,i) + write_curr_as_uint8
@@ -350 +665 @@
     end
 
+    def write_byte_as_uint8(k)
+      if @debug_mode
+        debug_print "write_byte_as_uint8"
+        return
+      end
+
+      save_ix {
+        move_to(k) + write_curr_as_uint8
+      }
+    end
     def write_curr_as_uint8
+      if @debug_mode
+        debug_print "write_curr_as_uint8"
+        return
+      end
 #      save_ix {
         # st[K_] = k
@@ -393 +722 @@
 
     def if_zero_at(pos,&b)
+      if @debug_mode
+        debug_print "if_zero_at #{label(pos)} {"
+        debug_indent_incr
+
+#        move_to(pos) + check_if_zero + do_once_if(I_FLAG,&b) #if_nonzero_at(I_FLAG,&b)
+        b.call
+
+        debug_indent_decr
+        debug_print "}"
+        return
+      end
+
       # st[pos]=0ならブロックの内容実行
       save_ix {
@@ -400 +741 @@
 
     def yn_inkey
+      if @debug_mode
+        debug_print "yn_inkey\t\t# I_TMP_YN <-- 'y' ? 1 : 0"
+        return
+      end
       # y か n が入力されるまで入力ループ。
       # I_TMP_YN に結果が入る。（yなら1,nなら0）
@@ -420 +765 @@
 
     def say(s, next_node=0)
+      if @debug_mode
+        printf("//   say(\"%s\", %d)\n", s, next_node)
+
+        write_string(s + "\n")
+        set_uint8_at(I_NODE, next_node)
+        return
+      end
       # 文字列 s を表示し改行する。
       write_string(s + "\n") + set_uint8_at(I_NODE, next_node)
@@ -425 +777 @@
 
     def ask(s, n_node, y_node)
+      if @debug_mode
+        printf("//   ask(\"%s\", %d, %d)\n", s, n_node, y_node)
+
+        write_string(s + " [y/n]\n> ")
+        yn_inkey
+        if_nonzero_at(I_TMP_YN) { set_uint8_at(I_NODE, y_node) }
+        if_zero_at(I_TMP_YN) { set_uint8_at(I_NODE, n_node) }
+        return
+      end
       # 文字列（質問文）s を表示し、y/n の入力を促し、I_NODEを適切なノード番号にセットする
       # n_node が先なのはZuの仕様に合わせているため
-      save_ix {
-        write_string(s + " [y/n]\n> ") +
+      write_string(s + " [y/n]\n> ") +
         yn_inkey +
         if_nonzero_at(I_TMP_YN) { set_uint8_at(I_NODE, y_node) } +
         if_zero_at(I_TMP_YN) { set_uint8_at(I_NODE, n_node) }
-      }
     end
 
     def node_switch(table)
+      if @debug_mode
+        print "// switch (node) {\n"
+
+        set_flag_at(I_NODE)
+        debug_print "loop {"
+        debug_indent_incr
+        copy_byte(I_NODE_TMP, I_NODE)
+
+        (1..table.size-1).each {|i|
+          decr_at(I_NODE_TMP)
+          if table[i]
+            print "// case #{i}:\n"
+            if_zero_at(I_NODE_TMP) { eval(table[i]) }
+          end
+        }
+        move_to(I_NODE)
+        debug_indent_decr
+        debug_print "}"
+
+        print "// }\n"
+        return
+      end
+
       bf = set_flag_at(I_NODE) + "[" + copy_byte(I_NODE_TMP, I_NODE)
       (1..table.size-1).each {|i|
         bf += decr_at(I_NODE_TMP)
-        bf += if_zero_at(I_NODE_TMP) { eval(table[i]) } if table[i]
+        if table[i]
+          bf += if_zero_at(I_NODE_TMP) { eval(table[i]) }
+        end
       }
       bf + move_to(I_NODE) + "]"

lang/ruby/brainfuck/trunk/mytest.rb

@@ -7 +7 @@
 
 wr = Brainfuck.writer
+wr.debug_mode = false
 code = ""
 #code = wr.say("hello.")
+#code += wr.say("hello.")
+
+#code += wr.write_uint8(200)
+#code += wr.write_char(0x41)
+#code += wr.write_string("\n")
+
+#code += wr.set_uint8_at(30,5)
+#code += wr.mul_uint8(7)
+#code += wr.write_byte_as_uint8(30)
+#code += wr.write_string("\n")
+
+code += wr.set_uint8_at(30,50) + wr.set_uint8_at(32,6)
+code += wr.move_to(30) + wr.div_byte(32)
+code += wr.write_byte_as_uint8(30) + wr.write_string(" / ") +
+  wr.write_byte_as_uint8(32) + wr.write_string(" = ") +
+  wr.write_byte_as_uint8(12) + wr.write_string(" ... ") +
+  wr.write_byte_as_uint8(14) + wr.write_string("\n")
+
+code += wr.set_uint8_at(30,6) #wr.set_uint8_at(32,6)
+
+code += wr.write_byte_as_uint8(30) + wr.write_string(" / 2 = ") 
+code += wr.move_to(30) + wr.div_uint8(2) +
+  wr.write_byte_as_uint8(12) + wr.write_string(" ... ") +
+  wr.write_byte_as_uint8(14) + wr.write_string("\n")
 
 #256.times{|i| code += wr.write_uint8(i) + wr.write_char(0x20) }
@@ -22 +47 @@
 #code += wr.say("goodbye!")
 
-TMP_ADDR = 30
-code += wr.set_uint8_at(TMP_ADDR, 5) + wr.mul_uint8(7) + wr.write_curr_as_uint8
+#TMP_ADDR = 30
+#code += wr.set_uint8_at(TMP_ADDR, 5) + wr.mul_uint8(7) + wr.write_curr_as_uint8
+
+#print "code.length = #{code.length}\n"
+#print code
+#exit
 
 vm = Brainfuck.VM
 vm.load(code)
 vm.run
-

lang/ruby/brainfuck/trunk/zu2bf

@@ -9 +9 @@
 class Zu2Bf
   def initialize
+    @debug_mode = false
   end
+  attr_accessor :debug_mode
 
   def compile(src)
     tg = TextGraph.parse(src)
     wr = Brainfuck.writer
+    wr.debug_mode = @debug_mode
 
     table = Array.new
@@ -23 +26 @@
       table[1+i] = inst
     }
-    wr.node_switch(table).optimize
+    optimize wr.node_switch(table)
   end
+
+  def optimize(code)
+    return "" unless code and code.length > 0
+    begin
+      last_length = code.length
+      code.gsub!(/<>/,"")
+      code.gsub!(/></,"")
+    end while code.length < last_length
+    code.sub!(/[-+<>,]*\Z/, "")
+  end
+end
+
+def fold_string(orig,line_length)
+  lines = ((orig.length + (line_length-1)) / line_length).to_i
+  s = ""
+  (lines - 1).times{|l|
+    s += orig[line_length*l .. line_length*l + (line_length-1)] + "\n"
+  }
+  s += orig[line_length*(lines-1) .. -1] + "\n" if line_length*(lines-1) < orig.length
+  s
 end
 
@@ -34 +57 @@
     ARGV.shift
   end
+  options ||= ""
 
   compiler = Zu2Bf.new
+  compiler.debug_mode = true if options =~ /d/
 
   bfcode = compiler.compile(ARGF.read)
 
-  case options || ""
+  case options
   when /r/ # run
     bf = Brainfuck.VM
@@ -48 +73 @@
     bf.load bfcode
     bf.list
+  when /d/ # debug
+    # nothign
+  when /n/ # raw
+    print bfcode
   else
-    print bfcode
+    print fold_string(bfcode,80)
   end
 end