1428,1429c
#       stack.ps rg['sp']
        stack.p = rg['sp']
.
1415c
#       lpl.plini
        plini(@@rmth, lpl)      # 310200plini ?
#       lpl.plini(@@rmth)       # 410200plini
.
1413c
#       rg['ctr', 1] = rg['ctr', 1].absb
#       rg['ctr', 1] = absb(rg['ctr', 1])

#       unless lpl.ctr_c {Slp.new.slp}
.
1411c
#      unless fl.flatten[0]
      if fl.empty?      # && ! pco # d~ng
.
1399d
1392c
#         ise<< iset(rg) if 0 <= rg['pc', nil, '-'] && pctj.pop != rg['pc']    # p     # cp 
          ise<< iset(rg) if 0 <= rg['pc', nil, ?-] && pctj.pop != rg['pc']     # p     # q     # cp 
.
1379d
1376,1377c
#      ise.delete_if(&:resume)
      ise.delete_if__c(1) { |fis, n| fis.resume}
.
1343c
#         callinfo.pd
          callinfo.p -= 1
.
1340c
#         rg['pc', -1] = @callinfo[@cp] + 1
.
1336c
#         callinfo.pd
          callinfo.p -= 1
.
1329c
#         callinfo.pd
          callinfo.p -= 1
.
1319c
#       if 0 == callinfo.pg
        if 0 == callinfo.p
.
1233,1260d
1141,1142c
#   fibi(@@iset2 ||= iset2, rgd, 0) {|rgd| rgd &&= nil}
    fibi(@@iset2 ||= iset2, rgd) {rgd &&= nil}
.
1130,1139d
1128d
1116d
1108,1113d
1104,1105d
1101d
1089,1099c
#       if rg
#         ini.(rg)      # c
#       end
        rg && ini.(rg)  # c
.
1081,1082d
1070,1074c
#         case k
#         when 'th' then fv = fvl[oi <=> 0].(oi)  # c 
#         end
#         lopa.push(k, fv)
          lopa.push(k, 'th' == k ? fvl[oi <=> 0].(oi) : fv)       # c 
.
1062,1065c
#    opg = ->(oi, lopa = []) {       # l 
#      i = -1
    opg = ->(oi, lopa = []) { i = -1 # l 
.
1053,1057d
1050c
#    th = []    ##
.
1048c
    bt = imem.fml('th', 'bt') # [1 .. -1]
.
1041c
      ))
.
1033c
#      fml = imem.fml('th', sym) || (
      fml = [sym] + (imem.fml('th', sym) || (
.
1030,1031c
      pc, sp, cop, sym = rg # .to_a('pc', 'sp', 'cop', 'sym')
.
1028d
1026c
#    pc1, fml, oa, th = nil
    pc1, fml, oa, th, cop = nil
.
1012,1018c
#    pc, sp, cop, sym = nil

.
1006,1007c
#    fibi(@@fls2 ||= fls2, pc) {|pc| 0 > pc ? ~ pc : pc}
    fibi(@@fls2 ||= fls2, pc, 1) {0 > pc ? ~ pc : pc}
.
994,1004d
982d
978,979c
#         sp ||= s.ps(pl[i_sp][0])
          sp ||= s.p = pl[i_sp][0]
          pr || (pr, sy, mt = imem.fml('st', sym)) #[1 .. -1])
.
976d
972,973c
          f = flg.all? # && r.all? { |f| case f when Numeric then true end}
.
960,962d
952d
947,948c
#           lm.(isr0, s[(sz = plr.size) .. sz + ap = (ap >>= 1) + (ap >> 1)])       # c 
          lm.(isr0, s[(sz = plr.size) .. sz + ap = (ap += ap >> 1) >> 1])   # c 
.
943,945d
936,938c
#       r[0] = plr[r[1]] || lm.(isr0, r[1])             # c     # r[0] ??
#       _ = (_ = plr[r[1]]).nil? ? lm.(isr0, r[1]) : _  # c 
        pc1 = (pc1 = plr[r[1]]).nil? ? lm.(isr0, r[1]) : pc1    # c 
#       s[r[1]] = sy ? [s[r[1]], _].inject(sy) : _
        s[r[1]] = sy ? [s[r[1]], pc1].inject(sy) : pc1
.
927,928c
#      )][0] - 1
        (pc1 = ~ pc + 1) - 1
.
922,924c
#    ini = ->(pc) { [pc1 = ~ pc + 1, (
    ini = ->(pc) {
.
916,918c
#      sz = 4; ap = @@fls_w ||= (1 << sz)
      ap = 1 << sz = 4; ap = @@fls_m ||=
.
914d
904,905d
888c
#  @@fls_w, @@fls_m = nil
  @@fls_m = nil
.
874d
868,869c
#    Fiber.new { |m = 1|
#      ctr.times {m = Fiber.yield(false)}
    Fiber.new { |m = 1| ctr.times {m = Fiber.yield(false)}
.
856a

# include M__PlIni      # 310200plini ? # ok ? ( osx10.4/ppc 1koa )     # omoi ? ( osx10.4/ppc 2koa )

# 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
#  def plini
  def plini(rmth = nil, pl = self)
    thini = false
    pl0i = ['th', 'sym', 'ctr']

    # 3080410200 : gene gc off : mruby 6170410200 d17506c1
    # 3080410200 : 5x2 ng ( segmentation fault ) : mruby 3080410200 0878900f
    # 3080410200 : 5x2 ok ( gc ) : monami-ya.mrb 8270410200 813e2af8    # http://www.monami-ya.jp/
    # mruby 20410200 : higokan ? : ary_many
    # mruby 70410200 : 4x2 ok , 5x2 ng
#    self[0] = [['th', [[thini]]], ['sym', [6309]], ['ctr', []]]
#    self[0] = [[pl0i[0], [[thini]]], [pl0i[1], [6309]], [pl0i[2], []]]
    pl[0] = [[pl0i[0], [[thini]]], [pl0i[1], [6309]], [pl0i[2], []]]
#   pl[0] = [[[thini]], [68000], []].map.with_index { |v, i| [pl0i[i], v]}


#   if 1 < self.size #    self.size : 0 ??   # higokan ? mruby:70410200 monami-ya.mrb:60510200
#     self.replace(self[0 .. self.size & ((n = @@rmth + 1) << 1) | n])        # ??    # higokan ? mruby:70410200 monami-ya.mrb:60510200
#     self.slice!((self.size & ((n = @@rmth + 1) << 1) | n) + 1 .. -1)        # higokan mruby:70410200 monami-ya.mrb:60510200

#    self[1] && self[0 .. -1] =
#       self[0 ... self.size & ((n = @@rmth + 1) << 1) | n]
    pl[1] && pl[0 .. -1] = pl[0 .. pl.hgt & ((n = rmth + 1) << 1) | n]

#    ref_pl0i
    pl.ref_pl0i
  end
# end


.
835c
#    @pl = ENVary.new
#   @pl = ENVary.new(true)                      # 410200plini
    plini(@@rmth, @pl = ENVary.new(true))       # 310200plini ?
.
743d
731,741c
# def pg() @p      end
# def pi() @p += 1 end
# def pd() @p -= 1 end

# def ps(i)
##  id = self.object_id
##   a.empty? || @p = a[0]
#   @p = i
##  @p
# end
.
711d
703c
#  attr_accessor :p
  attr_accessor :p, :s
.
681c
#  @@f = ''
  @@f = 0x0.chr * 0x20
.
662,663d
642,643c
    sl = @@slp
#    (sl = @@slp).slp
.
628,632c
#                               pl_es(pc, ['th', th]); sl.slp(0) # (0, 4096)
                                pl_es(pc, ['th', th]); sl.slp 0 # (0, 4096)
#                               true) && idx >= mx)
                                f) && idx >= mx)
.
626d
619,624c
        th[idx] = s_id(th[idx], pc - 1) #### if ckth(th[idx], 0) # fuguai taisaku
.
614c
#    f = nil; mx = nil
    f, mx = nil
.
603d
591,592c
#     knid(a, :Array)   ?     __method__(a, pc)  :    a         # s_id(a, pc)  :    # 310200plini ?
      case a when Array then  __method__(a, pc)  else a end     # s_id(a, pc)  else # 310200plini ?
.
587,588c
#   (tb == a || knid(a, :Array).! || 0 >= a.hgt) && (return a)
#    (tb == a || case a when Array then 0 >= a.hgt end) && (return a)
    ((tb = TB) == a || case a when Array then 0 >= a.hgt end) && (return a)
.
585d
583c
#    tb = TB
.
570d
568d
526,531c
    c = pl_g(0).afl('ctr', self)
    [c.shift, pl_es(0, ['ctr', c])][0]
.
524c
#    cta = pl_g(0).afl('ctr', self)
#    [cta.shift, pl_es(0, ['ctr', cta])][0]
.
514,520c
#    if 0 == n
#      lpl[n]
#    else
#      @@Plmg.(@@pl0i, lpl[n])          # c 
#    end
    lpl = lpl[n]; 0 == n ? lpl : @@Plmg.(@@pl0i, lpl)   # c 
.
512d
481d
470,471d
467,468d
455c
##p to_ia(n, pl)
.
434d
380,381d
364,365d
361,362c
# include M__PlIni      # 410200plini   # ok ? ( osx10.4/ppc 1koa )
.
344,359d
336c
    a || return

#    plini
#   plini(@@rmth)       # 410200plini
.
331,332c
#  def initialize(*a)
  def initialize(a = nil)
.
303a

# module M__PlIni       # Omoi ?


.
294,295c
#    case op[0] when Numeric then op.inject(:+) else self.__send__(*op) end
    case op[0] when Numeric then op.inject(:+) else __send__(*op) end
.
285c
#      a[@@I_s__r1 + 1].map{ |v| v.nil? ? v : send(*a[0 .. @@I_s__r0 + 1], v)}
      return a[i_s__r1].map{ |v| v.nil? ? v : send(*a[0 .. @@I_s__r0 + 1], v)}
.
283c
#    case a[@@I_s__r1 + 1]
    case a[i_s__r1 = @@I_s__r1 + 1]
.
271,279c
#  def s__sr0(      *a) a[@@I_s__s][     a[@@I_s__r0]]     end
#  def s__r0(       *a)                  a[@@I_s__r0]      end
#  def s__sr01(     *a) a[@@I_s__s][     a[@@I_s__r0] + 1] end
#  def s__i_pool_r0( *a) a[@@I_s__i].pool[a[@@I_s__r0]]    end
#  def s__i_syms_r0( *a) a[@@I_s__i].syms[a[@@I_s__r0]]    end
#  def s__r1_eq_sr01(*a) a[@@I_s__s][    a[@@I_s__r1]] == a[@@I_s__s][a[@@I_s__r0] + 1] end

  def s__sr0(       *a) a[@@I_s__s][                   a[@@I_s__r0]]     end
  def s__r0(        *a)                                a[@@I_s__r0]      end
  def s__sr01(      *a) a[@@I_s__s][                   a[@@I_s__r0] + 1] end
# def s__i_pool_r0( *a) a[@@I_s__i].pool[              a[@@I_s__r0]]     end
# def s__i_syms_r0( *a) a[@@I_s__i].syms[              a[@@I_s__r0]]     end
  def s__i__r0(     *a) a[@@I_s__i].send(a[@@I_s__mt])[a[@@I_s__r0]]     end
  def s__r1_eq_sr01(*a) a[@@I_s__s][                   a[@@I_s__r1]] ==
                        a[@@I_s__s][                   a[@@I_s__r0] + 1] end
.
267,269c
#  @@I_s__i = 0; @@I_s__s = 1; @@I_s__r0 = 2; @@I_s__r1 = 3
  @@I_s__i = 0; @@I_s__s = 1; @@I_s__r0 = 2; @@I_s__r1 = 3; @@I_s__mt = 4
.
212a
  def ta(l, cop) [l[0] || :getarg_a, l[1] || cop][0 .. l[2] || 1] end

.
208,210c
#    @@fml.(lb).assoc(sym)              # c 
##   (f = @@fml).(lb).assoc(sym)                # c 
    @@fml.(lb).assoc(sym)[1 .. -1]              # c 
#   (f = @@fml).(lb).assoc(sym)[1 .. -1]        # c 
.
185,186c
#     [:MOVE,     :__sr0],      [:LOADL,   :__i_pool_r0],
#     [:LOADI,    :__r0 ],      [:LOADSYM, :__i_syms_r0],
      [:MOVE,     :__sr0],      [:LOADL,   :__i__r0, nil, :pool],
      [:LOADI,    :__r0 ],      [:LOADSYM, :__i__r0, nil, :syms],
.
156,157c
  @@slp = (((@@slp = NSL_ >> 2) + (@@slp >> 5)) >> 7) + 1 >> 1  # conf.gem :github => 'matsumotory/mruby-sleep'      # msleep usleep
.
133,148d
110,130c
#    f = ! a
#    a ||= self
    (f = ! a) && a = self
#   unless i then a.delete_if(&:yield) else a.each_with_index { |v, n|
#       break if n >= i; v && yield(v, n) && a.delete_at(n)} end

    (i > n = a.size) && i = n
#      n = 0; c = -1
    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
#     (v = a[n]) && yield(v, c) && a.delete_at(n) || n += 1
    end
.
108d
105d
71c
# def absb
# def absb(i)
##  self + (((0 <=> self) + 1 >> 1 << 0x10) - 1 & self << 1)
#   i + (((0 <=> i) + 1 >> 1 << 0x10) - 1 & i << 1)
# end
.
19c
NSL_ = 6309     # nanosleep()
.
15c
#       :ctr_s, :p
        :ctr_s, :p,     :s
.



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