Olib 0.1.0 → 0.1.1

data/lib/Olib/objects/uncommon.rb

@@ -1,4 +1,2 @@
-module Olib
-  class Uncommon < Item
-  end
+class Uncommon < Olib::Item
 end

data/lib/Olib/objects/wand.rb

@@ -1,4 +1,2 @@
-module Olib
-  class Wand < Item
-  end
+class Wand < Olib::Item
 end

data/lib/Olib/pattern.rb

@@ -0,0 +1,34 @@
+##
+## @brief      pattern matching for Ruby
+##
+class Pattern
+  attr_accessor :cases
+
+  def initialize(cases)
+    @cases = cases
+  end
+
+  def match(str)
+    found = @cases.each_pair.find do |exp, handler|
+      str =~ exp
+    end
+
+    if !found
+      raise Exception.new [
+        "Error: inexhaustive pattern",
+        "counterexample: #{str}",
+      ].join("\n")
+    end
+
+    exp, handler = found
+
+    handler.call exp.match(str).to_struct
+  end
+
+  def to_proc
+    patt = self
+    Proc.new do |str|
+      patt.match str
+    end
+  end
+end

data/lib/Olib/storage/app_data.rb

@@ -0,0 +1,31 @@
+require 'fileutils'
+
+module Olib
+  class App
+    APP_DIR = Dir.home + "/." + self.name.downcase
+    ##
+    ## setup app dir
+    ##
+    FileUtils.mkdir_p APP_DIR
+
+    def self.app_file(path)
+      APP_DIR + "/" + path
+    end
+
+    def self.open(file)
+      File.open(app_file(file), 'a', &block)
+    end
+
+    def self.write(file, data)
+      open(file) do |f|
+        JSON.stringify(data)
+      end
+    end
+
+    def self.read(file, &block)
+      open(file) do |file|
+        yield
+      end
+    end
+  end
+end

data/lib/Olib/supervisor/supervisor.rb

@@ -0,0 +1,205 @@
+require "ostruct"
+require "fiber"
+require "thread"
+##
+## @brief      Class for Supervisor.
+##
+class Supervisor
+  ##
+  ## the amount of time in seconds between each yield
+  ##
+  TICK = 0.1
+  TREE = {}
+
+  def self.register(supervisor)
+    TREE[supervisor.name] = supervisor
+  end
+
+  def self.fetch(name)
+    TREE.fetch(name)
+  end
+
+  def self.unregister(supervisor)
+    TREE.delete(supervisor.name)
+  end
+
+  def self.exists?(name)
+    TREE.has_key?(name)
+  end
+
+  attr_accessor :fibers, :cleanup, :name, :debug
+  ##
+  ## @brief     creates a Supervisor instance
+  ##
+  ## @return    self
+  ##
+  def initialize(name)
+    supervisor = self
+
+    if Supervisor.exists?(name)
+      raise Exception.new "a Supervisor with the name #{name} already exists.  They are required to be unique"
+    end
+
+    @fibers     = []
+    @pre_hooks  = []
+    @post_hooks = []
+    @name       = name
+    @debug      = false
+    @cleanup    = [Proc.new do
+      Supervisor.unregister(supervisor) 
+    end]
+    
+    Supervisor.register(supervisor)
+    before_dying { cleanup! }
+  end
+  ##
+  ## @brief      returns if the Supervisor is in debug mode
+  ##
+  ## @return     Boolean
+  ##
+  def debug?
+    @debug
+  end
+  ##
+  ## @brief      turn on debug mode for a Supervisor
+  ##
+  ## @return     self
+  ##
+  def debug!
+    @debug = true
+    self
+  end
+
+  def debug(msg)
+    if debug?
+      _respond(msg)
+    end
+  end
+  ##
+  ## @brief      add a hook to the Supervisor tree
+  ##
+  ## @param      name  The name
+  ## @param      hook  The hook
+  ##
+  ## @return     self
+  ##
+  def add(name, &hook)
+    @fibers << [name, Fiber.new do
+      loop do
+        Fiber.yield hook.call
+      end        
+    end]
+    self
+  end
+  ##
+  ## @brief      hooks that run before every tick
+  ##
+  ## @param      name  The name
+  ## @param      hook  The hook
+  ##
+  ## @return     self
+  ##
+  def pre_hook(name, &hook)
+    @pre_hooks << [name, Fiber.new do
+      loop do
+        Fiber.yield hook.call
+      end        
+    end]
+    self
+  end
+  ##
+  ## @brief      hooks that run after every tick
+  ##
+  ## @param      name  The name
+  ## @param      hook  The hook
+  ##
+  ## @return     self
+  ##
+  def post_hook(name, &hook)
+    @post_hooks << [name, Fiber.new do
+      loop do
+        Fiber.yield hook.call
+      end        
+    end]
+    self
+  end
+  ##
+  ## @brief      add a cleanup task to the Supervisor tree
+  ##
+  ## @param      hook  The hook
+  ##
+  ## @return     self
+  ##
+  def cleanup(&hook)
+    debug "cleanup -> #{@fibers.size} fibers  -> [" + @fibers.map(&:first).join(", ") + "]"
+    debug "cleanup -> #{@cleanup.size} procs"
+    @cleanup << hook
+    self
+  end
+  ##
+  ## @brief      cleanup a Supervisor tree
+  ##
+  ## @return     self
+  ##
+  def cleanup!
+    @cleanup.each(&:call)
+    self
+  end
+  ##
+  ## @brief      attach a supervisor tree to the current Script
+  ##
+  ## @return     nil
+  ##
+  def link!    
+    loop do
+      run!
+      sleep TICK
+    end
+    nil
+  end
+  ##
+  ## @brief      one event loop of the Supervisor
+  ##
+  ## @return     nil
+  ##
+  def run!
+    @fibers.map(&:last).each do |fiber|
+      run_pre_hooks!
+      fiber.resume
+      run_post_hooks!
+    end
+  end
+  def run_post_hooks!
+    @post_hooks.map(&:last).map(&:resume)
+  end
+
+  def run_pre_hooks!
+    @pre_hooks.map(&:last).map(&:resume)
+  end
+  ##
+  ## @brief      converts a Supervisor to a Proc, useful for building
+  ##             trees from Named Supervisors
+  ##
+  ## @return     Proc
+  ##
+  def to_proc
+    supervisor = self
+    return Proc.new do
+      debug "running child supervisor :#{supervisor.name}"
+      supervisor.run!
+    end
+  end
+  ##
+  ## @brief      build a supervisor tree by joining two supervisors
+  ##
+  ## @param      supervisor  The supervisor
+  ##
+  ## @return     self
+  ##
+  def join(*supervisors)
+    supervisors.each do |supervisor|
+      add supervisor.name, &supervisor.to_proc
+    end
+    self
+  end
+end

data/lib/Olib/try/try.rb

@@ -0,0 +1,58 @@
+class Try
+  attr_accessor :result, :task
+  
+  def self.of(&task)
+    Proc.new do 
+      Try.new task
+    end
+  end
+
+  def initialize(&task)
+    @task = task
+    run!
+  end
+
+  private def run!
+    begin
+      result = @task.call
+      # handle recursives
+      if result.is_a?(Try)
+        @result = result.result
+      else
+        @result = result
+      end
+    rescue Exception => e
+      @result = e
+    end
+  end
+
+  def failed?
+    @result.class.ancestors.include? Exception
+  end
+
+  def success?
+    !failed?
+  end
+
+  def recover
+    Try.new { yield @result } if failed?
+  end
+
+  def then
+    Try.new { yield @result } if success?
+  end
+
+  def match?(exp)
+    if failed?
+      @result.message.match(exp)
+    elsif @result.respond_to?(:match)
+      @result.match(exp)
+    else
+      raise Exception.new "cannot match class #{@result.class}"
+    end
+  end
+end
+
+def try(&block)
+  Try.new &block
+end

data/lib/Olib/version.rb

@@ -1,3 +1,3 @@
 module Olib
-  VERSION = "0.1.0"
+  VERSION = "0.1.1"
 end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: Olib
 version: !ruby/object:Gem::Version
-  version: 0.1.0
+  version: 0.1.1
 platform: ruby
 authors:
 - Ondreian Shamsiel
@@ -21,22 +21,26 @@ files:
 - README.md
 - TODOS.md
 - lib/Olib.rb
+- lib/Olib/actor/actor.rb
 - lib/Olib/area.rb
 - lib/Olib/bounty.rb
 - lib/Olib/character/char.rb
+- lib/Olib/character/disk.rb
 - lib/Olib/character/group.rb
 - lib/Olib/character/inventory.rb
 - lib/Olib/character/mind.rb
+- lib/Olib/character/stance.rb
 - lib/Olib/combat/creature.rb
 - lib/Olib/combat/creatures.rb
 - lib/Olib/core/container.rb
 - lib/Olib/core/errors.rb
 - lib/Olib/core/extender.rb
 - lib/Olib/core/item.rb
+- lib/Olib/core/use.rb
 - lib/Olib/core/utils.rb
 - lib/Olib/dictionary/dictionary.rb
-- lib/Olib/events/emitter.rb
 - lib/Olib/go2.rb
+- lib/Olib/interface/queryable.rb
 - lib/Olib/npcs.rb
 - lib/Olib/objects/box.rb
 - lib/Olib/objects/clothing.rb
@@ -46,9 +50,12 @@ files:
 - lib/Olib/objects/jewelry.rb
 - lib/Olib/objects/scroll.rb
 - lib/Olib/objects/uncommon.rb
-- lib/Olib/objects/unknown.rb
 - lib/Olib/objects/wand.rb
+- lib/Olib/pattern.rb
 - lib/Olib/shops.rb
+- lib/Olib/storage/app_data.rb
+- lib/Olib/supervisor/supervisor.rb
+- lib/Olib/try/try.rb
 - lib/Olib/utils/cli.rb
 - lib/Olib/utils/help_menu.rb
 - lib/Olib/utils/monsterbold.rb

data/lib/Olib/events/emitter.rb

@@ -1,7 +0,0 @@
-class Emitter
-  @@channels = Hash.new
-
-  def Emitter.run
-
-  end
-end

data/lib/Olib/objects/unknown.rb

@@ -1,4 +0,0 @@
-module Olib
-  class Unknown < Item
-  end
-end