megalith 0.0.1

data/.gitignore

@@ -0,0 +1,19 @@
+*.gem
+*.rbc
+.bundle
+.config
+.yardoc
+.DS_Store
+Gemfile.lock
+InstalledFiles
+_yardoc
+coverage
+doc/
+lib/bundler/man
+pkg
+rdoc
+spec/reports
+test/tmp
+test/version_tmp
+tmp
+test/*

data/.rspec

@@ -0,0 +1,2 @@
+--color
+--format progress

data/.travis.yml

@@ -0,0 +1,3 @@
+language: ruby
+rvm:
+  - 1.9.3

data/Gemfile

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

data/LICENSE

@@ -0,0 +1,22 @@
+Copyright (c) 2012 Oame
+
+MIT License
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.md

@@ -0,0 +1,36 @@
+# Megalith
+
+[![Build Status](https://secure.travis-ci.org/oame/megalith-ruby.png)](http://travis-ci.org/oame/megalith-ruby)
+
+Megalith パーサー for Ruby<br>
+
+## Requirements
+
+* Ruby 1.9.x
+
+## Installation
+
+  gem install megalith
+
+## Usage
+
+	require "megalith"
+	
+	# 東方創想話(Megalith) をエンドポイントにする
+	megalith = Megalith.new("http://coolier.sytes.net:8080/sosowa/ssw_l/")
+  
+  	# 最新版から最初のSSを持ってくる
+	latest_log = megalith.get
+	first_novel = latest_log.first.fetch
+  
+  	# 作品集番号156の1320873807を持ってくる
+  	novel = megalith.get(:log => 156, :key => 1320873807)
+  	puts novel.text
+
+## Contributing
+
+1. Fork it
+2. Create your feature branch (`git checkout -b my-new-feature`)
+3. Commit your changes (`git commit -am 'Added some feature'`)
+4. Push to the branch (`git push origin my-new-feature`)
+5. Create new Pull Request

data/Rakefile

@@ -0,0 +1,8 @@
+#!/usr/bin/env rake
+require "bundler/gem_tasks"
+require "rspec/core/rake_task"
+
+RSpec::Core::RakeTask.new('spec')
+
+# If you want to make this the default task
+task :default => :spec

data/lib/megalith.rb

@@ -0,0 +1,34 @@
+# coding: utf-8
+
+require "kconv"
+require "net/http"
+require "time"
+require "uri"
+
+$LOAD_PATH.unshift(File.expand_path("../", __FILE__))
+require "megalith/version"
+require "megalith/essentials"
+require "megalith/scheme"
+
+class Megalith
+  attr_accessor :base_url
+  USER_AGENT = "Megalith Ruby Wrapper #{Megalith::VERSION}"
+
+  def initialize(base_url)
+    @base_url = base_url
+  end
+  
+  def get(args={})
+    args[:log] ||= 0
+    if args.has_key?(:key)
+      Novel.new(@base_url, args[:log], args[:key])
+    else
+      Subject.new(@base_url, args[:log])
+    end
+  end
+
+  #def search(query, args={})
+  #  page = send_req({:mode => :search, :type => (args[:type] ? args[:type] : :insubject), :query => query.tosjis})
+  #  parse_index(page)
+  #end
+end

data/lib/megalith/essentials.rb

@@ -0,0 +1,55 @@
+class Megalith
+  module Essentials
+    def param_serialize(parameter, add_prefix=true)
+      return "" unless parameter.class == Hash
+      ant = Hash.new
+      parameter.each do |key, value|
+        ant[key.to_sym] = value.to_s
+      end
+      param = ant.inject(""){|k,v|k+"&#{v[0]}=#{URI.escape(v[1])}"}
+      if add_prefix
+        param.sub!(/^&/,"?") 
+      else
+        param.sub!(/^&/,"") 
+      end
+      return param ? param : ""
+    end
+
+    def send_req(url)
+      uri = URI.parse(url)
+
+      Net::HTTP.version_1_2
+      Net::HTTP.start(uri.host, uri.port) do |http|
+        response = http.get(uri.path, 'User-Agent' => USER_AGENT)
+        return response.body.toutf8
+      end
+      return false
+    end
+
+    def fetch_subjects(base_url)
+      page = send_req(File.join(base_url, "sub", "subjects.txt"))
+      subjects = page.split("\n").map{|s| s.gsub(/[^0-9]/, "").to_i}
+      return subjects
+    end
+
+    def fetch_comments(base_url, key)
+      comments_page = send_req(File.join(base_url, "com", "#{key}.res.dat"))
+      arr = comments_page.split("\n").map{|c| c.split("<>")}
+      return nil if arr[0][0].include?("DOCTYPE")
+      comments = []
+      arr.each do |comment|
+        comments << Comment.new(
+          :text => comment[0],
+          :name => comment[1],
+          :email => comment[2],
+          :created_at => Time.parse(comment[3]),
+          :point => comment[4],
+          :hash => comment[5],
+          :host => comment[6],
+          :admin_flag => comment[7]
+          )
+      end
+      return comments
+    end
+  end
+end

data/lib/megalith/scheme.rb

@@ -0,0 +1,246 @@
+# coding: utf-8
+
+class Megalith  
+  class Novel
+    include Essentials
+    attr_reader :log
+    attr_reader :key
+
+    def initialize(base_url, log, key)
+      @novel = fetch_novel(base_url, log, key)
+      @base_url = base_url
+      @log = (log < 1) ? fetch_subjects(base_url).first : log
+      @key = key
+    end
+    
+    def fetch_novel(base_url, log, key)
+      novel_page = send_req(File.join(base_url, "dat", "#{key}.dat"))
+      aft = send_req(File.join(base_url, "aft", "#{key}.aft.dat"))
+      lines = novel_page.split("\n")
+      meta = lines[0].split("<>")
+      hash = lines[1]
+      text = lines[2, lines.size].join
+      comment_count, review_count = meta[4].split("/")
+      comments = fetch_comments(base_url, key)
+      novel = {
+        :title => meta[0],
+        :text => text,
+        :aft => aft,
+        :author => Author.new(:name => meta[1], :email => meta[2], :website => meta[3]),
+        :tags => meta[12].split(/[\s　]/),
+        :log => log,
+        :key => key,
+        :created_at => Time.at(key),
+        :updated_at => Time.parse(meta[7]),
+        :review_count => review_count,
+        :comment_count => comment_count,
+        :point => meta[5],
+        :rate => meta[6],
+        :host => meta[8],
+        :background_color => meta[9],
+        :text_color => meta[10],
+        :convert_newline => meta[11],
+        :size => text.bytesize / 1024,
+        :url => URI.join(base_url, "?mode=read&key=#{key}&log=#{log}").to_s,
+        :comments => comments
+      }
+      return novel
+    end
+    
+    def simple_rating(point)
+      # Get cookie
+      get_params = param_serialize({
+        :mode => :read,
+        :key => @key,
+        :log => @log
+      })
+      uri = URI.parse(@base_url)
+      http = Net::HTTP.new(uri.host, uri.port)
+      req = Net::HTTP::Get.new(uri.path)
+      req["User-Agent"] = USER_AGENT
+      res = http.request(req, get_params)
+      cookie = res["Set-Cookie"]
+
+      # Post Comment
+      post_uri_params = param_serialize({
+        :mode => :update,
+        :key => @key,
+        :log => @log,
+        :target => :res
+      })
+      post_params = param_serialize({:body => "#EMPTY#", :point => point}, false)
+      req = Net::HTTP::Post.new(File.join(uri.path, post_uri_params))
+      req["Cookie"] = cookie
+      req["User-Agent"] = USER_AGENT
+      res = http.request(req, post_params)
+      return res
+    end
+    
+    def comment(text, params={})
+      # Get cookie
+      get_params = param_serialize({
+        :mode => :read,
+        :key => @key,
+        :log => @log
+      })
+      uri = URI.parse(@base_url)
+      http = Net::HTTP.new(uri.host, uri.port)
+      req = Net::HTTP::Get.new(uri.path)
+      req["User-Agent"] = USER_AGENT
+      res = http.request(req, get_params)
+      cookie = res["Set-Cookie"]
+
+      # Post Comment
+      post_uri_params = param_serialize({
+        :mode => :update,
+        :key => @key,
+        :log => @log,
+        :target => :res
+      })
+      params.each do |k, v|
+        params[k] = v.to_s.tosjis
+      end
+      post_params = param_serialize({:body => text.tosjis}.update(params), false)
+      req = Net::HTTP::Post.new(File.join(uri.path, post_uri_params))
+      req["Cookie"] = cookie
+      req["User-Agent"] = USER_AGENT
+      res = http.request(req, post_params)
+      return res
+    end
+    
+    def plain
+      return self.text.gsub(/(<br>|\r?\n)/, "")
+    end
+
+    def method_missing(action, *args)
+      return @novel[action.to_s.to_sym] rescue nil
+    end
+    
+    def params() @novel.keys.map{|k|k.to_sym} ; end
+    alias_method :available_methods, :params
+    
+    def to_hash
+      @novel
+    end
+  end
+  
+  class Comment
+    attr_reader :comment
+    
+    def initialize(comment)
+      @comment = comment
+    end
+    
+    def method_missing(action, *args)
+      return @comment[action.to_s.to_sym] rescue nil
+    end
+    
+    def params() @comment.keys.map{|k|k.to_sym} ; end
+    alias_method :available_methods, :params
+    
+    def to_hash
+      @comment
+    end
+  end
+  
+  class Author
+    attr_reader :author
+    
+    def initialize(author)
+      @author = author  
+    end
+    
+    def method_missing(action, *args)
+      return @author[action.to_s.to_sym] rescue nil
+    end
+    
+    def params() @author.keys.map{|k|k.to_sym} ; end
+    alias_method :available_methods, :params
+    
+    def to_hash
+      @author
+    end
+  end
+  
+  class Index
+    attr_reader :index
+    def initialize(base_url, index)
+      @base_url = base_url
+      @index = index
+    end
+
+    def method_missing(action, *args)
+      return @index[action.to_s.to_sym] rescue nil
+    end
+    
+    def params() @index.keys.map{|k|k.to_sym} ; end
+    alias_method :available_methods, :params
+    
+    def to_hash
+      @index
+    end
+
+    def fetch
+      Novel.new(@base_url, self.log, self.key)
+    end
+    alias_method :get, :fetch
+  end
+
+  class Subject < Array
+    include Essentials
+    attr_reader :subject
+    
+    def initialize(base_url, log)
+      @subject = fetch_subject(base_url, log)
+      super(subject)
+      @base_url = base_url
+      @log = subject.first.log
+    end
+
+    def fetch_subject(base_url, log)
+      log = fetch_subjects(base_url).first if log < 1
+      page = send_req(File.join(base_url, "sub", "subject#{(log < 1) ? "" : log}.txt"))
+      subject = page.split("\n").map{|i| i.split("<>")}
+
+      indexes = []
+      subject.each do |index|
+        key = index[0].gsub(/[^0-9]/, "").to_i
+        comment_count, review_count = index[5].split("/")
+        indexes << Index.new(base_url, {
+          :log => log,
+          :key => key,
+          :title => index[1],
+          :author => index[2],
+          :created_at => Time.at(key),
+          :updated_at => Time.parse(index[8]),
+          :review_count => review_count,
+          :comment_count => comment_count,
+          :point => index[6],
+          :tags => index[13].split(/[\s　]/),
+          :rate => index[7].to_f,
+          :host => index[9],
+          :background_color => index[10],
+          :text_color => index[11],
+          :convert_newline => index[12],
+          :size => index[14].to_f,
+          :url => URI.join(base_url, "?mode=read&key=#{key}&log=#{log}").to_s
+        })
+      end
+      return indexes.reverse
+    end
+
+    def next_page
+      Subject.new(@base_url, (@log < 1) ? fetch_subjects(@base_url).last : @log)
+    end
+    alias_method :next, :next_page
+
+    def prev_page
+      Subject.new(@base_url, (fetch_subjects(@base_url).size <= @log+1) ? 0 : @log)
+    end
+    alias_method :prev, :prev_page
+    
+    def latest_log
+      fetch_subjects(@base_url).last
+    end
+  end
+end

data/lib/megalith/version.rb

@@ -0,0 +1,3 @@
+class Megalith
+  VERSION = "0.0.1"
+end

data/megalith.gemspec

@@ -0,0 +1,17 @@
+# -*- encoding: utf-8 -*-
+require File.expand_path('../lib/megalith/version', __FILE__)
+
+Gem::Specification.new do |gem|
+  gem.authors       = ["Oame"]
+  gem.email         = ["oame@oameya.com"]
+  gem.description   = %q{Megalith Parser for Ruby 1.9.x.}
+  gem.summary       = %q{Megalith Parser for Ruby}
+  gem.homepage      = "https://github.com/oame/megalith-ruby"
+
+  gem.files         = `git ls-files`.split($\)
+  gem.executables   = gem.files.grep(%r{^bin/}).map{ |f| File.basename(f) }
+  gem.test_files    = gem.files.grep(%r{^(test|spec|features)/})
+  gem.name          = "megalith"
+  gem.require_paths = ["lib"]
+  gem.version       = Megalith::VERSION
+end

data/spec/megalith_spec.rb

@@ -0,0 +1,51 @@
+# -*- coding: utf-8 -*-
+
+require "pp"
+require "spec_helper"
+
+describe Megalith, "が #get, :log => 0 を呼ぶ時は" do
+  before do
+    megalith = Megalith.new("http://coolier.sytes.net:8080/sosowa/ssw_l/")
+    @subject = megalith.get :log => 0
+  end
+  
+  it "Megalith::Subjectを返すこと" do
+    @subject.class.should == Megalith::Subject
+  end
+
+  it "最初のノベルはMegalith::Indexであること" do
+    @subject.first.class.should == Megalith::Index
+  end
+
+  it "最初のタイトルがStringであること" do
+    @subject.first.title.class.should == String
+  end
+
+  it "#next_pageがMegalith::Subjectを返すこと" do
+    @subject.next_page.class.should == Megalith::Subject
+  end
+
+  it "#prev_pageがMegalith::Subjectを返すこと" do
+    @subject.next_page.prev_page.class.should == Megalith::Subject
+  end
+
+  it "#latest_logがFixnumを返すこと" do
+    @subject.latest_log.class.should == Fixnum
+  end
+
+  it "最初を#fetchしたらMegalith::Novelを返すこと" do
+    @subject.first.fetch.class.should == Megalith::Novel
+  end
+
+  it "最初を#fetchしたMegalith::Novel#titleがStringなこと" do
+    @subject.first.fetch.title.class.should == String
+  end
+
+  it "直接Novelを取得出来ること" do
+    log = @subject.first.log
+    key = @subject.first.key
+    megalith = Megalith.new("http://coolier.sytes.net:8080/sosowa/ssw_l/")
+    novel = megalith.get :log => log, :key => key
+    novel.class.should == Megalith::Novel
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,8 @@
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+require "rspec"
+require "megalith"
+
+RSpec.configure do |config|
+  config.color_enabled = true
+end

metadata

@@ -0,0 +1,61 @@
+--- !ruby/object:Gem::Specification
+name: megalith
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+  prerelease: 
+platform: ruby
+authors:
+- Oame
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2012-08-23 00:00:00.000000000 Z
+dependencies: []
+description: Megalith Parser for Ruby 1.9.x.
+email:
+- oame@oameya.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- .gitignore
+- .rspec
+- .travis.yml
+- Gemfile
+- LICENSE
+- README.md
+- Rakefile
+- lib/megalith.rb
+- lib/megalith/essentials.rb
+- lib/megalith/scheme.rb
+- lib/megalith/version.rb
+- megalith.gemspec
+- spec/megalith_spec.rb
+- spec/spec_helper.rb
+homepage: https://github.com/oame/megalith-ruby
+licenses: []
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.24
+signing_key: 
+specification_version: 3
+summary: Megalith Parser for Ruby
+test_files:
+- spec/megalith_spec.rb
+- spec/spec_helper.rb