seh 0.0.1

data/.gitignore

@@ -0,0 +1,5 @@
+*.gem
+.bundle
+Gemfile.lock
+pkg/*
+*~

data/.rvmrc

@@ -0,0 +1 @@
+rvm 1.9.2@seh

data/Gemfile

@@ -0,0 +1,8 @@
+source "http://rubygems.org"
+
+group :development, :test do
+  gem 'rspec'
+end
+
+# Specify your gem's dependencies in seh.gemspec
+gemspec

data/README.org

@@ -0,0 +1,4 @@
+
+* seh: structured event handler
+
+

data/Rakefile

@@ -0,0 +1 @@
+require 'bundler/gem_tasks'

data/lib/seh.rb

@@ -0,0 +1,20 @@
+require "seh/version"
+require "seh/event_type"
+require "seh/event_target"
+require "seh/event"
+
+module Seh
+  class << self
+    def and( *types )
+      EventType::And.new *types
+    end
+
+    def or( *types )
+      EventType::Or.new *types
+    end
+
+    def not( type )
+      EventType::Not.new type
+    end
+  end
+end

data/lib/seh/event.rb

@@ -0,0 +1,79 @@
+require 'ostruct'
+
+module Seh
+  module Private
+    class EventData
+      attr_accessor :types, :target, :time, :start, :finish
+
+      def initialize
+        @types = []
+        @target = nil
+        @time = Time.now
+
+        # staged handlers
+        @start = []
+        @finish = []
+      end
+    end
+
+    class EventStateReady
+      class << self
+        def type( data, t )
+          data.types << t
+        end
+      end
+    end
+
+    class EventStateInflight
+    end
+
+    class EventStateDone
+    end
+  end
+
+  class Event < OpenStruct
+    def initialize(target, &block)
+      super()
+      raise "Event expects a target" unless target
+      raise "Event expects the target to include EventTarget" unless target.class.include? EventTarget
+      @state = Private::EventStateReady
+      @data = Private::EventData.new
+      @data.target = target
+      instance_eval(&block) if block
+    end
+
+    def dispatch
+      raise "Event may only be dispatched once" unless @state == Private::EventStateReady
+      @state = Private::EventStateInflight
+      @data.target.each_bind { |bind| bind.block.call self if bind.event_type.match @data.types }
+      @data.start.each { |block| block.call self }
+      @data.finish.each { |block| block.call self }
+      @state = Private::EventStateDone
+    end
+
+    def target
+      @data.target
+    end
+
+    def type( event_type )
+      @state.type @data, event_type
+    end
+
+    def match_type( event_type )
+      event_type = EventType.new event_type unless event_type.is_a? EventType
+      event_type.match @data.types
+    end
+
+    def time
+      @data.time.dup
+    end
+
+    def start(&block)
+      @data.start << block if block_given?
+    end
+
+    def finish(&block)
+      @data.finish << block if block_given?
+    end
+  end
+end

data/lib/seh/event_target.rb

@@ -0,0 +1,35 @@
+module Seh
+  module EventTarget
+    def bind( event_type=nil, &block )
+      raise "EventTarget::bind expects a block" unless block_given?
+      @_binds ||= []
+      bind = Private::EventBind.new( event_type, &block )
+      @_binds << bind
+      ->{ @_binds.delete bind }
+    end
+
+    def bind_once( event_type=nil, &block )
+      return unless block_given?
+      disconnect = self.bind(event_type) { |event| disconnect.call; block.call event }
+      disconnect
+    end
+
+    def each_bind
+      @_binds ||= []
+      @_binds.dup.each { |b| yield b }
+      nil
+    end
+  end
+
+  module Private
+    class EventBind
+      attr_reader :event_type, :block
+
+      def initialize( event_type, &block )
+        event_type = EventType.new event_type unless event_type.is_a? EventType
+        @event_type = event_type
+        @block = block
+      end
+    end # EventBind
+  end # Private
+end

data/lib/seh/event_type.rb

@@ -0,0 +1,58 @@
+module Seh
+  class EventType
+    attr_reader :type
+
+    def initialize( type )
+      @type = type
+    end
+
+    def match(types)
+      types = [types] unless types.respond_to? :each
+      _match types
+    end
+
+    private
+    def _match(types)
+      return true if not self.type or types.include? self.type
+      false
+    end
+
+    class And < EventType
+      def initialize(*types)
+        @types = []
+        types.each { |t| t = EventType.new t unless t.kind_of? EventType ; @types << t }
+      end
+
+      private
+      def _match(types)
+        @types.each { |t| return false unless t.match types }
+        true
+      end
+    end # And
+
+    class Or < EventType
+      def initialize(*types)
+        @types = []
+        types.each { |t| t = EventType.new t unless t.kind_of? EventType ; @types << t }
+      end
+
+      private
+      def _match(types)
+        @types.each { |t| return true if t.match types }
+        false
+      end
+    end # Or
+
+    class Not < EventType
+      def initialize(type)
+        type = EventType.new type unless type.kind_of? EventType
+        @type = type
+      end
+
+      private
+      def _match(types)
+        ! @type.match types
+      end
+    end # Not
+  end # EventType
+end

data/lib/seh/version.rb

@@ -0,0 +1,3 @@
+module Seh
+  VERSION = "0.0.1"
+end

data/seh.gemspec

@@ -0,0 +1,20 @@
+# -*- encoding: utf-8 -*-
+$:.push File.expand_path("../lib", __FILE__)
+require "seh/version"
+
+Gem::Specification.new do |s|
+  s.name        = "seh"
+  s.version     = Seh::VERSION
+  s.authors     = ["Ryan Berckmans"]
+  s.email       = ["ryan.berckmans@gmail.com"]
+  s.homepage    = "https://github.com/ryanberckmans/seh"
+  s.summary     = "event handling similar to w3c dom events; pre-alpha wip"
+  s.description = ""
+
+  s.rubyforge_project = "seh"
+
+  s.files         = `git ls-files`.split("\n")
+  s.test_files    = `git ls-files -- {test,spec,features}/*`.split("\n")
+  s.executables   = `git ls-files -- bin/*`.split("\n").map{ |f| File.basename(f) }
+  s.require_paths = ["lib"]
+end

data/spec/spec_helper.rb

@@ -0,0 +1,4 @@
+
+# stub
+
+

metadata

@@ -0,0 +1,57 @@
+--- !ruby/object:Gem::Specification
+name: seh
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+  prerelease: 
+platform: ruby
+authors:
+- Ryan Berckmans
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2011-06-15 00:00:00.000000000Z
+dependencies: []
+description: ''
+email:
+- ryan.berckmans@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- .gitignore
+- .rvmrc
+- Gemfile
+- README.org
+- Rakefile
+- lib/seh.rb
+- lib/seh/event.rb
+- lib/seh/event_target.rb
+- lib/seh/event_type.rb
+- lib/seh/version.rb
+- seh.gemspec
+- spec/spec_helper.rb
+homepage: https://github.com/ryanberckmans/seh
+licenses: []
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: seh
+rubygems_version: 1.8.5
+signing_key: 
+specification_version: 3
+summary: event handling similar to w3c dom events; pre-alpha wip
+test_files: []