ТЕМА: Лаборатория Амфилохия

num = 1.0
ia = 0
begin 
  num *= 2
  ia += 1
end while (num + 1 != num)
 
p "#{ia} #{num}"
p num + 1
p num - 1
p num * 2
p (num * 2) + 2
p (num * 2) - 2
 
begin
  num *= 2
  ia += 1
end while (num * 2 != Float::INFINITY)
 
p "#{ia} #{num}"
p "#{ia+1} #{num * 2}"
 
num = 1.0
ia = -1
 
begin
  num /= 2
  ia -= 1
end while (num / 2 != 0)
 
p "#{ia} #{num}"
p "#{ia+1} #{num/2}"
printf("%#.50e\n", num)
printf("%#.50e\n", num + 1.0E-324)
printf("%#.50e\n", num + 1.0E-323)

a = "Some string"
b = "Some string"
c = b
 
a[3] = "o"
b[5] = "c"
c[10] = "k"
 
p a
p b
p c
 
obj_id = {}
obj_id["string".class] = "string".object_id == "string".object_id
obj_id[0.3.class] = 0.3.object_id == 0.3.object_id
obj_id[3.class] = 3.object_id == 3.object_id
obj_id[:symb.class] = :symb.object_id == :symb.object_id
obj_id[[].class] = [].object_id == [].object_id
obj_id[{}.class] = {}.object_id == {}.object_id
 
 
p obj_id
 
p 3.object_id
p 3.object_id
p 3.object_id
 
for ia in -5..5
  p ia.to_s + " -> " + ia.object_id.to_s
end
 
#p ObjectSpace._id2ref(6)
GC.start
p "sample string".object_id
GC.start
p "sample string".object_id
#С первого раза не работает О_о
GC.start
p "sample string".object_id

class WeakRef
  def initialize(robj = nil)
    self.ref = robj
  end
 
  def ref=(robj)
    if !robj.nil? then
      @ref = robj.object_id
      associate(robj.object_id)
    end
  end
 
  def associate(robj)
    ObjectSpace.define_finalizer(ObjectSpace._id2ref(robj), gen_proc)
  end
 
  def deassociate(id)
    @ref = nil if @ref == id
  end
 
  def ref
    return ObjectSpace._id2ref(@ref) unless @ref.nil?
    return nil
  end
 
  def gen_proc
    Proc.new {|id| self.deassociate(id)}
  end
end

MAX_SIZE = 10000000 #Максимальный размер хэша
MAX_KEYS = 10000000 #Количество обращений к хэшу
 
$total_time = Time.now
 
#Файбер, заполняющий хэш в количестве оснований десяти.
$fib = Fiber.new {
  $testhash = {}
  $base = 10 #текущая цель
  ia = 0
  while (ia < MAX_SIZE) do
    $testhash[ia] = :testsymb
    #в случае если хэш наполнен
    if ia == $base then
      Fiber.yield
      $base *= 10
    end
    ia += 1
  end
  #Ну и последний раз
  Fiber.yield
  :end
}
 
#Эталон, высчитывает время прохода по массиву ключей
ekeys = Array.new(MAX_KEYS, 0)
$ethalon = Time.now
ekeys.each{|key|
}
$ethalon = Time.now - $ethalon
 
p [$ethalon, 1]
 
#сам эксперимент
while $fib.resume != :end do
  #local = nil
  keys = []
  #делаем массив случайных ключей
  for ia in 0..MAX_KEYS do
    keys.push(rand($base + 1))
  end
  #обращаемся к хэшу с замером времени
  t1 = Time.now
  keys.each{|key|
    $testhash[key]
  }
  t2 = Time.now
  #вывод
  p [t2 - t1 - $ethalon, $base]
end
 
p ["total time", Time.now - $total_time]

class WeakPile
  def initialize(wk, wv, hash = nil)
    @wk = wk
    @wv = wv
 
    @hash = {}
    if hash and hash.is_a?(Hash) then
      hkeys = hash.keys
      for ia in 0..hkeys.size() - 1 do
        k = hkeys[ia]
        v = hash[k]
        self[k] = v
      end
    end
  end
 
  def []=(k, v)
    k = WeakRef.new(k) if @wk
    v = WeakRef.new(v) if @wv
    @hash[k] = v
  end
 
  def to_hash
    result = {}
    @hash.delete_if{|k, v|
      key, value = get_pair(k, v)
      trashness = key.nil? || value.nil?
      result[key] = value unless trashness
      trashness
    }
    return result
  end
 
  def get_pair(k, v)
    return @wk ? k.ref : k, @wv ? v.ref : v
  end
end

class Game_Map
  ...
  def setup(map_id)
    @map_id = map_id
    # Хочу подгрузить свою карту и сохранить возможные алиасы к методу. При передаче строки по ид - %03d подорвется.
    @map = load_data(sprintf("Data/Map%03d.rvdata2", @map_id))
    @tileset_id = @map.tileset_id
    @display_x = 0
    @display_y = 0
    referesh_vehicles
    setup_events
    setup_scroll
    setup_parallax
    setup_battleback
    @need_refresh = false
  end
  ...
end

class Game_Map
  def sprintf(*args)
    string = args[0]
    map_id = args[1]
    return super(*args) unless string == "Data/Map%03d.rvdata2" && map_id.class >= String
    return args[1]
  end
 
  def load_data(name)
    return super(name) unless name.start_with?("mf-")
    custom_load(name)
  end
  # Наконец то метод подгрузки карты (в кданном случае если передать ид строкой начиная с mf-) 
  def custom_load(name)
    :custom
  end
 
  def test
    p load_data(sprintf("Data/Map%03d.rvdata2", 1)) # стандартная карта
    p load_data(sprintf("Data/Map%03d.rvdata2", "mf-001")) # :custom
  end
end
 
DataManager.init
 
$test_map = Game_Map.new
$test_map.test

class A
  def func
    "foo"
  end
end
 
class B
  def func
    "bar"
  end
end
 
# --- Наши изменения отдельным скриптом ---
 
class A
  alias old_func func
  def func
    old_func + "baz"
  end
end
 
class B
  alias old_func func
  def func
    old_func + "baz"
  end
end
 
# --- Тест ---
 
p A.new.func # => foobaz
p B.new.func # => barbaz

class A
  def func
    "foo"
  end
end
 
class B
  def func
    "bar"
  end
end
 
# --- Наши изменения отдельным скриптом ---
 
[A, B].each do |klass| klass.class_exec do
  alias old_func func
  def func
    old_func + "baz"
  end
end end
 
# --- Тест ---
 
p A.new.func # => foobaz
p B.new.func # => barbaz

#--------------------------------------------------------------------------
  # * Script
  #--------------------------------------------------------------------------
  def command_355
    # Set first line to script
    script = @list[@index].parameters[0] + "\n"
    # Loop
    loop do
      # If next event command is second line of script or after
      if @list[@index+1].code == 655
        # Add second line or after to script
        script += @list[@index+1].parameters[0] + "\n"
      # If event command is not second line or after
      else
        # Abort loop
        break
      end
      # Advance index
      @index += 1
    end
    # Evaluation
    result = eval(script)
    # If return value is false
    if result == false
      # End
      return false
    end
    # Continue
    return true
  end