ircbot 0.1.4 → 0.1.5

data/Rakefile

@@ -1,59 +1 @@
-require 'rubygems'
-require 'rake/gempackagetask'
-
-#require 'merb-core'
-#require 'merb-core/tasks/merb'
-
-GEM_NAME = "ircbot"
-AUTHOR = "maiha"
-EMAIL = "maiha@wota.jp"
-SUMMARY = "easy irc bot framework"
-
-require File.dirname(__FILE__) + '/lib/ircbot/version'
-GEM_VERSION = Ircbot::VERSION
-HOMEPAGE    = Ircbot::HOMEPAGE
-
-spec = Gem::Specification.new do |s|
-  s.rubyforge_project = 'asakusarb'
-  s.executables = ["ircbot"]
-  s.name = GEM_NAME
-  s.version = GEM_VERSION
-  s.platform = Gem::Platform::RUBY
-  s.has_rdoc = true
-  s.extra_rdoc_files = ["README", "MIT-LICENSE"]
-  s.summary = SUMMARY
-  s.description = "An irc bot framework that offers easy-to-use by plugins"
-  s.author = AUTHOR
-  s.email = EMAIL
-  s.homepage = HOMEPAGE
-  s.require_path = 'lib'
-  s.add_dependency('extlib', '>= 0.9.14')
-  s.add_dependency('net-irc', '>= 0.0.9')
-  s.files = %w(MIT-LICENSE README Rakefile) + Dir.glob("{lib,spec,plugins,config}/**/*")
-end
-
-Rake::GemPackageTask.new(spec) do |pkg|
-  pkg.gem_spec = spec
-end
-
-desc "Install the gem"
-task :install do
-  Merb::RakeHelper.install(GEM_NAME, :version => GEM_VERSION)
-end
-
-desc "Uninstall the gem"
-task :uninstall do
-  Merb::RakeHelper.uninstall(GEM_NAME, :version => GEM_VERSION)
-end
-
-desc "Create a gemspec file"
-task :gemspec do
-  File.open("#{GEM_NAME}.gemspec", "w") do |file|
-    file.puts spec.to_ruby
-  end
-end
-
-require 'spec/rake/spectask'
-#require 'merb-core/test/tasks/spectasks'
-desc 'Default: run spec examples'
-task :default => 'spec'
+require "bundler/gem_tasks"

data/ircbot.gemspec

@@ -0,0 +1,28 @@
+# -*- encoding: utf-8 -*-
+
+$:.push File.expand_path("../lib", __FILE__)
+require "ircbot/version"
+
+Gem::Specification.new do |s|
+  s.name        = "ircbot"
+  s.version     = Ircbot::VERSION
+  s.authors     = ["maiha"]
+  s.email       = ["maiha@wota.jp"]
+  s.homepage    = Ircbot::HOMEPAGE
+  s.summary     = %q{easy irc bot framework}
+  s.description = %q{An irc bot framework that offers easy-to-use by plugins}
+
+  s.rubyforge_project = "ircbot"
+
+  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"]
+
+  s.add_dependency "dsl_accessor", ">= 0.4.0"
+  s.add_dependency "extlib", ">= 0.9.14"
+  s.add_dependency "net-irc", ">= 0.0.9"
+
+  s.add_development_dependency "rspec", ">= 2.9.0"
+end
+

data/lib/ircbot.rb

@@ -3,6 +3,7 @@ require 'pathname'
 require 'rubygems'
 require 'extlib'
 require 'extlib/dictionary'
+require 'dsl_accessor'
 
 ######################################################################
 ### Load path

data/lib/ircbot/dm.rb

@@ -0,0 +1,41 @@
+require 'dm-core'
+require 'dm-migrations'
+require 'dm-timestamps'
+
+module Ircbot
+  module DM
+    dsl_accessor :connection
+
+    def self.included(base)
+      base.class_eval do
+        extend Connection
+        super
+      end
+    end
+
+    def connect(path = nil)
+      @connection ||= self.class.establish_connection(path)
+    end
+
+    module Connection
+      def establish_connection(path = nil, &block)
+        path = path.to_s
+        path = 'unknown' if path.empty?
+        if DM.connection != path
+          DM.connection = path
+          path = (path[0] == ?/) ? Pathname(path) : Pathname(Dir.getwd) + "db" + "#{path}.db"
+          path = path.expand_path
+          path.parent.mkpath
+          DataMapper.setup(:default, "sqlite3://#{path}")
+        end
+
+        @models.each(&:auto_upgrade!) if @models
+        return DataMapper.repository(:default)
+      end
+
+      def connect(*models)
+        @models = models
+      end
+    end
+  end
+end

data/lib/ircbot/plugin.rb

@@ -46,23 +46,42 @@ module Ircbot
     ######################################################################
     ### Operations
 
+    def done(text = nil)
+      throw :done, text
+    end
+
     def help
       raise "no helps for #{plugin_name}"
     end
 
+    ######################################################################
+    ### Messages
+
+    def direct?
+      message.channel == config.nick
+    end
+
+    def me?
+      !! (message.message =~ /\A#{config.nick}\./)
+    end
+
+    def nick
+      message.prefix.nick
+    end
+
+    def command
+      (message.message =~ /\A#{config.nick}\./) ? $'.to_s.strip.split.first.to_s : ''
+    end
+
+    def arg
+      (message.message =~ /\A#{config.nick}\./) ? (a = $'.to_s.strip.split; a.shift; a.join) : ''
+    end
+
     private
       def plugin(name)
         plugin!(name)
       rescue
         Null.new
       end
-
-      def direct?
-        message.channel == config.nick
-      end
-
-      def nick
-        message.prefix.nick
-      end
   end
 end

data/lib/ircbot/version.rb

@@ -1,4 +1,4 @@
 module Ircbot
-  VERSION  = '0.1.4' unless defined?(Ircbot::VERSION)
+  VERSION  = '0.1.5'
   HOMEPAGE = "http://github.com/maiha/ircbot"
 end

data/plugins/plugins.rb

@@ -14,35 +14,32 @@ commands: load, start, stop, delete
   end
 
   def reply(text)
-    text.strip.gsub(/^#{config.nick}\./) {
-      command, arg = $'.split(/\s+/,2)
-      arg = arg.to_s.strip
-
-      case command.to_s
+    if me?
+      case command
       when "load", "register"
         plugins.load arg
-        throw :halt, "Loaded #{arg}"
+        done "Loaded #{arg}"
 
       when "delete", "remove"
         plugins.delete arg
-        throw :halt, "Removed #{arg}"
+        done "Removed #{arg}"
 
       when "start"
         plugins.start arg
-        throw :halt, "Started #{arg}"
+        done "Started #{arg}"
 
       when "stop"
         plugins.stop arg
-        throw :halt, "Stopped #{arg}"
+        done "Stopped #{arg}"
 
       when "help"
         if arg.empty?
-          throw :halt, [bot_help, plugins_help].join("\n")
+          done [bot_help, plugins_help].join("\n")
         else
-          throw :halt, plugins[arg].help
+          done plugins[arg].help
         end
       end
-    }
+    end
     return nil
   end
 

data/plugins/reminder.rb

@@ -4,7 +4,7 @@
 ######################################################################
 # [Install]
 #
-# gem install chawan night-time dm-core dm-migrations dm-timestamps do_sqlite3 data_objects
+# gem install chawan night-time dm-core dm-migrations dm-timestamps do_sqlite3 data_objects dm-sqlite-adapter -V
 #
 
 require 'rubygems'
@@ -21,7 +21,8 @@ module Reminder
     @connecteds ||= {}
     @connecteds[path] ||=
       (
-       path = Pathname(path || Pathname(Dir.getwd) + "db" + "reminder.db").expand_path
+       path ||= Pathname(Dir.getwd) + "db" + "reminder.db"
+       path = Pathname(path).expand_path
        path.parent.mkpath
        DataMapper.setup(:default, "sqlite3://#{path}")
        Reminder::Event.auto_upgrade!
@@ -151,11 +152,14 @@ class ReminderPlugin < Ircbot::Plugin
   def reply(text)
     start_reminder
 
+    # strip noise
+    text = text.sub(/^<.*?>/,'').strip
+
     case text
     when %r{^\d{4}.?\d{1,2}.?\d{1,2}}
       event = Reminder.register(text)
       text  = "Remind you again at %s" % event.alert_at.strftime("%Y-%m-%d %H:%M")
-      throw :done, text
+      return text
     end
     return nil
 
@@ -191,7 +195,8 @@ end
 
 
 ######################################################################
-### Setup database
+### Spec in file:
+###   ruby plugins/reminder.rb
 
 if $0 == __FILE__
 
@@ -206,34 +211,32 @@ if $0 == __FILE__
   end
 
   spec($0, DATA.read{}) do |tmp|
-    system("spec -cfs #{tmp.path}")
+    system("rspec -cfs #{tmp.path}")
   end
 end
 
 __END__
 
-require 'spec'
+require 'rspec'
 require 'ostruct'
 
-module Spec
-  module Example
-    module Subject
-      module ExampleGroupMethods
-        def parse(text, &block)
-          describe "(#{text})" do
-            subject {
-              event = Reminder.parse(text)
-              hash  = {
-                :st     => (event.st.strftime("%Y-%m-%d %H:%M:%S") rescue nil),
-                :en     => (event.en.strftime("%Y-%m-%d %H:%M:%S") rescue nil),
-                :title  => event.title.to_s,
-                :desc   => event.title.to_s,
-                :allday => event.allday,
-              }
-              OpenStruct.new(hash)
+module RSpec
+  module Core
+    module SharedExampleGroup
+      def parse(text, &block)
+        describe "(#{text})" do
+          subject {
+            event = Reminder.parse(text)
+            hash  = {
+              :st     => (event.st.strftime("%Y-%m-%d %H:%M:%S") rescue nil),
+              :en     => (event.en.strftime("%Y-%m-%d %H:%M:%S") rescue nil),
+              :title  => event.title.to_s,
+              :desc   => event.title.to_s,
+              :allday => event.allday,
             }
-            instance_eval(&block)
-          end
+            OpenStruct.new(hash)
+          }
+          instance_eval(&block)
         end
       end
     end

data/plugins/youtube.rb

@@ -0,0 +1,53 @@
+#!/usr/bin/env ruby
+
+require 'rubygems'
+require 'ircbot'
+require 'uri'
+require 'net/http'
+require 'rack'
+
+class YoutubePlugin < Ircbot::Plugin
+  def help
+    "[YouTube] automatically download youtube videos"
+  end
+
+  def reply(text)
+    url = URI.extract(text.to_s).grep(%r{^http://www\.youtube}).first
+    request_download(url)
+  end
+
+  private
+    def request_download(url)
+      return nil unless url
+
+      escaped = Rack::Utils.escape(url)
+      http = Net::HTTP.new('localhost', 9111)
+#      http = Net::HTTP.new('localhost', 3058)
+      tags = nick.to_s.gsub(/[0-9_]/,'')
+      response = http.post('/request', "url=#{escaped}&tags=#{tags}")
+      summary  = response.body.to_s.split(/\n/).first
+      case response.code
+      when '200'
+        return once("DL登録完了: #{summary}")
+      when '304'
+        return once("DL済: #{summary}")
+      else
+        reason = "%s: %s" % [response.code, summary]
+        return "DL登録失敗: #{reason}"
+      end
+    rescue Errno::ECONNREFUSED
+      return once("ダウンロードサーバが起動してません")
+    end
+
+    def once(text)
+      text = text.to_s.strip
+      @report_once ||= {}
+      if @report_once[text]
+        return nil
+      else
+        @report_once[text] = Time.now
+        return text
+      end
+    end
+end
+

data/spec/its_helper.rb

@@ -1,12 +1,10 @@
-module Spec
-  module Example
-    module Subject
-      module ExampleGroupMethods
-        def its(*args, &block)
-          describe(args.first) do
-            define_method(:subject) { super().send(*args) }
-            it(&block)
-          end
+module RSpec
+  module Core
+    module SharedExampleGroup
+      def its(*args, &block)
+        describe(args.first) do
+          define_method(:subject) { super().send(*args) }
+          it(&block)
         end
       end
     end

data/spec/plugin_spec.rb

@@ -44,9 +44,17 @@ describe Ircbot::Plugin do
   context "(not connected)" do
     subject{ Ircbot::Plugin.new }
 
-    its(:plugin , :foo) { should be_kind_of(Ircbot::Plugin::Null) }
-    its(:plugin!, :foo) { lambda {subject}.should raise_error(Ircbot::PluginNotFound) }
-    its(:direct?      ) { should == false }
+    it "#plugin(:foo) should detect Null plugin" do
+      subject.send(:plugin, :foo).should be_kind_of(Ircbot::Plugin::Null)
+    end
+
+    it "#plugin!(:foo) should raise PluginNotFound" do
+      lambda {
+        subject.send(:plugin!, :foo)
+      }.should raise_error(Ircbot::PluginNotFound)
+    end
+
+#    its(:direct?      ) { should == false }
   end
 
   ######################################################################
@@ -62,9 +70,15 @@ describe Ircbot::Plugin do
     end
     subject{ Ircbot::Plugin.new(@plugins) }
 
-    its(:plugin , :foo) { should == @foo }
-    its(:plugin!, :foo) { should == @foo }
-    its(:direct?      ) { should == false }
+    it "#plugin(:foo) should find the defined foo plugin" do
+      subject.send(:plugin, :foo).should == @foo
+    end
+
+    it "#plugin!(:foo) should find the defined foo plugin" do
+      subject.send(:plugin!, :foo).should == @foo
+    end
+
+#    its(:direct?      ) { should == false }
   end
 
 end

data/spec/provide_helper.rb

@@ -1,33 +1,31 @@
 ######################################################################
 ### provide matcher
-Spec::Matchers.define :provide do |expected|
+RSpec::Matchers.define :provide do |expected|
   match do |obj|
     (obj.public_methods + obj.protected_methods + obj.private_methods).include?(expected.to_s)
   end
 end
 
-module Spec
-  module Example
-    module Subject
-      module ExampleGroupMethods
-        # == Examples
-        #
-        #   describe User do
-        #     subject { User.new }
-        #     provide :name
-        #
-        #       [intead of]
-        #
-        #     it "should provide #name" do
-        #       methods = subject.public_methods + subject.protected_methods + subject.private_methods
-        #       methods.should include("name")
-        #     end
-        #   end
-        #
-        def provide(name)
-          it "should provide ##{name}" do
-            subject.should provide(name)
-          end
+module RSpec
+  module Core
+    module SharedExampleGroup
+      # == Examples
+      #
+      #   describe User do
+      #     subject { User.new }
+      #     provide :name
+      #
+      #       [intead of]
+      #
+      #     it "should provide #name" do
+      #       methods = subject.public_methods + subject.protected_methods + subject.private_methods
+      #       methods.should include("name")
+      #     end
+      #   end
+      #
+      def provide(name)
+        it "should provide ##{name}" do
+          subject.should provide(name)
         end
       end
     end

data/spec/spec_helper.rb

@@ -1,9 +1,9 @@
 
-require 'spec'
+require 'rspec'
 require 'rr'
 
 require File.join(File.dirname(__FILE__), '/../lib/ircbot')
-require File.join(File.dirname(__FILE__), '/its_helper')
+#require File.join(File.dirname(__FILE__), '/its_helper')
 require File.join(File.dirname(__FILE__), '/provide_helper')
 
 

metadata

@@ -1,7 +1,13 @@
 --- !ruby/object:Gem::Specification 
 name: ircbot
 version: !ruby/object:Gem::Version 
-  version: 0.1.4
+  hash: 17
+  prerelease: false
+  segments: 
+  - 0
+  - 1
+  - 5
+  version: 0.1.5
 platform: ruby
 authors: 
 - maiha
@@ -9,81 +15,126 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2010-01-27 00:00:00 +09:00
+date: 2012-03-21 00:00:00 +09:00
 default_executable: 
 dependencies: 
 - !ruby/object:Gem::Dependency 
-  name: extlib
+  name: dsl_accessor
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        hash: 15
+        segments: 
+        - 0
+        - 4
+        - 0
+        version: 0.4.0
   type: :runtime
-  version_requirement: 
-  version_requirements: !ruby/object:Gem::Requirement 
+  version_requirements: *id001
+- !ruby/object:Gem::Dependency 
+  name: extlib
+  prerelease: false
+  requirement: &id002 !ruby/object:Gem::Requirement 
+    none: false
     requirements: 
     - - ">="
       - !ruby/object:Gem::Version 
+        hash: 39
+        segments: 
+        - 0
+        - 9
+        - 14
         version: 0.9.14
-    version: 
+  type: :runtime
+  version_requirements: *id002
 - !ruby/object:Gem::Dependency 
   name: net-irc
-  type: :runtime
-  version_requirement: 
-  version_requirements: !ruby/object:Gem::Requirement 
+  prerelease: false
+  requirement: &id003 !ruby/object:Gem::Requirement 
+    none: false
     requirements: 
     - - ">="
       - !ruby/object:Gem::Version 
+        hash: 13
+        segments: 
+        - 0
+        - 0
+        - 9
         version: 0.0.9
-    version: 
+  type: :runtime
+  version_requirements: *id003
+- !ruby/object:Gem::Dependency 
+  name: rspec
+  prerelease: false
+  requirement: &id004 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        hash: 43
+        segments: 
+        - 2
+        - 9
+        - 0
+        version: 2.9.0
+  type: :development
+  version_requirements: *id004
 description: An irc bot framework that offers easy-to-use by plugins
-email: maiha@wota.jp
+email: 
+- maiha@wota.jp
 executables: 
 - ircbot
 extensions: []
 
-extra_rdoc_files: 
-- README
-- MIT-LICENSE
+extra_rdoc_files: []
+
 files: 
 - MIT-LICENSE
 - README
 - Rakefile
-- lib/ircbot/framework.rb
+- bin/ircbot
+- config/sama-zu.yml
+- config/yml.erb
+- ircbot.gemspec
+- lib/ircbot.rb
 - lib/ircbot/client.rb
+- lib/ircbot/client/commands.rb
 - lib/ircbot/client/config.rb
 - lib/ircbot/client/config/channels.rb
-- lib/ircbot/client/config/plugins.rb
 - lib/ircbot/client/config/generator.rb
-- lib/ircbot/client/encoding.rb
+- lib/ircbot/client/config/plugins.rb
 - lib/ircbot/client/core.rb
-- lib/ircbot/client/commands.rb
-- lib/ircbot/client/standalone.rb
-- lib/ircbot/client/plugins.rb
-- lib/ircbot/client/logger.rb
+- lib/ircbot/client/encoding.rb
 - lib/ircbot/client/eventable.rb
+- lib/ircbot/client/logger.rb
+- lib/ircbot/client/plugins.rb
+- lib/ircbot/client/standalone.rb
 - lib/ircbot/client/timeout.rb
+- lib/ircbot/core_ext/delegation.rb
 - lib/ircbot/core_ext/extending.rb
 - lib/ircbot/core_ext/message.rb
-- lib/ircbot/core_ext/delegation.rb
+- lib/ircbot/dm.rb
+- lib/ircbot/framework.rb
+- lib/ircbot/plugin.rb
 - lib/ircbot/plugins.rb
 - lib/ircbot/version.rb
-- lib/ircbot/plugin.rb
-- lib/ircbot.rb
+- plugins/echo.rb
+- plugins/irc.rb
+- plugins/plugins.rb
+- plugins/reminder.rb
+- plugins/which.rb
+- plugins/youtube.rb
 - spec/config_spec.rb
-- spec/plugin_spec.rb
-- spec/provide_helper.rb
 - spec/fixtures/sama-zu.yml
-- spec/its_helper.rb
-- spec/spec_helper.rb
 - spec/framework_spec.rb
+- spec/its_helper.rb
+- spec/plugin_spec.rb
 - spec/plugins_spec.rb
-- plugins/tv.rb
-- plugins/reminder.rb
-- plugins/echo.rb
-- plugins/plugins.rb
-- plugins/which.rb
-- plugins/irc.rb
-- config/wota.yml
-- config/airi.yml
-- config/sama-zu.yml
-- config/yml.erb
+- spec/provide_helper.rb
+- spec/spec_helper.rb
 has_rdoc: true
 homepage: http://github.com/maiha/ircbot
 licenses: []
@@ -94,21 +145,27 @@ rdoc_options: []
 require_paths: 
 - lib
 required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
   requirements: 
   - - ">="
     - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
       version: "0"
-  version: 
 required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
   requirements: 
   - - ">="
     - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
       version: "0"
-  version: 
 requirements: []
 
-rubyforge_project: asakusarb
-rubygems_version: 1.3.5
+rubyforge_project: ircbot
+rubygems_version: 1.3.7
 signing_key: 
 specification_version: 3
 summary: easy irc bot framework

data/config/airi.yml

@@ -1,8 +0,0 @@
-host: localhost
-port: 6666
-nick: airi
-user: airi
-real: airi
-channels: "#test"
-plugins: irc plugins which reminder tv
-multiline: true

data/config/wota.yml

@@ -1,9 +0,0 @@
-host: irc.haun.org
-port: 6667
-nick: sama-zu
-user: sama-zu
-real: sama-zu
-channels: "#wota"
-plugins: irc plugins which reminder tv
-multiline: true
-timeout: 600

data/plugins/tv.rb

@@ -1,262 +0,0 @@
-#!/usr/bin/ruby
-#
-# tv.rb
-# Author:  
-# Created: Sun Jan 10 18:44:35 2010
-
-require 'rubygems'
-require 'ircbot'
-require '/git/plugins/ircbot-plugins/lib/tvguide'
-require '/git/plugins/ircbot-plugins/lib/tv-cast'
-require 'chawan'
-
-class TVGuide::Program
-  def id
-    "#{st}:#{sn}"
-  end
-end
-
-class TvPlugin < Ircbot::Plugin
-  ######################################################################
-  ### Extensions to Plugin
-
-  class WeightedRandomizer
-    def initialize(hash)
-      @hash = construct(hash)
-    end
-
-    def construct(obj)
-      case obj
-      when Hash
-        return obj
-      when Array
-        hash = {}
-        obj.reverse.each_with_index do |val,i|
-          hash[val] = i+1
-        end
-        return hash
-      else
-        raise NotImplementedError, "expected Hash or Array, but got #{hash.class}: #{hash.inspect}"
-      end
-    end
-
-    def execute
-      maps = []
-      stop = 0
-      @hash.each_pair do |val, key|
-        start = stop
-        stop += key
-        maps << [start...stop, val]
-      end
-      hit = rand(stop)
-      maps.each do |(range, val)|
-        return val if range === hit
-      end
-      return @hash.keys.first
-    end
-  end
-
-  module ReplyApiFu
-    class Reply < RuntimeError
-      def initialize(text)
-        @text = text
-      end
-
-      def text
-        case @text
-        when Hash
-          WeightedRandomizer.new(@text).execute
-        else
-          @text.to_s
-        end
-      end
-    end
-
-    class Nop < RuntimeError; end
-
-    def nop
-      raise Nop
-    end
-  end
-
-  include ReplyApiFu
-
-  ######################################################################
-  ### TvPlugin
-
-  STATION_ABBRS = {
-    'NHK'       => 'NHK総合',
-    'NHKG'      => 'NHK総合',
-    'NHKE'      => 'NHK教育',
-    'ETV'       => 'NHK教育',
-    '日テレ'    => '日本テレビ',
-    'NTV'       => '日本テレビ',
-    'TBS'       => 'TBSテレビ',
-    'フジ'      => 'フジテレビ',
-    'CX'        => 'フジテレビ',
-    'テレ朝'    => 'テレビ朝日',
-    'EX'        => 'テレビ朝日',
-    'テレ東'    => 'テレビ東京',
-    'TX'        => 'テレビ東京',
-    'MX'        => 'TOKYO MX',
-    'BS'        => 'NHK衛星第一',
-    'BS1'       => 'NHK衛星第一',
-    'BS2'       => 'NHK衛星第二',
-  }
-
-  class Conversation
-    attr_reader :nick
-    attr_reader :messages
-
-    Message = Struct.new(:time, :text)
-
-    delegate :[], :first, :last, :clear, :to=>"@messages"
-
-    def initialize(nick)
-      @nick = nick
-      @messages = []
-    end
-
-    def <<(text)
-      messages << Message.new(Time.now, text.to_s)
-    end
-
-    class One < Conversation
-      def <<(text)
-        clear
-        super
-      end
-    end
-  end
-
-  EagarProgram = Struct.new(:nick, :time, :program)
-  class EagarProgram
-    def push(program)
-      self.time = Time.now
-      self.program = program
-    end
-
-    def shift
-      self.time = nil
-      return program
-    end
-  end
-
-  def reply(text)
-    respond_to_eagar_program
-
-    names = extract_station_names(text)
-    case text
-    when /キャスト/
-      do_cast(names.first)
-    when /(だれ|誰).*(\?|？)/
-      do_who(names.first)
-    else
-      do_summary(names)
-    end
-
-    nop
-  rescue Nop
-    return nil
-  rescue Reply => reply
-    return reply.text
-  end
-
-  def do_summary(names)
-    reports = names.map{|name| summary(current[name])}.compact
-    raise Reply, reports.join("\n")
-  end
-
-  def do_who(name)
-    prog = current[name]
-    if prog.casts.size > 0
-      raise Reply, "#{name}: #{prog.casts.join(',')}"
-    else
-      eagar_program_for(nick).push prog
-      raise Reply, {
-        "知るかよ!" => 80,
-        "#{nick}必死ｗ" => 10,
-        "EPGには記述されていません" => 1,
-      }
-    end
-  end
-
-  def do_cast(name)
-    p = current[name]
-    query = "%s %s" % [p.title, name]
-    casts = TvCast.lookup!(query)
-    if casts.size > 0
-      raise Reply, "#{name}: #{casts.join(',')}"
-    else
-      raise Reply, "見つかりませんでした"
-    end
-  end
-
-  private
-
-    def extract_station_names(text)
-      text  = text.sub(/(誰|キャスト)/, ',\1')
-      nouns = Chawan.parse(text.gsub(/\s+/,',')).compact.noun.map(&:to_s)
-      names = nouns.map{|name| STATION_ABBRS[name] || name} & station_names
-      nop if names.empty?
-      return names
-    end
-
-    def eagar_program_for(nick)
-      @eagar_programs ||= {}
-      @eagar_programs[nick] ||= EagarProgram.new(nick)
-    end
-
-    def respond_to_eagar_program
-      eager = eagar_program_for(nick)
-      if eager.time and Time.now.to_i < eager.time.to_i + 10 and prog = eager.shift
-        query = "%s %s" % [prog.title, prog.station_name]
-        casts = TvCast.lookup!(query)
-        if casts.size > 0
-          random = WeightedRandomizer.new(casts)
-          name = random.execute
-          raise Reply, {
-            "#{name}と思われ" => 50,
-            "#{name}?" => 50,
-            "#{name}の予感！" => 50,
-            "#{casts[0,2].join('か')}のどっちか" => 30,
-            "ググった限り#{name}ぽい＞#{prog.title}" => 20,
-            "#{name}に大決定や！(確度#{(100/casts.size).to_i}%)" => 10,
-            casts.inspect => 2,
-          }
-        end
-        raise Reply, text
-      end
-    end
-
-    def current
-      @current ||= TVGuide.current
-    end
-
-    def station_names
-      @station_names ||= current.station_names
-    end
-
-    def reporteds
-      @reporteds ||= {}
-    end
-
-    def summary(p)
-      nop if reporteds[p.id]
-      reporteds[p.id] = true
-      time1 = p.st.strftime("%H:%M") rescue ''
-      time2 = p.en.strftime("%H:%M") rescue ''
-      "#{time1}-#{time2} #{p.title} (#{p.sn})"
-    rescue
-      nop
-    end
-end
-
-
-if $0 == __FILE__
-  $KCODE = 'u'
-  require 'pp'
-
-#  pp TVGuide::TXML301PG.new.map
-  pp TvPlugin.new.reply('NHK総合')
-end