0x0dea

def Process.gsub pat, sub
  mem  = File.open('/proc/self/mem', 'r+')
  maps = File.open('/proc/self/maps')

  maps.each do |map|
    from, to, perms, offset = map.scan(/(\h+)-(\h+) (\S+) (\h+)/)[0]

    if perms['rw']
      from, to = [from, to].map { |addr| addr.hex + offset.hex }
      data = mem.tap { |m| m.seek from }.read(to - from) rescue next

0x0dea

class Fixnum
  def call prog
    return unless self == 4
    unless prog = prog.delete(' ')[/\A3\.(\d*)4\z/, 1]
      raise SyntaxError, "Program must begin '3.' and end '4'.", caller
    end

    arity = [3, 3, 3, 3, 0, 1, 2, 1, 1, 0]
    cells = [i = pc = 0] * 100
    insns, loops, stack = [], {}, []

0x0dea

$fns = 0

# Automatically curry all functions for slightly greater legibility.
# Keep track of how many functions end up getting created (for laughs).
# Get to use the fancy symbol everywhere.
def λ
  $fns += 1
  proc.curry
end

0x0dea

#!/usr/bin/env ruby

class HSPAL
  # Enforce unsigned 16-bit data by clamping all entries.
  class Stack < Array
    def << val
      super [0, val, 0xFFFF].sort[1]
    end
  end

0x0dea

module Ova
  # autovivifying map from [class][method][signature] to Method
  @@Ova = Hash.new { |h, k| h[k] = Hash.new(&h.default_proc) }

  # Wrap #respond_to? for parity with Class#===.
  Responder = Struct.new(:method) do
    def === obj
      obj.respond_to?(method)
    end
  end