enju_biblio 0.3.10.rc.1 → 0.3.12

data/app/views/manifestations/explain.sru

@@ -1,9 +0,0 @@
-<sru:explainResponse xmlns:sru="http://www.loc.gov/zing/srw/">
- <sru:version>1.2</sru:version>
- <sru:record>
-   <sru:recordPacking>XML</sru:recordPacking>
-   <sru:recordSchema>http://explain.z3950.org/dtd/2.1/</sru:recordSchema>
-   <sru:recordData>
-   </sru:recordData>
- </sru:record>
-</sru:explainResponse>

data/app/views/manifestations/index.sru.builder

@@ -1,101 +0,0 @@
-if @sru
-  unless @sru.extra_response_data.empty?
-    @extra_response = true
-    @facets = @sru.extra_response_data[:facets]
-    @dpid = @sru.extra_response_data[:dpid]
-    @webget = @sru.extra_response_data[:webget]
-    @digitalize = @sru.extra_response_data[:digitalize]
-    @porta_type = @sru.extra_response_data[:porta_type]
-    @payment = @sru.extra_response_data[:payment]
-    @ndc = @sru.extra_response_data[:ndc]
-    @date = @sru.extra_response_data[:date]
-  end
-
-  @version = @sru.version
-  @packing = @sru.packing
-  @number_of_records = @manifestations.total_count
-  @next_record_position = @sru.start + @manifestations.limit_value
-end
-
-def search_retrieve_response!(xml)
-  xml.searchRetrieveResponse xmlns: "http://www.loc.gov/zing/srw/" do
-    xml.version @version
-    xml.numberOfRecords @number_of_records
-    extra_response_data!(xml) if @extra_response
-    xml.records do
-      @manifestations.each_with_index do |rec, idx|
-        xml.record do
-          record!(xml, rec, idx + 1)
-        end
-      end
-    end
-    xml.nextRecordPosition @next_record_position
-  end
-end
-
-def extra_response_data!(xml)
-  xml.extraResponseData do
-    xml.facets @facets do
-      lst_tag!(xml, "REPOSITORY_NO", 'dcndl_porta:dpid', @dpid)
-      lst_tag!(xml, "WEBGET_TYPE", 'dcndl_porta:type.Web-get', @webget)
-      lst_tag!(xml, "DIGITALIZE_TYPE", 'dcndl_porta:type.Digitalize', @digitalize)
-      lst_tag!(xml, "PORTA_TYPE", 'dcndl_porta:PORTAType', @porta_type)
-      lst_tag!(xml, "PAYMENT_TYPE", 'dcndl_porta:type.Payment', @payment)
-      lst_tag!(xml, "NDC", 'int', @ndc)
-      lst_tag!(xml, "ISSUED_DATE", 'int', @date)
-    end
-  end
-end
-
-def lst_tag!(xml, lst_name, tag_name, hash)
-  xml.lst name: lst_name do
-    value_sort(hash).each do |item|
-      xml.tag! tag_name, {name: item[0]}, item[1]
-    end
-  end
-end
-
-def record!(xml, rec, position)
-  xml.recordSchema 'info:srw/schema/1/dc-v1.1'
-  xml.recordPacking @packing
-  xml.recordData{|x| x << (/\Axml\Z/io =~ @packing ? get_record(rec) : CGI::escapeHTML(get_record(rec)))}
-  xml.recordPosition position
-end
-
-def get_record(manifestation)
-  xml = Builder::XmlMarkup.new
-  xml.tag! 'srw_dc:dc',
-    'xmlns:dc' => "http://purl.org/dc/elements/1.1/",
-    'xmlns:srw_dc' => "info:srw/schema/1/dc-v1.1",
-    'xmlns:xsi' => "http://www.w3.org/2001/XMLSchema-instance",
-    'xsi:schemaLocation' => "info:srw/schema/1/dc-v1.1 http://www.loc.gov/standards/sru/dc-schema.xsd" do
-    cache([manifestation, fragment: 'index_sru', role: current_user_role_name, locale: @locale]) do
-      xml.tag! 'dc:title', manifestation.original_title
-      manifestation.creators.readable_by(current_user).each do |agent|
-        xml.tag! 'dc:creator', agent.full_name
-      end
-      manifestation.contributors.each do |agent|
-        xml.tag! 'dc:contributor', agent.full_name
-      end
-      manifestation.publishers.each do |agent|
-        xml.tag! 'dc:publisher', agent.full_name
-      end
-      if defined?(EnjuSubject)
-        manifestation.subjects.each do |subject|
-          xml.tag! "dc:subject", subject.term
-        end
-      end
-      xml.tag! 'dc:description', manifestation.description
-    end
-  end
-end
-
-def value_sort(hash)
-  hash.to_a.sort do |a, b|
-    (b[1] <=> a[1]) * 2 + (a[0] <=> b[0])
-  end
-end
-
-xml = Builder::XmlMarkup.new indent: 2
-xml.instruct! directive_tag=:xml, encoding: 'UTF-8'
-search_retrieve_response!(xml)

data/lib/enju_biblio/porta_cql.rb

@@ -1,282 +0,0 @@
-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 == '*'
-      ["pub_date_dm:[#{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.to_s
-      end
-      begin
-        Time.zone.parse(date_text).utc.iso8601.to_s
-      rescue
-        raise QuerySyntaxError, date.to_s
-      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)).to_s
-  end
-
-  def trim_ahead(term)
-    term.sub(/\A\^+/,'')
-  end
-end
-
-if $PROGRAM_NAME == __FILE__
-  require 'porta_cql_test'
-end

data/lib/enju_biblio/sru.rb

@@ -1,83 +0,0 @@
-require 'enju_biblio/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.key?(:query)
-
-    @cql = Cql.new(params[:query])
-    @version = params.key?(:version) ? params[:version] : '1.2'
-    @start = params.key?(:startRecord) ? params[:startRecord].to_i : 1
-    @maximum = params.key?(:maximumRecords) ? params[:maximumRecords].to_i : 200
-    @maximum = 1000 if 1000 < @maximum
-    @packing = params.key?(:recordPacking) ? params[:recordPacking] : 'string'
-    @schema = params.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