cpr_adressematch 0.2.0

data/LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2009 Anders Johannsen
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.rdoc

@@ -0,0 +1,17 @@
+= cpr_adressematch
+
+Description goes here.
+
+== Note on Patches/Pull Requests
+ 
+* Fork the project.
+* Make your feature addition or bug fix.
+* Add tests for it. This is important so I don't break it in a
+  future version unintentionally.
+* Commit, do not mess with rakefile, version, or history.
+  (if you want to have your own version, that is fine but bump version in a commit by itself I can ignore when I pull)
+* Send me a pull request. Bonus points for topic branches.
+
+== Copyright
+
+Copyright (c) 2010 Anders Johannsen. See LICENSE for details.

data/Rakefile

@@ -0,0 +1,65 @@
+require 'rubygems'
+require 'rake'
+
+begin
+  require 'jeweler'
+  Jeweler::Tasks.new do |gem|
+    gem.name = "cpr_adressematch"
+    gem.summary = %Q{Interface for generating and parsing the Danish CPR Registry data files}
+    gem.description = %Q{Interface for generating and parsing the Danish CPR Registry data files.
+    Support the 'adressematch' protocol, which can be used to query by name and adress as well as
+    by the personal identifical number (CPR)
+    }
+    gem.email = "anders@johannsen.com"
+    gem.homepage = "http://github.com/andersjo/cpr_adressematch"
+    gem.authors = ["Anders Johannsen"]
+    gem.files = FileList['lib/**/*.rb', 'bin/*', '[A-Z]*', 'test/**/*'].to_a
+    # gem is a Gem::Specification... see http://www.rubygems.org/read/chapter/20 for additional settings
+  end
+  Jeweler::GemcutterTasks.new
+rescue LoadError
+  puts "Jeweler (or a dependency) not available. Install it with: gem install jeweler"
+end
+
+require 'rake/testtask'
+Rake::TestTask.new(:test) do |test|
+  test.libs << 'lib' << 'test'
+  test.pattern = 'test/**/test_*.rb'
+  test.verbose = true
+end
+
+begin
+  require 'rcov/rcovtask'
+  Rcov::RcovTask.new do |test|
+    test.libs << 'test'
+    test.pattern = 'test/**/test_*.rb'
+    test.verbose = true
+  end
+rescue LoadError
+  task :rcov do
+    abort "RCov is not available. In order to run rcov, you must: sudo gem install spicycode-rcov"
+  end
+end
+
+desc "Generate classes from XML definition"
+task :generate do
+  $: << "./lib"
+  require 'cpr_adressematch'
+  require 'cpr/class_generator'
+  g = Cpr::ClassGenerator.new("adressematch", "data/adressematch.xml")
+  g.generate
+end
+
+task :test => :check_dependencies
+
+task :default => :test
+
+require 'rake/rdoctask'
+Rake::RDocTask.new do |rdoc|
+  version = File.exist?('VERSION') ? File.read('VERSION') : ""
+
+  rdoc.rdoc_dir = 'rdoc'
+  rdoc.title = "cpr_adressematch #{version}"
+  rdoc.rdoc_files.include('README*')
+  rdoc.rdoc_files.include('lib/**/*.rb')
+end

data/VERSION

@@ -0,0 +1 @@
+0.2.0

data/lib/cpr/adressematch/req1100.rb

@@ -0,0 +1,29 @@
+# coding: utf-8
+module Cpr::Adressematch
+class Req1100 < Cpr::Row
+	title 'Match tilgangs og engangstransaktion (1100)'
+
+	field 'Inddatatyp', 'A', 0..1, :default => '10'
+	field 'Kundenr', 'N', 2..5
+	field 'Kunderefnr', 'A', 6..20
+	field 'Sortbyte', 'A', 21..21, :default => '4'
+	field 'Matchtyp', 'A', 22..22
+	field 'Pnrsenrmrk', 'A', 23..23, :default => 'P'
+	field 'Matchnvn', 'A', 24..73
+	field 'Suplnvn', 'A', 74..123
+	field 'Formelnvn', 'A', 124..173
+	field 'Efternvn', 'A', 174..213
+	field 'Komkod', 'N', 214..217
+	field 'Postnr', 'N', 218..221
+	field 'Vejkod', 'N', 222..225
+	field 'Vejnvn', 'A', 226..265
+	field 'Klaradr', 'A', 266..333
+	field 'Husnummer', 'A', 334..336
+	field 'Husbogstav', 'A', 337..337
+	field 'Etage', 'A', 338..339
+	field 'Sidedoer', 'A', 340..343
+	field 'Bynvn', 'A', 344..377
+	field 'Koen', 'A', 378..378
+	field 'Foeddto', 'N', 379..386
+end
+end

data/lib/cpr/adressematch/req1200.rb

@@ -0,0 +1,20 @@
+# coding: utf-8
+module Cpr::Adressematch
+class Req1200 < Cpr::Row
+	title 'Vejtransaktion (1200)'
+
+	field 'Inddatatyp', 'A', 0..1, :default => '10'
+	field 'Kundenr', 'N', 2..5
+	field 'Kunderefnr', 'A', 6..20
+	field 'Sortbyte', 'A', 21..21, :default => '4'
+	field 'Matchtyp', 'A', 22..22
+	field 'Postnr', 'N', 23..26
+	field 'Vejnvn', 'A', 27..66
+	field 'Klaradr', 'A', 67..134
+	field 'Husnummer', 'A', 135..137
+	field 'Husbogstav', 'A', 138..138
+	field 'Etage', 'A', 139..140
+	field 'Sidedoer', 'A', 141..144
+	field 'Bynvn', 'A', 145..178
+end
+end

data/lib/cpr/adressematch/req1300.rb

@@ -0,0 +1,13 @@
+# coding: utf-8
+module Cpr::Adressematch
+class Req1300 < Cpr::Row
+	title 'Rekvisitioner og slettetransaktioner til abonnement (1300)'
+
+	field 'Inddatatyp', 'A', 0..1, :default => '10'
+	field 'Kundenr', 'N', 2..5
+	field 'Kunderefnr', 'A', 6..20
+	field 'Sortbyte', 'A', 21..21
+	field 'Matchtyp', 'A', 22..22
+	field 'Pnrsenrmrk', 'A', 23..23
+end
+end

data/lib/cpr/adressematch/req1400.rb

@@ -0,0 +1,14 @@
+# coding: utf-8
+module Cpr::Adressematch
+class Req1400 < Cpr::Row
+	title 'Ændringstransaktioner til abonnement (1400)'
+
+	field 'Inddatatyp', 'A', 0..1, :default => '10'
+	field 'Kundenr', 'N', 2..5
+	field 'Kunderefnr', 'A', 6..20
+	field 'Sortbyte', 'A', 21..21, :default => '2'
+	field 'Matchtyp', 'A', 22..22
+	field 'Pnrsenrmrk', 'A', 23..23
+	field 'Kunderefnrgl', 'A', 24..38
+end
+end

data/lib/cpr/adressematch/resp000.rb

@@ -0,0 +1,12 @@
+# coding: utf-8
+module Cpr::Adressematch
+class Resp000 < Cpr::Row
+	title 'Startrecord (000)'
+
+	field 'Recordtype', 'N', 0..2, :default => '0'
+	field 'Sortfelt', 'A', 3..25
+	field 'Opgavenr', 'N', 26..31
+	field 'Proddto', 'N', 32..39
+	field 'Proddtoforrig', 'N', 40..47
+end
+end

data/lib/cpr/adressematch/resp001.rb

@@ -0,0 +1,33 @@
+# coding: utf-8
+module Cpr::Adressematch
+class Resp001 < Cpr::Row
+	title 'Aktuelle data (001)'
+
+	field 'Recordtype', 'N', 0..2, :default => '1'
+	field 'Kunderefnr', 'A', 3..17
+	field 'Proddto', 'N', 18..25
+	field 'Pnrsenrmrk', 'A', 26..26
+	field 'Matchtyp', 'A', 27..27
+	field 'Statushaenstart', 'N', 28..39
+	field 'Status', 'N', 40..41
+	field 'Nvnadrbeskhaenstart', 'N', 42..53
+	field 'Adrnvn', 'A', 54..87
+	field 'Tilflydto', 'N', 88..99
+	field 'Convn', 'A', 100..133
+	field 'Lokalitet', 'A', 134..167
+	field 'Standardadr', 'A', 168..201
+	field 'Bynvn', 'A', 202..235
+	field 'Postnr', 'N', 236..239
+	field 'Postdisttxt', 'A', 240..259
+	field 'Komkod', 'N', 260..263
+	field 'Vejkod', 'N', 264..267
+	field 'Husnr', 'A', 268..271
+	field 'Etage', 'A', 272..273
+	field 'Sidedoer', 'A', 274..277
+	field 'BNR', 'A', 278..281
+	field 'Formelnvn', 'A', 282..331
+	field 'Efternvn', 'A', 332..371
+	field 'Vejadrnvn', 'A', 372..391
+	field 'Rekbeskhaenstart', 'N', 392..403
+end
+end

data/lib/cpr/adressematch/resp001a.rb

@@ -0,0 +1,10 @@
+# coding: utf-8
+module Cpr::Adressematch
+class Resp001A < Cpr::Row
+	title 'Aktuelle data for reklamebeskyttelsesudtræk (001A)'
+
+	field 'Recordtype', 'N', 0..2, :default => '1'
+	field 'Kunderefnr', 'A', 3..17
+	field 'Rekmrk', 'N', 18..18
+end
+end

data/lib/cpr/adressematch/resp002.rb

@@ -0,0 +1,17 @@
+# coding: utf-8
+module Cpr::Adressematch
+class Resp002 < Cpr::Row
+	title 'Udlandsadresse (for udrejste personer) (002)'
+
+	field 'Recordtype', 'N', 0..2, :default => '2'
+	field 'Kunderefnr', 'A', 3..17
+	field 'Proddto', 'N', 18..25
+	field 'Pnrsenrmrk', 'A', 26..26
+	field 'Udlandadr1', 'A', 27..60
+	field 'Udlandadr2', 'A', 61..94
+	field 'Udlandadr3', 'A', 95..128
+	field 'Udlandadr4', 'A', 129..162
+	field 'Udlandadr5', 'A', 163..196
+	field 'Udlandadrdto', 'N', 197..208
+end
+end

data/lib/cpr/adressematch/resp003.rb

@@ -0,0 +1,17 @@
+# coding: utf-8
+module Cpr::Adressematch
+class Resp003 < Cpr::Row
+	title 'Kontaktadresse (kontaktperson ved udrejse/forsvinding/død) (003)'
+
+	field 'Recordtype', 'N', 0..2, :default => '3'
+	field 'Kunderefnr', 'A', 3..17
+	field 'Proddto', 'N', 18..25
+	field 'Pnrsenrmrk', 'A', 26..26
+	field 'Kontaktadr1', 'A', 27..60
+	field 'Kontaktadr2', 'A', 61..94
+	field 'Kontaktadr3', 'A', 95..128
+	field 'Kontaktadr4', 'A', 129..162
+	field 'Kontaktadr5', 'A', 163..196
+	field 'Kontaktadrdato', 'N', 197..208
+end
+end

data/lib/cpr/adressematch/resp004.rb

@@ -0,0 +1,13 @@
+# coding: utf-8
+module Cpr::Adressematch
+class Resp004 < Cpr::Row
+	title 'Civilstand (004)'
+
+	field 'Recordtype', 'N', 0..2, :default => '4'
+	field 'Kunderefnr', 'A', 3..17
+	field 'Proddto', 'N', 18..25
+	field 'Pnrsenrmrk', 'A', 26..26
+	field 'Civst', 'A', 27..27
+	field 'Haenstart-ctciv', 'N', 28..39
+end
+end

data/lib/cpr/adressematch/resp005.rb

@@ -0,0 +1,18 @@
+# coding: utf-8
+module Cpr::Adressematch
+class Resp005 < Cpr::Row
+	title 'Værgemål (005)'
+
+	field 'Recordtype', 'N', 0..2, :default => '5'
+	field 'Kunderefnr', 'A', 3..17
+	field 'Proddto', 'N', 18..25
+	field 'Pnrsenrmrk', 'A', 26..26
+	field 'Umynmyn haenstart', 'N', 27..38
+	field 'Værgeadrnvn/adressat', 'A', 39..72
+	field 'Værgeadressetxt-linie1', 'A', 73..106
+	field 'Værgeadressetxt-linie2', 'A', 107..140
+	field 'Værgeadressetxt-linie3', 'A', 141..174
+	field 'Værgeadressetxt-linie4', 'A', 175..208
+	field 'Værgeadressetxt-linie5', 'A', 209..242
+end
+end

data/lib/cpr/adressematch/resp010.rb

@@ -0,0 +1,11 @@
+# coding: utf-8
+module Cpr::Adressematch
+class Resp010 < Cpr::Row
+	title 'Kvittering for sletning (010)'
+
+	field 'Recordtype', 'N', 0..2, :default => '10'
+	field 'Kunderefnr', 'A', 3..17
+	field 'Proddto', 'N', 18..25
+	field 'Pnrsenrmrk', 'A', 26..26
+end
+end

data/lib/cpr/adressematch/resp011.rb

@@ -0,0 +1,16 @@
+# coding: utf-8
+module Cpr::Adressematch
+class Resp011 < Cpr::Row
+	title 'Andre kundereferencenumre (011)'
+
+	field 'Recordtype', 'N', 0..2, :default => '11'
+	field 'Kunderefnr', 'A', 3..17
+	field 'Proddto', 'N', 18..25
+	field 'Pnrsenrmrk', 'A', 26..26
+	field 'Kunderefnrandet-1', 'A', 27..41
+	field 'Kunderefnrandet-2', 'A', 42..56
+	field 'Kunderefnrandet-3', 'A', 57..71
+	field 'Kunderefnrandet-4', 'A', 72..86
+	field 'Kunderefnrandet-5', 'A', 87..101
+end
+end

data/lib/cpr/adressematch/resp012.rb

@@ -0,0 +1,12 @@
+# coding: utf-8
+module Cpr::Adressematch
+class Resp012 < Cpr::Row
+	title 'Personnummer abonnement (012)'
+
+	field 'Recordtype', 'N', 0..2, :default => '12'
+	field 'Kunderefnr', 'A', 3..17
+	field 'Proddto', 'N', 18..25
+	field 'Pnrsenrmrk', 'A', 26..26
+	field 'Pnr', 'A', 27..36
+end
+end

data/lib/cpr/adressematch/resp013.rb

@@ -0,0 +1,15 @@
+# coding: utf-8
+module Cpr::Adressematch
+class Resp013 < Cpr::Row
+	title 'Personnummer oplysninger (013)'
+
+	field 'Recordtype', 'N', 0..2, :default => '12'
+	field 'Kunderefnr', 'A', 3..17
+	field 'Proddto', 'N', 18..25
+	field 'Pnrsenrmrk', 'A', 26..26
+	field 'Pnr', 'A', 27..36
+	field 'Foeddto', 'N', 37..44
+	field 'Koen', 'A', 45..45
+	field 'Pnrgaeld', 'A', 46..55
+end
+end

data/lib/cpr/adressematch/resp901.rb

@@ -0,0 +1,17 @@
+# coding: utf-8
+module Cpr::Adressematch
+class Resp901 < Cpr::Row
+	title 'Fejlmeddelelser fra Adressematch (901)'
+
+	field 'Recordtype', 'N', 0..2, :default => '901'
+	field 'Sort-high-value', 'A', 3..7
+	field 'Sort-proddto', 'N', 8..15
+	field 'Sort-medtyp', 'A', 16..25
+	field 'Indvnr', 'N', 26..29
+	field 'Kundenr', 'N', 30..33
+	field 'Kunderefnr', 'A', 34..48
+	field 'Matchtyp', 'A', 49..49
+	field 'Fejlnr', 'N', 50..53
+	field 'Fejlfelt', 'A', 54..105
+end
+end

data/lib/cpr/adressematch/resp902.rb

@@ -0,0 +1,27 @@
+# coding: utf-8
+module Cpr::Adressematch
+class Resp902 < Cpr::Row
+	title 'Veje fra Adressematch (902)'
+
+	field 'Recordtype', 'N', 0..2, :default => '902'
+	field 'Sort-high-value', 'A', 3..7
+	field 'Sort-proddto', 'N', 8..15
+	field 'Sort-medtyp', 'A', 16..25
+	field 'Indvnr', 'N', 26..29
+	field 'Kundenr', 'N', 30..33
+	field 'Kunderefnr', 'A', 34..48
+	field 'Matchtyp', 'A', 49..49
+	field 'Komkod', 'N', 50..53
+	field 'Vejkod', 'N', 54..57
+	field 'Postnr', 'N', 58..61
+	field 'Postdisttxt', 'A', 62..81
+	field 'Vejadrnvn', 'A', 82..101
+	field 'Husnr', 'A', 102..105
+	field 'Etage', 'A', 106..107
+	field 'Sidedoer', 'A', 108..111
+	field 'BNR', 'A', 112..115
+	field 'Lokalitet', 'A', 116..149
+	field 'Standardadr', 'A', 150..183
+	field 'Bynvn', 'A', 184..217
+end
+end

data/lib/cpr/adressematch/resp903.rb

@@ -0,0 +1,12 @@
+# coding: utf-8
+module Cpr::Adressematch
+class Resp903 < Cpr::Row
+	title 'Optællinger fra Adressematch (903)'
+
+	field 'Recordtype', 'N', 0..2, :default => '903'
+	field 'Sort-high-value', 'A', 3..7
+	field 'Sort-proddto', 'N', 8..15
+	field 'Sort-medtyp', 'A', 16..25
+	field 'Kundeliste', 'A', 26..130
+end
+end

data/lib/cpr/adressematch/resp910.rb

@@ -0,0 +1,12 @@
+# coding: utf-8
+module Cpr::Adressematch
+class Resp910 < Cpr::Row
+	title 'Fejlmeddelelser vedr. PNR-abonnementer (910)'
+
+	field 'Recordtype', 'N', 0..2, :default => '910'
+	field 'Sortfelt-10', 'A', 3..12
+	field 'Inddata', 'A', 13..87
+	field 'Fejlnr', 'N', 88..91
+	field 'Fejltxt-udtræk', 'A', 92..156
+end
+end

data/lib/cpr/adressematch/resp998.rb

@@ -0,0 +1,16 @@
+# coding: utf-8
+module Cpr::Adressematch
+class Resp998 < Cpr::Row
+	title 'Nøgletal fra Adressematchen (998)'
+
+	field 'Recordtype', 'N', 0..2, :default => '998'
+	field 'Nøgletal1', 'N', 3..12
+	field 'Nøgletal2', 'N', 13..22
+	field 'Nøgletal3', 'N', 23..32
+	field 'Nøgletal4', 'N', 33..42
+	field 'Nøgletal5', 'N', 43..52
+	field 'Nøgletal6', 'N', 53..62
+	field 'Nøgletal7', 'N', 63..72
+	field 'Nøgletal8', 'N', 73..82
+end
+end

data/lib/cpr/adressematch/resp999.rb

@@ -0,0 +1,10 @@
+# coding: utf-8
+module Cpr::Adressematch
+class Resp999 < Cpr::Row
+	title 'Slutrecord (der dannes en pr. udtræk) (999)'
+
+	field 'Recordtype', 'N', 0..2, :default => '999'
+	field 'Sortfelt', 'A', 3..25
+	field 'Taeller', 'N', 26..33
+end
+end

data/lib/cpr/alphanumeric_field.rb

@@ -0,0 +1,13 @@
+# coding: utf-8
+module Cpr
+  class AlphanumericField < Field
+    def cast_for_read(val)
+      val.strip.encode("utf-8")
+    end
+
+    def cast_for_write(val)
+      val.ljust(length)
+    end
+
+  end
+end

data/lib/cpr/class_generator.rb

@@ -0,0 +1,90 @@
+# coding: utf-8
+require 'ostruct'
+require 'nokogiri'
+
+module Cpr
+  class FieldSpec < OpenStruct
+    def self.parse_from_tr(tr)
+      #      0     1      2        3             4             5
+      # Feltnavn|Format|Længde|Record pos|Indhold i feltet|Krævede felter
+      #
+      # Record pos begins at 1
+      tds = tr.xpath("TD").map {|td| td.content.strip }
+      unless tds[0] == '' or tds[0] == "Recordlængde"
+        FieldSpec.new(:name => tds[0],
+          :type => tds[1],
+          :range => (tds[3].to_i-1)..(tds[3].to_i-2 + tds[2].to_i),
+          :default => extract_default(tds[4]))
+      end
+    end
+
+    def self.extract_default(text)
+      if text =~ /^(\d+)$/
+        $1.to_i
+      end
+    end
+
+    def field_def
+      str = %{field '#{name}', '#{type}', #{range}}
+      str += %{, :default => '#{default}'} if default
+      str
+    end
+
+
+    def to_s
+      "#{name} (#{type}) #{range}: #{default}"
+    end
+  end
+  class RowSpec < OpenStruct
+    def self.parse_from_table(table)
+      RowSpec.new(:name => table["name"],
+        :title => table["title"],
+        :fields => table.xpath("TR[position() != 1]").map {|tr| FieldSpec.parse_from_tr(tr)}.compact)
+    end
+
+    def class_def(module_name, class_name)
+      <<DEF
+# coding: utf-8
+module #{module_name}
+class #{class_name} < Cpr::Row
+\ttitle '#{title}'
+
+#{field_defs}
+end
+end
+DEF
+    end
+
+    def field_defs
+      fields.map {|field| "\t#{field.field_def}" }*"\n"
+    end
+
+    def to_s
+      "#{title} - #{name}\n" +
+        fields.map {|field| "\t#{field}" }*"\n"
+    end
+  end
+
+  class ClassGenerator
+    def initialize(prefix, filename)
+      @prefix = prefix
+      @filename = filename
+    end
+
+    def generate
+      rows.each do |row|
+        filename = "lib/cpr/#{@prefix}/#{row.name}.rb"
+        File.open(filename, 'w') do |file|
+          file << row.class_def("Cpr::#{@prefix.capitalize}", row.name)
+        end
+      end
+    end
+    
+    def rows
+      doc = Nokogiri::XML.parse(File.read(@filename))
+      (doc / "//Table").map do |table|
+        RowSpec.parse_from_table(table)
+      end
+    end
+  end
+end

data/lib/cpr/field.rb

@@ -0,0 +1,50 @@
+# coding: utf-8
+module Cpr
+  class Field
+    attr_reader :name, :range, :default
+    def initialize(name, range, opts = {})
+      @name = name
+      @range = range
+      @default = opts[:default]
+    end
+
+    def read(raw)
+      cast_for_read(raw[range])
+    end
+
+    def write(raw, value)
+      raw[range] = cast_for_write(value).encode("iso-8859-1")[0...length]
+      raw
+    end
+
+    def fill
+      if @default != nil
+        cast_for_write @default
+      else
+        " "*length
+      end
+    end
+
+    def length
+      @range.max - @range.begin + 1
+    end
+
+    def pattern
+      if default
+        cast_for_write(default)
+      else
+        typed_pattern
+      end
+    end
+    
+    def self.create_type(type, *args)
+      klass = case type
+      when 'A' then AlphanumericField
+      when 'N' then NumericField
+      else raise "Invalid value for type '#{type}'"
+      end
+      klass.new(*args)
+    end
+
+  end
+end

data/lib/cpr/kunderefnr.rb

@@ -0,0 +1,42 @@
+module Cpr
+  module Kunderefnr
+    def pnr
+      @pnr ||= self['Kunderefnr'] =~ /^PNR=(\d+)/ && $1
+    end
+
+    def birthday
+      if pnr
+        day = pnr[0..1].to_i
+        month = pnr[2..3].to_i
+        year_without_century = pnr[4..5].to_i
+        Date.new(year_without_century + birthday_century, month, day)
+      end
+    end
+
+    def pnr_assigned_digits
+      pnr[6..9] if pnr
+    end
+
+    # private
+    def birthday_century
+      d = pnr[6].to_i
+      year = pnr[0..1].to_i
+      if pnr
+        if d < 4
+          1900
+        else
+          if year <= 36
+            2000
+          elsif [9,4].include?(d)
+            1900
+          elsif [5,6,7,8].include?(d) and year > 58
+            1800
+          else
+            raise "Invalid birthday century for #{pnr}"
+          end
+        end
+      end
+    end
+
+  end
+end

data/lib/cpr/numeric_field.rb

@@ -0,0 +1,19 @@
+# coding: utf-8
+module Cpr
+  class NumericField < Field
+    def cast_for_read(val)
+      val.to_i if val =~ /^\d+$/
+    end
+
+    def cast_for_write(val)
+      if val.nil?
+        fill
+      else
+        str = "%0#{length}d" % val
+        raise "Value #{val} overflows length #{length}" if str.length > length
+        str
+      end
+    end
+
+  end
+end

data/lib/cpr/req_document.rb

@@ -0,0 +1,14 @@
+# coding: utf-8
+module Cpr
+  class ReqDocument
+    attr_reader :rows
+    def initialize
+      @rows = []
+    end
+
+    def data
+      @rows.map(&:data)*"\r\n"
+    end
+
+  end
+end

data/lib/cpr/resp_document.rb

@@ -0,0 +1,34 @@
+# coding: utf-8
+module Cpr
+  class RespDocument
+    attr_accessor :rows
+    def initialize(rows = [])
+      @rows = rows
+    end
+
+    def self.from_lines(lines)
+      rows = []
+      lines.each do |line|
+        row = Row.parse(line)
+        raise "Parse error while processing row:\n\t'#{line}'\n\tlen:#{line.length}" if row.nil?
+        rows << row
+      end
+      RespDocument.new(rows)
+    end
+
+    def self.from_file(filename)
+      file = File.open(filename, "r:iso-8859-1")
+      from_lines(file.readlines.map(&:strip))
+    end
+
+    def groups
+      if @groups.nil?
+        @groups = rows.group_by {|row| row.class.to_s.split("::").last }
+        @groups.default = []
+      end
+      @groups
+    end
+
+
+  end
+end

data/lib/cpr/row.rb

@@ -0,0 +1,103 @@
+# coding: utf-8
+require 'pathname'
+module Cpr
+  class Row
+    include Kunderefnr
+    attr_reader :data
+    def initialize(data = nil)
+      if data
+        @data = data
+      else
+        @data = self.class.fill
+      end
+    end
+
+    def [](fieldname)
+      self.class.field_by_name(fieldname).read(@data)
+    end
+
+    def []=(fieldname, value)
+      self.class.field_by_name(fieldname).write(@data, value)
+    end
+
+    def content
+      h = {}
+      self.class.fields.each do |field|
+        h[field.name] = self[field.name]
+      end
+      h
+    end
+
+    class << self
+      def title(title)
+        @title = title
+      end
+
+      def create(fields_with_vals = {})
+        instance = new
+        fields_with_vals.each do |key,val|
+          instance[key] = val
+        end
+        instance
+      end
+
+      def field(fieldname, type, range, opts = {})
+        @fields ||= []
+        @fields_map ||= {}
+        check_contiguous!(fieldname, range)
+        @fields << Cpr::Field.create_type(type, fieldname, range, opts)
+        @fields_map[fieldname] = @fields.last
+      end
+
+      def fields
+        @fields
+      end
+
+      def field_by_name(fieldname)
+        @fields_map[fieldname] or raise "No field by name '#{fieldname}"
+      end
+
+      def length
+        @fields.last.range.last + 1 unless @fields.empty?
+      end
+
+      def fill
+        @fields.map(&:fill).join
+      end
+
+      def parses?(str)
+        f = @fields_map['Recordtype']
+        f && str.start_with?(f.fill) && str.length == length
+      end
+
+      def parse(str)
+        load_subclasses if @subclasses.nil?
+        parser = @subclasses.find {|subclass| subclass.parses? str }
+        parser.new(str) if parser
+      end
+
+      def inherited(subclass)
+        @subclasses ||= []
+        @subclasses << subclass
+      end
+
+      private
+      def load_subclasses
+        class_dir = Pathname.new(__FILE__).dirname + "adressematch"
+        class_dir.children.select {|file| file.to_s.end_with? ".rb" }.each do |file|
+          require file.to_s
+        end
+      end
+
+      def check_contiguous!(fieldname, range)
+        if @fields.empty?
+          raise "First field '#{fieldname}' should start at index 0" unless range.begin == 0
+        else
+          last_end = @fields.last.range.max
+          raise "Field '#{fieldname}' leaves gap" if range.begin > (last_end+1)
+          raise "Field '#{fieldname}' overlaps" if range.begin < (last_end+1)
+        end
+      end
+    end
+  end
+end

data/lib/cpr_adressematch.rb

@@ -0,0 +1,10 @@
+require 'cpr/kunderefnr'
+require 'cpr/row'
+require 'cpr/field'
+require 'cpr/alphanumeric_field'
+require 'cpr/numeric_field'
+require 'cpr/resp_document'
+require 'cpr/req_document'
+Dir.glob("#{File.dirname(__FILE__)}/cpr/adressematch/*.rb").each do |file|
+  require "cpr/adressematch/#{File.basename(file)}"
+end

data/test/helper.rb

@@ -0,0 +1,9 @@
+require 'rubygems'
+require 'test/unit'
+
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+require 'cpr_adressematch'
+
+class Test::Unit::TestCase
+end

data/test/test_cpr_adressematch.rb

@@ -0,0 +1,7 @@
+require 'helper'
+
+class TestCprAdressematch < Test::Unit::TestCase
+  def test_something_for_real
+#    flunk "hey buddy, you should probably rename this file and start testing for real"
+  end
+end

data/test/test_cpr_adressematch_resp001.rb

@@ -0,0 +1,39 @@
+# coding: utf-8
+require 'helper'
+require 'date'
+
+class TestCprAdressematchResp001 < Test::Unit::TestCase
+  def example_no_pnr
+    input = "001A0006          20020107P 00000000000001000000000000Niels Nielsen                     19930203                                                                        Vesterbrogade 86 2                                                  1620K�benhavn V         01018204086B          Niels                                             Nielsen                                 Vesterbrogade       200111111130"\
+      .force_encoding("iso-8859-1")
+    Cpr::Adressematch::Resp001.new(input)
+  end
+
+  def example_pnr
+    input = "001PNR=0801852063 20020107P 00000000000001000000000000Niels Nielsen                     19930203                                                                        Vesterbrogade 86 2                                                  1620K�benhavn V         01018204086B          Niels                                             Nielsen                                 Vesterbrogade       200111111130"\
+      .force_encoding("iso-8859-1")
+    Cpr::Adressematch::Resp001.new(input)
+  end
+
+  
+  def test_no_pnr
+    example = example_no_pnr
+    assert_nil example.pnr
+    assert_nil example.birthday
+    assert_nil example.pnr_assigned_digits
+  end
+
+  def test_pnr_pnr
+    assert_equal "0801852063", example_pnr.pnr
+  end
+
+  def test_pnr_birthday
+    assert_equal Date.new(1985, 1, 8), example_pnr.birthday
+  end
+
+  def test_pnr_assigned_digits
+    assert_equal "2063", example_pnr.pnr_assigned_digits
+  end
+
+
+end

data/test/test_cpr_alphanumeric_field.rb

@@ -0,0 +1,38 @@
+# coding: utf-8
+require 'helper'
+
+class TestCprAlphanumericField < Test::Unit::TestCase
+  def test_read_welformed_string
+    f = Cpr::Field.create_type('A', 'f1', 3..5)
+    assert_equal "ABC", f.read("XXXABCXXXX")
+    assert_equal "A", f.read("XXXA  XXXX")
+    assert_equal "", f.read("XXX   XXXX")
+  end
+
+  def test_read_unicode
+    f = Cpr::Field.create_type('A', 'f1', 3..5)
+    assert_equal(Encoding::UTF_8, f.read("XXXABCXXXX".encode("binary")).encoding)
+  end
+
+  def test_write
+    f = Cpr::Field.create_type('A', 'f1', 3..5)
+    assert_equal "XXXABCXXXX", f.write("XXX   XXXX", "ABC")
+  end
+
+  def test_write_unicode
+    f = Cpr::Field.create_type('A', 'f1', 3..5)
+    assert_equal "XXXüæøXXXX".encode("iso-8859-1"), f.write("XXX   XXXX", "üæø")
+  end
+
+
+  def test_write_overflow_truncates
+    f = Cpr::Field.create_type('A', 'f1', 3..5)
+    assert_equal "XXXABCXXXX", f.write("XXX   XXXX", "ABCDEFG")
+  end
+
+  def test_write_underflow_fills
+    f = Cpr::Field.create_type('A', 'f1', 3..5)
+    assert_equal "XXXA  XXXX", f.write("XXXXXXXXXX", "A")
+  end
+
+end

data/test/test_cpr_field.rb

@@ -0,0 +1,18 @@
+# coding: utf-8
+require 'helper'
+
+class TestCprField < Test::Unit::TestCase
+  def test_creates_correct_type
+    assert_kind_of Cpr::AlphanumericField, Cpr::Field.create_type('A', 'f1', 0..10)
+    assert_kind_of Cpr::NumericField, Cpr::Field.create_type('N', 'f1', 0..10)
+    assert_raise(RuntimeError) {
+      Cpr::Field.create_type('X', 'f1', 0..10)
+    }
+  end
+
+  def test_fill
+    f1 = Cpr::Field.create_type('A', 'f1', 0..10)
+    assert_equal " "*11, f1.fill 
+  end
+
+end

data/test/test_cpr_numeric_field.rb

@@ -0,0 +1,28 @@
+# coding: utf-8
+require 'helper'
+
+class TestCprNumericField < Test::Unit::TestCase
+  def test_read_integer
+    f = Cpr::NumericField.new('f1', 3..5)
+    assert_equal 100, f.read("XXX100XXXX")
+    assert_equal 10, f.read("XXX010XXXX")
+    assert_equal 0, f.read("XXX000XXXX")
+    assert_nil f.read("XXX   XXXX")
+  end
+
+  def test_write_integer
+    f = Cpr::NumericField.new('f1', 3..5)
+    assert_equal "XXX100XXXX", f.write("XXX000XXXX", 100)
+    assert_equal "XXX010XXXX", f.write("XXX000XXXX", 10)
+    assert_equal "XXX000XXXX", f.write("XXX000XXXX", 0)
+    assert_equal "XXX   XXXX", f.write("XXX000XXXX", nil)
+  end
+
+  def test_write_overflow_fails
+    f = Cpr::NumericField.new('f1', 3..5)
+    assert_raise(RuntimeError) {
+      f.write("XXX000XXXX", 1000)
+    }
+  end
+
+end

data/test/test_cpr_req_document.rb

@@ -0,0 +1,13 @@
+# coding: utf-8
+require 'helper'
+
+class TestCprReqDocument < Test::Unit::TestCase
+  def test_combines_records
+    row = Cpr::Row.dup
+    row.field 'name', 'A', 0..99
+    doc = Cpr::ReqDocument.new
+    doc.rows << row.create('name' => "NameA")
+    doc.rows << row.create('name' => "NameB")
+    assert_match(/^NameA {95}\r\nNameB {95}$/, doc.data)
+  end
+end

data/test/test_cpr_resp_document.rb

@@ -0,0 +1,28 @@
+# coding: utf-8
+require 'helper'
+
+class TestCprDoc < Test::Unit::TestCase
+  def test_from_file
+    doc = Cpr::RespDocument.from_file("data/cpr_uddata_eksempel.txt")
+    assert_equal 8, doc.rows.length
+    assert doc.rows.none?(&:nil?), "nil rows not allowed"
+    names = File.open("data/cpr_uddata_eksempel.txt", "r:iso-8859-1")\
+      .read.split("\r\n").map do |line|
+      line[54..86].strip
+    end
+    doc.rows.zip(names) do |row,name|
+      assert_kind_of(Cpr::Adressematch::Resp001, row)
+      assert_equal name, row['Adrnvn']
+    end
+  end
+
+  def test_groups
+    doc = Cpr::RespDocument.from_file("data/cpr_uddata_eksempel.txt")
+    counts = {}
+    doc.groups.each do |name,rows|
+      counts[name] = rows.count
+    end
+    assert_equal 1, doc.groups.keys.size
+    assert_equal 8, counts["Resp001"]
+  end
+end

data/test/test_cpr_row.rb

@@ -0,0 +1,67 @@
+# coding: utf-8
+require 'helper'
+
+class TestCprRow < Test::Unit::TestCase
+  def setup
+    @row = Cpr::Row.dup
+  end
+
+  def test_row_length
+    @row.field 'f1', 'A', 0..2
+    @row.field 'f2', 'A', 3..6
+    assert_equal 7, @row.length
+  end
+
+  def test_non_contiguous_field_throws_error
+    @row.field 'f1', 'A', 0..2
+    assert_raise(RuntimeError) {
+      @row.field 'f2', 'A', 4..6
+    }
+    assert_raise(RuntimeError) {
+      @row.field 'f2', 'A', 2..6
+    }
+  end
+
+  def test_fill
+    @row.field 'f1', 'A', 0..2
+    @row.field 'f1', 'N', 3..5
+    assert_equal "      ", @row.fill
+  end
+  
+  def test_field_by_name_existing_and_non_existing
+    @row.field 'f1', 'A', 0..2
+    assert_kind_of(Cpr::AlphanumericField, @row.field_by_name('f1'))
+    assert_raise(RuntimeError) { @row.field_by_name('non_existing_field') }
+  end
+
+  def test_read_field
+    @row.field 'f1', 'N', 0..2
+    instance = @row.new
+    assert_equal nil, instance['f1']
+  end
+
+  def test_write_field
+    @row.field 'f1', 'N', 0..2
+    instance = @row.new
+    instance['f1'] = 100
+    assert_equal 100, instance['f1']
+  end
+
+  def test_parse_valid_input
+    @row.field 'f1', 'N', 0..2
+    @row.field 'f2', 'A', 3..5
+    str = "999ABC"
+    valid_parse = @row.new(str)
+    assert_not_nil valid_parse
+    assert_equal 999, valid_parse['f1']
+    assert_equal "ABC", valid_parse['f2']
+  end
+
+  def test_create_with_valid_input
+    @row.field 'f1', 'N', 0..2
+    @row.field 'f2', 'A', 3..5
+    instance = @row.create('f1' => 999, 'f2' => 'ABC')
+    assert_equal '999ABC', instance.data
+  end
+
+end

metadata

@@ -0,0 +1,115 @@
+--- !ruby/object:Gem::Specification 
+name: cpr_adressematch
+version: !ruby/object:Gem::Version 
+  prerelease: false
+  segments: 
+  - 0
+  - 2
+  - 0
+  version: 0.2.0
+platform: ruby
+authors: 
+- Anders Johannsen
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-11-24 00:00:00 +01:00
+default_executable: 
+dependencies: []
+
+description: "Interface for generating and parsing the Danish CPR Registry data files.\n    Support the 'adressematch' protocol, which can be used to query by name and adress as well as\n    by the personal identifical number (CPR)\n    "
+email: anders@johannsen.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- LICENSE
+- README.rdoc
+files: 
+- LICENSE
+- README.rdoc
+- Rakefile
+- VERSION
+- lib/cpr/adressematch/req1100.rb
+- lib/cpr/adressematch/req1200.rb
+- lib/cpr/adressematch/req1300.rb
+- lib/cpr/adressematch/req1400.rb
+- lib/cpr/adressematch/resp000.rb
+- lib/cpr/adressematch/resp001.rb
+- lib/cpr/adressematch/resp001a.rb
+- lib/cpr/adressematch/resp002.rb
+- lib/cpr/adressematch/resp003.rb
+- lib/cpr/adressematch/resp004.rb
+- lib/cpr/adressematch/resp005.rb
+- lib/cpr/adressematch/resp010.rb
+- lib/cpr/adressematch/resp011.rb
+- lib/cpr/adressematch/resp012.rb
+- lib/cpr/adressematch/resp013.rb
+- lib/cpr/adressematch/resp901.rb
+- lib/cpr/adressematch/resp902.rb
+- lib/cpr/adressematch/resp903.rb
+- lib/cpr/adressematch/resp910.rb
+- lib/cpr/adressematch/resp998.rb
+- lib/cpr/adressematch/resp999.rb
+- lib/cpr/alphanumeric_field.rb
+- lib/cpr/class_generator.rb
+- lib/cpr/field.rb
+- lib/cpr/kunderefnr.rb
+- lib/cpr/numeric_field.rb
+- lib/cpr/req_document.rb
+- lib/cpr/resp_document.rb
+- lib/cpr/row.rb
+- lib/cpr_adressematch.rb
+- test/helper.rb
+- test/test_cpr_adressematch.rb
+- test/test_cpr_adressematch_resp001.rb
+- test/test_cpr_alphanumeric_field.rb
+- test/test_cpr_field.rb
+- test/test_cpr_numeric_field.rb
+- test/test_cpr_req_document.rb
+- test/test_cpr_resp_document.rb
+- test/test_cpr_row.rb
+has_rdoc: true
+homepage: http://github.com/andersjo/cpr_adressematch
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.7
+signing_key: 
+specification_version: 3
+summary: Interface for generating and parsing the Danish CPR Registry data files
+test_files: 
+- test/helper.rb
+- test/test_cpr_adressematch.rb
+- test/test_cpr_adressematch_resp001.rb
+- test/test_cpr_alphanumeric_field.rb
+- test/test_cpr_field.rb
+- test/test_cpr_numeric_field.rb
+- test/test_cpr_req_document.rb
+- test/test_cpr_resp_document.rb
+- test/test_cpr_row.rb