1325c
##  @rmt.join
.
1318,1319d
1311,1315c

.
1288,1289d
1271d
1266,1267c
#         fl<< fls(pc)    # p 
          fl<< fibi(@@fls ||= fls, ~ pc, 1) { |pc| 0 > pc ? ~ pc : pc} # p 
.
1263c
#         ise<< iset(rg) if 0 <= rg['pc', nil, ?-] && pctj.pop != pc   # p     # q     # cp 
          0 <= rg['pc', nil, ?-] && pctj.pop != pc && ise<< fibi(@@iset ||=    # cp    # q     # p 
###             iset, rg) {nil}         # ? 
#               iset, rg.to_a('pc', 'sp', 'cop', 'sym')) {nil}
##              iset, rg) {}    # ? 
                iset, rg.to_a('pc', 'sp', 'cop', 'sym')) {}

.
1261d
1258,1259c
#       lpl.verb "#{pc.to_xeh}     #{sym}  #{rg['cop'].to_xeh}" # if sym
        loc.verb "#{pc.to_xeh}     #{sym}  #{rg['cop'].to_xeh}" # if sym
.
1247d
1244d
1078,1079d
1067a
    loc = @@loc
.
1035,1043c
#  @@iset2 = nil
  @@iset = nil
#  def iset(rg)
##   rgd = rg.dup
#    rgd = rg.to_a('pc', 'sp', 'cop', 'sym')
#
##    fibi(@@iset2 ||= iset2, rgd) {nil}
#    fibi(@@iset ||= iset, rg.to_a('pc', 'sp', 'cop', 'sym')) {nil}
#  end
.
1030a
        oa.empty? || oa.clear
.
1027c
#       rg, m = Fiber.yield(0 != thi && ht <= thi && (thi = -1; true))       ##
        rg, m = Fiber.yield(0 != thi && ht <= thi && ! ! thi = -1)   ##
.
1025d
1021c
#       pl.pl_es(pc1, opg.(thi) + [oa, []][thi <=> 0])    # c 
        pl.pl_es(pc1, opg.(thi) + oa)   # c 
.
1013,1014d
1006a
#         lopa.push(k, 'th' != k ? fv : (                                       #? mruby 410200
##        lopa.push(k, 'th' != k ? fv : fvl.force[oi <=> 0].(oi)) # c     #? mruby 410200
#               case fvl when Array then else fvl = fvl.force end       # higokan mruby 70410200        #? mruby 410200
#               knid(fvl, :Array) || fvl = fvl.force            #? mruby 410200
#               fvl[oi <=> 0].(oi)))      # c 
.
1004d
1001,1002d
999c
#    opg = ->(oi, lopa = []) { i = -1        # l 
    opg = ->(oi, lopa = [], i = -1) {        # l 
.
997c
                ((ht = fv.hgt) <=> oi) >> 1]}]      # .lazy #? mruby 410200
.
978,981d
976c
      pc, sp, cop, sym = rg ## .to_a('pc', 'sp', 'cop', 'sym') # ? 
.
965,966c
#  def iset2    ##
  def iset      ##
.
956,963c
#  @@fls2 = nil
  @@fls = nil
#  def fls(pc)
#    fibi(@@fls2 ||= fls2, ~ pc, 1) {0 > pc ? ~ pc : pc}
#  end
.
948,949c
#         isr0 = [i, s, r0]
          isr0 = [mt ? i : s, r[0]]
          sz = plr.size
#         ca[flg[1] ? 0 : 1].(r)        # c 
          ca[
#         ca.force[                     #? mruby 410200
                flg[1] ? 0 : 1].(r)     # c 
.
940,941c
          f = flg.all? # && r.all? { |f|
#               case f when Numeric then true else @@loc.verb(f); false end}
.
929d
924c
#      lpl.verb "#{pc.to_xeh}                      #{sym}  #{r[0].to_xeh}  #{r[1].to_xeh}"
      loc.verb "#{pc.to_xeh}                       #{sym}  #{r[0].to_xeh}  #{r[1].to_xeh}"
.
920d
913,918c
#         plr += lm.(s[(sz = plr.size) ..       # c 
#               sz + (ap = ap += (ap >> 1) >> 1) + (ap <=> 0)])
          plr += lm.(s[sz .. sz + (ap = (ap += ap >> 1) >> 1)]) # + (ap <=> 0)])      # c     # c 
.
911d
904,905c
#       pc1 = (pc1 = plr[r[1]]).nil? ? lm.(r[1]) : pc1  # c 
        pc1 = (pc1 = plr[r[1]] # ; r[1] >= sz ||
                pc1.nil?) ? lm.(r[1]) : pc1             # c 
.
898d
896d
885d
882d
873d
871c
#     i_th = lpl.afl('th', ?i)  # q 
.
866,867c
      loc = @@loc
      sl = @@slp

.
860,861c
#  def fls2     ##
  def fls       ##
.
858d
839,846c
#    Fiber.new { |m = 1| ctr.times {m = Fiber.yield(false)}
#      loop { sl.slp 0
    Fiber.new { |m = 1| loop { sl.slp 0
#       m = Fiber.yield(fb.resume(p1, m))
        m = Fiber.yield(0 < ctr ? ! ctr -= 1 :
                [fb.resume(p1, m), p1 = yield(p1)][0])}}
#       p1 = yield(p1)
#      }
#    }
.
819,821c
#    0 < pl.hgt && pl[0 .. -1] =
    (0 < thini = pl.hgt) && pl[0 .. -1] =
#       pl[0 .. pl.hgt & ((thini = rmth + 1) << 1) | thini]
        pl[0 .. thini & ((thini = rmth + 1) << 1) | thini]
.
810,812c
    pl[0] = [[pl0i[0], [[thini]]], [pl0i[1], [6309]], [pl0i[2], []]]
#   pl[0] = [[pl0i[0], [[thini]]], [pl0i[1], [NSL_]], [pl0i[2], []]]
#   self[0] = [[[thini]], [68000], []].map.with_index { |v, i| [pl0i[i], v]}
.
807c
    # 3080410200 : 5x2 ok ( gc ) : monami-ya.mrb 8270410200 813e2af8    # http://www.monami-ya.jp/
.
775c
    plini(@@rmth, @pl = ENVary.new(true))       # 310200plini ?
.
751a
    @@loc = Loc.new
.
631,632c
#  @@f = [0x0.chr * 0x20] * 0x4
  @@f = 0x0.chr * (0x20 << 2)
  @@bm = 0xff.chr
.
613d
588c
#       f && idx -= (idx <=> mx) >> 1       ##
.
580,586c
        Fiber.yield((( # f = #### th[idx].nil?.! && # fuguai taisaku
#                       ckth(th[mx = thn.hgt], 3)) ? (
#                               pl_es(pc, ['th', th]); sl.slp 0 # , 4096
                ckth(th[mx = thn.hgt], 3)) ? (pl_es(pc, ['th', th]); sl.slp 0 # , 4096
#                       f) : nil) && idx >= mx)
                true) : verb.call) && [idx >= mx, idx -= (idx <=> mx) >> 1][0])  ##
.
574c
#    f, mx = nil

#    verb = ->{nil}
    verb = ->{}
.
572d
567d
560,564c
#    a, op = a
#    case a when Numeric then true end ||
#       verb("#{pc.to_xeh}         #{a}    #{op.to_xeh}")
#       @@loc.verb("#{pc.to_xeh}           #{a}    #{op.to_xeh}")
        (loc = @@loc).verb("#{pc.to_xeh}           #{a[0]} #{a[1].to_xeh}")
#    (imem = @@Imem).send(a, op) || op
    (imem = @@Imem).send(*a) || a[1]
.
552,553c
##     knid(a, :Array)  ?     __method__(a, pc)  :    a         # s_id(a, pc)  :    #? mruby 310200
#      case a when Array then  __method__(a, pc)  else a end    # s_id(a, pc)  else #? mruby 310200
#     knid(a, :Array)   ?     s_id(a, pc)  :    a       # __method__(a, pc)  :    #? mruby 410200
      case a when Array then  s_id(a, pc)  else a end   # __method__(a, pc)  else #? mruby 410200
.
548,549c
#    ((tb = TB.dup) == a || case a when Array then 0 >= a.hgt end) && (return a)
    (TB.dup == a || case a when Array then 0 >= a.hgt end) && (return a)
.
544d
529,534c
#  def verb(s)  @@m.lock; puts s; @@m.unlock    end
.
511,512c
#    bfsz = (a = [knid(th, :Array), tb == th]).size
    bfsz = (a = [knid(th, :Array), TB.dup == th]).size
.
509c
#    tb = TB.dup
.
487,489d
482,484d
473a
      ['ctr' == k, k = self.afl(k, ?i)][0] &&    # q 
        knid(v, :Array).! ?
#       case v when Array then true end.! ?     # higokan ? mruby 70410200
                pl[k]<< v : pl[k] = v     # p 
.
466c
#     pl[i_k] = 'ctr' == k && ! knid(v, :Array) ? pl[i_k]<< v : v # p 
.
461c
#     i_k = self.afl(k, ?i)     # q 
.
424,426c
#     (nil == @@fxnm) && @@fxnm = (Float == self.afl('ctr')[0].class    # furui mattn/mruby-json
#     (nil == @@fxnm) && @@fxnm = (Float == self.ctr_r.class)           # furui mattn/mruby-json
#     (nil == @@fxnm) && @@fxnm = (Float == self.afl('sym')[0].class)   # furui mattn/mruby-json
.
411c
# @@fxnm = nil          # furui mattn/mruby-json
.
369,371d
347c
#     (Time.now.to_f - 0x3fffffff.to_f << 0x10).to_s.split(?.)[0][-8..-1].to_xeh  # q 
.
334c
#    @@m = Mutex.new
.
295,326d
285c
#    case op[0] when Numeric then op.inject(:+) else __send__(*op) end
    case op[0] when Numeric then op.inject else __send__(*op) end
.
278d
276d
273d
267c
# def s__i__r0(     *a) a[@@I_s__i].send(a[@@I_s__mt])[a[@@I_s__r0]]     end
  def s__i__r0(     *a) a[@@I_s__s].send(a[@@I_s__mt])[a[@@I_s__r0]]     end
.
260c
#  @@I_s__i = 0; @@I_s__s = 1; @@I_s__r0 = 2; @@I_s__r1 = 3; @@I_s__mt = 4
  @@I_s__s = 0; @@I_s__r0 = 1; @@I_s__r1 = 2; @@I_s__mt = 3
.
204,205d
197c
#      print("Unkown code #{sym} \n") # .to_s
      (loc = @@loc).verb("Unkown code #{sym} ") # .to_s
.
190,191d
186,187c
  def ta(l, cop) [l[0] || :getarg_a, l[1] || cop][0 .. l[2] || 1] end
.
165a
  @@loc = Loc.new
.
164a
module M__Loc   # Inspired by Professor HidetosiNagai http://rubykaigi.org/2011/ja/schedule/details/17S05/#KyuTech
  (
    @@m = Mutex.new
    @@slp = Slp.new
  )

#  def initialize(nm)
  def initialize(nm = nil)
    @nm = nm
  end

  def ploc(*a)
    GC.disable  # g 
#   s = nil
#   @m.lock
#   @@m.lock
    begin
      f = File.open(@nm, ?w)    # q 
      f.flock(File::LOCK_EX)
    rescue
#     f.close   # ? 
      @@slp.slp 0
#     (s ||= @@slp).slp 0
#      retry
      @nm && retry
    end ## if flg
    a[0] = a[0].to_xeh
    [yield(a), ## flg &&
        f.close][0]
#       @m.unlock][0]
#       @@m.unlock][0]
#   a = yield(r)
  end

  def verb(s)
    GC.disable  # g 
    @@m.lock
      puts s
    @@m.unlock
  end
end

class Loc
  include M__Loc
end

.
148,150c
#   (self.size << 4).times {sleep 0; (true == true).is_a?(Object); sleep 0}
.
138c
  @@slp = (((@@slp = NSL_ >> 2) + (@@slp >> 5)) >> 7) + 1 >> 1  # conf.gem :github => 'matsumotory/mruby-sleep' # bamchoh/mruby-sleep        # msleep usleep
.
122,129c
    [! a, (a ||= self                   # a ||= f = self        # a ||= (f = true; self)
      (i > n = a.size) && i = n
      c = (n = 0) - 1
      while i > c += 1       # c += 1 < i # -e:1: non float value (TypeError) ( monami-ya.mrb:60510200 mruby:70410200 )
#       a[n] && yield(a[n], c) && a.delete_at(n) || n += 1
        a[n] && yield(a[n], c) && (a.delete_at(n); redo); n += 1
#       (v = a[n]) && yield(v, c) && a.delete_at(n) || n += 1
      end
#    f ? self.replace(a) : a
    )][0] ? self.replace(a) : a         # f ? self.replace(a) : a
.
117,118d
114d
102,106c
##   self[0].index(k)   # higokan mruby 10410200 ( irep.rb )
#    ?i != m ? self[m.afl(k, ?i)] :      (self0 = self[0]).index(self0.assoc(k))        # self.index(idx)       # q 2 
    ?i != m ? self[m.afl(k, ?i)] :       (s0 = self[0]).index(s0.assoc(k))      # self.index(idx)       # q 2 
##   ?i != m ? self[m.afl(k, ?i)] : loop {(self0 = self[0]).index(self0.assoc(k)) && break}     # self.index(idx)       # fuguai taisaku        # q 2 
#   ?i != m ? self[m.afl(k, ?i)] : loop {(s0 = self[0]).index(s0.assoc(k)) && break}    # self.index(idx)       # fuguai taisaku        # q 2 
.
88c
#    (i + self.first .. i + self.last - (self.exclude_end? ? 1 : 0))
    i + self.first .. i + self.last - (self.exclude_end? ? 1 : 0)
.
70,71d
17,18c
#       :ctr_s, :p,     :s
        :ctr_s, :p,     :s].clear
#])))))))))
)))))))))
.
4,6c
# ((((((((([
(((((((((  [ # Thread.new [
.



-- 
YAMAGUTIseisei ( str_h__namae = { :sei => "山口" , :mei => "青星" } )
http://hello.to/seisei/ mailto:seisei@.68..net  tel:081-70-5152-1104
heiwa furiisekkusu 1tu