randrews-toast 0.0.4

data/bin/toastconsole

@@ -0,0 +1,12 @@
+#!/usr/local/bin/ruby
+
+require 'rubygems'
+gem 'toast'
+require 'toast'
+
+begin
+  bot_class=Toast::ConsoleUtils.get_bot_class_for_name(ARGV[0])
+  Toast::ConsoleChannel.run bot_class
+rescue
+  puts $!.to_s
+end

data/example/hangman_responder.rb

@@ -0,0 +1,83 @@
+class HangmanResponder < Toast::Responder
+  attr_accessor :word
+  attr_accessor :solved_word
+  attr_accessor :alphabet
+  attr_accessor :body_parts
+
+  def say_wait msg ; say msg ; wait ; end
+
+  def respond msg
+    say 'Welcome to hangman!'
+    @alphabet='abcdefghijklmnopqrstuvwxyz'
+    @body_parts=6
+    @word=find_word
+    @solved_word='_'*word.length
+
+    say status_msg
+
+    while(@solved_word!=@word && @body_parts>0)
+      letter=get_letter
+
+      @alphabet[@alphabet.index(letter)]='_'
+
+      if @word.index(letter)
+        @word.split('').each_with_index do |l, i|
+          @solved_word[i]=letter if(l==letter)
+        end
+      else
+        @body_parts-= 1
+        say "Oops, the word doesn't contain the letter #{letter}"
+      end
+
+      say status_msg
+    end
+
+    if(@body_parts>0)
+      "Congratulations, you win! Send any message to play again."
+    else
+      "Sorry, you were hung. The word was #{@word}. Send any message to play again."
+    end
+  end
+
+  def get_letter
+    letter=say_wait "Choose a letter"
+    letter_good=false
+
+    loop do
+      letter=letter.downcase
+      
+      unless letter=~/^[a-z]$/
+        letter=say_wait "That's not a letter, choose again"
+        next
+      end
+      unless @alphabet.index letter
+        letter=say_wait "You've already used that letter, choose again"
+        next
+      end
+
+      return letter
+    end
+  end
+
+  def find_word
+    max=(`wc -l /usr/share/dict/words`).split[0].to_i
+    line=rand(max)
+
+    word=nil
+    file=File.new('/usr/share/dict/words')
+
+    line.times do
+      word=file.gets
+    end
+
+    word.chomp
+  end
+
+  def status_msg
+    "#{@solved_word.split('').join(' ')}\n#{body_part_msg} remaining\n#{@alphabet.split('').join(' ')}"
+  end
+
+  def body_part_msg
+    @body_parts==1 ? "#{@body_parts} body part" : "#{@body_parts} body parts"
+  end
+end

data/example/simple_responder.rb

@@ -0,0 +1,12 @@
+class SimpleResponder < Toast::Responder
+  def say_wait msg
+    say msg
+    wait
+  end
+  
+  def respond first
+    second = say_wait "first is #{first}"
+    third = say_wait "second is #{second}"
+    "third is #{third}"
+  end
+end

data/example/wait_responder.rb

@@ -0,0 +1,6 @@
+class WaitResponder < Toast::Responder
+  def respond msg
+    say "1: #{msg}"
+    "2: #{wait}"
+  end
+end

data/lib/channel.rb

@@ -0,0 +1,31 @@
+module Toast
+  class Channel
+    attr_accessor :responder_class
+    attr_accessor :responders
+    
+    def initialize responder_class
+      @responder_class=responder_class
+      @responders={}
+    end
+    
+    def handle msg
+      responder_for(msg.from).handle msg.text
+    end
+    
+    def next_msg
+      Message.new("Override #{self.class.name}.next_msg", 
+                  'nobody')
+    end
+
+    def responder_for from
+      unless @responders[from]
+        @responders[from]= @responder_class.new self, from
+      end
+      @responders[from]
+    end
+
+    def send msg, to
+      puts "#{to}: #{msg.text}"
+    end
+  end
+end

data/lib/console_channel.rb

@@ -0,0 +1,96 @@
+module Toast
+  class ConsoleChannel < Channel
+    def initialize responder_class
+      super responder_class
+      @hear_commands=true
+      @exit_now=false
+    end
+    
+    def send msg, to
+      puts ""
+      puts msg unless msg.nil?
+    end
+
+    def next_line
+      line = Readline::readline('> ')
+      return nil unless line
+      Readline::HISTORY.push(line)
+      line
+    end
+
+    def self.run responder_class
+      channel=ConsoleChannel.new responder_class
+      channel.run
+    end
+
+    def run
+      send "Type .exit or ctrl-D to leave",""
+      loop do
+        msg=next_line
+        break unless msg
+        handle_line msg
+        break if @exit_now
+      end
+      send nil,nil
+    end
+
+    def handle_line line
+      if (line[0,1]=='.' && @hear_commands) ||
+          line=~/\.commands\s+on/
+
+        result=special_cmd line
+        return if @exit_now
+        send result,'' if result
+
+      else
+        handle Toast::Message.new(line,'console@localhost')
+      end
+    end
+
+    def special_cmd cmd
+      if cmd=='.exit'
+        @exit_now=true
+        return nil
+
+      elsif cmd=~/^\.srand\s+([0-9]+)/
+        srand $1.to_i
+        return "Random seed is #{$1}"
+
+      elsif cmd=~/^\.commands\s+(on|off)/
+        @hear_commands=($1=='on')
+        return "Commands are #{$1}"
+
+      elsif cmd=~/^.script\s+(\S+)/
+        old_dir=@current_dir
+
+        file=$1
+        unless file=~/^\// # if it's a relative path, then tack @current_dir on
+          file=File.expand_path(@current_dir+"/"+file)
+        end
+
+        @current_dir=File.dirname(file)
+        
+        File.new(file).each do |line|
+          handle_line line.strip unless line.blank? || line=~/^\s*#/
+          break if @exit_now
+        end
+
+        @current_dir=old_dir
+        return nil
+
+      elsif cmd=~/^.send\s+(.*)/
+        args=$1.strip.split(/\s+/)
+        fn=args.shift.to_sym
+        begin
+          response=responder_for('console@localhost').send(fn, *args)
+        rescue
+          response=$!.to_s
+        end
+        return response
+      end
+
+      return "Bad command #{cmd}"
+    end
+
+  end
+end

data/lib/console_utils.rb

@@ -0,0 +1,52 @@
+module Toast
+  module ConsoleUtils
+    def self.get_bot_class_for_name bot_name=nil
+
+      # If it's nil, show a menu for .
+      if bot_name.nil?
+        file=show_menu_for_directory '.'
+        load file
+        return class_for_file_name(file)
+      end
+
+      # If it's a file, then we just use it
+      if File.file? bot_name
+        load bot_name
+        return class_for_file_name(bot_name)
+      end
+
+      # if it's not a .rb file, but is present, it's a directory
+      if File.directory? bot_name
+        file=show_menu_for_directory(bot_name)
+        load file
+        return class_for_file_name(file)
+      end
+
+      raise "Can't find #{bot_name}"
+    end
+
+    def self.show_menu_for_directory path
+      n=0
+      Dir.glob("#{path}/*.rb").each do |file|
+        n+=1
+        name=File.basename(file,'.rb')
+        puts "- #{name}"
+        Readline::HISTORY.push(name)
+      end
+
+      if n==0
+        path="current directory" if path=='.'
+        raise "No .rb files found in #{path}"
+      end
+
+      bot_name=Readline::readline('Which bot: ')
+      n.times {Readline::HISTORY.shift}
+
+      return "#{path}/#{bot_name}.rb"
+    end
+
+    def self.class_for_file_name file
+      File.basename(file,'.rb').classify.constantize
+    end
+  end
+end

data/lib/cont.rb

@@ -0,0 +1,14 @@
+##################################################
+### Pipe: read from stdin, write to stdout #######
+##################################################
+
+# class StdChannel < Channel
+#   def initialize responder_class
+#     super responder_class
+#   end
+# 
+#   def send msg, to
+#     puts StdChannel.escape(to)
+#     puts StdChannel.escape(msg)
+#   end
+# end

data/lib/responder.rb

@@ -0,0 +1,43 @@
+module Toast
+  class Responder
+    attr_accessor :from
+    
+    def initialize channel, from
+      @channel=channel
+      @from=from
+    end
+    
+    def handle msg
+      callcc do |back_to_channel|
+        @back_to_channel = back_to_channel
+        
+        if @leftoff
+          @leftoff.call(msg)
+        else
+          response=respond(msg)
+          say response unless response.nil?
+          @leftoff=nil
+          @back_to_channel.call
+        end
+      end
+    end
+    
+    ### Override me to handle messages!
+    def respond msg
+      say "Override #{self.class.name}.respond to have your bot do something."
+      nil
+    end
+    
+    def wait
+      callcc do |cc|
+        @leftoff=cc
+        @back_to_channel.call
+      end
+    end
+    
+    def say msg
+      @channel.send msg, @from
+      nil
+    end
+  end
+end

data/lib/test_channel.rb

@@ -0,0 +1,20 @@
+module Toast
+  class TestChannel < Channel
+    attr_accessor :output
+
+    def initialize responder_class
+      super responder_class
+      self.output=[]
+    end
+
+    def send msg,to
+      @output << Message.new(msg,to)
+    end
+
+    def run script
+      script.each do |text|
+        handle Message.new(text,'test@localhost')
+      end
+    end
+  end
+end

data/lib/toast.rb

@@ -0,0 +1,7 @@
+require 'rubygems'
+require 'active_support'
+require 'readline'
+
+Dir.glob("#{File.dirname(__FILE__)}/**/*.rb").each do |file|
+  require file
+end

data/lib/util.rb

@@ -0,0 +1,35 @@
+module Toast
+  Message = Struct.new(:text, :from)
+
+  class Message
+    def to_s ; @text ; end
+  end
+end
+
+class String
+  def escape
+    gsub("\\","\\\\").gsub("\n","\\n")
+  end
+
+  def unescape
+    gsub("\\n","\n").gsub("\\\\","\\")
+  end
+end
+
+class Symbol
+  def to_proc
+    Proc.new {|_| _.send self}
+  end
+end
+
+def delete_emacs_temp dir="."
+  Dir.glob(dir+"/*").each do |file|
+    if File.directory? file
+      delete_emacs_temp file
+    end
+    if file=~/~$/
+      puts "deleting #{file}"
+      File.delete file
+    end
+  end
+end

metadata

@@ -0,0 +1,74 @@
+--- !ruby/object:Gem::Specification 
+name: randrews-toast
+version: !ruby/object:Gem::Version 
+  version: 0.0.4
+platform: ruby
+authors: 
+- Ross Andrews
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-07-27 00:00:00 -07:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: activesupport
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 2.1.0
+    version: 
+description: A framework for making Jabber bots
+email: randrews@geekfu.org
+executables: 
+- toastconsole
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- lib/channel.rb
+- lib/console_channel.rb
+- lib/console_utils.rb
+- lib/cont.rb
+- lib/responder.rb
+- lib/test_channel.rb
+- lib/toast.rb
+- lib/util.rb
+- bin/toastconsole
+- example/hangman_responder.rb
+- example/simple_responder.rb
+- example/wait_responder.rb
+has_rdoc: false
+homepage: http://toastwiki.yellownote.info
+licenses: 
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.5
+signing_key: 
+specification_version: 2
+summary: A framework for making Jabber bots
+test_files: []
+