marc 0.0.2

data/lib/marc/control.rb

@@ -0,0 +1,36 @@
+module MARC
+
+    # A class for representing fields with a tag less than 010.
+    # Ordinary MARC::Field objects are for fields with tags >= 010
+    # which have indicators and subfields.
+
+    class Control
+
+        # the tag value (007, 008, etc)
+        attr_accessor :tag
+
+        # the value of the control field
+        attr_accessor :value
+
+        # The constructor which must be passed a tag value and 
+        # an optional value for the field.
+
+        def initialize(tag,value='')
+            @tag = tag
+            @value = value
+            if tag.to_i > 9 
+                raise MARC::Exception.new(), "tag must be greater than 009"
+            end
+        end
+
+        def to_s
+            return "#{tag} #{value}" 
+        end
+
+        def =~(regex)
+            return self.to_s =~ regex
+        end
+
+    end
+
+end

data/lib/marc/exception.rb

@@ -0,0 +1,9 @@
+module MARC
+
+    # basic exception class for exceptions that
+    # can occur during MARC processing.
+
+    class Exception < RuntimeError
+    end
+
+end

data/lib/marc/field.rb

@@ -0,0 +1,141 @@
+require 'marc/subfield'
+require 'marc/record'
+
+module MARC
+
+    # MARC records are made up of fields, each of which has a tag, 
+    # indicators and subfields. If the tag is between 000-009 it is 
+    # known as a control field, and actually does not have any 
+    # indicators.
+
+    class Field
+        include Enumerable
+
+        # The tag for the field
+        attr_accessor :tag
+
+        # The first indicator
+        attr_accessor :indicator1
+
+        # The second indicator
+        attr_accessor :indicator2
+
+        # A list of MARC::Subfield objects
+        attr_accessor :subfields
+
+
+        # Create a new field with tag, indicators and subfields.
+        # Subfields are passed in as comma separated list of 
+        # MARC::Subfield objects, 
+        # 
+        #     field = MARC::Field.new('245','0','0',
+        #         MARC::Subfield.new('a', 'Consilience :'),
+        #         MARC::Subfield.new('b', 'the unity of knowledge ',
+        #         MARC::Subfield.new('c', 'by Edward O. Wilson.'))
+        # 
+        # or using a shorthand:
+        # 
+        #     field = MARC::Field.new('245','0','0',
+        #         ['a', 'Consilience :'],['b','the unity of knowledge ',
+        #         ['c', 'by Edward O. Wilson.'] )
+
+        def initialize(tag, i1=nil, i2=nil, *subfields)
+            @tag = tag 
+            @indicator1 = i1
+            @indicator2 = i2
+            @subfields = []
+
+            # must use MARC::ControlField for tags < 010
+            if @tag.to_i < 10
+                raise MARC::Exception.new(),
+                    "MARC::Field objects can't have tags < 010"
+            end
+
+            # allows MARC::Subfield objects to be passed directly
+            # or a shorthand of ['a','Foo'], ['b','Bar']
+            subfields.each do |subfield| 
+                case subfield
+                when MARC::Subfield
+                    @subfields.push(subfield)
+                when Array
+                    if subfield.length > 2
+                        raise MARC::Exception.new(),
+                            "arrays must only have 2 elements" 
+                    end
+                    @subfields.push(
+                        MARC::Subfield.new(subfield[0],subfield[1]))
+                else 
+                    raise MARC::Exception.new(), 
+                        "invalid subfield type #{subfield.class}"
+                end
+            end
+        end
+
+
+        # Returns a string representation of the field such as:
+        #  245 00 $aConsilience :$bthe unity of knowledge $cby Edward O. Wilson.
+
+        def to_s
+            str = "#{tag} "
+            str += "#{indicator1}#{indicator2} " 
+            @subfields.each { |subfield| str += subfield.to_s }
+            return str
+        end
+
+
+        # Add a subfield (MARC::Subfield) to the field
+        #      field.append(MARC::Subfield('a','Dave Thomas'))
+
+        def append(subfield)
+            @subfields.push(subfield)
+        end
+
+
+        # You can iterate through the subfields in a Field:
+        #     field.each {|s| print s}
+
+        def each
+            for subfield in subfields
+                yield subfield
+            end
+        end
+
+
+        # You can lookup subfields with this shorthand. Note it 
+        # will return a string and not a MARC::Subfield object.
+        #     subfield = field['a']
+        
+        def [](code)
+            subfield = self.find {|s| s.code == code}
+            return subfield.value if subfield
+            return
+        end
+
+
+        # Two fields are equal if their tag, indicators and 
+        # subfields are all equal.
+
+        def ==(other)
+            if @tag != other.tag
+                return false 
+            elsif @indicator1 != other.indicator1
+                return false 
+            elsif @indicator2 != other.indicator2
+                return false 
+            elsif @subfields != other.subfields
+                return false
+            end
+            return true
+        end
+
+
+        # To support regex matching with fields
+        #
+        #     if field =~ /Huckleberry/ ...
+
+        def =~(regex)
+            return self.to_s =~ regex
+        end
+
+    end
+end

data/lib/marc/marc21.rb

@@ -0,0 +1,132 @@
+module MARC
+
+    # Provides methods for serializing and deserializing MARC::Record
+    # objects as MARC21 in transmission format.
+
+    class MARC21
+
+        LEADER_LENGTH = 24
+        DIRECTORY_ENTRY_LENGTH = 12
+        SUBFIELD_INDICATOR = 0x1F.chr
+        END_OF_FIELD = 0x1E.chr
+        END_OF_RECORD = 0x1D.chr
+
+
+        # Returns the MARC21 serialization for a MARC::Record 
+
+        def encode(record)
+            directory = ''
+            fields = ''
+            offset = 0
+            for field in record.fields
+
+                # encode the field
+                field_data = ''
+                if field.class == MARC::Field
+                    field_data = field.indicator1 + field.indicator2 
+                    for s in field.subfields
+                        field_data += SUBFIELD_INDICATOR + s.code + s.value
+                    end
+                elsif field.class == MARC::Control
+                    field_data = field.value
+                end
+                field_data += END_OF_FIELD
+
+                # calculate directory entry for the field
+                field_length = field_data.length()
+                directory += sprintf("%03s%04i%05i", field.tag, field_length, 
+                    offset)
+
+                # add field to data for other fields
+                fields += field_data 
+
+                # update offset for next field
+                offset += field_length
+            end
+
+            # determine the base (leader + directory)
+            base = record.leader + directory + END_OF_FIELD
+
+            # determine complete record
+            marc = base + fields + END_OF_RECORD
+
+            # update leader with the byte offest to the end of the directory
+            marc[12..16] = sprintf("%05i", base.length())
+
+            # update the record length
+            marc[0..4] = sprintf("%05i", marc.length())
+            
+            # store updated leader in the record that was passed in
+            record.leader = marc[0..LEADER_LENGTH]
+
+            # return encoded marc
+            return marc 
+        end
+
+
+        # Deserializes MARC21 as a MARC::Record object
+
+        def decode(marc)
+            record = Record.new()
+            record.leader = marc[0..LEADER_LENGTH]
+
+            # where the field data starts
+            base_address = record.leader[12..16].to_i
+
+            # get the byte offsets from the record directory
+            directory = marc[LEADER_LENGTH..base_address-1]
+
+            # the number of fields in the record corresponds to 
+            # how many directory entries there are
+            num_fields = directory.length / DIRECTORY_ENTRY_LENGTH
+
+            0.upto(num_fields-1) do |field_num|
+
+                # pull the directory entry for a field out
+                entry_start = field_num * DIRECTORY_ENTRY_LENGTH
+                entry_end = entry_start + DIRECTORY_ENTRY_LENGTH
+                entry = directory[entry_start..entry_end]
+                
+                # extract the tag, length and offset for pulling the
+                # field out of the field portion
+                tag = entry[0..2]
+                length = entry[3..6].to_i
+                offset = entry[7..11].to_i
+                field_start = base_address + offset
+                field_end = field_start + length - 1
+                field_data = marc[field_start..field_end]
+
+                # remove end of field
+                field_data.delete!(END_OF_FIELD)
+               
+                # add a control field or variable field
+                if tag < '010'
+                    record.append(MARC::Control.new(tag,field_data))
+                else
+                    field = MARC::Field.new(tag)
+
+                    # get all subfields
+                    subfields = field_data.split(SUBFIELD_INDICATOR)
+
+                    # get indicators
+                    indicators = subfields.shift()
+                    field.indicator1 = indicators[0,1]
+                    field.indicator2 = indicators[1,1]
+
+                    # add each subfield to the field
+                    subfields.each() do |data|
+                        subfield = MARC::Subfield.new(data[0,1],data[1..-1])
+                        field.append(subfield)
+                    end
+
+                    # add the field to the record
+                    record.append(field)
+                end
+            end
+
+            return record
+        end
+
+    end
+
+end

data/lib/marc/reader.rb

@@ -0,0 +1,51 @@
+module MARC
+
+    class Reader
+        include Enumerable
+
+        # The constructor which you may pass either a path 
+        #
+        #     reader = MARC::Reader.new('marc.dat')
+        # 
+        # or, if it's more convenient a File object:
+        #
+        #     fh = File.new('marc.dat')
+        #     reader = MARC::Reader.new(fh)
+        #
+        # or really any object that responds to read(n).
+        
+        def initialize(file)
+            if file.class == String:
+                @handle = File.new(file)
+            elsif file.respond_to?("read", 5)
+                @handle = file
+            else
+                throw "must pass in path or file"
+            end
+        end
+
+        # to support iteration:
+        #     for record in reader
+        #         print record
+        #     end
+        #
+        # and even searching:
+        #     record.find { |f| f['245'] =~ /Huckleberry/ }
+
+        def each 
+            # while there is data left in the file
+            while length = @handle.read(5)
+
+                # get the raw MARC21 for a record back from the file
+                # using the record length
+                raw = length + @handle.read(length.to_i-5)
+
+                # create a record from the data and return it
+                record = MARC::Record.new_from_marc(raw)
+                yield record 
+            end
+        end
+
+    end
+
+end

data/lib/marc/record.rb

@@ -0,0 +1,117 @@
+module MARC
+
+    # A class that represents an individual MARC record. Every record
+    # is made up of a collection of MARC::Field objects. 
+
+    class Record
+        include Enumerable
+
+        # the record fields
+        attr_accessor :fields,
+
+        # the record leader
+        :leader
+
+        def initialize
+            @fields = []
+            # leader is 24 bytes
+            @leader = ' ' * 24
+            # leader defaults:
+            # http://www.loc.gov/marc/bibliographic/ecbdldrd.html
+            @leader[10..11] = '22'
+            @leader[20..23] = '4500';        
+        end
+
+        # add a field to the record
+        #     record.append(MARC::Field.new( '100', '2', '0', ['a', 'Fred']))
+
+        def append(field)
+            @fields.push(field)
+        end
+
+        # each() is here to support iterating and searching since MARC::Record
+        # mixes in Enumberable
+        #
+        # iterating through the fields in a record:
+        #     record.each { |f| print f }
+        #
+        # getting the 245
+        #     title = record.find {|f| f.tag == '245'}
+        #
+        # getting all subjects
+        #     subjects = record.find_all {|f| ('600'..'699' === f.tag)}
+
+        def each
+            for field in @fields
+                yield field
+            end
+        end
+
+        # You can lookup fields using this shorthand:
+        #     title = record['245']
+
+        def [](tag)
+            return self.find {|f| f.tag == tag}
+        end
+
+        # Factory method for creating a MARC::Record from MARC21 in 
+        # transmission format. Really this is just a wrapper around
+        # MARC::MARC21::decode
+        #
+        #     record = MARC::Record.new_from_marc(marc21)
+
+
+        def Record::new_from_marc(raw)
+            return MARC::MARC21.new().decode(raw)
+        end
+
+
+        # Handy method for returning a the MARC21 serialization for a 
+        # MARC::Record object. Really this is just a wrapper around
+        # MARC::MARC21::encode
+        # 
+        #     marc = record.to_marc()
+
+        def to_marc 
+            return MARC::MARC21.new().encode(self)
+        end
+
+
+        # Returns a string version of the record, suitable for printing
+
+        def to_s
+            str = "LEADER #{leader}\n"
+            for field in fields:
+                str += field.to_s() + "\n"
+            end
+            return str
+        end
+
+
+        # For testing if two records can be considered equal.
+
+        def ==(other)
+            if @leader != other.leader:
+                return false
+            elsif @fields.length != other.fields.length()
+                return false
+            else 
+                for i in [0..@fields.length()]:
+                    return false if @fields[i] != other.fields[i]
+                end
+            end
+            return true
+        end
+
+
+        # Handy for using a record in a regex:
+        #     if record =~ /Gravity's Rainbow/ then print "Slothrop" end
+
+        def =~(regex)
+            return self.to_s =~ regex 
+        end
+
+    end
+
+end
+

data/lib/marc/subfield.rb

@@ -0,0 +1,25 @@
+module MARC
+
+    class Subfield
+        attr_accessor :code, :value
+
+        def initialize(code,value)
+            @code = code
+            @value = value
+        end
+
+        def ==(other)
+            if @code != other.code
+                return false
+            elsif @value != other.value
+                return false
+            end
+            return true
+        end
+
+        def to_s
+            return "$#{code}#{value}"
+        end
+    end
+
+end

data/lib/marc/writer.rb

@@ -0,0 +1,36 @@
+module MARC
+
+    # A class for writing MARC records as MARC21.
+
+    class Writer
+
+        # the constructor which you must pass a file path
+        # or an object that responds to a write message
+
+        def initialize(file)
+            if file.class == String
+                @fh = File.new(file,"w")
+            elsif file.respond_to?(file)
+                @fh = file
+            else
+                throw "must pass in file name or handle"
+            end
+        end
+
+
+        # write a record to the file or handle
+
+        def write(record)
+            @fh.write(record.to_marc)
+        end
+
+
+        # close underlying filehandle
+
+        def close
+            @fh.close
+        end
+
+    end
+
+end

data/lib/marc.rb

@@ -0,0 +1,8 @@
+require 'marc/record'
+require 'marc/field'
+require 'marc/control'
+require 'marc/subfield'
+require 'marc/reader'
+require 'marc/writer'
+require 'marc/exception'
+require 'marc/marc21'

data/test/batch.dat

@@ -0,0 +1 @@
+00755cam  22002414a 4500001001300000003000600013005001700019008004100036010001700077020004300094040001800137042000800155050002600163082001700189100003100206245005400237260004200291300007200333500003300405650003700438630002500475630001300500fol05731351 IMchF20000613133448.0000107s2000    nyua          001 0 eng    a   00020737   a0471383147 (paper/cd-rom : alk. paper)  aDLCcDLCdDLC  apcc00aQA76.73.P22bM33 200000a005.13/32211 aMartinsson, Tobias,d1976-10aActivePerl with ASP and ADO /cTobias Martinsson.  aNew York :bJohn Wiley & Sons,c2000.  axxi, 289 p. :bill. ;c23 cm. +e1 computer  laser disc (4 3/4 in.)  a"Wiley Computer Publishing." 0aPerl (Computer program language)00aActive server pages.00aActiveX.00647pam  2200241 a 4500001001300000003000600013005001700019008004100036010001700077020001500094040001800109042000800127050002600135082001500161100002600176245006700202260003800269263000900307300001100316650003700327650002500364700001600389fol05754809 IMchF20000601115601.0000203s2000    mau           001 0 eng    a   00022023   a1565926994  aDLCcDLCdDLC  apcc00aQA76.73.P22bD47 200000a005.742211 aDescartes, Alligator.10aProgramming the Perl DBI /cAlligator Descartes and Tim Bunce.  aCmabridge, MA :bO'Reilly,c2000.  a1111  ap. cm. 0aPerl (Computer program language) 0aDatabase management.1 aBunce, Tim.00605cam  22002054a 4500001001300000003000600013005001700019008004100036010001700077040001800094042000800112050002700120082001700147100002100164245005500185260004500240300002600285504005100311650003700362fol05843555 IMchF20000525142739.0000318s1999    cau      b    001 0 eng    a   00501349   aDLCcDLCdDLC  apcc00aQA76.73.P22bB763 199900a005.13/32211 aBrown, Martin C.10aPerl :bprogrammer's reference /cMartin C. Brown.  aBerkeley :bOsborne/McGraw-Hill,cc1999.  axix, 380 p. ;c22 cm.  aIncludes bibliographical references and index. 0aPerl (Computer program language)00579cam  22002054a 4500001001300000003000600013005001700019008004100036010001700077020001500094040001800109042000800127050002700135082001700162100002100179245005500200260004500255300003600300650003700336fol05843579 IMchF20000525142716.0000318s1999    caua          001 0 eng    a   00502116   a0072120002  aDLCcDLCdDLC  apcc00aQA76.73.P22bB762 199900a005.13/32211 aBrown, Martin C.10aPerl :bthe complete reference /cMartin C. Brown.  aBerkeley :bOsborne/McGraw-Hill,cc1999.  axxxv, 1179 p. :bill. ;c24 cm. 0aPerl (Computer program language)00801nam  22002778a 4500001001300000003000600013005001700019008004100036010001700077020001500094040001300109042000800122050002600130082001800156100002000174245008800194250003200282260004100314263000900355300001100364650003700375650003600412650002600448700002500474700002400499fol05848297 IMchF20000524125727.0000518s2000    mau           001 0 eng    a   00041664   a1565924193  aDLCcDLC  apcc00aQA76.73.P22bG84 200000a005.2/7622211 aGuelich, Scott.10aCGI programming with Perl /cScott Guelich, Shishir Gundavaram & Gunther Birznieks.  a2nd ed., expanded & updated  aCambridge, Mass. :bO'Reilly,c2000.  a0006  ap. cm. 0aPerl (Computer program language) 0aCGI (Computer network protocol) 0aInternet programming.1 aGundavaram, Shishir.1 aBirznieks, Gunther.00665nam  22002298a 4500001001300000003000600013005001700019008004100036010001700077020001500094040001300109042000800122050002700130082001700157111005200174245008600226250001200312260004100324263000900365300001100374650005000385fol05865950 IMchF20000615103017.0000612s2000    mau           100 0 eng    a   00055759   a0596000138  aDLCcDLC  apcc00aQA76.73.P22bP475 200000a005.13/32212 aPerl Conference 4.0d(2000 :cMonterey, Calif.)10aProceedings of the Perl Conference 4.0 :bJuly 17-20, 2000, Monterey, California.  a1st ed.  aCambridge, Mass. :bO'Reilly,c2000.  a0006  ap. cm. 0aPerl (Computer program language)vCongresses.00579nam  22002178a 4500001001300000003000600013005001700019008004100036010001700077020001500094040001300109042000800122050002600130082001700156100002800173245006200201260004100263263000900304300001100313650003700324fol05865956 IMchF20000615102948.0000612s2000    mau           000 0 eng    a   00055770   a1565926099  aDLCcDLC  apcc00aQA76.73.P22bB43 200000a005.13/32211 aBlank-Edelman, David N.10aPerl for system administration /cDavid N. Blank-Edelman.  aCambridge, Mass. :bO'Reilly,c2000.  a0006  ap. cm. 0aPerl (Computer program language)00661nam  22002538a 4500001001300000003000600013005001700019008004100036010001700077020001500094040001300109042000800122050002600130082001700156100001700173245006700190250001200257260004100269263000900310300001100319650003700330700002300367700001700390fol05865967 IMchF20000615102611.0000614s2000    mau           000 0 eng    a   00055799   a0596000278  aDLCcDLC  apcc00aQA76.73.P22bW35 200000a005.13/32211 aWall, Larry.10aProgramming Perl /cLarry Wall, Tom Christiansen & Jon Orwant.  a3rd ed.  aCambridge, Mass. :bO'Reilly,c2000.  a0007  ap. cm. 0aPerl (Computer program language)1 aChristiansen, Tom.1 aOrwant, Jon.00603cam  22002054a 4500001001300000003000600013005001700019008004100036010001700077020001500094040001800109042000800127050002600135082001700161100003200178245006000210260005700270300003300327650003700360fol05872355 IMchF20000706095105.0000315s1999    njua          001 0 eng    a   00500678   a013020868X  aDLCcDLCdDLC  apcc00aQA76.73.P22bL69 199900a005.13/32211 aLowe, Vincentq(Vincent D.)10aPerl programmer's interactive workbook /cVincent Lowe.  aUpper Saddle River, NJ :bPrentice Hall PTP,cc1999.  axx, 633 p. :bill. ;c23 cm. 0aPerl (Computer program language)00696nam  22002538a 4500001001300000003000600013005001700019008004100036010001700077020002800094040001300122042000800135050002600143082001700169100002600186245004400212260005100256263000900307300001100316500002000327650003700347650001700384650004100401fol05882032 IMchF20000707091904.0000630s2000    cau           001 0 eng    a   00058174   a0764547291 (alk. paper)  aDLCcDLC  apcc00aQA76.73.P22bF64 200000a005.13/32212 aFoster-Johnson, Eric.10aCross-platform Perl /cEric F. Johnson.  aFoster City, CA :bIDG Books Worldwide,c2000.  a0009  ap. cm.  aIncludes index. 0aPerl (Computer program language) 0aWeb servers. 0aCross-platform software development.

data/test/one.dat

@@ -0,0 +1 @@
+00755cam  22002414a 4500001001300000003000600013005001700019008004100036010001700077020004300094040001800137042000800155050002600163082001700189100003100206245005400237260004200291300007200333500003300405650003700438630002500475630001300500fol05731351 IMchF20000613133448.0000107s2000    nyua          001 0 eng    a   00020737   a0471383147 (paper/cd-rom : alk. paper)  aDLCcDLCdDLC  apcc00aQA76.73.P22bM33 200000a005.13/32211 aMartinsson, Tobias,d1976-10aActivePerl with ASP and ADO /cTobias Martinsson.  aNew York :bJohn Wiley & Sons,c2000.  axxi, 289 p. :bill. ;c23 cm. +e1 computer  laser disc (4 3/4 in.)  a"Wiley Computer Publishing." 0aPerl (Computer program language)00aActive server pages.00aActiveX.

data/test/tc_field.rb

@@ -0,0 +1,81 @@
+require 'test/unit'
+require 'marc'
+
+class TestField < Test::Unit::TestCase
+
+    def test_tag
+        f1 = MARC::Field.new('100')
+        assert_equal('100', f1.tag)
+        f2 = MARC::Field.new(tag='100')
+        assert_equal('100', f2.tag)
+        assert_equal(f1, f2)
+        f3 = MARC::Field.new('245')
+        assert_not_equal(f1, f3)
+    end
+
+    def test_indicators
+        f1 = MARC::Field.new('100', '0', '1')
+        assert_equal('0', f1.indicator1)
+        assert_equal('1', f1.indicator2)
+        f2 = MARC::Field.new(tag='100',i1='0',i2='1')
+        assert_equal('0', f2.indicator1)
+        assert_equal('1', f2.indicator2)
+        assert_equal(f1, f2)
+        f3 = MARC::Field.new(tag='100', i1='1', i2='1')
+        assert_not_equal(f1, f3)
+    end
+
+    def test_subfields
+        f1 = MARC::Field.new('100', '0', '1', 
+            MARC::Subfield.new('a', 'Foo'),
+            MARC::Subfield.new('b', 'Bar') )
+        assert_equal("100 01 $aFoo$bBar", f1.to_s)
+        f2 = MARC::Field.new('100', '0', '1', 
+            MARC::Subfield.new('a', 'Foo'),
+            MARC::Subfield.new('b', 'Bar') )
+        assert_equal(f1,f2)
+        f3 = MARC::Field.new('100', '0', '1', 
+            MARC::Subfield.new('a', 'Foo'),
+            MARC::Subfield.new('b', 'Bez') )
+        assert_not_equal(f1,f3)
+    end
+
+    def test_subfield_shorthand
+        f  = MARC::Field.new('100', '0', '1', ['a', 'Foo'], ['b', 'Bar'])
+        assert_equal('100 01 $aFoo$bBar', f.to_s)
+    end
+            
+
+    def test_iterator
+        field = MARC::Field.new('100','0','1', ['a', 'Foo'],['b', 'Bar'],
+            ['a', 'Bez'])
+        count = 0
+        field.each {|x| count += 1}
+        assert_equal(count,3)
+    end
+    
+    def test_lookup_shorthand
+        f  = MARC::Field.new('100', '0', '1', ['a', 'Foo'], ['b', 'Bar'])
+        assert_equal(f['b'], 'Bar')
+    end
+
+    def test_control
+        control = MARC::Control.new('005','foobarbaz')
+        assert_equal(control.to_s,'005 foobarbaz')
+    end
+
+    def test_field_as_control
+        assert_raise(MARC::Exception) do
+            # can't have a field with a tag < 010
+            field = MARC::Field.new('007') 
+        end
+    end
+
+    def test_control_as_field
+        assert_raise(MARC::Exception) do
+            # can't have a control with a tag > 009
+            f = MARC::Control.new('245')
+        end
+    end
+
+end

data/test/tc_reader.rb

@@ -0,0 +1,31 @@
+require 'test/unit'
+require 'marc'
+
+class ReaderTest < Test::Unit::TestCase
+
+    def test_batch
+        reader = MARC::Reader.new('test/batch.dat')
+        count = 0
+        reader.each { count += 1 }
+        assert_equal(count, 10)
+    end
+
+    def test_search
+        reader = MARC::Reader.new('test/batch.dat')
+        records = reader.find_all { |r| r =~ /Perl/ }
+        assert_equal(records.length,10)
+
+        reader = MARC::Reader.new('test/batch.dat')
+        records = reader.find_all { |r| r['245'] =~ /Perl/ }
+        assert_equal(records.length,10)
+
+        reader = MARC::Reader.new('test/batch.dat')
+        records = reader.find_all { |r| r['245']['a'] =~ /Perl/ }
+        assert_equal(records.length,10)
+
+        reader = MARC::Reader.new('test/batch.dat')
+        records = reader.find_all { |r| r =~ /Foo/ }
+        assert_equal(records.length,0)
+    end
+
+end

data/test/tc_record.rb

@@ -0,0 +1,55 @@
+require 'test/unit'
+require 'marc'
+
+class TestRecord < Test::Unit::TestCase
+
+    def test_constructor
+        r = MARC::Record.new()
+        assert_equal(r.class, MARC::Record)
+    end
+
+    def test_append_field
+        r = get_record()
+        assert_equal(r.fields.length(), 2)
+    end
+
+    def test_iterator
+        r = get_record()
+        count = 0
+        r.each {|f| count += 1}
+        assert_equal(count,2)
+    end
+
+    def test_decode
+        raw = IO.read('test/one.dat')
+        r = MARC::Record::new_from_marc(raw)
+        assert_equal(r.class, MARC::Record)
+        assert_equal(r.leader,'00755cam  22002414a 45000')
+        assert_equal(r.fields.length(), 18)
+        assert_equal(r.find {|f| f.tag == '245'}.to_s,
+            '245 10 $aActivePerl with ASP and ADO /$cTobias Martinsson.')
+    end
+
+    def test_encode
+        r1 = MARC::Record.new()
+        r1.append(MARC::Field.new('100','2','0', ['a','Thomas, Dave']))
+        r1.append(MARC::Field.new('245','0','0', ['a','Pragmatic Programmer']))
+        raw = r1.to_marc()
+        r2 = MARC::Record::new_from_marc(raw)
+        assert_equal(r1, r2)
+    end
+
+    def test_lookup_shorthand
+        r = get_record
+        assert_equal(r['100']['a'], 'Thomas, Dave')
+    end
+
+    def get_record
+        r = MARC::Record.new()
+        r.append(MARC::Field.new('100', '2', '0', ['a', 'Thomas, Dave'])) 
+        r.append(MARC::Field.new('245', '0', '4', ['The Pragmatic Programmer']))
+        return r
+    end
+
+
+end

data/test/tc_subfield.rb

@@ -0,0 +1,18 @@
+require 'test/unit'
+require 'marc/subfield'
+
+class SubfieldTest < Test::Unit::TestCase
+
+    def test_ok
+        s = MARC::Subfield.new('a','foo')
+        assert_equal(s.code,'a')
+        assert_equal(s.value,'foo')
+    end
+
+    def test_equals
+        s1 =MARC::Subfield.new('a','foo')
+        s2 =MARC::Subfield.new('a','foo')
+        assert_equal(s1,s2)
+    end
+
+end

data/test/tc_writer.rb

@@ -0,0 +1,23 @@
+require 'test/unit'
+require 'marc'
+
+class WriterTest < Test::Unit::TestCase
+
+    def test_writer()
+        writer = MARC::Writer.new('test/writer.dat')
+        record = MARC::Record.new()
+        record.append(MARC::Field.new('245', '0', '1', ['a','foo']))
+        writer.write(record)
+        writer.close()
+
+        # read it back to make sure
+        reader = MARC::Reader.new('test/writer.dat')
+        records = reader.entries()
+        assert_equal(records.length(), 1)
+        assert_equal(records[0], record)
+
+        # cleanup
+        File.unlink('test/writer.dat')
+    end
+
+end

data/test/ts_marc.rb

@@ -0,0 +1,12 @@
+#!/usr/bin/env ruby
+
+# local marc library gets tested
+# not already installed one
+$LOAD_PATH.unshift("lib")
+
+require 'test/unit'
+require 'test/tc_subfield'
+require 'test/tc_field'
+require 'test/tc_record'
+require 'test/tc_reader'
+require 'test/tc_writer'

metadata

@@ -0,0 +1,57 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.8.11
+specification_version: 1
+name: marc
+version: !ruby/object:Gem::Version 
+  version: 0.0.2
+date: 2005-10-17 00:00:00 -05:00
+summary: A ruby library for working with Machine Readable Cataloging
+require_paths: 
+  - lib
+email: ehs@pobox.com
+homepage: http://www.textualize.com/marc
+rubyforge_project: 
+description: 
+autorequire: marc
+default_executable: 
+bindir: bin
+has_rdoc: true
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+    - 
+      - ">"
+      - !ruby/object:Gem::Version 
+        version: 0.0.0
+  version: 
+platform: ruby
+signing_key: 
+cert_chain: 
+authors: 
+  - Ed Summers
+files: 
+  - lib/marc
+  - lib/marc.rb
+  - lib/marc/control.rb
+  - lib/marc/exception.rb
+  - lib/marc/field.rb
+  - lib/marc/marc21.rb
+  - lib/marc/reader.rb
+  - lib/marc/record.rb
+  - lib/marc/subfield.rb
+  - lib/marc/writer.rb
+  - test/batch.dat
+  - test/one.dat
+  - test/tc_field.rb
+  - test/tc_reader.rb
+  - test/tc_record.rb
+  - test/tc_subfield.rb
+  - test/tc_writer.rb
+  - test/ts_marc.rb
+test_files: 
+  - test/ts_marc.rb
+rdoc_options: []
+extra_rdoc_files: []
+executables: []
+extensions: []
+requirements: []
+dependencies: []