fsm 0.0.0

data/gemspec.rb

@@ -0,0 +1,23 @@
+lib, version = File::basename(File::dirname(File::expand_path(__FILE__))).split %r/-/, 2
+
+require 'rubygems'
+
+Gem::Specification::new do |spec|
+  spec.name = lib 
+  spec.version = version 
+  spec.platform = Gem::Platform::RUBY
+  spec.summary = lib 
+
+  spec.files = Dir::glob "**/**"
+  spec.executables = Dir::glob("bin/*").map{|exe| File::basename exe}
+  
+  spec.require_path = "lib" 
+  spec.autorequire = lib
+
+  spec.has_rdoc = File::exist? "doc" 
+  spec.test_suite_file = "test/#{ lib }.rb" if File::directory? "test"
+
+  spec.author = "Ara T. Howard"
+  spec.email = "ara.t.howard@noaa.gov"
+  spec.homepage = "http://codeforpeople.com/lib/ruby/#{ lib }/"
+end

data/install.rb

@@ -0,0 +1,206 @@
+#!/usr/bin/env ruby
+require 'rbconfig'
+require 'find'
+require 'ftools'
+require 'tempfile'
+include Config
+
+LIBDIR      = "lib"
+LIBDIR_MODE = 0644
+
+BINDIR      = "bin"
+BINDIR_MODE = 0755
+
+
+$srcdir            = CONFIG["srcdir"]
+$version           = CONFIG["MAJOR"]+"."+CONFIG["MINOR"]
+$libdir            = File.join(CONFIG["libdir"], "ruby", $version)
+$archdir           = File.join($libdir, CONFIG["arch"])
+$site_libdir       = $:.find {|x| x =~ /site_ruby$/}
+$bindir            = CONFIG["bindir"] || CONFIG['BINDIR']
+$ruby_install_name = CONFIG['ruby_install_name'] || CONFIG['RUBY_INSTALL_NAME'] || 'ruby'
+$ruby_ext          = CONFIG['EXEEXT'] || ''
+$ruby              = File.join($bindir, ($ruby_install_name + $ruby_ext))
+
+if !$site_libdir
+  $site_libdir = File.join($libdir, "site_ruby")
+elsif $site_libdir !~ %r/#{Regexp.quote($version)}/
+  $site_libdir = File.join($site_libdir, $version)
+end
+
+def install_rb(srcdir=nil, destdir=nil, mode=nil, bin=nil)
+#{{{
+  path   = []
+  dir    = []
+  Find.find(srcdir) do |f|
+    next unless FileTest.file?(f)
+    next if (f = f[srcdir.length+1..-1]) == nil
+    next if (/CVS$/ =~ File.dirname(f))
+    next if f =~ %r/\.lnk/
+    path.push f
+    dir |= [File.dirname(f)]
+  end
+  for f in dir
+    next if f == "."
+    next if f == "CVS"
+    File::makedirs(File.join(destdir, f))
+  end
+  for f in path
+    next if (/\~$/ =~ f)
+    next if (/^\./ =~ File.basename(f))
+    unless bin
+      File::install(File.join(srcdir, f), File.join(destdir, f), mode, true)
+    else
+      from = File.join(srcdir, f)
+      to = File.join(destdir, f)
+      shebangify(from) do |sf|
+        $deferr.print from, " -> ", File::catname(from, to), "\n"
+        $deferr.printf "chmod %04o %s\n", mode, to 
+        File::install(sf, to, mode, false)
+      end
+    end
+  end
+#}}}
+end
+def shebangify f
+#{{{
+  open(f) do |fd|
+    buf = fd.read 42 
+    if buf =~ %r/^\s*#\s*!.*ruby/o
+      ftmp = Tempfile::new("#{ $$ }_#{ File::basename(f) }")
+      begin
+        fd.rewind
+        ftmp.puts "#!#{ $ruby  }"
+        while((buf = fd.read(8192)))
+          ftmp.write buf
+        end
+        ftmp.close
+        yield ftmp.path
+      ensure
+        ftmp.close!
+      end
+    else
+      yield f
+    end
+  end
+#}}}
+end
+def ARGV.switch
+#{{{
+  return nil if self.empty?
+  arg = self.shift
+  return nil if arg == '--'
+  if arg =~ /^-(.)(.*)/
+    return arg if $1 == '-'
+    raise 'unknown switch "-"' if $2.index('-')
+    self.unshift "-#{$2}" if $2.size > 0
+    "-#{$1}"
+  else
+    self.unshift arg
+    nil
+  end
+#}}}
+end
+def ARGV.req_arg
+#{{{
+  self.shift || raise('missing argument')
+#}}}
+end
+def linkify d, linked = []
+#--{{{
+  if test ?d, d
+    versioned = Dir[ File::join(d, "*-[0-9].[0-9].[0-9].rb") ]
+    versioned.each do |v| 
+      src, dst = v, v.gsub(%r/\-[\d\.]+\.rb$/, '.rb')
+      lnk = nil
+      begin
+        if test ?l, dst
+          lnk = "#{ dst }.lnk"
+          puts "#{ dst } -> #{ lnk }"
+          File::rename dst, lnk
+        end
+        unless test ?e, dst
+          puts "#{ src } -> #{ dst }"
+          File::copy src, dst 
+          linked << dst
+        end
+      ensure
+        if lnk
+          at_exit do
+            puts "#{ lnk } -> #{ dst }"
+            File::rename lnk, dst
+          end
+        end
+      end
+    end
+  end
+  linked
+#--}}}
+end
+
+
+#
+# main program
+#
+
+libdir = $site_libdir
+bindir = $bindir
+no_linkify = false
+linked = nil
+help = false
+
+usage = <<-usage
+  #{ File::basename $0 }
+    -d, --destdir    <destdir>
+    -l, --libdir     <libdir>
+    -b, --bindir     <bindir>
+    -r, --ruby       <ruby>
+    -n, --no_linkify
+    -s, --sudo
+    -h, --help
+usage
+
+begin
+  while switch = ARGV.switch
+    case switch
+    when '-d', '--destdir'
+      libdir = ARGV.req_arg
+    when '-l', '--libdir'
+      libdir = ARGV.req_arg
+    when '-b', '--bindir'
+      bindir = ARGV.req_arg
+    when '-r', '--ruby'
+      $ruby = ARGV.req_arg
+    when '-n', '--no_linkify'
+      no_linkify = true
+    when '-s', '--sudo'
+      sudo = 'sudo' 
+    when '-h', '--help'
+      help = true
+    else
+      raise "unknown switch #{switch.dump}"
+    end
+  end
+rescue
+  STDERR.puts $!.to_s
+  STDERR.puts usage
+  exit 1
+end    
+
+if help
+  STDOUT.puts usage
+  exit
+end
+
+unless no_linkify
+  linked = linkify('lib') + linkify('bin')
+end
+
+system "#{ $ruby } extconf.rb && make && #{ sudo } make install" if test(?s, 'extconf.rb')
+
+install_rb(LIBDIR, libdir, LIBDIR_MODE)
+install_rb(BINDIR, bindir, BINDIR_MODE, bin=true)
+
+if linked
+  linked.each{|path| File::rm_f path}
+end

data/instance_exec.rb

@@ -0,0 +1,26 @@
+
+class Object
+  unless instance_methods.include? 'instance_exec'
+    def instance_exec *a, &b
+      m = "__instance_exec_#{ Thread.current.object_id.abs }__"
+      singleton_class{ define_method m, &b  }
+      send m, *a
+    ensure
+      singleton_class{ undef_method m  } rescue nil
+    end
+  end
+  unless instance_methods.include? 'singleton_class'
+    def singleton_class &b
+      sc = 
+        class << self; self; end
+      sc.module_eval &b if b
+      sc
+    end
+  end
+end
+
+a = []
+a.instance_exec 42 do |elem|
+  push elem
+end
+p a

data/lib/fsm-0.0.0.rb

@@ -0,0 +1,78 @@
+unless defined? $__fsm__
+  $__fsm__ = __FILE__ 
+
+  module FSM 
+#--{{{
+    FSM::LIBNAME = 
+      'fsm' unless
+        defined? FSM::LIBNAME
+
+    FSM::VERSION = 
+      '0.0.0' unless
+        defined? FSM::VERSION
+
+    FSM::LIBVER = 
+      "#{ FSM::LIBNAME }-#{ FSM::VERSION }" unless
+        defined? FSM::LIBVER
+
+    FSM::DIRNAME = 
+      File::dirname(File::expand_path(__FILE__)) + File::SEPARATOR unless
+        defined? FSM::DIRNAME
+
+    FSM::ROOTDIR = 
+      File::dirname(FSM::DIRNAME) unless
+        defined? FSM::ROOTDIR
+
+    FSM::LIBDIR = 
+      File::join(FSM::DIRNAME, FSM::LIBVER) + File::SEPARATOR unless
+        defined? FSM::LIBDIR
+
+    FSM::INCDIR = 
+      File::dirname(FSM::LIBDIR) + File::SEPARATOR unless
+        defined? FSM::INCDIR
+
+    FSM::DISPLAY_CMD =
+      ENV['FSM_DISPLAY_CMD'] || 'display'
+
+    FSM::DOT_CMD =
+      ENV['FSM_DOT_CMD'] || 'dot'
+
+    require 'tempfile'
+    require 'thread'
+    require 'sync'
+    require 'enumerator'
+
+    begin
+      $:.unshift LIBDIR
+      require 'graph/directed_graph'
+    ensure
+      $:.shift
+    end
+
+    require LIBDIR + 'util'
+    require LIBDIR + 'event'
+    require LIBDIR + 'fsm'
+    require LIBDIR + 'observer'
+    require LIBDIR + 'system'
+    require LIBDIR + 'dsl'
+
+    def self.new(*a, &b) FSM.new(*a, &b) end
+    def self.system(*a, &b) System.new(*a, &b) end
+
+    module ::Kernel
+      def FSM(*a, &b) ::FSM.new(*a, &b) end
+      def FSMSystem(*a, &b) ::FSM::System.new(*a, &b) end
+    end
+#--}}}
+  end # module FSM
+
+  class Thread
+    def joinable
+      @joinable = false unless defined? @joinable
+    end
+    alias_method 'joinable?', 'joinable'
+    def joinable= bool
+      @joinable = bool ? true : false 
+    end
+  end
+end

data/lib/fsm-0.0.0/dsl.rb

@@ -0,0 +1,71 @@
+unless defined? $__fsm_dsl__
+  $__fsm_dsl__ = __FILE__ 
+
+  module FSM 
+    FSM::LIBDIR =
+      File::dirname(File::expand_path(__FILE__)) + File::SEPARATOR unless
+        defined? FSM::LIBDIR
+
+    FSM::INCDIR =
+      File::dirname(FSM::LIBDIR) + File::SEPARATOR unless
+        defined? FSM::INCDIR
+
+    require INCDIR + 'fsm'
+
+    class GenericDSL
+      def initialize object
+        @object = object
+      end
+      def method_missing m, *a, &b
+        if @object.respond_to? m
+          @object.send m, *a, &b
+        else
+          super
+        end
+      end
+      def configure &b
+        instance_eval &b
+      end
+    end
+
+    class FSM
+      class  DSL < GenericDSL
+        def states *a
+          @object.add_state *a
+        end
+        alias_method 'state', 'states'
+
+        def transition *a, &b
+          @object.add_transition *a, &b
+        end
+        alias_method 'transitioning', 'transition'
+      end
+    end
+
+    class Observer
+      class DSL < GenericDSL
+      end
+    end
+
+    class System
+      class DSL < GenericDSL
+        def fsm &b
+          b ? fsm.configure(&b) : @object.fsm
+        end
+
+        def observer &b
+          b ? observer.configure(&b) : @object.observer
+        end
+
+        def method_missing m, *a, &b
+          if fsm.respond_to? m
+            fsm.send m, *a, &b
+          else
+            super
+          end
+        end
+      end
+    end
+
+  end # module FSM
+end

data/lib/fsm-0.0.0/event.rb

@@ -0,0 +1,68 @@
+unless defined? $__fsm_event__
+  $__fsm_event__ = __FILE__ 
+
+  module FSM 
+    FSM::LIBDIR =
+      File::dirname(File::expand_path(__FILE__)) + File::SEPARATOR unless
+        defined? FSM::LIBDIR
+
+    FSM::INCDIR =
+      File::dirname(FSM::LIBDIR) + File::SEPARATOR unless
+        defined? FSM::INCDIR
+
+    require INCDIR + 'fsm'
+
+    class Event
+      include Util
+
+      NOTIFICATION = "fsm_event"
+
+      tattrs %w[
+        state
+        data
+        type
+      ]
+
+      def initialize state, *data, &b
+        super
+        @state, @data = state, *data
+        @type = self.class
+      end
+
+      def notify s, *a, &b
+        mcall(s, NOTIFICATION, self, *a, &b) if s.respond_to? NOTIFICATION
+      end
+
+      def inspect
+        [@type, @state, @data].inspect
+      end
+
+
+      class Any < Event
+      end
+
+      class Exit < Any
+      end
+
+      class Transition < Any
+      end
+
+      class Entry < Any
+      end
+
+      class Input < Any
+      end
+
+      TYPES = Any, Exit, Transition, Entry, Input 
+
+      def self.message
+        name.split(%r/::/).last.downcase
+      end
+
+      TYPES.each do |etype|
+        message = etype.message
+        singleton_class{ define_method(message){ etype }}
+      end
+    end # class Event
+  end # module FSM
+end