1646c
#     ise[i_i_d].delif_c(ts) { |fis, n|
      ise[i_i_d].delif_c { |fis, n|
.
1640c
#     ise[i_i_s].delif_c(ts) { |pfl, n|
      ise[i_i_s].delif_c { |pfl, n|
.
1583,1587d
1546d
1513a
        @Slp.slp 0
.
1461,1463c
#      sym = (c = [nil, 0, 1][[:JMP, :JMPIF, :JMPNOT].index(sym)]) &&
#       stack.getarg_a
#      (! c || c && [sym, ! sym][c]) &&
#       rg['pc', -1] = rg['pc'] + rou.getarg_sbx(cop)

      c = [:JMP, :JMPIF, :JMPNOT].index(sym) - 1
      (0 > c || (sym = stack.getarg_a; [sym, ! sym][c])) &&
.
1411a
        sl.slp 0
.
1408,1409c
#       (ri ||= fb && true == fb.resume) && fb = nil
        ri ||= true == fb.resume
.
1402a
    sl = @Slp
.
1309d
1284,1286c
#         when 'th'
#           fv = (fvl.delete_at(((0 <=> fvl.hgt) << 1) + 1) || fvl[0]).(oi) # c 
          when 'th' then fv = fvl[-1].(oi); fvl = fvl[0 .. fvl.size - 2]        # c 
.
1272,1278c
#    fvl = [->(oi) {((oi <= ht = fv.hgt) && fv[oi] = imem.ta(fv[oi], cop)) ?      # l 
    fvl = [
        ->(oi) {((oi <= ht = fv.hgt) && fv[oi] = imem.ta(fv[oi], cop)) ?          # l 
                [thl[oi], verb.(fv[oi])] : []},                                                 # c 
        ->(oi) {[thl[oi], verb.(imem.ta(fv[oi], cop)), thl[oi + 1], tb]} # .lazy     # l     # c 
    ]
.
1267,1268d
1264c
##     loc.verb("#{pc.to_xeh}              #{verb[0]}      #{verb[1].to_xeh}")
#     loc.vrb(
#       "#{pc.to_xeh}              getarg#{verb[0]}        #{verb[1].to_xeh}")
.
1257c
#    bt = imem.fml('th', 'bt')[1 .. -1]
    bt = imem.fml_th_bt
.
1230d
1225,1228c
#       f = 0 == m && c_l.ca && f
        f = c_l.ca(m, pc) && f
.
1213d
1190,1198c
#      sl = @@fls_m || (f = 4; sl = (1 << f) - 1 - 1
#      f -= 2; sl = @@fls_m = ((sl << f) + sl >> f - 1) + 1 >> 1)
      sl = @@fls_m ||= @@fls_mc.(4)
.
1187d
1184d
1175a
  @@fls_mc = ->(sz) {
    @@fls_m = (1 << sz) - 1 - 1
    sz -= 2; sz = ((@@fls_m << sz) + @@fls_m >> sz - 1) + 1 >> 1
    @@fls_mc = nil
    sz
  }
.
1171c
#      @f && @rs[i] = -1
      @f && @rs[i] ||= -1
.
1168,1169c
###    @loc.vrb "#{pc.to_xeh}                      #{@sym} #{@rs[1]}       #{@rs[0]}"
##    @loc.vrb "#{pc.to_xeh}                       #{@sym} #{rs[1]}        #{rs[0]}"
      @loc.vrb [3, pc, @sym, rs[1], rs[0]]
.
1166c
#      return if -1 == @rs[i = @mh_thl.size]            # r 
      return if -1 == (rs = @rs)[i = @mh_thl.size]              # r 
.
1154c
#      ji_ngq = r.map { |v| lpl.ckth(v, 1)}
      ji_ngq = r.map { |r| lpl.ckth(r, 1)}
.
1138d
1132,1136c
#   r = r.map { |v| v[1] = v[-1]}               # higokan ? mruby 70410200
.
1129a
      v = [nil, nil]
.
1123d
1109c
        @r0, @r1 = @r
#       @pr || (@pr, @sy = @imem.fml('st', @sym)[1 .. -1]
        @pr || (@pr, @sy = @imem.fml('st', @sym)[1 .. -1][0]
.
1103,1106c
#    def ca # (m) # (i)
    def ca(m, pc) # (i)
      0 == m || return
.
1088c
#             plr<< s.ow?(n) ? nil : lm.(isr0, s[n])              # p     # c 
.
1083,1086c
#             @plr += lm.(s[(sz = @sz) ..               # c 
#               sz + (ap = (ap += ap >> 1) >> 1)])  #                sz = @ap >> 1) + (sz >> 1)])
#             @sz.step(@sz + (@ap = (@ap += @ap >> 1) >> 1)) { |n|
              @sz.step(@sz + (ap = (ap += ap >> 1) >> 1)) { |n|     # + (ap <=> 0))
                @plr<< @lm.(s[n])}                # p     # c 
.
1074,1077c
            @r = @r1 <= @sz && @plr[@r1] || @lm.(@r1)                # c 
            s[@r1] = @sy ? [s[@r1], @r].inject(@sy) : @r
.
1071c
        @lm = ->(r1) {r1 && @imem.send(@pr, *@isr0, r1, @mt)}        # l 
.
1066,1068d
1059d
1057c
        @s = s; @i = irep; @imem = imem; @lpl = lpl # ; @ap = ap
.
1050d
1041c
    pl[0] = [[thl[0], [thini]], [thl[1], [thini]],
              ['sym', [0]], ['ctr', []]]                # @pla = [['sp', 'ctr']]
.
1037,1039d
1026d
1023c
# module M__PlIni       # osx/ppc http://master.dl.sourceforge.net/project/hpc/OldFiles/gcc-bin.tar.gz#4p3__3.400 #gcc-tiger-bin.tar.gz#4p1__1.400      # cctools-590.36.dmg    # Rake : Ruby1.9+/OSX10.4/PPC ?
.
1002c
#    @rmt = wkth
    @rmt = []
    @@nth.times {@rmt<< wkth}     # p 
.
978a
    @Slp = @@Slp
.
977d
970a
    @@nth = NTH
.
857d
855d
849d
828d
785c
#  attr_accessor :c, :p, :s, :r
  attr_accessor :c, :p, :r
.
712c
        (  th[idx].nil? ||              # fuguai taisaku ?
.
705,706c
#         t && loc.vrb([2, pc - 1, *t])
          v && 0 != vl && loc.vrb([2, pc - 1, *v])
.
702a

          r || (next ini.call)          # fuguai taisaku ?

.
701a
#           r = pl_es(pc, [thl[idx], [th[idx], nil]])
.
700d
693,696c
#           a = []; 0.step(idx) { |n| a.push(thl[n], [th[n]])}
#           r = pl_es(pc, a)
            r = pl_es(pc, (0 .. idx).flat_map{|n| [thl[n], [th[n]]]})
#           r = pl_es(pc, (0 .. idx).flat_map{|n| [thl[n], [th[n]], n != mx]})
.
684,685c
#         th[idx], t = s_id(th[idx]) # if mx >= idx # && ckth(th[idx], 3)
          th[idx], v = s_id(th[idx]) # if mx >= idx # && ckth(th[idx], 3)
.
676c
#       t = nil
        v = nil
.
674c
#    Fiber.new { |m = 1, thi = 0| 0 < m && Fiber.yield(false)
    Fiber.new { |m = 1| 0 < m && Fiber.yield(false)
.
669c
#    ji_ngq = false
.
662,666c
    vl = LV__VRB

    idx, thi, ji_ngq = nil              # idx = 0 ##
    ini = -> {idx, thi = 0; ji_ngq = false}.call     # l     # fuguai taisaku

##   th = Array.new(thl.size) { |v| 0 == v ? pl_eg(pc, thl[v]) : []}    # t     # unwork ( thread ? ) mruby 10410200
#   th = Array.new(thl.size) { |v| 0 == v ? pl_eg(pc, thl[v]) : tb}     # unwork ( thread ) mruby 10410200      # mruby-thread e139cfed 1211410200 sdottaka
#    th = ((idx = 0) .. mx = thl.hgt).map { |v|
#      0 == v ? pl_eg(pc, thl[v]) : []  # t 
#    }
    th = (idx .. mx = thl.hgt).map { |v| 0 == v ? pl_eg(pc, thl[v]) : tb}
.
660d
657a
    tb = TB
.
638,648c
#    a[0] = (@@Imem).str__getarg(a[0])
    a[0] = (@@Imem).getarg__(a[0])
#    [self.send(*a) || a[1],
#       case a[0] when Numeric then nil else a end]
##      knid(a[0], :Numeric).! && a]
    [self.send(*a) || a[1], case a[0] when Numeric then nil else a end]
#   [self.send(*a) || a[1], knid(a[0], :Numeric).! && a]
.
628c
##    v.kind_of?(Array) ?                       # unwork ( thread ? )
.
623d
620c
#    case a[0] when Numeric then a.inject else (ROU).send(*[
#     [a[1], ?_ == (a = a[0].to_s)[0] && a = "getarg" << a][0], a].rotate) end
##  case a[0] when Numeric then a.inject else (ROU).send(a[0].getarg__, a[1]) end
##  case a[0] when Numeric then a.inject else (ROU).send((@@Imem).getarg__(a[0]), a[1]) end
.
618a
### GC.start            # g 
.
572c
  ensure
.
568d
542c
#    0 == n ? pl.map { |a| a[1]} : pl
    0 == n ? (return pl.map { |a| a[1]}) : pl           # r 
.
516,519c
#    @@Loc.plok(n) { |a| ### @ca =
    @@Loc.plok(*@@Idx.idx(:Numeric, n)) { |a| ### @ca =
        JSON::parse( ### @ca =
#                                       ENV[@@idb + a[0].to_xeh])
                ENV[@@idb + a[0]])
    } # || nil
.
514c

.
503,504c
#    @@Loc.plok(n, v) { |a| ENV[@@idb + a[0].to_xeh] = JSON::generate(a[1])}
    @@Loc.plok(*@@Idx.idx(:Numeric, n, v)) { |a| ENV[@@idb + a[0]] =
        JSON::generate(
                a[1])} # || nil
.
491a

.
489d
487d
475a


    class Idx
      def idx(tp, *a)
        a[0] = a[0].to_xeh
        a
      end
    end
    @@Idx = Idx.new

.
439,443c
#    '__' != (a[0] = a[0].to_s)[0 .. 1] ?
#      self.mmis('s__' << a[0], *a[1 .. -1]) :
    if '__' != (a[0] = a[0].to_s)[0 .. 1]
      a[0] = 's__' << a[0]
      case a[3]                         # a[@@I_s__r1 + 1]
      when Array then a3 = a.pop; return a3.map{ |v| v.nil? ? v : send(*a, v)}  # r 
      else self.send(*a)
      end
    else
#      self.mmis(:s__send, a[1].to_s[2 .. -1], *a[2 .. -1])
      self.send(:s__send, a[1].to_s[2 .. -1], *a[2 .. -1])
    end
.
435,437c
  def method_missing(*a)        # atode modosu
.
427,433c
#  def mmis(*a)
#    case a[3]                          # a[@@I_s__r1 + 1]
#    when Array
#      a3 = a[3]; a3.map{ |v| v.nil? ? v : send(*a[0 .. 2], v, a[4])}
#    else send(*a)
#    end
#  end
.
425a
#  def method_missing(*a) a[0].send(a[3])[a[1]]         end
.
358a
#  def fml_th_bt
#    @@fml_th_bt
##   @@fml[0].assoc(lb)
#  end

.
354,356c
##   @fml.(lb).assoc(sym)               # c 
#    @@fml.(lb).assoc(sym)              # c 
##   (f = @@fml).(lb).assoc(sym)        # c 
    [sym, @@fml.assoc(sym)[1 .. -1].assoc(lb)[1 .. -1]]
.
350d
345,347c
#  def str__getarg(s)
  def getarg__(s)
#    ?_ == s.to_s[0] && s = "getarg" << s               # q 
#    s
    ?_ == s.to_s[0] ? "getarg" << s : s         # q 
.
343c
    @fml_th_bt = @@fml_th_bt
  end
.
341c
  attr_accessor :fml_th_bt

  def initialize
.
317,339c
#  @@fml = ->(lb) { [        # l 
#    ['st',
#      [:MOVE,    :sr0],      [:LOADL,   :__pool],
#      [:LOADI,   :r0 ],      [:LOADSYM, :__syms],
#      [:LOADSELF, :sr0],      [:LOADT,  :r0],
#      [:ADD,     :sr01, :+], [:ADDI,    :r0,   :+],
#      [:SUB,     :sr01, :-], [:SUBI,    :r0,   :-],
#      [:MUL,     :sr01, :*], [:DIV,     :sr01, :/],
#      [:EQ,      :r1_eq_sr01]],
#    ['th',
#      ['bt', ['sym', true, 'th', true], ['sym', false, 'th', true]],
#      [:MOVE,    [[:_b          ], []]], [:LOADL,   [[:_bx       ], []]],
#      [:LOADI,   [[:_sbx        ], []]], [:LOADSYM, [[:_bx       ], []]],
#      [:LOADSELF, [[:mk_opcode, 0], []]], [:LOADT,   [[true, '', 0], []]],     # mk_opcode 0
#      [:ADD,     [[]                 ]], [:ADDI,    [[:_c        ], []]],
#      [:SUB,     [[]                 ]], [:SUBI,    [[:_c        ], []]],
#      [:MUL, [[]]], [:DIV, [[]]], [:EQ, [[]]]
#    ]].assoc(lb) # .lazy
#  }
  @@fml_th_bt = [['sym', true, 'th', true], ['sym', false, 'th', true]]
  @@fml = [
    [:MOVE,     ['st', :sr0     ],      ['th', [:_b             ], []]],
    [:LOADL,    ['st', :__pool  ],      ['th', [:_bx            ], []]],
    [:LOADI,    ['st', :r0      ],      ['th', [:_sbx           ], []]],
    [:LOADSYM,  ['st', :__syms  ],      ['th', [:_bx            ], []]],
    [:LOADSELF, ['st', :sr0     ],      ['th', [:mk_opcode, 0   ], []]], # mk_opcode 0
    [:LOADT,    ['st', :r0      ],      ['th', [true, '', 0     ], []]],
    [:ADD,      ['st', :sr01,   :+],    ['th', []]],
    [:ADDI,     ['st', :r0,     :+],    ['th', [:_c             ], []]],
    [:SUB,      ['st', :sr01,   :-],    ['th', []]],
    [:SUBI,     ['st', :r0,     :-],    ['th', [:_c             ], []]],
    [:MUL,      ['st', :sr01,   :*],    ['th', []]],
    [:DIV,      ['st', :sr01,   :/],    ['th', []]],
    [:EQ,       ['st', :r1_eq_sr01],    ['th', []]]
  ]
.
296c
#      s = a[1].to_xeh << "  " * a[0] << "#{a[2]}    #{a[3].to_xeh}"
      s = a[1].to_xeh << "   " * a[0] <<
        "#{a[2]}   #{a[3].to_xeh}"
#       "#{a[2].to_s << (8 > a[2].size ? '        ' : '')}        #{a[3].to_xeh}"
.
271a
##    @@Slp.slp 0               # read syoutotu taisaku
.
257c
  ) # .move     # ?     # conf.gem :github => 'miura1729/mruby-mmm'
.
205a
# def initialize;       @@slp ||= @@nsl_.force[0]       end     #? mruby 410200

.
202a

# @@nsl_ = [                                            #? mruby 410200
  @@slp =       # conf.gem :github => 'matsumotory/mruby-sleep' # 'bamchoh/mruby-sleep'      # msleep usleep
        (((@@slp = NSL_ >> 2) + (@@slp >> 5)) >> 7) + 1 >> 1
#       (((@@slp = NSL_ >> 1) + (@@slp >> 5)) >> 8) + 1 >> 1
#                       ].lazy                          #? mruby 410200

.
200,201d
198a
#                       ].lazy                          #? mruby 410200
.
197c
# @@slp = 2; @@slp = # [ #? mruby 410200
.
195c
  @@slp = nil
# @@slp = 7; @@slp = # [ #? mruby 410200
.
161c
##  )][0] ? self.replace(a) :           # f ? self.replace(a) :         # fuguai taisaku
.
159d
155c

.
152,153c
#     while i > c += 1               # c += 1 < i # -e:1: non float value (TypeError) ( monami-ya.mrb:60510200 mruby:70410200 )
.
149,150c
      n = fr + (fr = fr.abs) >> 1
      (i > fr = a.size - fr) && i = fr

.
141d
50,53c
#  @@mh_thl = (0 .. 1).to_a.map { |n| 'th' + n.to_xeh}
.
38a
LV__VRB = 1

.
33a
NTH = 1                                                 # = 68060
.
23,25c
#       :_ctr_s,        :p,     :s,     :r,     :c,             :fibt].clear
        :_ctr_s,        :p,     :r,     :c,     :fml_th_bt,     :fibt].clear
.
18,19d
3,4d



-- 
YAMAGUTIseisei ( str_h__namae = { :sei => "山口" , :mei => "青星" } )
http://hello.to/seisei/ mailto:seisei@.68..net
祝 任天堂すいっち有機 EL モデル