rmarc 0.1.1

data/lib/rmarc/model/control_field.rb

@@ -0,0 +1,42 @@
+# $Id: control_field.rb,v 1.3 2005/12/05 19:36:41 bpeters Exp $
+#
+# Copyright (c) 2005 Bas Peters
+#
+# This file is part of RMARC
+# 
+# RMARC is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public 
+# License as published by the Free Software Foundation; either 
+# version 2.1 of the License, or (at your option) any later version.
+# 
+# RMARC is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public 
+# License along with RMARC; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+require 'rmarc/model/variable_field'
+
+module RMARC
+  
+  # Represents a control field in a MARC record.
+  class ControlField < VariableField
+    attr_reader :data
+    
+    attr_writer :data
+    
+    def initialize(tag, data = nil)
+      super(tag)
+      @data = data
+    end
+    
+    # Returns a string representaiton for a conctrol field.
+    def to_s
+      super + "#@data"
+    end
+  end
+  
+end

data/lib/rmarc/model/data_field.rb

@@ -0,0 +1,68 @@
+## $Id: data_field.rb,v 1.3 2005/12/05 19:37:09 bpeters Exp $
+#
+# Copyright (c) 2005 Bas Peters
+#
+# This file is part of RMARC
+# 
+# RMARC is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public 
+# License as published by the Free Software Foundation; either 
+# version 2.1 of the License, or (at your option) any later version.
+# 
+# RMARC is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public 
+# License along with RMARC; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+require 'rmarc/model/variable_field'
+
+module RMARC
+  
+  # Represents a data field in a MARC record. The module Enumerable is 
+  # mixed in to enable searching within subfields using each.
+  class DataField < VariableField
+    include Enumerable
+    
+    attr_reader :ind1, :ind2, :subfields
+    
+    attr_writer :ind1, :ind2, :subfields
+    
+    def initialize(tag, ind1, ind2)
+      super(tag)
+      @ind1 = ind1
+      @ind2 = ind2
+      @subfields = Array.new
+    end
+    
+    # Adds a subfield.
+    def add(subf)
+      @subfields.push(subf)
+    end
+    
+    # Removes a subfield
+    def remove(subf)
+      @subfields.delete(subf)
+    end
+    
+    # Implements Enumarable.each to provide an iterator over all 
+    # subfields.
+    def each
+      for subfield in @subfields
+        yield subfield
+      end
+    end
+    
+    # Returns a string representation of the data field.
+    def to_s
+      a = "" 
+      a << super << @ind1 << @ind2
+      subfields.each { |s| a << s.to_s }
+      return a
+    end
+  end
+  
+end

data/lib/rmarc/model/directory.rb

@@ -0,0 +1,36 @@
+# $Id: directory.rb,v 1.3 2005/12/05 19:36:41 bpeters Exp $
+#
+# Copyright (c) 2005 Bas Peters
+#
+# This file is part of RMARC
+# 
+# RMARC is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public 
+# License as published by the Free Software Foundation; either 
+# version 2.1 of the License, or (at your option) any later version.
+# 
+# RMARC is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public 
+# License along with RMARC; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+module RMARC
+  
+  # Represents a directory in a MARC record.
+  class Directory
+    attr_reader :tag, :length, :start
+    
+    attr_writer  :tag, :length, :start
+    
+    def initialize(tag, length, start)
+      @tag = tag
+      @length = length.to_i
+      @start = start.to_i
+    end
+  end
+  
+end

data/lib/rmarc/model/leader.rb

@@ -0,0 +1,65 @@
+# $Id: leader.rb,v 1.4 2005/12/07 19:50:35 bpeters Exp $
+#
+# Copyright (c) 2005 Bas Peters
+#
+# This file is part of RMARC
+# 
+# RMARC is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public 
+# License as published by the Free Software Foundation; either 
+# version 2.1 of the License, or (at your option) any later version.
+# 
+# RMARC is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public 
+# License along with RMARC; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+module RMARC
+  
+  # Represents a leader or record label in a MARC record.
+  class Leader
+    
+    attr_reader :record_length, :record_status, :record_type, :impl_defined1, :char_coding, :indicator_count, :subfield_code_length, :base_address, :impl_defined2, :entry_map
+    
+    attr_writer :record_length, :record_status, :record_type, :impl_defined1, :char_coding, :indicator_count, :subfield_code_length, :base_address, :impl_defined2, :entry_map
+    
+    def initialize(ldr = nil)
+      if (ldr == nil)
+        @record_length = 0
+        @record_status = "n"
+        @record_type = "a"
+        @impl_defined1 = "m "
+        @char_coding = " "
+        @indicator_count = "2"
+        @subfield_code_length = "2"
+        @base_address = 0
+        @impl_defined2 = "a "
+        @entry_map = "4500"
+      else
+        @record_length = ldr[0,5].to_i
+        @record_status = ldr[5].chr
+        @record_type = ldr[6].chr
+        @impl_defined1 = ldr[7,2].to_s
+        @char_coding = ldr[9].chr
+        @indicator_count = ldr[10].chr
+        @subfield_code_length = ldr[11].chr
+        @base_address = ldr[12,5].to_i
+        @impl_defined2 = ldr[17,3].to_s
+        @entry_map = ldr[20,4].to_s
+      end
+    end
+    
+    # Returns a string representation for a MARC record.
+    def to_s
+    "%05d" % @record_length + 
+    "#@record_status#@record_type#@impl_defined1#@char_coding" +
+    "#@indicator_count#@subfield_code_length" + 
+    "%05d" % @base_address + "#@impl_defined2#@entry_map"
+    end
+  end
+  
+end

data/lib/rmarc/model/record.rb

@@ -0,0 +1,64 @@
+# $Id: record.rb,v 1.3 2005/12/05 19:37:09 bpeters Exp $
+#
+# Copyright (c) 2005 Bas Peters
+#
+# This file is part of RMARC
+# 
+# RMARC is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public 
+# License as published by the Free Software Foundation; either 
+# version 2.1 of the License, or (at your option) any later version.
+# 
+# RMARC is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public 
+# License along with RMARC; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+module RMARC
+  
+  # Represents a MARC record. The module Enumerable is 
+  # mixed in to enable searching within variable fields 
+  # using each.
+  class Record
+    include Enumerable
+    
+    attr_reader :leader, :fields
+    
+    attr_writer :leader, :fields
+    
+    def initialize(leader = nil)
+      @leader = leader
+      @fields = Array.new
+    end
+    
+    # Adds a field.    
+    def add(fld)
+      @fields.push(fld)
+    end
+    
+    # Removes a field.
+    def remove(fld)
+      @fields.delete(fld)
+    end
+    
+    # Implements Enumarable.each to provide an iterator over all 
+    # variable fields.
+    def each
+      for field in @fields
+        yield field
+      end
+    end
+    
+    # Returns a string representation of the record.
+    def to_s
+      a = "Leader: #{@leader.to_s}\n"
+      @fields.each { |f| a << "#{f.to_s}\n" }
+      return a
+    end
+  end
+  
+end

data/lib/rmarc/model/subfield.rb

@@ -0,0 +1,39 @@
+# $Id: subfield.rb,v 1.3 2005/12/05 19:36:41 bpeters Exp $
+#
+# Copyright (c) 2005 Bas Peters
+#
+# This file is part of RMARC
+# 
+# RMARC is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public 
+# License as published by the Free Software Foundation; either 
+# version 2.1 of the License, or (at your option) any later version.
+# 
+# RMARC is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public 
+# License along with RMARC; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+module RMARC
+  
+  # Represents a subfield in a MARC record.
+  class Subfield 
+    attr_reader :code, :data
+    
+    attr_writer :code, :data
+    
+    def initialize(code, data = nil)
+      @code = code
+      @data = data
+    end
+    
+    def to_s
+    "$#@code#@data"
+    end
+  end
+  
+end

data/lib/rmarc/model/variable_field.rb

@@ -0,0 +1,38 @@
+# $Id: variable_field.rb,v 1.3 2005/12/05 19:36:41 bpeters Exp $
+#
+# Copyright (c) 2005 Bas Peters
+#
+# This file is part of RMARC
+# 
+# RMARC is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public 
+# License as published by the Free Software Foundation; either 
+# version 2.1 of the License, or (at your option) any later version.
+# 
+# RMARC is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public 
+# License along with RMARC; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+module RMARC
+  
+  # Represents a variable field in a MARC record.
+  class VariableField
+    attr_reader :tag
+    
+    attr_writer :tag
+    
+    def initialize(tag)
+      @tag = tag
+    end
+    
+    def to_s
+    "#@tag "
+    end
+  end
+  
+end

data/test/chabon.mrc

@@ -0,0 +1 @@
+00759cam a2200229 a 45000010009000000050017000090080041000260200033000670400018001001000021001182450078001392600038002173000021002556500052002766500035003286500030003636510030003936500024004236500026004476550029004736550027005021193987620041229190604.0000313s2000    nyu           000 1 eng    a0679450041 (acid-free paper)  aDLCcDLCdDLC1 aChabon, Michael.14aThe amazing adventures of Kavalier and Clay :ba novel /cMichael Chabon.  aNew York :bRandom House,cc2000.  a639 p. ;c25 cm. 0aComic books, strips, etc.xAuthorshipvFiction. 0aHeroes in mass mediavFiction. 0aCzech AmericansvFiction. 0aNew York (N.Y.)vFiction. 0aYoung menvFiction. 0aCartoonistsvFiction. 7aHumorous stories.2gsafd 7aBildungsromane.2gsafd00714cam a2200205 a 45000010009000000050017000090080041000260200015000670200022000820400018001041000021001222450034001432500012001772600067001893000021002565200175002776500013004526500023004656500020004881288337620030616111422.0020805s2002    nyu    j      000 1 eng    a0786808772  a0786816155 (pbk.)  aDLCcDLCdDLC1 aChabon, Michael.10aSummerland /cMichael Chabon.  a1st ed.  aNew York :bMiramax Books/Hyperion Books for Children,cc2002.  a500 p. ;c22 cm.  aEthan Feld, the worst baseball player in the history of the game, finds himself recruited by a 100-year-old scout to help a band of fairies triumph over an ancient enemy. 1aFantasy. 1aBaseballvFiction. 1aMagicvFiction.

data/test/chabon.xml

@@ -0,0 +1,116 @@
+<?xml version="1.0" encoding="UTF-8"?><collection xmlns="http://www.loc.gov/MARC21/slim">
+  <record>
+    <leader>00759cam a2200229 a 4500</leader>
+    <controlfield tag="001">11939876</controlfield>
+    <controlfield tag="005">20041229190604.0</controlfield>
+    <controlfield tag="008">000313s2000    nyu           000 1 eng  </controlfield>
+    <datafield tag="020" ind1=" " ind2=" ">
+      <subfield code="a">0679450041 (acid-free paper)</subfield>
+    </datafield>
+    <datafield tag="040" ind1=" " ind2=" ">
+      <subfield code="a">DLC</subfield>
+      <subfield code="c">DLC</subfield>
+      <subfield code="d">DLC</subfield>
+    </datafield>
+    <datafield tag="100" ind1="1" ind2=" ">
+      <subfield code="a">Chabon, Michael.</subfield>
+    </datafield>
+    <datafield tag="245" ind1="1" ind2="4">
+      <subfield code="a">The amazing adventures of Kavalier and Clay :</subfield>
+      <subfield code="b">a novel /</subfield>
+      <subfield code="c">Michael Chabon.</subfield>
+    </datafield>
+    <datafield tag="260" ind1=" " ind2=" ">
+      <subfield code="a">New York :</subfield>
+      <subfield code="b">Random House,</subfield>
+      <subfield code="c">c2000.</subfield>
+    </datafield>
+    <datafield tag="300" ind1=" " ind2=" ">
+      <subfield code="a">639 p. ;</subfield>
+      <subfield code="c">25 cm.</subfield>
+    </datafield>
+    <datafield tag="650" ind1=" " ind2="0">
+      <subfield code="a">Comic books, strips, etc.</subfield>
+      <subfield code="x">Authorship</subfield>
+      <subfield code="v">Fiction.</subfield>
+    </datafield>
+    <datafield tag="650" ind1=" " ind2="0">
+      <subfield code="a">Heroes in mass media</subfield>
+      <subfield code="v">Fiction.</subfield>
+    </datafield>
+    <datafield tag="650" ind1=" " ind2="0">
+      <subfield code="a">Czech Americans</subfield>
+      <subfield code="v">Fiction.</subfield>
+    </datafield>
+    <datafield tag="651" ind1=" " ind2="0">
+      <subfield code="a">New York (N.Y.)</subfield>
+      <subfield code="v">Fiction.</subfield>
+    </datafield>
+    <datafield tag="650" ind1=" " ind2="0">
+      <subfield code="a">Young men</subfield>
+      <subfield code="v">Fiction.</subfield>
+    </datafield>
+    <datafield tag="650" ind1=" " ind2="0">
+      <subfield code="a">Cartoonists</subfield>
+      <subfield code="v">Fiction.</subfield>
+    </datafield>
+    <datafield tag="655" ind1=" " ind2="7">
+      <subfield code="a">Humorous stories.</subfield>
+      <subfield code="2">gsafd</subfield>
+    </datafield>
+    <datafield tag="655" ind1=" " ind2="7">
+      <subfield code="a">Bildungsromane.</subfield>
+      <subfield code="2">gsafd</subfield>
+    </datafield>
+  </record>
+  <record>
+    <leader>00714cam a2200205 a 4500</leader>
+    <controlfield tag="001">12883376</controlfield>
+    <controlfield tag="005">20030616111422.0</controlfield>
+    <controlfield tag="008">020805s2002    nyu    j      000 1 eng  </controlfield>
+    <datafield tag="020" ind1=" " ind2=" ">
+      <subfield code="a">0786808772</subfield>
+    </datafield>
+    <datafield tag="020" ind1=" " ind2=" ">
+      <subfield code="a">0786816155 (pbk.)</subfield>
+    </datafield>
+    <datafield tag="040" ind1=" " ind2=" ">
+      <subfield code="a">DLC</subfield>
+      <subfield code="c">DLC</subfield>
+      <subfield code="d">DLC</subfield>
+    </datafield>
+    <datafield tag="100" ind1="1" ind2=" ">
+      <subfield code="a">Chabon, Michael.</subfield>
+    </datafield>
+    <datafield tag="245" ind1="1" ind2="0">
+      <subfield code="a">Summerland /</subfield>
+      <subfield code="c">Michael Chabon.</subfield>
+    </datafield>
+    <datafield tag="250" ind1=" " ind2=" ">
+      <subfield code="a">1st ed.</subfield>
+    </datafield>
+    <datafield tag="260" ind1=" " ind2=" ">
+      <subfield code="a">New York :</subfield>
+      <subfield code="b">Miramax Books/Hyperion Books for Children,</subfield>
+      <subfield code="c">c2002.</subfield>
+    </datafield>
+    <datafield tag="300" ind1=" " ind2=" ">
+      <subfield code="a">500 p. ;</subfield>
+      <subfield code="c">22 cm.</subfield>
+    </datafield>
+    <datafield tag="520" ind1=" " ind2=" ">
+      <subfield code="a">Ethan Feld, the worst baseball player in the history of the game, finds himself recruited by a 100-year-old scout to help a band of fairies triumph over an ancient enemy.</subfield>
+    </datafield>
+    <datafield tag="650" ind1=" " ind2="1">
+      <subfield code="a">Fantasy.</subfield>
+    </datafield>
+    <datafield tag="650" ind1=" " ind2="1">
+      <subfield code="a">Baseball</subfield>
+      <subfield code="v">Fiction.</subfield>
+    </datafield>
+    <datafield tag="650" ind1=" " ind2="1">
+      <subfield code="a">Magic</subfield>
+      <subfield code="v">Fiction.</subfield>
+    </datafield>
+  </record>
+</collection>