blur 1.4

data/library/blur.rb

@@ -0,0 +1,20 @@
+# encoding: utf-8
+
+require 'pp'
+require 'yaml'
+require 'socket'
+require 'ostruct'
+
+Dir.glob("#{File.dirname __FILE__}/blur/**/*.rb").each &method(:require)
+
+module Blur
+  class << Version = [1,4]
+    def to_s; join '.' end
+  end
+
+  def self.connect options, &block
+    Client.new(options).tap do |client|
+      client.instance_eval &block
+    end.connect
+  end
+end

data/library/blur/client.rb

@@ -0,0 +1,89 @@
+# encoding: utf-8
+
+require 'blur/handling'
+
+module Blur
+  class Client
+    include Handling
+    
+    attr_accessor :options, :networks
+    
+    def initialize options
+      @options   = options
+      @networks  = []
+      @callbacks = {}
+      @connected = true
+      
+      @options[:networks].each do |options|
+        @networks.<< Network.new options
+      end
+      
+      trap 2, &method(:quit)
+    end
+    
+    def connect
+      networks = @networks.select { |network| not network.connected? }
+      
+      networks.each do |network|
+        network.delegate = self
+        network.connect
+      end
+      
+      run_loop
+    end
+    
+    def got_command network, command
+      puts "<- \e[1m#{network}\e[0m | #{command}"
+      name = :"got_#{command.name.downcase}"
+      
+      if respond_to? name
+        __send__ name, network, command
+      end
+    end
+    
+    def quit signal
+      @networks.each do |network|
+        network.transmit :QUIT, "Got SIGINT?"
+        network.transcieve
+        network.disconnect
+      end
+      
+      @connected = false
+      
+      exit 0
+    end
+    
+  private
+    
+    def run_loop
+      puts "Starting run loop ..."
+      
+      while @connected
+        @networks.each do |network|
+          begin
+            network.transcieve
+            sleep 0.05
+          rescue StandardError => exception
+            puts "#{network} threw an exception: #{exception.class.name} #{exception.message} #{exception.backtrace.to_s}"
+            
+            network.disconnect if network.connected?
+            @networks.delete network
+          end
+        end
+      end
+
+      puts "Ended run loop ..."
+    end
+    
+    def emit name, *args
+      @callbacks[name].each do |callback|
+        callback.call *args
+      end if @callbacks[name]
+    end
+    
+    def catch name, &block
+      (@callbacks[name] ||= []) << block
+    end
+    
+  end
+end

data/library/blur/enhancements.rb

@@ -0,0 +1,9 @@
+# encoding: utf-8
+
+class Exception
+  def line; backtrace.first.match(/^.*?:(\d+):/)[1].to_i end
+end
+
+class String
+  alias_method :starts_with?, :start_with?
+end

data/library/blur/handling.rb

@@ -0,0 +1,114 @@
+# encoding: utf-8
+
+module Blur
+  class Client
+    module Handling
+
+    protected
+    
+      # End of MOTD
+      def got_end_of_motd network, command
+        emit :connection_ready, network
+        
+        network.options[:channels].each do |channel|
+          network.transmit :JOIN, channel
+        end
+      end
+      
+      # The /NAMES list
+      def got_353 network, command
+        name  = command[2]
+        users = command[3].split.map &Network::User.method(:new)
+        
+        if channel = network.channel_by_name(name)
+          users.each do |user|
+            user.channel = channel   
+            channel.users << user
+          end
+        else
+          network.channels.<< Network::Channel.new name, network, users
+        end
+      end
+      
+      # Are we still breathing?
+      def got_ping network, command
+        network.transmit :PONG, command[0]
+      end
+      
+      # Someone changed their nickname
+      def got_nick network, command
+        nick = command.sender.nickname
+        
+        if channels = network.channels_with_user(nick)
+          channels.each do |channel|
+            if user = channel.user_by_nick(nick)
+              emit :user_rename, channel, user, command[0]
+              user.nick = command[0]
+            end
+          end
+        end
+      end
+      
+      # Someone send a message
+      def got_privmsg network, command
+        return if command.sender.is_a? String # Ignore all server privmsgs
+        
+        name, message = command.params
+        
+        if channel = network.channel_by_name(name)
+          if user = channel.user_by_nick(command.sender.nickname)
+            emit :message, user, channel, message
+          else
+            # Odd… this shouldn't happen
+          end
+        end
+      end
+      
+      # Someone joined a channel
+      def got_join network, command
+        name = command[0]
+        user = Network::User.new command.sender.nickname
+        
+        if channel = network.channel_by_name(name)
+          user.name = command.sender.username
+          user.host = command.sender.hostname
+          
+          channel.users << user
+          
+          emit :user_entered, channel, user
+        end
+      end
+      
+      # Someone left a channel
+      def got_part network, command
+        name = command[0]
+        
+        if channel = network.channel_by_name(name)
+          if user = channel.user_by_nick(command.sender.nickname)
+            channel.users.delete user
+            
+            emit :user_left, channel, user
+          end
+        end
+      end
+      
+      # Someone quit irc
+      def got_quit network, command
+        nick = command.sender.nickname
+        
+        if channels = network.channels_with_user(nick)
+          channels.each do |channel|
+            if user = channel.user_by_nick(nick)
+              channel.users.delete user 
+            
+              emit :user_quit, channel, user
+            end
+          end
+        end
+      end
+
+      alias_method :got_422, :got_end_of_motd
+      alias_method :got_376, :got_end_of_motd
+    end
+  end
+end

data/library/blur/network.rb

@@ -0,0 +1,71 @@
+# encoding: utf-8
+
+module Blur
+  class Network
+    class ConnectionError < StandardError; end
+    attr_accessor :options, :channels, :delegate, :connection
+
+    def connected?; @connection.established? end
+    
+    def host; @options[:hostname] end
+    def port; @options[:port] ||= (@options[:secure] == true) ? 6697 : 6667 end
+
+    def initialize options = {}
+      @options = options
+      
+      unless options[:nickname]
+        raise ArgumentError, "nickname is missing from the network's option block"
+      end
+      
+      @options[:username] ||= @options[:nickname]
+      @options[:realname] ||= @options[:username]
+      @options[:channels] ||= []
+
+      @channels   = []
+      @connection = Connection.new self, host, port
+    end
+    
+    def say recipient, message
+      transmit :PRIVMSG, recipient, message
+    end
+    
+    def got_command command
+      @delegate.got_command self, command
+    end
+    
+    def channel_by_name name
+      @channels.find { |channel| channel.name == name }
+    end
+    
+    def channels_with_user nick
+      @channels.select { |channel| channel.user_by_nick nick }
+    end
+
+    def connect
+      @connection.establish
+      
+      transmit :PASS, @options[:password] if @options[:password]
+      transmit :NICK, @options[:nickname]
+      transmit :USER, @options[:username], :void, :void, @options[:realname]
+    end
+    
+    def disconnect
+      @connection.terminate
+    end
+    
+    def transmit name, *arguments
+      command = Command.new name, arguments
+      puts "-> \e[1m#{self}\e[0m | #{command}"
+      
+      @connection.transmit command
+    end
+    
+    def transcieve
+      @connection.transcieve
+    end
+    
+    def to_s
+      %{#<#{self.class.name} "#{host}:#{port}">}
+    end
+  end
+end

data/library/blur/network/channel.rb

@@ -0,0 +1,33 @@
+# encoding: utf-8
+
+module Blur
+  class Network
+    class Channel
+      attr_accessor :name, :users
+
+      def initialize name, network = nil, users = []
+        @name    = name
+        @users   = users
+        @network = network
+
+        users.each { |user| user.channel = self }
+      end
+
+      def say message
+        @network.say self, message
+      end
+
+      def user_by_nick nick
+        @users.find { |user| user.nick == nick }
+      end
+
+      def inspect
+        %{#<#{self.class.name} @name=#{@name.inspect} @users=#{@users.inspect}}
+      end
+
+      def to_s
+        @name
+      end
+    end
+  end
+end

data/library/blur/network/command.rb

@@ -0,0 +1,50 @@
+# encoding: utf-8
+
+module Blur
+  class Network
+    class Command
+      attr_accessor :name, :params, :prefix
+
+      Pattern = /^(?:[:@]([^\s]+) )?([^\s]+)(?: ((?:[^:\s][^\s]* ?)*))?(?: ?:(.*))?$/
+      
+      def self.parse data
+        match = data.strip.match Pattern
+        prefix, name, args, extra = match.captures
+        params = extra ? args.split << extra : args.split
+
+        new(name, params).tap do |this|
+          this.prefix = prefix
+        end
+      end
+
+      def [] index; @params[index] end
+
+      def initialize name, params = []
+        @name, @params = name, params
+      end
+
+      def sender
+        return @sender if @sender
+
+        if prefix =~ /^(\S+)!(\S+)@(\S+)$/
+          @sender = OpenStruct.new nickname: $1, username: $2, hostname: $3
+        else
+          @sender = prefix
+        end
+      end 
+
+      def to_s
+        String.new.tap do |line|
+          line << "#{prefix} " if prefix
+          line << name.to_s
+
+          params.each_with_index do |param, index|
+            line << ' '
+            line << ?: if index == params.length - 1 and param =~ /[ :]/
+            line << param.to_s
+          end
+        end
+      end
+    end
+  end
+end

data/library/blur/network/connection.rb

@@ -0,0 +1,50 @@
+# encoding: utf-8
+
+module Blur
+  class Network 
+    class Connection
+      def established?; @socket and not (@socket.closed? or @socket.eof?) end
+      
+      def initialize delegate, host = nil, port = nil
+        @host     = host
+        @port     = port
+        @queue    = []
+        @buffer   = ""
+        @socket   = nil
+        @delegate = delegate
+      end
+      
+      def establish
+        @socket = TCPSocket.new @host, @port
+      end
+      
+      def terminate
+        @socket.close
+        @socket = nil
+      end
+      
+      def transmit command
+        @queue.push command
+      end
+      
+      def transcieve
+        readable, writable = IO.select [@socket], [@socket]
+        
+        # If the socket is ready to recieve, do so.
+        if socket = readable.first
+          @buffer.<< socket.read_nonblock 512
+          
+          while index = @buffer.index(?\n)
+            command = Command.parse @buffer.slice! 0..index
+            @delegate.got_command command
+          end
+        end
+        
+        # If it's ready to write, do that too until the outoing queue is empty.
+        if socket = writable.first
+          socket.write_nonblock "#{command}\n" while command = @queue.shift
+        end
+      end
+    end
+  end
+end

data/library/blur/network/user.rb

@@ -0,0 +1,25 @@
+# encoding: utf-8
+
+module Blur
+  class Network
+    class User
+      attr_accessor :nick, :name, :host, :channel
+      
+      def initialize nick
+        @nick = nick.sub /^[@|~|\+|%|&]/, ''
+      end
+      
+      def synchronize sender
+        @nick, @name, @host = sender.nickname, sender.username, sender.hostname
+      end
+      
+      def inspect
+        %{#<#{self.class.name} @nick=#{@nick.inspect} @channel=#{@channel.name.inspect}>}
+      end
+      
+      def to_s
+        @nick
+      end
+    end
+  end
+end

metadata

@@ -0,0 +1,73 @@
+--- !ruby/object:Gem::Specification 
+name: blur
+version: !ruby/object:Gem::Version 
+  prerelease: false
+  segments: 
+  - 1
+  - 4
+  version: "1.4"
+platform: ruby
+authors: 
+- Mikkel Kroman
+autorequire: 
+bindir: executables
+cert_chain: []
+
+date: 2011-01-17 00:00:00 +01:00
+default_executable: 
+dependencies: []
+
+description: 
+email: mk@maero.dk
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- library/blur/client.rb
+- library/blur/enhancements.rb
+- library/blur/handling.rb
+- library/blur/network/channel.rb
+- library/blur/network/command.rb
+- library/blur/network/connection.rb
+- library/blur/network/user.rb
+- library/blur/network.rb
+- library/blur.rb
+has_rdoc: true
+homepage: 
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- library
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 1
+      - 9
+      - 1
+      version: 1.9.1
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.7
+signing_key: 
+specification_version: 3
+summary: Extensible IRC library
+test_files: []
+