nadoka 0.8.0

data/Gemfile

@@ -0,0 +1,4 @@
+source "http://rubygems.org"
+
+# Specify your gem's dependencies in nadoka.gemspec
+gemspec

data/README.org

@@ -0,0 +1,31 @@
+#######################################################
+# Nadoka: IRC Client server program.
+#
+# Written by SASADA Koichi <ko1 at atdot.net>
+#
+#
+# $Id$
+#
+
+* What's this?
+
+Nadoka is IRC Client Server program.
+It's same concept as [[http://www.madoka.org/][madoka]].
+
+You can do with this software:
+
+- connect to IRC usually
+- easy to make a bot with ruby
+
+
+* more about
+
+See Web pages:
+- https://github.com/nadoka/nadoka
+- http://rubyforge.org/projects/nadoka/
+- http://www.atdot.net/nadoka/
+
+
+: Thank you,
+: --
+: SASADA Koichi at atdot dot net

data/Rakefile

@@ -0,0 +1 @@
+require "bundler/gem_tasks"

data/bin/nadoka

@@ -0,0 +1,13 @@
+#!/usr/bin/ruby
+require 'rbconfig'
+ruby = nil
+begin
+  ruby = RbConfig.ruby
+rescue
+  ruby = File.join(
+      Config::CONFIG["bindir"],
+      Config::CONFIG["ruby_install_name"] + Config::CONFIG["EXEEXT"]
+    )
+end
+top_dir = File.expand_path('../..', __FILE__)
+exec(ruby, "-I#{top_dir}", File.join(top_dir, 'nadoka.rb'), *ARGV)

data/lib/rss_check.rb

@@ -0,0 +1,206 @@
+#
+# Copyright (c) 2004-2005 SASADA Koichi <ko1 at atdot.net>
+#
+# This program is free software with ABSOLUTELY NO WARRANTY.
+# You can re-distribute and/or modify this program under
+# the same terms of the Ruby's license.
+#
+# 
+# $Id$
+# Create : K.S. Sat, 24 Apr 2004 12:10:31 +0900
+#
+
+require "rss/parser"
+require "rss/1.0"
+require "rss/2.0"
+require "rss/syndication"
+require "rss/dublincore"
+require "open-uri"
+require 'uri'
+require 'yaml/store'
+require 'csv'
+require 'stringio'
+require 'zlib'
+
+
+class RSS_Check
+  class RSS_File
+    def initialize path, init_now
+      @uri = URI.parse(path)
+      @entry_time = @file_time = (init_now ? Time.now : Time.at(0))
+    end
+    
+    def check
+      begin
+        if (mt=mtime) > @file_time
+          @file_time = mt
+          check_entries
+        else
+          []
+        end
+      rescue => e
+        [{
+          :about => e.message,
+          :title => "RSS Check Error (#{@uri})",
+          :ccode => 'UTF-8'
+        }]
+      end
+    end
+
+    def date_of e
+      if e.respond_to? :dc_date
+        e.dc_date || Time.at(0)
+      else
+        e.pubDate || Time.at(0)
+      end
+    end
+    
+    def check_entries
+      rss = RSS::Parser.parse(read_content, false)
+      et = @entry_time
+      items = rss.items.sort_by{|e|
+        date_of(e)
+      }.map{|e|
+        e_date = date_of(e)
+        if e_date > @entry_time
+          if e_date > et
+            et = e_date
+          end
+          {
+            :about => e.about,
+            :title => e.title,
+            :ccode => 'UTF-8'
+          }
+        end
+      }.compact
+      @entry_time = et
+      items
+    end
+
+    def read_content
+      case @uri.scheme
+      when 'http'
+        open(@uri){|f|
+          if f.content_encoding.any?{|e| /gzip/ =~ e}
+            Zlib::GzipReader.new(StringIO.new(f.read)).read || ''
+          else
+            f.read
+          end
+        }
+      else
+        open(@uri.to_s){|f|
+          f.read
+        }
+      end
+    end
+
+    def mtime
+      case @uri.scheme
+      when 'http'
+        open(@uri){|f|
+          f.last_modified || Time.now
+        }
+      else
+        File.mtime(@rss_file)
+      end
+    end
+  end
+
+  class LIRS_File < RSS_File
+    def check_entries
+      et = @entry_time
+      res = []
+      CSV::Reader.parse(read_content){|row|
+        last_detected = Time.at(row[2].data.to_i)
+        if last_detected > @entry_time && row[1].data != row[2].data
+          if last_detected > et
+            et = last_detected
+          end
+          res << {
+            :about => row[5].data,
+            :title => row[6].data,
+            :ccode => 'EUC-JP'
+          }
+        end
+      }
+      @entry_time = et
+      res
+    end
+  end
+  
+  def initialize paths, cache_file=nil, init_now=false
+    @paths = paths
+    @db = YAML::Store.new(cache_file) if cache_file
+    @rss_files = paths.map{|uri|
+      load_file(uri) ||
+        if /LIRS:(.+)/ =~ uri
+          LIRS_File.new($1, init_now)
+        else
+          RSS_File.new(uri, init_now)
+        end
+    }
+  end
+
+  def check
+    @rss_files.map{|rf|
+      rf.check
+    }.flatten
+  end
+
+  def save
+    @db.transaction{
+      @paths.each_with_index{|path, i|
+        @db[path] = @rss_files[i]
+      }
+    } if @db
+  end
+
+  def load_file file
+    @db.transaction{
+      @db[file]
+    } if @db
+  end
+
+  def clear
+    if @db
+      @db.transaction{
+        @db.keys.each{|k|
+          @db.delete k
+        }
+      }
+    end
+  end
+end
+
+
+if $0 == __FILE__
+  rss_uri = %w(
+    http://www.ruby-lang.org/ja/index.rdf
+    http://slashdot.jp/slashdotjp.rss
+    http://www3.asahi.com/rss/index.rdf
+    http://pcweb.mycom.co.jp/haishin/rss/index.rdf
+    http://japan.cnet.com/rss/index.rdf
+    http://blog.japan.cnet.com/umeda/index.rdf
+    http://jvn.doi.ics.keio.ac.jp/rss/jvnRSS.rdf
+  )
+  lirs_uri = [
+  'LIRS:http://www.rubyist.net/~kazu/samidare/sites.lirs.gz'
+  ]
+  
+  rssc = RSS_Check.new(
+    rss_uri + lirs_uri,
+    ARGV.shift || './rss_cache',
+    false # false
+  )
+  require 'iconv'
+  require 'kconv'
+  ic = Iconv.open("EUC-JP", "UTF-8")
+  
+  rssc.check.each{|e|
+    puts e[:about]
+    title = (e[:ccode] == 'UTF-8') ? ic.iconv(e[:title]) : e[:title]
+    puts title
+  }
+  rssc.dump
+end
+

data/lib/tagparts.rb

@@ -0,0 +1,206 @@
+#
+# Copyright (c) 2004-2005 SASADA Koichi <ko1 at atdot.net>
+#
+# This program is free software with ABSOLUTELY NO WARRANTY.
+# You can re-distribute and/or modify this program under
+# the same terms of the Ruby's license.
+#
+#
+# $Id:$
+#
+
+require 'cgi'
+module TagParts
+  class TagItem
+    include Enumerable
+    def initialize tag, body, ignore_empty = false
+      @tag  = tag.to_s
+      @attr = {}
+      @body = []
+      @ignore_empty = ignore_empty
+      body.each{|e|
+        add! e
+      }
+    end
+    attr_reader :body, :tag, :attr
+    
+    def make_attr_str
+      @attr.map{|k,v|
+        " #{CGI.escapeHTML(k.to_s)}='#{CGI.escapeHTML(v)}'"
+      }.join
+    end
+
+    def to_s
+      if @body.size > 0 || @ignore_empty
+        body = @body.flatten.map{|e|
+          if e.kind_of? String
+            CGI.escapeHTML(e.to_s)
+          else
+            e.to_s
+          end
+        }
+        "<#{@tag}#{make_attr_str}\n>#{body}</#{@tag}>\n"
+      else
+        "<#{@tag}#{make_attr_str} /\n>"
+      end
+    end
+    
+    def inspect
+      "<TagItem: <#{@tag}#{make_attr_str}>>"
+    end
+    
+    def add!(elem)
+      if elem.kind_of? Hash
+        @attr.update elem
+      else
+        @body << elem
+      end
+    end
+
+    def [](k)
+      @attr[k]
+    end
+
+    def []=(k, v)
+      @attr[k] = v
+    end
+
+    def each
+      @body.flatten.each{|e|
+        yield e
+      }
+    end
+
+    def each_leaf
+      @body.each{|e|
+        if e.kind_of? TagItem
+          e.each_leaf(&Proc.new)
+        else
+          yield e
+        end
+      }
+    end
+    
+    def each_node
+      yield(self)
+      @body.each{|e|
+        if e.kind_of? TagItem
+          e.each_node(&Proc.new)
+        else
+          yield e
+        end
+      }
+    end
+    
+    alias << add!
+  end
+  
+  def ignore_empty_tag?
+    false
+  end
+
+  # do nothing. please override
+  def tag_encoding str
+    str
+  end
+  
+  def tree2string tag
+    tag_encoding(tree2string_(tag))
+  end
+  
+  def tree2string_ tag
+    bs = tag.map{|body|
+      if body.kind_of? TagItem
+        tree2string_(body)
+      else
+        CGI.escapeHTML(body.to_s)
+      end
+    }
+    tagname = tag.tag
+    attr    = tag.make_attr_str
+    if bs.size > 0 || ignore_empty_tag?
+      "<#{tagname}#{attr}\n>#{bs}</#{tagname}>\n"
+    else
+      "<#{tagname}#{attr}\n/>"
+    end
+  end
+  
+  @@method_prefix = '_'
+
+  def self.newtag sym, ignore_empty, klass = TagParts
+    klass.module_eval <<-EOS
+    def #{@@method_prefix}#{sym}(*args)
+      TagItem.new(:#{sym}, args, #{ignore_empty})
+    end
+    EOS
+  end
+
+  TagParts.module_eval <<-EOS
+    def #{@@method_prefix}(tag, *args)
+      TagItem.new(tag, args, false)
+    end
+  EOS
+  
+  def method_missing m, *args
+    if make_unknown_tag? && (/^#{@@method_prefix}(.+)/ =~ m.to_s)
+      TagItem.new($1, args)
+    else
+      super
+    end
+  end
+
+  def make_unknown_tag?
+    true
+  end
+
+end
+
+module HTMLParts
+  include TagParts
+
+  def make_unknown_tag?
+    false
+  end
+
+  def ignore_empty_tag?
+    true
+  end
+
+  
+  # copy from cgi.rb
+  PARTS_1 = %w{
+    TT I B BIG SMALL EM STRONG DFN CODE SAMP KBD
+    VAR CITE ABBR ACRONYM SUB SUP SPAN BDO ADDRESS DIV MAP OBJECT
+    H1 H2 H3 H4 H5 H6 PRE Q INS DEL DL OL UL LABEL SELECT OPTGROUP
+    FIELDSET LEGEND BUTTON TABLE TITLE STYLE SCRIPT NOSCRIPT
+    TEXTAREA FORM A BLOCKQUOTE CAPTION
+  }
+  PARTS_2 = %w{
+    IMG BASE BR AREA LINK PARAM HR INPUT COL META
+  }
+  PARTS_3 = %w{
+    HTML BODY P DT DD LI OPTION THEAD TFOOT TBODY COLGROUP TR TH TD HEAD
+  }
+  (PARTS_1 + PARTS_2 + PARTS_3).each{|e|
+    elem = e.downcase
+    TagParts.newtag elem, true
+  }
+end
+
+__END__
+
+include HTMLParts
+tags = _html(
+  _head(
+    _title('hogehoge')),
+    _body(
+      _br(),
+      _h1('huga-'),
+      _p('hogehoge', _a('hogehoge', 'href' => 'dokka'), 'huga'),
+      _p('hogehoge', 'huga', ['ho-', 'hu'])
+    ))
+
+puts tags.to_s
+puts tree2string(tags)
+p( tags.to_s == tree2string(tags) )
+