marc_alephsequential 0.1.0

data/lib/marc_alephsequential/reader.rb

@@ -0,0 +1,54 @@
+require 'marc'
+require 'yell'
+require 'marc_alephsequential/asline_reader'
+require 'marc_alephsequential/asline_group'
+require 'marc_alephsequential/log'
+
+module MARC
+  module AlephSequential
+        
+    class Reader
+
+      include Enumerable
+      include Log
+      
+      attr_reader :lines
+      attr_accessor :current_id
+      
+      def initialize(filename_or_io, opts={})
+        @areader = ASLineReader.new(filename_or_io)
+      end
+      
+      def each
+        
+        unless block_given?
+          return enum_for(:each)
+        end
+        
+        agroup = ASLineGroup.new
+        
+        while @areader.has_next?
+          nextid = @areader.peek.id
+          if nextid != @current_id && @areader.peek.valid_id? 
+            yield agroup.to_record unless agroup.empty?
+            agroup = ASLineGroup.new
+            @current_id = nextid
+          else
+            agroup.add @areader.next
+          end
+        end
+        # yield whatever is left, unless there's nothing left
+        yield agroup.to_record unless agroup.empty?
+      end
+    end
+  end
+end
+      
+        
+      
+      
+      
+      
+      
+      
+      

data/lib/marc_alephsequential/version.rb

@@ -0,0 +1,4 @@
+module MarcAlephsequential
+  # marc_alephsequential version
+  VERSION = "0.1.0"
+end

data/lib/marc_alephsequential.rb

@@ -0,0 +1,9 @@
+require 'marc'
+require 'marc_alephsequential/version'
+require 'marc_alephsequential/error'
+require 'marc_alephsequential/reader'
+
+
+# Need to allow FMT tags as control tags
+
+MARC::ControlField.control_tags << 'FMT'

data/marc_alephsequential.gemspec

@@ -0,0 +1,20 @@
+# -*- encoding: utf-8 -*-
+
+require File.expand_path('../lib/marc_alephsequential/version', __FILE__)
+
+Gem::Specification.new do |gem|
+  gem.name          = "marc_alephsequential"
+  gem.version       = MarcAlephsequential::VERSION
+  gem.summary       = %q{ruby-marc reader for Aleph sequential files}
+  gem.description   = %q{A ruby-marc reader for Aleph sequential files, a MARC serialization supported by Ex Libris' Aleph}
+  gem.license       = "MIT"
+  gem.authors       = ["Bill Dueber"]
+  gem.email         = "bill@dueber.com"
+  gem.homepage      = "https://github.com/billdueber/marc_alephsequential#readme"
+
+  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.require_paths = ['lib']
+
+end

data/spec/asline_group_spec.rb

@@ -0,0 +1,59 @@
+require 'helper'
+require 'marc_alephsequential'
+
+describe "ASLineGroup" do
+  before do
+    @single_lines = File.open('spec/data/single.seq').read.split("\n")
+    @full = MARC::AlephSequential::ASLineGroup.new
+    @single_lines.each_with_index {|l,i| @full.add_string(l,i ) }
+
+  end
+  
+  describe "Create Group" do
+    before do
+      @ag = MARC::AlephSequential::ASLineGroup.new
+    end
+  
+    it "should start empty" do
+      @ag.must_be_empty
+    end
+    
+    it "should read in a valid record" do
+      @ag = MARC::AlephSequential::ASLineGroup.new
+      File.open('spec/data/single.seq').each_with_index {|l,i| @ag.add_string(l,i ) }
+      @ag.size.must_equal 33
+      @ag.leader.must_equal '     nam a22003011  4500'
+      @ag.aslines[0].tag.must_equal '001'
+      @ag.aslines[1].tag.must_equal '003'
+      @ag.aslines[1].type.must_equal :control
+    end
+    
+    it "should deal with embedded newlines" do
+      tinyrec = [
+        "000000794 LDR   L ^^^^^nam^a22003011^^4500",
+        "000000794 001   L 000000794",
+        "000000794 005   L 19880715000000.0",
+        "000000794 1001  L $$aClark, Albert ",
+        "Curtis,$$d1859-1937.",
+        "000000794 24514 L $$aThe descent of manuscripts"
+      ]
+      
+      tinyrec.each_with_index {|l,i| @ag.add_string(l,i) }
+      field = @ag.aslines[2].to_field
+      field.tag.must_equal '100'
+      field['a'].must_equal 'Clark, Albert Curtis,'
+    end
+    
+    it "should produce a good record" do
+      rec = @full.to_record
+      rec['001'].value.must_equal '000000794'
+      rec['998'].value.must_equal '9665'
+    end
+    
+    
+      
+  end
+  
+    
+  
+end

data/spec/asline_spec.rb

@@ -0,0 +1,46 @@
+require 'helper'
+require 'marc_alephsequential'
+
+describe 'ASLine' do
+  before do
+    @leader = '000000794 LDR   L ^^^^^nam^a22003011^^4500'
+    @c1     = '000000794 008   L 880715r19701918enk^^^^^^b^^^|00100^eng^^'
+    @c2     = '000000794 001   L 000000794'
+    @d1     = '000000794 1001  L $$aClark, Albert Curtis,$$d1859-1937.'
+    @d2     = '000000794 60000 L $$aPlato.$$tCritias$$xManuscripts.'
+  end
+  
+  
+  it "correctly parses a leader" do
+    aline = MARC::AlephSequential::ASLine.new(@leader, 1)
+    aline.type.must_equal :leader
+    aline.value.must_equal '     nam a22003011  4500'
+  end
+  
+  it "parses control fields" do
+    aline = MARC::AlephSequential::ASLine.new(@c1, 1)
+    aline.tag.must_equal '008'
+    aline.value.must_equal '880715r19701918enk      b   |00100 eng  '
+  end
+  
+  it "parses datafield basics" do 
+    aline = MARC::AlephSequential::ASLine.new(@d1, 1)
+    aline.tag.must_equal '100'
+    aline.ind1.must_equal '1'
+    aline.ind2.must_equal ' '
+  end
+  
+  it "parses subfields" do
+    aline = MARC::AlephSequential::ASLine.new(@d1, 1)
+    subfields = aline.parse_string_into_subfields(aline.value)
+    subfields[0].code.must_equal 'a'
+    subfields[1].code.must_equal 'd'
+    subfields[0].value.must_equal 'Clark, Albert Curtis,'
+    subfields[1].value.must_equal '1859-1937.'
+    
+  end
+  
+    
+  
+end
+