jxl-isaac 0.2.2

data/LICENSE

@@ -0,0 +1,6 @@
+------------------------------------------------------------------------------
+"THE BEER-WARE LICENSE" (Revision 42):
+<ichverstehe@gmail.com> wrote this file. As long as you retain this notice you
+can do whatever you want with this stuff. If we meet some day, and you think
+this stuff is worth it, you can buy me a beer in return.
+------------------------------------------------------------------------------

data/README.rdoc

@@ -0,0 +1,88 @@
+= Isaac - the smallish DSL for writing IRC bots
+
+== Features
+* Wraps parsing of incoming messages and raw IRC commands in simple constructs.
+* Hides all the ugly regular expressions of matching IRC commands. Leaves only the essentials for you to match.
+* Takes care of dull stuff such as replying to PING-messages and avoiding excess flood.
+
+== Getting started
+An Isaac-bot needs a few basics:
+  require 'isaac'
+  configure do |c|
+    c.nick    = "AwesomeBot"
+    c.server  = "irc.freenode.net"
+    c.port    = 6667
+  end
+That's it. Run <tt>ruby bot.rb</tt> and it will connect to the specified server.
+
+=== Connecting
+After the bot has connected to the IRC server you might want to join some channels:
+  on :connect do
+    join "#awesome_channel", "#WesternBar"
+  end
+
+=== Responding to messages
+Joining a channel and sitting idle is not much fun. Let's repeat everything being said in these channels:
+
+  on :channel do
+    msg channel, message
+  end
+
+Notice the +channel+ and +message+ variables. Additionally +nick+ and +match+ is
+available for channel-events. +nick+ being the sender of the message, +match+
+being an array of captures from the regular expression:
+
+  on :channel, /^quote this: (.*)/ do
+    msg channel, "Quote: '#{match[0]}' by #{nick}"
+  end
+
+If you want to match private messages use the +on :private+ event:
+
+  on :private, /^login (\S+) (\S+)/ do
+    username = match[0]
+    password = match[1]
+    # do something to authorize or whatevz.
+    msg nick, "Login successful!"
+  end
+
+=== Defining helpers
+Helpers should not be defined in the top level, but instead using the +helpers+-constructor:
+
+  helpers do
+    def rain_check(meeting)
+      msg nick, "Can I have a rain check on the #{meeting}?"
+    end
+  end
+
+  on :private, /date/ do
+    rain_check("romantic date")
+  end
+
+=== Errors, errors, errors
+Errors, as specified by RFC 1459, can be reacted upon as well. If you e.g. try to send a message to a non-existant nick you will get error 401: "No such nick/channel".
+
+  on :error, 401 do
+    # Do something.
+  end
+
+Available variables: +nick+ and +channel+.
+
+=== Send commands from outside an event (not implemented in Shaft atm)
+You might want to send messages, join channels etc. without it strictly being the result of an on()-event, e.g. send a message every time a RSS feed is updated or whatever. You can use +Isaac.execute+ for that, and all your normal commands, +msg+, +join+, +topic+ etc. will be available:
+
+  class K
+    def smoke(brand)
+      Isaac.execute { msg "harryjr", "you should smoke #{brand} cigarettes" }
+    end
+  end
+
+  on :connect do
+    k = K.new
+    k.smoke("Lucky Strike")
+  end
+
+== Contribute
+The source is hosted at GitHub: http://github.com/ichverstehe/isaac
+
+== License
+The MIT. Google it.

data/isaac.gemspec

@@ -0,0 +1,18 @@
+Gem::Specification.new do |s|
+  s.name     = "isaac"
+  s.version  = "0.2.2"
+  s.date     = "2009-02-23"
+  s.summary  = "The smallish DSL for writing IRC bots"
+  s.email    = "harry@vangberg.name"
+  s.homepage = "http://github.com/ichverstehe/isaac"
+  s.description = "Small DSL for writing IRC bots."
+  s.rubyforge_project = "isaac"
+  s.has_rdoc = true
+  s.authors  = ["Harry Vangberg"]
+  s.files    = ["README.rdoc", 
+    "LICENSE",
+		"isaac.gemspec", 
+		"lib/isaac.rb"]
+  s.rdoc_options = ["--main", "README.rdoc"]
+  s.extra_rdoc_files = ["LICENSE", "README.rdoc"]
+end

data/lib/isaac.rb

@@ -0,0 +1,172 @@
+require 'socket'
+
+module Isaac
+  VERSION = '0.2.1'
+
+  Config = Struct.new(:server, :port, :password, :nick, :realname, :version, :environment, :verbose)
+
+  def self.bot
+    @bot ||= Bot.new
+  end
+
+  class Bot
+    attr_accessor :config, :irc, :nick, :channel, :message, :userhost, :match,
+      :error
+
+    def initialize(&b)
+      @events = {}
+      @config = Config.new("localhost", 6667, nil, "isaac", "Isaac", 'isaac', :production, false)
+
+      instance_eval(&b) if block_given?
+    end
+
+    def start
+      puts "Connecting to #{@config.server}:#{@config.port}" unless @config.environment == :test
+      @irc = IRC.new(self, @config)
+      @irc.connect
+    end
+
+    def on(event, match=//, &b)
+      match = match.to_s if match.is_a? Integer
+      (@events[event] ||= []) << [Regexp.new(match), b]
+    end
+
+    def helpers(&b)
+      instance_eval &b
+    end
+
+    def configure(&b)
+      b.call(@config)
+    end
+
+    def dispatch(event, env={})
+      self.nick, self.userhost, self.channel, self.error =
+        env[:nick], env[:userhost], env[:channel], env[:error]
+      self.message = env[:message] || ""
+
+      event = @events[event] && @events[event].detect do |regexp,_|
+        message.match(regexp)
+      end
+
+      if event
+        regexp, block = *event
+        self.match = message.match(regexp).captures
+        catch(:halt) { instance_eval(&block) }
+      end
+    end
+
+    def halt
+      throw :halt
+    end
+
+    def raw(m)
+      @irc.message(m)
+    end
+
+    def msg(recipient, m)
+      raw("PRIVMSG #{recipient} :#{m}")
+    end
+
+    def join(*channels)
+      channels.each {|channel| raw("JOIN #{channel}")}
+    end
+
+    def part(*channels)
+      channels.each {|channel| raw("PART #{channel}")}
+    end
+
+    def topic(channel, text)
+      raw("TOPIC #{channel} :#{text}")
+    end
+  end
+
+  class IRC
+    def initialize(bot, config)
+      @bot, @config = bot, config
+      @transfered = 0
+      @registration = []
+      @lock = false
+      @queue = []
+    end
+
+    def connect
+      @socket = TCPSocket.open(@config.server, @config.port)
+      message "PASS #{@config.password}" if @config.password
+      message "NICK #{@config.nick}"
+      message "USER #{@config.nick} 0 * :#{@config.realname}"
+      @lock = true
+
+      while line = @socket.gets
+        parse line
+      end
+    end
+
+    def parse(input)
+      puts "<< #{input}" if @bot.config.verbose
+      case input
+      when /^:\S+ 00([1-4])/
+        @registration << $1.to_i
+        if registered?
+          @lock = false
+          @bot.dispatch(:connect)
+          continue_queue
+        end
+      when /^:(\S+)!\S+ PRIVMSG \S+ :?\001VERSION\001/
+        message "NOTICE #{$1} :\001VERSION #{@bot.config.version}\001"
+      when /^PING (\S+)/
+        @transfered, @lock = 0, false
+        message "PONG #{$1}"
+      when /^:(\S+)!(\S+) PRIVMSG (\S+) :?(.*)/
+        env = { :nick => $1, :userhost => $2, :channel => $3, :message => $4 }
+        type = env[:channel].match(/^#/) ? :channel : :private
+        @bot.dispatch(type, env)
+      when /^:\S+ ([4-5]\d\d) \S+ (\S+)/
+        env = {:error => $1.to_i, :message => $1, :nick => $2, :channel => $2}
+        @bot.dispatch(:error, env)
+      when /^:\S+ PONG/
+        @transfered, @lock = 0, false
+        continue_queue
+      end
+    end
+
+    def registered?
+      ([1,2,3,4] - @registration).empty?
+    end
+
+    def message(msg)
+      @queue << msg
+      continue_queue
+    end
+
+    def continue_queue
+      # <= 1472 allows for \n
+      while !@lock && msg = @queue.shift
+        if (@transfered + msg.size) < 1472
+          @socket.puts msg
+          puts ">> #{msg}" if @bot.config.verbose
+          @transfered += msg.size + 1
+        else
+          @queue.unshift(msg)
+          @lock = true
+          @socket.puts "PING :#{@bot.config.server}"
+          break
+        end
+      end
+    end
+  end
+end
+
+%w(configure helpers on).each do |method|
+  eval(<<-EOF)
+    def #{method}(*args, &block)
+      Isaac.bot.#{method}(*args, &block)
+    end
+  EOF
+end
+
+at_exit do
+  unless defined?(Test::Unit)
+    raise $! if $!
+    Isaac.bot.start
+  end
+end

metadata

@@ -0,0 +1,58 @@
+--- !ruby/object:Gem::Specification 
+name: jxl-isaac
+version: !ruby/object:Gem::Version 
+  version: 0.2.2
+platform: ruby
+authors: 
+- Harry Vangberg
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-02-23 00:00:00 -08:00
+default_executable: 
+dependencies: []
+
+description: Small DSL for writing IRC bots.
+email: harry@vangberg.name
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- LICENSE
+- README.rdoc
+files: 
+- README.rdoc
+- LICENSE
+- isaac.gemspec
+- lib/isaac.rb
+has_rdoc: true
+homepage: http://github.com/ichverstehe/isaac
+post_install_message: 
+rdoc_options: 
+- --main
+- README.rdoc
+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: isaac
+rubygems_version: 1.2.0
+signing_key: 
+specification_version: 2
+summary: The smallish DSL for writing IRC bots
+test_files: []
+