sup 0.9.1 → 0.10

data/lib/sup/hook.rb.BASE.8681.rb

@@ -1,155 +0,0 @@
-module Redwood
-
-class HookManager
-  ## there's probably a better way to do this, but to evaluate a hook
-  ## with a bunch of pre-set "local variables" i define a function
-  ## per variable and then instance_evaluate the code.
-  ##
-  ## how does rails do it, when you pass :locals into a partial?
-  ##
-  ## i don't bother providing setters, since i'm pretty sure the
-  ## charade will fall apart pretty quickly with respect to scoping.
-  ## "fail-fast", we'll call it.
-  class HookContext
-    def initialize name
-      @__say_id = nil
-      @__name = name
-      @__locals = {}
-    end
-
-    attr_writer :__locals
-
-    def method_missing m, *a
-      case @__locals[m]
-      when Proc
-        @__locals[m] = @__locals[m].call(*a) # only call the proc once
-      when nil
-        super
-      else
-        @__locals[m]
-      end
-    end
-
-    def say s
-      if BufferManager.instantiated?
-        @__say_id = BufferManager.say s, @__say_id
-        BufferManager.draw_screen
-      else
-        log s
-      end
-    end
-
-    def log s
-      Redwood::log "hook[#@__name]: #{s}"
-    end
-
-    def ask_yes_or_no q
-      if BufferManager.instantiated?
-        BufferManager.ask_yes_or_no q
-      else
-        print q
-        gets.chomp.downcase == 'y'
-      end
-    end
-
-    def get tag
-      HookManager.tags[tag]
-    end
-
-    def set tag, value
-      HookManager.tags[tag] = value
-    end
-
-    def __binding 
-      binding
-    end
-
-    def __cleanup
-      BufferManager.clear @__say_id if @__say_id
-    end
-  end
-
-  include Singleton
-
-  def initialize dir
-    @dir = dir
-    @hooks = {}
-    @descs = {}
-    @contexts = {}
-    @tags = {}
-
-    Dir.mkdir dir unless File.exists? dir
-
-    self.class.i_am_the_instance self
-  end
-
-  attr_reader :tags
-
-  def run name, locals={}
-    hook = hook_for(name) or return
-    context = @contexts[hook] ||= HookContext.new(name)
-    context.__locals = locals
-
-    result = nil
-    begin
-      result = context.instance_eval @hooks[name], fn_for(name)
-    rescue Exception => e
-      log "error running hook: #{e.message}"
-      log e.backtrace.join("\n")
-      @hooks[name] = nil # disable it
-      BufferManager.flash "Error running hook: #{e.message}" if BufferManager.instantiated?
-    end
-    context.__cleanup
-    result
-  end
-
-  def register name, desc
-    @descs[name] = desc
-  end
-
-  def print_hooks f=$stdout
-puts <<EOS
-Have #{@descs.size} registered hooks:
-
-EOS
-
-    @descs.sort.each do |name, desc|
-      f.puts <<EOS
-#{name}
-#{"-" * name.length}
-File: #{fn_for name}
-#{desc}
-EOS
-    end
-  end
-
-  def enabled? name; !hook_for(name).nil? end
-
-private
-
-  def hook_for name
-    unless @hooks.member? name
-      @hooks[name] =
-        begin
-          returning IO.read(fn_for(name)) do
-            log "read '#{name}' from #{fn_for(name)}"
-          end
-        rescue SystemCallError => e
-          #log "disabled hook for '#{name}': #{e.message}"
-          nil
-        end
-    end
-
-    @hooks[name]
-  end
-
-  def fn_for name
-    File.join @dir, "#{name}.rb"
-  end
-
-  def log m
-    Redwood::log("hook: " + m)
-  end
-end
-
-end

data/lib/sup/hook.rb.LOCAL.8625.rb

@@ -1,142 +0,0 @@
-module Redwood
-
-class HookManager
-  class HookContext
-    def initialize name
-      @__say_id = nil
-      @__name = name
-      @__cache = {}
-    end
-
-    def say s
-      if BufferManager.instantiated?
-        @__say_id = BufferManager.say s, @__say_id
-        BufferManager.draw_screen
-      else
-        log s
-      end
-    end
-
-    def log s
-      info "hook[#@__name]: #{s}"
-    end
-
-    def ask_yes_or_no q
-      if BufferManager.instantiated?
-        BufferManager.ask_yes_or_no q
-      else
-        print q
-        gets.chomp.downcase == 'y'
-      end
-    end
-
-    def get tag
-      HookManager.tags[tag]
-    end
-
-    def set tag, value
-      HookManager.tags[tag] = value
-    end
-
-    def __run __hook, __filename, __locals
-      __binding = binding
-      __lprocs, __lvars = __locals.partition { |k, v| v.is_a?(Proc) }
-      eval __lvars.map { |k, v| "#{k} = __locals[#{k.inspect}];" }.join, __binding
-      ## we also support closures for delays evaluation. unfortunately
-      ## we have to do this via method calls, so you don't get all the
-      ## semantics of a regular variable. not ideal.
-      __lprocs.each do |k, v|
-        self.class.instance_eval do
-          define_method k do
-            @__cache[k] ||= v.call
-          end
-        end
-      end
-      ret = eval __hook, __binding, __filename
-      BufferManager.clear @__say_id if @__say_id
-      @__cache = {}
-      ret
-    end
-  end
-
-  include Singleton
-
-  def initialize dir
-    @dir = dir
-    @hooks = {}
-    @descs = {}
-    @contexts = {}
-    @tags = {}
-
-    Dir.mkdir dir unless File.exists? dir
-  end
-
-  attr_reader :tags
-
-  def run name, locals={}
-    hook = hook_for(name) or return
-    context = @contexts[hook] ||= HookContext.new(name)
-
-    result = nil
-    begin
-      result = context.__run hook, fn_for(name), locals
-    rescue Exception => e
-      log "error running hook: #{e.message}"
-      log e.backtrace.join("\n")
-      @hooks[name] = nil # disable it
-      BufferManager.flash "Error running hook: #{e.message}" if BufferManager.instantiated?
-    end
-    result
-  end
-
-  def register name, desc
-    @descs[name] = desc
-  end
-
-  def print_hooks f=$stdout
-puts <<EOS
-Have #{@descs.size} registered hooks:
-
-EOS
-
-    @descs.sort.each do |name, desc|
-      f.puts <<EOS
-#{name}
-#{"-" * name.length}
-File: #{fn_for name}
-#{desc}
-EOS
-    end
-  end
-
-  def enabled? name; !hook_for(name).nil? end
-
-  def clear; @hooks.clear; end
-
-private
-
-  def hook_for name
-    unless @hooks.member? name
-      @hooks[name] = begin
-        returning IO.read(fn_for(name)) do
-          debug "read '#{name}' from #{fn_for(name)}"
-        end
-      rescue SystemCallError => e
-        #debug "disabled hook for '#{name}': #{e.message}"
-        nil
-      end
-    end
-
-    @hooks[name]
-  end
-
-  def fn_for name
-    File.join @dir, "#{name}.rb"
-  end
-
-  def log m
-    info("hook: " + m)
-  end
-end
-
-end

data/lib/sup/hook.rb.LOCAL.8681.rb

@@ -1,142 +0,0 @@
-module Redwood
-
-class HookManager
-  class HookContext
-    def initialize name
-      @__say_id = nil
-      @__name = name
-      @__cache = {}
-    end
-
-    def say s
-      if BufferManager.instantiated?
-        @__say_id = BufferManager.say s, @__say_id
-        BufferManager.draw_screen
-      else
-        log s
-      end
-    end
-
-    def log s
-      info "hook[#@__name]: #{s}"
-    end
-
-    def ask_yes_or_no q
-      if BufferManager.instantiated?
-        BufferManager.ask_yes_or_no q
-      else
-        print q
-        gets.chomp.downcase == 'y'
-      end
-    end
-
-    def get tag
-      HookManager.tags[tag]
-    end
-
-    def set tag, value
-      HookManager.tags[tag] = value
-    end
-
-    def __run __hook, __filename, __locals
-      __binding = binding
-      __lprocs, __lvars = __locals.partition { |k, v| v.is_a?(Proc) }
-      eval __lvars.map { |k, v| "#{k} = __locals[#{k.inspect}];" }.join, __binding
-      ## we also support closures for delays evaluation. unfortunately
-      ## we have to do this via method calls, so you don't get all the
-      ## semantics of a regular variable. not ideal.
-      __lprocs.each do |k, v|
-        self.class.instance_eval do
-          define_method k do
-            @__cache[k] ||= v.call
-          end
-        end
-      end
-      ret = eval __hook, __binding, __filename
-      BufferManager.clear @__say_id if @__say_id
-      @__cache = {}
-      ret
-    end
-  end
-
-  include Singleton
-
-  def initialize dir
-    @dir = dir
-    @hooks = {}
-    @descs = {}
-    @contexts = {}
-    @tags = {}
-
-    Dir.mkdir dir unless File.exists? dir
-  end
-
-  attr_reader :tags
-
-  def run name, locals={}
-    hook = hook_for(name) or return
-    context = @contexts[hook] ||= HookContext.new(name)
-
-    result = nil
-    begin
-      result = context.__run hook, fn_for(name), locals
-    rescue Exception => e
-      log "error running hook: #{e.message}"
-      log e.backtrace.join("\n")
-      @hooks[name] = nil # disable it
-      BufferManager.flash "Error running hook: #{e.message}" if BufferManager.instantiated?
-    end
-    result
-  end
-
-  def register name, desc
-    @descs[name] = desc
-  end
-
-  def print_hooks f=$stdout
-puts <<EOS
-Have #{@descs.size} registered hooks:
-
-EOS
-
-    @descs.sort.each do |name, desc|
-      f.puts <<EOS
-#{name}
-#{"-" * name.length}
-File: #{fn_for name}
-#{desc}
-EOS
-    end
-  end
-
-  def enabled? name; !hook_for(name).nil? end
-
-  def clear; @hooks.clear; end
-
-private
-
-  def hook_for name
-    unless @hooks.member? name
-      @hooks[name] = begin
-        returning IO.read(fn_for(name)) do
-          debug "read '#{name}' from #{fn_for(name)}"
-        end
-      rescue SystemCallError => e
-        #debug "disabled hook for '#{name}': #{e.message}"
-        nil
-      end
-    end
-
-    @hooks[name]
-  end
-
-  def fn_for name
-    File.join @dir, "#{name}.rb"
-  end
-
-  def log m
-    info("hook: " + m)
-  end
-end
-
-end

data/lib/sup/hook.rb.REMOTE.8625.rb

@@ -1,145 +0,0 @@
-module Redwood
-
-class HookManager
-  class HookContext
-    def initialize name
-      @__say_id = nil
-      @__name = name
-      @__locals = {}
-    end
-
-    attr_writer :__locals
-    def method_missing m, *a
-      case @__locals[m]
-      when Proc
-        @__locals[m] = @__locals[m].call(*a) # only call the proc once
-      when nil
-        super
-      else
-        @__locals[m]
-      end
-    end
-
-    def say s
-      if BufferManager.instantiated?
-        @__say_id = BufferManager.say s, @__say_id
-        BufferManager.draw_screen
-      else
-        log s
-      end
-    end
-
-    def log s
-      Redwood::log "hook[#@__name]: #{s}"
-    end
-
-    def ask_yes_or_no q
-      if BufferManager.instantiated?
-        BufferManager.ask_yes_or_no q
-      else
-        print q
-        gets.chomp.downcase == 'y'
-      end
-    end
-
-    def get tag
-      HookManager.tags[tag]
-    end
-
-    def set tag, value
-      HookManager.tags[tag] = value
-    end
-
-    def __binding 
-      binding
-    end
-
-    def __cleanup
-      BufferManager.clear @__say_id if @__say_id
-    end
-  end
-
-  include Singleton
-
-  def initialize dir
-    @dir = dir
-    @hooks = {}
-    @descs = {}
-    @contexts = {}
-    @tags = {}
-
-    Dir.mkdir dir unless File.exists? dir
-
-    self.class.i_am_the_instance self
-  end
-
-  attr_reader :tags
-
-  def run name, locals={}
-    hook = hook_for(name) or return
-    context = @contexts[hook] ||= HookContext.new(name)
-    context.__locals = locals
-
-    result = nil
-    begin
-      result = context.instance_eval @hooks[name], fn_for(name)
-    rescue Exception => e
-      log "error running hook: #{e.message}"
-      log e.backtrace.join("\n")
-      @hooks[name] = nil # disable it
-      BufferManager.flash "Error running hook: #{e.message}" if BufferManager.instantiated?
-    end
-    context.__cleanup
-    result
-  end
-
-  def register name, desc
-    @descs[name] = desc
-  end
-
-  def print_hooks f=$stdout
-puts <<EOS
-Have #{@descs.size} registered hooks:
-
-EOS
-
-    @descs.sort.each do |name, desc|
-      f.puts <<EOS
-#{name}
-#{"-" * name.length}
-File: #{fn_for name}
-#{desc}
-EOS
-    end
-  end
-
-  def enabled? name; !hook_for(name).nil? end
-
-private
-
-  def hook_for name
-    unless @hooks.member? name
-      @hooks[name] =
-        begin
-          returning IO.read(fn_for(name)) do
-            log "read '#{name}' from #{fn_for(name)}"
-          end
-        rescue SystemCallError => e
-          #log "disabled hook for '#{name}': #{e.message}"
-          nil
-        end
-    end
-
-    @hooks[name]
-  end
-
-  def fn_for name
-    File.join @dir, "#{name}.rb"
-  end
-
-  def log m
-    Redwood::log("hook: " + m)
-  end
-end
-
-end