drip 0.0.1

data/lib/drip/version.rb

@@ -0,0 +1,3 @@
+module Drip
+  VERSION = "0.0.1"
+end

data/lib/my_drip.rb

@@ -0,0 +1,64 @@
+require 'drb/drb'
+
+MyDrip = DRbObject.new_with_uri('drbunix:' + File.expand_path('~/.drip/port'))
+
+def MyDrip.invoke
+  fork do
+    Process.daemon
+    
+    require 'drip'
+    require 'fileutils'
+    
+    dir = File.expand_path('~/.drip')
+    uri = 'drbunix:' + File.join(dir, 'port')
+    ro = DRbObject.new_with_uri(uri)
+    begin
+      ro.older(nil) #ping
+      exit
+    rescue
+    end
+    
+    FileUtils.mkdir_p(dir)
+    FileUtils.cd(dir)
+    
+    drip = Drip.new('drip')
+    def drip.quit
+      Thread.new do
+      synchronize do |key|
+          exit(0)
+        end
+      end
+    end
+    
+    DRb.start_service(uri, drip)
+    File.open('pid', 'w') {|fp| fp.puts($$)}
+    
+    DRb.thread.join
+  end
+end
+
+class DripCursor
+  def initialize(drip, bufsiz=10, at_least=10)
+    @drip = drip
+    @cur = nil
+    @bufsiz = bufsiz
+    @at_least = at_least
+  end
+  attr_accessor :cur
+
+  def now
+    @cur ? @drip.key_to_time(@cur) : nil
+  end
+
+  def seek_at(time)
+    @cur = @drip.time_to_key(time)
+  end
+
+  def past_each(tag=nil)
+    while kv = @drip.older(@cur, tag)
+      @cur, value = kv
+      yield(value)
+    end
+  end
+end
+

data/sample/copocopo.rb

@@ -0,0 +1,82 @@
+# -*- coding: utf-8 -*-
+require 'drip_tw'
+require 'my_drip'
+require 'date'
+require 'pp'
+
+def dig(root, *keys)
+  keys.inject(root) do |node, key|
+    return nil if node.nil?
+    node[key] rescue nil
+  end
+end
+
+class CopoCopo
+  def initialize(drip=MyDrip)
+    @app = DripDemo.new('CopoCopo OAuth')
+    @drip = drip
+    _, @last = @drip.older(nil, 'CopoCopo Footprint')
+    @last = 0 if @last.nil?
+    @friends = %w(m_seki miwa719 hsbt vestige mame)
+  end
+  attr_reader :app
+
+  def extract(str)
+    ary = []
+    str.scan(/(([ぁ-ん]{2,})\2)|(([ァ-ヴ]{2,})\4)/) do |x|
+      ary << (x[1] || x[3])
+    end
+    ary.uniq
+  end
+
+  def retweet?(event)
+    event['retweeted_status'] ? true : false
+  end
+
+  def mention?(event)
+    event['in_reply_to_status_id_str'] ? true : false
+  end
+
+  def created_at(event)
+    DateTime.parse(event['created_at']).to_time
+  rescue
+    Time.at(1)
+  end
+
+  def make_status(ary, name)
+    "@#{name} " + ary.collect { |s|
+      "#{s}#{s}、#{s}"
+    }.join(", ") + "　(by copocopo)"
+  end
+
+  def main_loop
+    while true
+      @last, event = @drip.read_tag(@last, 'DripDemo Event', 1)[0]
+      next if retweet?(event)
+      next if mention?(event)
+      next unless Time.now < created_at(event) + 60000
+      name = dig(event, 'user', 'screen_name')
+      next unless @friends.include?(name)
+      ary = extract(event['text'] || '')
+      next if ary.empty?
+      tweet_id = event['id']
+      # @app.update(make_status(ary, name), tweet_id)
+      p [make_status(ary, name)]
+      # @drip.write(@last, 'CopoCopo Footprint')
+    end
+  end
+end
+
+copo = CopoCopo.new
+app = copo.app
+
+unless app.has_token?
+  url = app.pin_url
+  puts url
+  system('open ' + url) # for OSX
+  app.set_pin(gets.scan(/\w+/)[0])
+  app.write_setting
+end
+
+copo.main_loop
+

data/sample/drip_tw.rb

@@ -0,0 +1,255 @@
+require 'simple-oauth'
+require 'drb'
+require 'pp'
+require 'json'
+require 'my_drip'
+
+class DripFiber
+  def initialize(app)
+    @app = app
+    @fiber = Fiber.new do |event|
+      story(event)
+    end
+  end
+
+  def story(event)
+    pending = []
+    while event['id_str'].nil?
+      pending << event
+      event = Fiber.yield
+    end
+    
+    @app.fill_timeline(event['id_str'])
+
+    while event = pending.shift
+      @app.write(event)
+    end
+    
+    while true
+      event = Fiber.yield
+      @app.write(event)
+    end
+  end
+  
+  def push(event)
+    @fiber.resume(event)
+  end
+end
+
+class JSONStream
+  def initialize(drip)
+    @buf = ''
+    @drip = drip
+  end
+
+  def push(str)
+    @buf << str
+    while (line = @buf[/.+?(\r\n)+/m]) != nil
+      begin
+        @buf.sub!(line,"")
+        line.strip!
+        event = JSON.parse(line)
+      rescue
+        break
+      end
+      pp event if $DEBUG
+      @drip.push(event)
+    end
+  end
+end
+
+class SimpleOAuthS < SimpleOAuth
+  def http_class
+    return Net::HTTP unless ENV['http_proxy']
+    proxy_url = URI.parse(ENV['http_proxy'])
+    Net::HTTP.Proxy(proxy_url.host, proxy_url.port)
+  end
+
+  def request(method, url, body =nil, headers = {}, &block)
+    method = method.to_s
+    url = URI.parse(url)
+    request = create_http_request(method, url.request_uri, body, headers)
+    request['Authorization'] = auth_header(method, url, request.body)
+    http = http_class.new(url.host, url.port)
+    if url.scheme == 'https'
+      http.use_ssl = true
+      http.verify_mode = OpenSSL::SSL::VERIFY_NONE
+      store = OpenSSL::X509::Store.new
+      store.set_default_paths
+      http.cert_store = store
+    end
+    http.request(request, &block)
+  end
+end
+
+class DripDemo
+  def initialize(oauth_tag = 'DripDemo OAuth')
+    @oauth_tag = oauth_tag
+    @oa = last_setting || {}
+  end
+
+  def has_token?
+    @oa.include?(:oauth_token)
+  end
+
+  def last_setting
+    MyDrip.older(nil, @oauth_tag)[1]
+  end
+
+  def write_setting
+    MyDrip.write(@oa, @oauth_tag)
+  end
+
+  def update_setting(body, keys=nil)
+    found = []
+    body.split('&').each do |pair|
+      k, v = pair.split('=')
+      if keys.nil? || keys.include?(k)
+        @oa[k.intern] = v
+        found << k
+      end
+    end
+    found
+  end
+
+  def oauth
+    SimpleOAuthS.new(@oa[:consumer_key],
+                     @oa[:consumer_secret],
+                     @oa[:oauth_token],
+                     @oa[:oauth_token_secret])
+  end
+  
+  def pin_url
+    @oa[:oauth_token] = ''
+    @oa[:oauth_token_secret] = ''
+    response = oauth.get('https://api.twitter.com/oauth/request_token')
+    raise response.message unless response.code == '200'
+    update_setting(response.body, ['oauth_token', 'oauth_token_secret'])
+    
+    'http://twitter.com/oauth/authorize?oauth_token=' + @oa[:oauth_token]    
+  end
+
+  def set_pin(pin)
+    response = oauth.get('https://api.twitter.com/oauth/access_token',
+                         'oauth_token' => @oa[:oauth_token],
+                         'oauth_velifier' => pin)
+    raise response.message unless response.code == '200'
+    update_setting(response.body)
+  end
+
+  def drip_stream
+    json = JSONStream.new(DripFiber.new(self))
+    oauth.request(:GET, 'https://userstream.twitter.com/2/user.json') do |r|
+      r.read_body do |chunk|
+        json.push(chunk)
+      end
+    end
+  end
+
+  def home_timeline(since_id, max_id)
+    url = "http://api.twitter.com/1/statuses/home_timeline.json?count=200&include_entities=true"
+    url += "&since_id=#{since_id}" if since_id
+    url += "&max_id=#{max_id}" if max_id
+    r = oauth.request(:GET, url)
+    JSON.parse(r.body)
+  end
+
+  def user_timeline(since_id, max_id)
+    url = "http://api.twitter.com/1/statuses/user_timeline.json?count=200&include_entities=true&trim_user=t"
+    url += "&since_id=#{since_id}" if since_id
+    url += "&max_id=#{max_id}" if max_id
+    r = oauth.request(:GET, url)
+    JSON.parse(r.body)
+  end
+
+  def last_tweet_id
+    key = nil
+    while kv = MyDrip.older(key, 'DripDemo Event')
+      key, value = kv
+      return value['id_str'] if value.include?('text')
+    end
+    nil
+  end
+
+  def fill_timeline(max_id)
+    since_id = last_tweet_id
+    return unless since_id
+    timeline = []
+    4.times do
+      return if since_id == max_id || max_id.nil?
+      ary = home_timeline(since_id, max_id)
+      pp [:fill_timeline, ary.size] if $DEBUG
+      max_id = nil
+      ary.reverse_each do |event|
+        next unless event['id']
+        max_id = event['id'] - 1
+        break
+      end
+      break if max_id.nil?
+      timeline += ary
+    end
+    timeline.reverse_each do |event|
+      write(event)
+    end
+  end
+
+  def compact_event(event)
+    return event unless Hash === event
+    result = {}
+    event.each do |k, v|
+      case v
+      when Hash
+        v = compact_event(v)
+        next if v.nil?
+      when [], '', 0, nil
+        next
+      when Array
+        v = v.collect {|vv| compact_event(vv)}
+      end
+      if k == 'user'
+        tmp = {}
+        %w(name screen_name id id_str).each {|attr| tmp[attr] = v[attr]}
+        v = tmp
+      end
+      result[k] = v
+    end
+    result.size == 0 ? nil : result
+  end
+  
+  def write(event, tag='DripDemo Event')
+    event = compact_event(event)
+    key = MyDrip.write(event, tag)
+    pp [key, event['id_str'], event['text']] if $DEBUG
+  end
+
+  def update(str, in_reply_to=nil)
+    hash = { :status => str }
+    hash[:in_reply_to_status_id] = in_reply_to if in_reply_to
+    r = oauth.post('http://api.twitter.com/1/statuses/update.xml',
+                   hash)
+    pp r.body if $DEBUG
+  end
+
+  def test
+    r = oauth.post('http://api.twitter.com/1/statuses/update.xml',
+                   {:status => 'test'})
+    pp r.body if $DEBUG
+  end
+end
+
+if __FILE__ == $0
+  app = DripDemo.new
+  
+  unless app.has_token?
+    url = app.pin_url
+    puts url
+    system('open ' + url) # for OSX
+    app.set_pin(gets.scan(/\w+/)[0])
+    app.write_setting
+  end
+
+  unless $DEBUG
+    Process.daemon
+  end
+  app.drip_stream
+end

data/sample/gca.rb

@@ -0,0 +1,70 @@
+class GoogleChartApi
+  NtoS = ('A'..'Z').to_a + ('a'..'z').to_a + ('0'..'9').to_a
+  NtoE = NtoS + %w(- .)
+  URL = 'http://chart.apis.google.com/chart'
+
+  def initialize
+    @query = []
+  end
+
+  def as_s(n)
+    NtoS[n]
+  end
+  
+  def as_e(n)
+    h, v = n.divmod(64)
+    NtoE[h] + NtoE[v]
+  end
+  
+  def chd_s(*ary_ary)
+    @query << "chd=s:" + ary_ary.collect do |ary|
+      ary.collect {|n| as_s(n)}.join('')
+    end.join("|")
+  end
+
+  def chd_e(*ary_ary)
+    @query << "chd=e:" + ary_ary.collect do |ary|
+      ary.collect {|n| as_e(n)}.join('')
+    end.join("|")
+  end
+  
+  def chd_t(*ary_ary)
+    @query << "chd=t:" + ary_ary.collect do |ary|
+      ary.join(',')
+    end.join("|")
+  end
+  
+  def chs(w, h)
+    @query << "chs=#{w}x#{h}"
+  end
+
+  def chtt(title)
+    @query << "chtt=#{title.gsub(/ /, '+') .gsub(/\n/m, '|')}"
+  end
+
+  def method_missing(name, *args, &blk)
+    if /^ch/ =~ name
+      @query << "#{name}=#{args[0]}"
+    else
+      super
+    end
+  end
+
+  def to_s
+    [URL, @query.join("&")].join("?")
+  end
+end
+
+gca = GoogleChartApi.new
+
+gca.chs(460, 200)
+gca.chd_t([62,12,5,2,19])
+gca.cht('lc')
+gca.chxt('r')
+gca.chxr('0,60,130')
+gca.chxl('0:80|100|120')
+gca.chxp('0,80,100,120')
+
+puts gca
+system("open '#{gca}'")
+