enju_biblio 0.0.1

data/spec/dummy/lib/enju_leaf/calculate_stat.rb

@@ -0,0 +1,30 @@
+module CalculateStat
+
+  def self.included(base)
+    base.extend ClassMethods
+    base.send :include, InstanceMethods
+    base.class_eval do
+      validates_presence_of :start_date, :end_date
+      validate :check_date
+    end
+  end
+
+  module ClassMethods
+    def calculate_stat
+      self.not_calculated.each do |stat|
+        stat.calculate!
+      end
+    end
+  end
+
+  module InstanceMethods
+    def check_date
+      if self.start_date and self.end_date
+        if self.start_date >= self.end_date
+          errors.add(:start_date)
+          errors.add(:end_date)
+        end
+      end
+    end
+  end
+end

data/spec/dummy/lib/enju_leaf/localized_name.rb

@@ -0,0 +1,15 @@
+module LocalizedName
+  def localize(locale = I18n.locale)
+    string = YAML.load(self)
+    if string.is_a?(Hash) and string[locale.to_s]
+      return string[locale.to_s]
+    end
+    self
+  rescue NoMethodError
+    self
+  end
+end
+
+class String
+  include LocalizedName
+end

data/spec/dummy/lib/enju_leaf/openurl.rb

@@ -0,0 +1,156 @@
+# -*- encoding: utf-8 -*-
+#-------------------------------------------
+# OpenurlQuerySyntaxErrorクラス
+# 文法上の誤りをエラーとする
+#-------------------------------------------
+class OpenurlQuerySyntaxError < RuntimeError; end
+#-------------------------------------------
+# Openurlクラス
+#-------------------------------------------
+class Openurl
+  # 一致条件ごとの分類
+  MATCH_EXACT = [:ndl_dpid] # 完全一致
+  MATCH_PART = [:aulast, :aufirst, :au, :title, :atitle, :jtitle, :btitle, :pub] # 部分一致
+  MATCH_AHEAD = [:issn, :isbn, :ndl_jpno] # 前方一致
+
+  # ある項目に対して複数語指定時の検索方法ごとの分類
+  LOGIC_MULTI_AND = [:au, :title, :atitle, :jtitle, :btitle, :pub] # AND検索
+  LOGIC_MULTI_OR = [:ndl_dpid] # OR検索
+
+  # 桁チェックが必要な項目
+  NUM_CHECK = {:issn => 8, :isbn => 13}
+
+  # 集約される項目
+  SYNONYMS = [:title, :aulast, :aufirst]
+
+  # enjuのフィールド名（検索用）管理
+  ENJU_FIELD = {:aulast => 'au_text', # aulast=au
+                :aufirst => 'au_text', # aufirst=au
+                :au => 'au_text',
+                :title => 'btitle_text',  # title=btitle
+                :atitle => 'atitle_text',
+                :btitle => 'btitle_text',
+                :jtitle => 'jtitle_text',
+                :pub => 'publisher_text',
+                :issn => 'issn_sm',
+                :isbn => 'isbn_sm',
+                :ndl_jpno => 'ndl_jpno_text', # TODO:現在対応項目はないので保留。
+                :ndl_dpid => 'ndl_dpid_sm',   # TODO:現在対応項目はないので保留。これのみ完全一致であることに注意。
+                :associate => ''              # TODO:フィールド名ではないので削除？
+  }
+
+  def initialize(params)
+    # @openurl_queryに検索項目ごとの検索文を格納
+    if params.has_key?(:any) then
+      # anyの場合は他に条件が指定されていても無視
+      @openurl_query = [params[:any].strip]
+    else
+      @openurl_query = to_sunspot(params)
+    end
+    @manifestations = []
+  end
+
+  attr_reader :openurl_query, :manifestations, :query_text
+
+  # 検索
+  def search
+    search = Sunspot.new_search(Manifestation)
+    @query_text = build_query
+    query = @query_text
+    search.build{ fulltext query }
+    search.execute!.results
+  end
+
+  private
+  # 検索文を結合,
+  def build_query
+    @openurl_query.join(" AND ")
+  end
+
+  # params OpenURLのリクエストのパラメータ
+  # 個々のパラメータに合わせて検索文を組立てメソッドを呼ぶ。この時、引数は、enjuのフィールド名と値。
+  def to_sunspot(params)
+    query = []
+    params.each_key do |key|
+      key = key.to_sym
+      if MATCH_EXACT.include?(key) then # 完全一致
+        query << to_sunspot_match_exact(ENJU_FIELD[key], params[key].strip)
+      elsif MATCH_PART.include?(key) then # 部分一致
+        query << to_sunspot_match_part(key, ENJU_FIELD[key], params[key].strip)
+      elsif MATCH_AHEAD.include?(key) then # 前方一致
+        query << to_sunspot_match_ahead(key, ENJU_FIELD[key], params[key].strip)
+      end
+    end
+    # queryにあるau_textの統合
+    @openurl_query = unite_au_query(query)
+  end
+
+  # 完全一致の項目の検索文組立て
+  # TODO 完全一致の項目はndl_dpidだけで、これはデータプロバイダについて議論中なので保留する
+  def to_sunspot_match_exact(field, val)
+    # 途中に空白がある場合は複数語が指定されているとみなし、ORでつなぐ。
+    if /\s+/ =~ val
+      "%s:%s" % [field, val.gsub(/\s+/, ' OR ')]
+    else
+      "%s:%s" % [field, val]
+    end
+  end
+
+  # 部分一致の項目の検索文組立て
+  # key   パラメータのキー（複数指定の検索方法判断に使う）
+  # field 項目名
+  # val   値
+  def to_sunspot_match_part(key, field, val)
+    # 途中に空白がある場合は複数語が指定されているとみなし、ANDでつなぐ。
+    if /\s+/ =~ val
+      if LOGIC_MULTI_AND.include?(key) then
+        "%s:(%s)" % [field, val.gsub(/\s+/, ' AND ')]
+      else
+        raise OpenurlQuerySyntaxError, "the key \"#{key}\" not allow multi words"
+      end
+    else
+      "%s:%s" % [field, val]  # fieldに対して語が１つならばこれ
+    end
+ end
+
+  # 前方一致の項目の検索文組立て
+  def to_sunspot_match_ahead(key, field, val)
+    # 既定の桁より大きい場合、または、数値でない文字列の場合エラー
+    # 数値でない文字列には空白がある場合も含むので複数指定はエラーとなる
+    # このチェックはANY検索の時外す
+    if NUM_CHECK.include?(key) then
+      if [:issn, :isbn].include?(key.to_sym)
+        val.gsub!('-', '')
+      end
+      raise OpenurlQuerySyntaxError unless /\A\d{1,#{NUM_CHECK[key]}}X?\Z/i =~ val
+    end
+    "%s:%s*" % [field, val]
+  end
+
+  # au項目の統合
+  # au、aufirst、aulastはau_textに統合する
+  def unite_au_query(query)
+    new_query = []
+    au_item = []
+    str = "au_text:"
+    au_flg = false
+    reg = Regexp.compile(/\A#{str}/)
+    query.each do |q|
+      if reg =~ q then
+        au_flg = true
+        au_item.push(q[str.length..q.length])
+      else
+        new_query.push(q)
+      end
+    end
+    if au_flg then
+      if au_item.size > 1 then
+        str = str + "(%s)" % [au_item.join(' AND ')]
+      else
+        str = str + au_item[0]
+      end
+      new_query.push(str)
+    end
+    return new_query
+  end
+end

data/spec/dummy/lib/enju_leaf/porta_cql.rb

@@ -0,0 +1,283 @@
+# -*- encoding: utf-8 -*-
+require 'strscan'
+
+class QueryError < RuntimeError; end
+class QuerySyntaxError < QueryError; end
+
+class Cql
+  def initialize(line)
+    @logic = nil
+    @query = split_clause_text(line).collect{|txt| Clause.new(txt)}
+
+    from_day, @query = extract_with_index(@query, /from/io)
+    @from = comp_date(from_day)
+    until_day, @query = extract_with_index(@query, /until/io)
+    @until = comp_date(until_day)
+    sort_by, @query = extract_with_index(@query, /sortBy/io)
+    @sort_by = sort_by ? sort_by.terms.first : ''
+  end
+
+  attr_reader :query, :from, :until, :sort_by, :logic
+
+  def ==(other)
+    instance_variables.all? do |val|
+      instance_variable_get(val) == other.instance_variable_get(val)
+    end
+  end
+
+  def to_sunspot
+    (@query.collect{|c| c.to_sunspot} + date_range(@from, @until)).join(" #{@logic} ")
+  end
+
+  def split_clause_text(line)
+    clauses = []
+
+    s = StringScanner.new(line)
+    text = ''
+    while s.rest?
+      case
+      when s.scan(/\s+/)
+        text << s.matched
+      when s.scan(/"(?:[^"\\]|\\.)*"/)
+        text << s.matched
+      when s.scan(/(AND|OR)/i)
+        logic = s.matched.upcase
+        if @logic
+          raise QuerySyntaxError unless @logic == logic
+        else
+          @logic = logic
+        end
+        clauses << text.strip
+        text = ''
+      when s.scan(/\S*/)
+        text << s.matched
+      end
+    end
+    clauses << text.strip
+    clauses.collect{|txt| txt.gsub(/(\A\(|\)\Z)/, '')}
+  end
+
+  private
+  def extract_with_index(arr, reg)
+    element, rest = arr.partition{|c| reg =~ c.index }
+    [element.last, rest]
+  end
+
+  def date_range(from_date, until_date)
+    unless from_date == '*' and until_date == '*'
+      ["date_of_publication_d:[#{from_date} TO #{until_date}]"]
+    else
+      []
+    end
+  end
+
+  def comp_date(date)
+    if date
+      text = date.terms[0]
+      date_text = case text
+      when /\A\d{4}-\d{2}-\d{2}\Z/
+        text
+      when /\A\d{4}-\d{2}\Z/
+        (text + '-01')
+      when /\A\d{4}\Z/
+        (text + '-01-01')
+      else
+        raise QuerySyntaxError, "#{text}"
+      end
+      begin
+        Time.zone.parse(date_text).utc.iso8601.to_s
+      rescue
+        raise QuerySyntaxError, "#{date}"
+      end
+    else
+      '*'
+    end
+  end
+end
+
+class ScannerError < QuerySyntaxError; end
+class AdapterError < QuerySyntaxError; end
+
+class Clause
+  INDEX = /(dpid|dpgroupid|title|creator|publisher|ndc|description|subject|isbn|issn|jpno|from|until|anywhere|porta_type|digitalize_type|webget_type|payment_type|ndl_agent_type|ndlc|itemno)/io
+  SORT_BY = /sortBy/io
+  RELATION = /(=|exact|\^|any|all)/io
+
+  MATCH_ALL = %w[title creator publisher]
+  MATCH_EXACT = %w[dpid dpgroupid isbn issn jpno porta_type digitalize_type webget_type payment_type ndl_agent_type itemno]
+  MATCH_PART = %w[description subject]
+  MATCH_AHEAD = %w[ndc ndlc]
+  MATCH_DATE = %w[from until]
+  MATCH_ANYWHERE = %w[anywhere]
+  LOGIC_ALL = %w[title creator publisher description subject anywhere]
+  LOGIC_ANY = %w[dpid ndl_agent_type]
+  LOGIC_EQUAL = %w[dpgroupid ndc isbn issn jpno from until porta_type digitalize_type webget_type payment_type ndlc itemno]
+  MULTIPLE = %w[dpid title creator publisher description subject anywhere ndl_agent_type]
+
+  def initialize(text)
+    unless text.empty?
+      @index, @relation, @terms = scan(text)
+      porta_adapter
+      @field = @index
+    else
+      @index = ''
+    end
+  end
+
+  attr_reader :index, :relation, :terms
+
+  def ==(other)
+    instance_variables.all? do |val|
+      instance_variable_get(val) == other.instance_variable_get(val)
+    end
+  end
+
+  def scan(text)
+    ss = StringScanner.new(text)
+    index = ''
+    relation = ''
+    terms = []
+
+    if ss.scan(INDEX) or ss.scan(SORT_BY)
+      index = ss[0]
+    end
+    #else
+    #  raise ScannerError, "index or the sortBy is requested in '#{text}'"
+    #end
+    ss.scan(/\s+/)
+    if ss.scan(RELATION)
+      relation = ss[0].upcase
+    end
+    #else
+    #  raise ScannerError, "relation is requested in '#{text}'"
+    #end
+    ss.scan(/\s+/)
+    if ss.scan(/.+/)
+      terms = ss[0].gsub(/(\A\"|\"\Z)/, '').split
+    else
+      raise ScannerError, "search term(s) is requested in '#{text}'"
+    end
+
+    [index, relation, terms]
+  end
+
+  def porta_adapter
+    logic_adapter
+    multiple_adapter
+  end
+
+  def logic_adapter
+    case
+    when LOGIC_ALL.include?(@index)
+      raise AdapterError unless %w[ALL ANY = EXACT ^].include?(@relation)
+    when LOGIC_ANY.include?(@index)
+      raise AdapterError unless %w[ANY =].include?(@relation)
+    when LOGIC_EQUAL.include?(@index)
+      raise AdapterError unless %w[=].include?(@relation)
+    end
+  end
+
+  def multiple_adapter
+    unless MULTIPLE.include?(@index)
+      raise AdapterError if @terms.size > 1
+    end
+  end
+
+  def to_sunspot
+    case
+    when MATCH_ALL.include?(@index)
+      to_sunspot_match_all
+    when MATCH_EXACT.include?(@index)
+      to_sunspot_match_exact
+    when MATCH_PART.include?(@index)
+      to_sunspot_match_part
+    when MATCH_AHEAD.include?(@index)
+      to_sunspot_match_ahead
+    when MATCH_ANYWHERE.include?(@index)
+      to_sunspot_match_anywhere
+    when @index.empty?
+      @terms.join(' ')
+    end
+  end
+
+  def to_sunspot_match_all
+    term = @terms.join(' ')
+    case @relation
+    when /\A=\Z/
+      unless /\A\^(.+)/ =~ term
+        "%s_%s:(%s)" % [@field, :text, term]
+      else
+        ahead_tarm = $1.gsub("\s", '').downcase
+        "connect_%s_%s:(%s*)" % [@field, :s, ahead_tarm]
+      end
+    when /\AEXACT\Z/
+      "%s_%s:(%s)" % [@field, :sm, term.gsub(' ', '')]
+    when /\AANY\Z/
+      "%s_%s:(%s)" % [@field, :text, multiple_to_sunspot(@terms, :any)]
+    when /\AALL\Z/
+      "%s_%s:(%s)" % [@field, :text, multiple_to_sunspot(@terms, :all)]
+    else
+      raise QuerySyntaxError
+    end
+  end
+
+  def to_sunspot_match_exact
+    case @relation
+    when /\A=\Z/
+      term = @terms.join(' ')
+      type = @field != 'issn' ? :sm : :s
+      "%s_%s:(%s)" % [@field, type, term]
+    when /\AANY\Z/
+      "%s_%s:(%s)" % [@field, :sm, multiple_to_sunspot(@terms, :any)]
+    else
+      raise QuerySyntaxError
+    end
+  end
+
+  def to_sunspot_match_part
+    case @relation
+    when /\A=\Z/
+      term = @terms.join(' ')
+      "%s_%s:(%s)" % [@field, :text, trim_ahead(term)]
+    when /\AANY\Z/
+      "%s_%s:(%s)" % [@field, :text, multiple_to_sunspot(@terms, :any)]
+    when /\AALL\Z/
+      "%s_%s:(%s)" % [@field, :text, multiple_to_sunspot(@terms, :all)]
+    else
+      raise QuerySyntaxError
+    end
+  end
+
+  def to_sunspot_match_ahead
+    "%s_%s:(%s*)" % [@field, :s, @terms.first]
+  end
+
+  def to_sunspot_match_anywhere
+    case @relation
+    when /\A=\Z/
+      term = @terms.join(' ')
+      "(%s)" % [trim_ahead(term)]
+    when /\AANY\Z/
+      "(%s)" % [multiple_to_sunspot(@terms, :any)]
+    when /\AALL\Z/
+      "(%s)" % [multiple_to_sunspot(@terms, :all)]
+    else
+      raise QuerySyntaxError
+    end
+  end
+
+
+  private
+  def multiple_to_sunspot(terms, relation)
+    boolean = relation == :any ? ' OR ' : ' AND '
+    "#{terms.map{|t| trim_ahead(t)}.join(boolean)}"
+  end
+
+  def trim_ahead(term)
+    term.sub(/\A\^+/,'')
+  end
+end
+
+if $PROGRAM_NAME == __FILE__
+  require 'porta_cql_test'
+end

data/spec/dummy/lib/enju_leaf/sru.rb

@@ -0,0 +1,84 @@
+# -*- encoding: utf-8 -*-
+require 'enju_leaf/porta_cql'
+
+class QueryArgumentError < QueryError; end
+
+class Sru
+  ASC_KEYS = %w(title creator) unless Object.const_defined?(:ASC_KEYS)
+  DESC_KEYS = %w(created_at updated_at date_of_publication) unless Object.const_defined?(:DESC_KEYS)
+  SORT_KEYS = ASC_KEYS + DESC_KEYS unless Object.const_defined?(:SORY_KEYS)
+  MULTI_KEY_MAP = {'title' => 'sort_title'} unless Object.const_defined?(:MULTI_KEY_MAP)
+  def initialize(params)
+    raise QueryArgumentError, 'sru :query is required item.' unless params.has_key?(:query)
+
+    @cql = Cql.new(params[:query])
+    @version = params.has_key?(:version) ? params[:version] : '1.2'
+    @start = params.has_key?(:startRecord) ? params[:startRecord].to_i : 1
+    @maximum = params.has_key?(:maximumRecords) ? params[:maximumRecords].to_i : 200
+    @maximum = 1000 if 1000 < @maximum
+    @packing = params.has_key?(:recordPacking) ? params[:recordPacking] : 'string'
+    @schema = params.has_key?(:recordSchema) ? params[:recordSchema] : 'dc'
+    @sort_key = params[:sortKeys]
+
+    @manifestations = []
+    @extra_response_data = {}
+  end
+
+  attr_reader :version, :cql, :start, :maximum, :packing, :schema, :path, :ascending
+  attr_reader :manifestations, :extra_response_data, :number_of_records, :next_record_position
+
+  def sort_by
+    sort = {:sort_by => 'created_at', :order => 'desc'}
+    unless '1.1' == @version
+      @path, @ascending = @cql.sort_by.split('/')
+    else
+      @path, @ascending = @sort_key.split(',') if @sort_key
+    end
+    #TODO ソート基準が入手しやすさの場合の処理
+    if SORT_KEYS.include?(@path)
+      if MULTI_KEY_MAP.keys.include?(@path)
+        sort[:sort_by] = MULTI_KEY_MAP[@path]
+      else
+        sort[:sort_by] = @path
+      end
+      sort[:order] = 'asc' if ASC_KEYS.include?(@path)
+      case @ascending
+      when /\A(1|ascending)\Z/
+        sort[:order] = 'asc'
+      when /\A(0|descending)\Z/
+        sort[:order] = 'desc'
+      end
+    end
+    sort
+  end
+
+  def search
+    sunspot_query = @cql.to_sunspot
+    search = Sunspot.new_search(Manifestation)
+    search.build do
+      fulltext sunspot_query
+      paginate :page => 1, :per_page => 10000
+    end
+    @manifestations = search.execute!.results
+    @extra_response_data = get_extra_response_data
+    @number_of_records, @next_record_position = get_number_of_records
+
+    @manifestations
+  end
+
+  def get_extra_response_data
+    #TODO: NDL で必要な項目が決定し、更に enju にそのフィールドが設けられた後で正式な実装を行なう。
+    if @search.respond_to?(:erd)
+      @schema == 'dc' ? @search.erd : {}
+    end
+  end
+
+  def get_number_of_records
+    #TODO: sunspot での取得方法が分かり次第、正式な実装を行なう。
+    @schema == 'dc' ? [1405, 1406] : [40,11]
+  end
+end
+
+if $PROGRAM_NAME == __FILE__
+  require 'sru_test'
+end

data/spec/dummy/lib/enju_leaf.rb

@@ -0,0 +1,12 @@
+require 'plugins'
+require 'enju_leaf/sru'
+require 'enju_leaf/openurl'
+require 'enju_leaf/calculate_stat'
+require 'enju_leaf/localized_name'
+require 'enju_library'
+require 'enju_circulation'
+require 'enju_inventory'
+require 'enju_bookmark'
+require 'enju_event'
+require 'enju_manifestation_viewer'
+require 'enju_book_jacket'

data/spec/dummy/lib/plugins/ext/event-calendar.rb

@@ -0,0 +1,38 @@
+module EventCalendar
+  module CalendarHelper
+    private
+
+    # calculate the height of each row
+    # by default, it will be the height option minus the day names height,
+    # divided by the total number of calendar rows
+    # this gets tricky, however, if there are too many event rows to fit into the row's height
+    # then we need to add additional height
+    def cal_row_heights(options)
+      # number of rows is the number of days in the event strips divided by 7
+      num_cal_rows = (options[:event_strips].first.size / 7).to_i
+      # the row will be at least this big
+      min_height = ((options[:height] - options[:day_names_height]) / num_cal_rows).to_i
+      row_heights = []
+      num_event_rows = 0
+      # for every day in the event strip...
+      1.upto(options[:event_strips].first.size+1) do |index|
+        num_events = 0
+        # get the largest event strip that has an event on this day
+        options[:event_strips].each_with_index do |strip, strip_num|
+          num_events = strip_num + 1 unless strip[index-1].blank?
+        end
+        # get the most event rows for this week
+        num_event_rows = [num_event_rows, num_events].max
+        # if we reached the end of the week, calculate this row's height
+        if index % 7 == 0
+          total_event_height = options[:event_height] + options[:event_margin]
+          calc_row_height = (num_event_rows * total_event_height) + options[:day_nums_height] + options[:event_margin]
+          row_height = [min_height, calc_row_height].max
+          row_heights << row_height
+          num_event_rows = 0
+        end
+      end
+      row_heights
+    end
+  end
+end

data/spec/dummy/lib/plugins/ext/sunspot/abstract_search.rb

@@ -0,0 +1,12 @@
+module Sunspot
+  module Search #:nodoc:
+    class AbstractSearch
+      def execute
+        reset
+        params = @query.to_params
+        @solr_result = @connection.post "#{request_handler}", :data => params, :headers => {'Content-Type' => 'application/x-www-form-urlencoded; charset=UTF-8'}
+        self
+      end
+    end
+  end
+end

data/spec/dummy/lib/plugins/ext/sunspot/dismax.rb

@@ -0,0 +1,41 @@
+module Sunspot
+  module Query
+    class Dismax
+      def to_params
+        params = { :q => @keywords }
+        params[:fl] = '* score'
+        params[:qf] = @fulltext_fields.values.map { |field| field.to_boosted_field }.join(' ')
+        params[:defType] = 'edismax'
+        if @phrase_fields
+          params[:pf] = @phrase_fields.map { |field| field.to_boosted_field }.join(' ')
+        end
+        unless @boost_queries.empty?
+          params[:bq] = @boost_queries.map do |boost_query|
+            boost_query.to_boolean_phrase
+          end
+        end
+        unless @boost_functions.empty?
+          params[:bf] = @boost_functions.map do |boost_function|
+            boost_function.to_s
+          end
+        end
+        if @minimum_match
+          params[:mm] = @minimum_match
+        end
+        if @phrase_slop
+          params[:ps] = @phrase_slop
+        end
+        if @query_phrase_slop
+          params[:qs] = @query_phrase_slop
+        end
+        if @tie
+          params[:tie] = @tie
+        end
+        @highlights.each do |highlight|
+          Sunspot::Util.deep_merge!(params, highlight.to_params)
+        end
+        params
+      end
+    end
+  end
+end