xdt 1.0.5

data/History.txt

@@ -0,0 +1,6 @@
+=== 1.0.0 / 2008-10-11
+
+* 1 major enhancement
+
+  * Birthday!
+

data/Manifest.txt

@@ -0,0 +1,23 @@
+.DS_Store
+History.txt
+Manifest.txt
+README.txt
+Rakefile
+bin/gdt2http
+lib/gdt/field_definitions.rb
+lib/gdt/field_handling.rb
+lib/gdt/parser.rb
+lib/gdt2http.rb
+lib/gdt_interface.rb
+lib/xdt.rb
+lib/xdt/ldt.rb
+lib/xdt/markup.rb
+lib/xdt/xdt_fields.rb
+lib/xdt/xdt_sections.rb
+spec/examples/BARCQPCN.001
+spec/gdt_field_definitions_spec.rb
+spec/gdt_parser_spec.rb
+spec/gdt_spec.rb
+spec/lg_report_spec.rb
+spec/xdt_spec.rb
+xdt.gemspec

data/README.txt

@@ -0,0 +1,48 @@
+= xdt
+
+* http://levinalex.net/src/xdt
+
+== DESCRIPTION:
+
+xDT is a library that reads and writes LDT, GDT and BDT data.
+
+== FEATURES/PROBLEMS:
+
+* none
+
+== SYNOPSIS:
+
+  no code yet
+
+== REQUIREMENTS:
+
+* none
+
+== INSTALL:
+
+* sudo gem install levinalex-xdt
+
+== LICENSE:
+
+(The MIT License)
+
+Copyright (c) 2008 Levin Alexander
+
+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/Rakefile

@@ -0,0 +1,26 @@
+$LOAD_PATH.unshift './lib'
+
+require 'rubygems'
+require 'hoe'
+require 'xdt'
+require 'spec/rake/spectask'
+
+Hoe.new('xdt', Xdt::VERSION) do |p|
+  p.developer('Levin Alexander', 'mail@levinalex.net')
+end
+
+
+Rake.application.instance_eval { @tasks["test"] = nil }
+
+Spec::Rake::SpecTask.new do |t|
+  t.warning = true
+  t.spec_opts = %w(-c -f specdoc)
+end
+task :test => :spec
+
+
+task :cultivate do
+  system "touch Manifest.txt; rake check_manifest | grep -v \"(in \" | patch"
+  system "rake debug_gem | grep -v \"(in \" > `basename \\`pwd\\``.gemspec"
+end
+

data/bin/gdt2http

@@ -0,0 +1,5 @@
+#!/usr/bin/env ruby
+
+require File.join(File.dirname(__FILE__),'..','lib','gdt2http.rb')
+
+Gdt::Gdt2Http.new.run!

data/lib/gdt/field_definitions.rb

@@ -0,0 +1,35 @@
+require 'date'
+require File.join(File.dirname(__FILE__), 'field_handling.rb')
+
+module Gdt
+  class GdtFields < AbstractField
+    
+    field 3000, :nr, "Patientennummer/Patientenkennung", (0..10), :alnum
+    field 3100, :name_prefix, "Namenszusatz/Vorsatzwort des Patienten", (0..15)
+    field 3101, :last_name, "Name des Patienten", (0..28)
+    field 3102, :first_name, "Vorname des Patienten", (0..28)
+    field 3103, :birthday, "Geburtsdatum des Patienten", 8, :datum
+    field 3104, :title, "Titel des Patienten", (0..15)
+    field 3105, :insurance_id, "Versichertennummer des Patienten", (0..12)
+    field 3106, :patient_postal_code_city, "Wohnort des Patienten", (0..30)
+    field 3107, :patient_street, "Strasse des Patienten", (0..28)
+    field 3108, :insurance_type, "Versichertenart MFR", 1, :num
+    field 3110, :sex, "Geschlecht des Patienten", 1, :num
+    # ...
+
+    field 8000, :gdt_type, "Satzidentifikation", 4
+    field 8100, :gdt_length, "Satzlänge", 5, :num
+    field 8315, :receiver_id, "GDT-ID des Empfängers", (0..8) # violates spec, should be "8"
+    field 8316, :sender_id, "GDT-ID des Senders", (0..8) # violates the spec, should be "8"
+    # ...
+
+    field 9218, :gdt_version, "Version GDT", 5
+
+
+    # bogus fields to suppress errors
+    field 9901, :unknown, "unknown", (0..60), :alnum
+    field 8402, :unknown, "unknown", (0..60), :alnum
+    
+
+  end
+end

data/lib/gdt/field_handling.rb

@@ -0,0 +1,81 @@
+require 'date'
+require 'iconv'
+
+module Gdt
+
+  class GdtField < Struct.new(:name, :description, :length, :type, :rules)
+    TYPES = {
+      :num => lambda { |v| v.to_i },
+      :alnum => lambda { |v| ::Iconv.new("UTF-8","CP850").iconv(v) },
+      :datum => lambda { |v| ::Date.new(*v.scan(/(..)(..)(....)/)[0].map {|x| x.to_i }.reverse) rescue nil }
+    }
+
+    def type=(value)
+      raise ArgumentError, "unrecognized data type '#{value.inspect}'" unless TYPES.include?(value)
+      @type = value
+    end
+    def type
+      @type || :alnum
+    end
+
+    def length=(value)
+      if value
+        @length = (Range === value) ? value : Range.new(value,value)
+      else
+        @length = nil
+      end
+    end
+
+    def verify_and_convert(value)
+      # check length
+      #
+      if @length
+        message = "the field #{name.inspect} does not have the correct length, expected (#{@length.inspect})"
+        # ignore length checks for now
+        # raise ArgumentError, message unless @length.include?(value.length)
+      end
+      TYPES[self.type].call(value)
+    end
+
+  end
+
+  class AbstractField
+    
+    def self.field(gdt_id, name, description, length, type = :alnum, rules = nil) 
+      field = (fields[gdt_id] ||= GdtField.new)
+
+      field.name = name
+      field.type = type
+      field.length = length
+
+      define_method name do
+        values[name]
+      end
+    end
+
+    def self.lookup(field_id)
+      @gdt_fields[field_id].name
+    end
+    def self.fields
+      @gdt_fields ||= Hash.new
+    end
+
+    def values
+      @values ||= Hash.new
+    end
+
+    def set_field(gdt_id, value)
+      field = self.class.fields[gdt_id]
+      raise ArgumentError, "undefined field '#{gdt_id}'" unless field
+
+      values[field.name] = field.verify_and_convert(value)
+    end
+
+    def initialize(gdt_hash)
+      gdt_hash.each { |gdt_id, value|
+        set_field(gdt_id, value)
+      }
+    end
+  end
+end
+

data/lib/gdt/parser.rb

@@ -0,0 +1,36 @@
+
+module Gdt
+  
+  class ParseError < ArgumentError
+  end
+  
+  class Parser
+    def self.parse(string)
+      # canonical line endings
+      string.gsub!("\r\n","\n")
+      
+      string.split(/\n/).
+      # ignore empty lines and lines consisting only of whitespace
+      delete_if { |line| line =~ /^\s*$/ }.
+      inject({}) do |h, line|
+        # parse the line into tokens
+        #
+        length, type, data = line.scan(/(\d{3})(\d{4})(.*)/).first
+
+        raise ParseError, "line does not match expected GDT format: '#{line}'" unless length && type && data
+        
+        length = length.to_i
+        type = type.to_i
+
+        # 3 bytes length + 4 bytes record id + data length (bytes) + CR LF
+        expected_length = 3 + 4 + data.length + 2
+        
+        raise ParseError, "wrong length in GDT data: '#{line}'" unless length == expected_length
+
+        h[type] = data
+        h
+      end
+    end
+
+  end
+end

data/lib/gdt2http.rb

@@ -0,0 +1,104 @@
+#!/usr/bin/env ruby
+
+require 'optparse'
+require 'net/http'
+require 'yaml'
+
+require File.join(File.dirname(__FILE__),'gdt_interface.rb')
+
+module Gdt
+  ConfigFilename = ".gdt2http"
+  ConfigFile = File.join(ENV['HOME'] || ENV['APPDATA'], ConfigFilename)
+  
+  # defaults are used when they are not overwritten in a config file 
+  # or with command line options
+  #
+  DefaultConfig = {
+    :files => ["**/*.GDT"],
+    :endpoint => "http://localhost:3000/gdt",
+    :delete_files => true
+  }
+  
+  class Gdt2Http
+    
+    # load configuration from configfile, merge with
+    # default options
+    #
+    def load_configuration
+     # try to read configuration from file
+      @options_from_file = YAML.load_file(ConfigFile) || {} rescue {}
+      
+      # if an option is not given on the command line
+      # it is taken from the config file, or the default is used
+      @options = Hash.new() { |h,k| @options_from_file[k] || DefaultConfig[k] }
+    end
+   
+    # parse command line options
+    # 
+    def initialize
+      load_configuration
+
+      @opts = OptionParser.new do |opts|
+        opts.on "-V","--version","Display version and exit" do
+          puts "#{self.class} #{::Gdt::VERSION}"
+          exit
+        end
+        opts.on "-f", "--files PATTERN", Array,
+                    "a list of files or shell globs to look for",
+                    "default is '**/*.GDT'" do |arg|
+          @options[:files] = arg
+        end
+        opts.on "-u", "--uri URI", "URI of the HTTP-Endpoint to which the parsed data is sent" do |arg|
+          @options[:endpoint] = arg
+        end
+        opts.on_tail "-p", "--print-config", "Print the current configuration",
+                                             "in a format that can be used as a configuration file" do 
+          puts @options_from_file.merge(@options).to_yaml
+          exit
+        end
+      end
+    end
+
+    def files
+      @options[:files].map { |p| Dir.glob(p) }.flatten.compact.uniq
+    end
+
+    def handle_file(filename)
+      # open and parse the given file
+      str = File.read(filename)
+      
+      begin
+        data = Gdt.new(str)
+
+        begin
+          res = ::Net::HTTP.post_form(URI.parse(@options[:endpoint]), data.to_hash )
+          puts res.header.to_hash.map { |k,v| "#{k}: #{v}" }
+          puts
+          case res
+          when ::Net::HTTPSuccess
+            File.delete(filename) if @options[:delete_files]
+            puts res.body
+          when ::Net::HTTPClientError
+            warn "Client Error"
+          when ::Net::HTTPServerError
+            warn "Server Error"
+          end
+
+        rescue ::Errno::ECONNREFUSED
+          puts "Unable to connect to server '#{@options[:endpoint]}' (connection refused)"
+        end
+      rescue ParseError => e
+        warn "Parse error in '#{filename}'"
+      end
+    end
+
+    # run the application
+    #
+    def run!(args = ARGV)
+      @opts.parse!(args)
+      files.each { |f|
+        handle_file(f)
+      }
+    end
+  end
+end

data/lib/gdt_interface.rb

@@ -0,0 +1,20 @@
+GDT_ROOT = File.dirname(File.expand_path(__FILE__))
+
+require File.join(GDT_ROOT, 'gdt', 'parser.rb')
+require File.join(GDT_ROOT, 'gdt', 'field_definitions.rb')
+
+
+module Gdt
+  VERSION = '0.0.8'
+
+  class Gdt
+    def initialize(string)
+      @data = GdtFields.new( Parser.parse(string))
+    end
+
+    def to_hash
+      @data.values
+    end
+  end
+
+end

data/lib/xdt.rb

@@ -0,0 +1,8 @@
+$LOAD_PATH.unshift File.dirname(__FILE__)
+
+require 'xdt/markup'
+require 'xdt/ldt'
+
+module Xdt
+  VERSION = '1.0.5'
+end

data/lib/xdt/ldt.rb

@@ -0,0 +1,80 @@
+# class Xdt::Ldt
+#  ldt_block_type '0020', :media_start, "Datenträger Header"
+#  ldt_block_type '0021', :media_end, "Datenträger Abschluss"
+#  ldt_block_type '8220', :l_package_start, "L-Datenpaket-Header"
+#  ldt_block_type '8221', :l_package_end,  "L-Datenpaket-Abschluss"
+#  ldt_block_type '8230', :p_package_start, "P-Datenpaket-Header"
+#  ldt_block_type '8231', :p_package_end, "P-Datenpaket-Abschluss"
+#  ldt_block_type '8201', :lab_report, "Labor-Facharzt-Bericht"
+#  ldt_block_type '8202', :lg_report, "LG-Bericht"
+#  ldt_block_type '8203', :microbiology_report, "Mikrobiologie-Bericht"
+#  ldt_block_type '8204', :referrer_report, "Facharzt-Bericht 'sonstige Einsendepraxen'"
+#  ldt_block_type '8218', :electronic_referral, "Elektronische Überweisung"
+#  ldt_block_type '8219', :lab_request, "Auftrag an eine Laborgemeinschaft"
+# end
+
+require 'date'
+require 'xdt/markup'
+
+module Xdt
+  module Ldt
+    module Package
+    end
+    
+    class LGReport
+      
+      # only write the file if it contains any sections
+      #
+      def write_file(filename)
+        return false unless @sections.length > 2
+        
+        File.open(filename, "w+") do |f|
+          f.write self.to_s
+        end
+        
+        return true
+      end
+      
+      def section(id, &blk)
+        @sections << Xdt::Section.new(id, &blk)
+      end
+      
+      def initialize
+        @sections = []
+        
+        section("8220") do |s|
+          s.field("9211", "07/99")
+          # s.field("0201", "") # Arztnummer
+          s.field("0203", "Alexander")  # Arztname
+          s.field("0204", "Nuklearmediziner") # Arztgruppe
+          s.field("0205", "Schönhauser Allee 82") # Strasse
+          s.field("0206", "10439 Berlin") # PLZ Ort
+          s.field("8300", "LABOR Schoenhauser Allee 82")
+          # s.field("0101", "") # KBV Prüfnummer
+          s.field("9106", "3") # Charset (iso-8859-1)
+          s.field("8312", "1") # Kundennummer
+          s.field("9103", Date.today.strftime("%D%M%Y"))
+        end
+
+        yield self if block_given?
+
+        section("8221") do |s|
+          overhead = 44
+          s.field("9202", (length + overhead).to_s.rjust(8,"0"))
+        end
+
+      end
+
+      def length
+        @sections.inject(0) { |sum, section| sum + section.length }
+      end
+      
+      def to_s
+        @sections.map { |pkg| pkg.to_s }.join
+      end
+      
+    end
+  end
+end
+
+

data/lib/xdt/markup.rb

@@ -0,0 +1,7 @@
+require 'xdt/xdt_fields'
+require 'xdt/xdt_sections'
+
+module Xdt
+  class Package
+  end
+end

data/lib/xdt/xdt_fields.rb

@@ -0,0 +1,75 @@
+require 'xdt/markup'
+
+module Xdt
+  class FieldType
+    def initialize(id, name, title, length, type = :string)
+      @id = id.to_i
+      @name = name
+      @title = title
+      @type = type
+    end
+    
+    def valid?(contents)
+      true
+    end
+  end
+  
+  module FieldHandling
+    def define_field(id, *args)
+      @defined_fields ||= Hash.new { |h,k| raise "Redefined Field #{k}" }
+      @defined_fields[id.to_i] = Xdt::FieldType.new(id, *args)
+    end
+  end
+  
+  module Fields
+    def included(other)
+      define_field 101, :kbv_id, "KBV-Prüfnummer", 8, :alnum
+
+      define_field 201, :physician_id, "Arztnummer", (7..9), :num
+      define_field 203, :physician_name, "Arztname", (0..60), :alnum
+      define_field 204, :physician_define_field, "Arztgruppe", (0..60), :alnum
+      define_field 205, :street, "Strasse", (0..60), :alnum
+      define_field 206, :zip, "PLZ Ort", (0..60), :alnum
+
+      define_field 3000, :nr, "Patientennummer/Patientenkennung", (0..10), :alnum
+      define_field 3100, :name_prefix, "Namenszusatz/Vorsatzwort des Patienten", (0..15)
+      define_field 3101, :last_name, "Name des Patienten", (0..28)
+      define_field 3102, :first_name, "Vorname des Patienten", (0..28)
+      define_field 3103, :birthday, "Geburtsdatum des Patienten", 8, :date
+      define_field 3104, :title, "Titel des Patienten", (0..15)
+      define_field 3105, :insurance_id, "Versichertennummer des Patienten", (0..12)
+      define_field 3106, :patient_postal_code_city, "Wohnort des Patienten", (0..30)
+      define_field 3107, :patient_street, "Strasse des Patienten", (0..28)
+      define_field 3108, :insurance_type, "Versichertenart MFR", 1, :num
+      define_field 3110, :sex, "Geschlecht des Patienten", 1, :num
+
+      define_field 8000, :gdt_type, "Satzidentifikation", 4
+      define_field 8100, :gdt_length, "Satzlänge", 5, :num
+      define_field 8315, :receiver_id, "GDT-ID des Empfängers", (0..8) # violates spec, should be "8"
+      define_field 8316, :sender_id, "GDT-ID des Senders", (0..8) # violates the spec, should be "8"
+
+      define_field 9218, :gdt_version, "Version GDT", 5
+    end
+  end
+  
+  class Field
+    class << self
+      include Xdt::FieldHandling
+    end
+    
+    include Xdt::Fields    
+
+    def initialize(type, data)
+      @id = type
+      @data = data.to_s
+    end
+    
+    def length
+      @data.length + 9
+    end
+    
+    def to_s
+      "#{ '%03d'  % self.length }#{ '%04d' % @id.to_i }#{@data}\x0D\x0A"
+    end
+  end
+end

data/lib/xdt/xdt_sections.rb

@@ -0,0 +1,63 @@
+module Xdt
+  class SectionType
+    def initialize(id, name, title, length, type = :string)
+      @id = id.to_i
+      @name = name
+      @title = title
+      @type = type
+    end
+    
+    def valid?(contents)
+      true
+    end
+  end
+  
+  module SectionHandling
+    def define_section(id, name, title, &block)
+    end
+  end
+  
+  class Section
+    class << self
+      include Xdt::SectionHandling
+      
+      alias [] new
+    end
+
+    define_section 8220, :l_packet_header, "L-Datenpaket-Header" do |s|
+      s.field [9211, 201, 203, 204, 205, 206, 8300, 101, 9106, 8312, 9103], :cardinality => '1'
+      s.field 9472, :cardinality => 'n'
+      s.field 9300, :cardinality => '?'
+      s.field 9301, :cardinality => '?' 
+    end
+    
+    define_section 8221, :l_packet_footer, "L-Datenpaket Abschluss" do |s|
+      s.field 9202, :cardinality => '1', :default => proc { |section| section.length + 44 }
+    end
+    
+    def initialize(type)
+      @type = type
+      @fields = []
+      yield self if block_given?
+    end
+    
+    def field(*args)
+      @fields << Field.new(*args)
+    end
+    
+    def length
+      to_s.length
+    end
+    
+    def to_s
+      header_length = 27
+      
+      data = @fields.map { |field| field.to_s }.join
+      header = Field.new("8000", '%04d' % @type.to_i).to_s + 
+               Field.new("8100", '%05d' % (data.length + header_length) ).to_s
+      
+      header + data
+    end
+  end
+
+end

data/spec/examples/BARCQPCN.001

@@ -0,0 +1,14 @@
+01380006301
+014810000228
+0168315Barcode
+0158316QPCnet
+014921802.00
+011300098
+0153101Sierra
+0163102Rudolph
+017310313041928
+0193105123 130328
+02731064000 D�sseldorf 12
+0313107Richard-Wagner-Str. 11
+01031083
+01031101

data/spec/gdt_field_definitions_spec.rb

@@ -0,0 +1,106 @@
+context "Gdt field ids should map to names" do
+  field_names = { 
+    # 0102
+    # 0103
+    # 0132
+    3000 => :nr,
+    3100 => :name_prefix,
+    3101 => :last_name,
+    3102 => :first_name,
+    3103 => :birthday,
+    3104 => :title,
+    3105 => :insurance_id,
+    3106 => :patient_postal_code_city,
+    3107 => :patient_street,
+    3108 => :insurance_type,
+    3110 => :sex,
+    # 3622
+    # 3623
+    # 3628
+    # 6200
+    8000 => :gdt_type,
+    8100 => :gdt_length,
+    8315 => :receiver_id,
+    8316 => :sender_id,
+
+    9218 => :gdt_version
+  }
+    
+  field_names.each do |id, name|
+    specify("#{id.to_s} => #{name.inspect}") do
+      Gdt::GdtFields.lookup(id).should == name
+    end
+  end
+end
+
+context "Parsing a Hash with Gdt-Data" do
+  setup do
+    @parsed_data = Gdt::GdtFields.new( { 3000 => "98", 3101 => "Sierra", 3110 => "2" } )
+  end
+  
+  specify "should convert field IDs to names" do
+    @parsed_data.last_name.should == "Sierra"
+    @parsed_data.nr.should == "98"
+  end
+  specify "should convert numeric fields to numbers" do
+    @parsed_data.sex.should == 2
+  end
+end
+
+context "Unknown field IDs" do
+  setup do
+    @c = Class.new(Gdt::AbstractField) do |c|
+      # no fields are defined
+    end
+  end
+  specify "should raise an error on parsing" do
+    lambda { @c.new( { 42 => "data" } ) }.should raise_error(ArgumentError)
+  end
+end
+
+context "Fields with a fixed length" do
+  setup do
+    @c = Class.new(Gdt::AbstractField) do |c|
+      c.field 1, :number, "some number", 2, :num
+    end
+  end
+  
+  specify "should raise no error if the length is correct" do
+    @c.new( { 1 => "03" } ).number.should == 3
+  end
+  #specify "should raise an error if the length is to small or too long" do
+  #  lambda { @c.new( { 1 => "0" } ) }.should raise_error(ArgumentError)
+  #  lambda { @c.new( { 1 => "045" } ) }.should raise_error(ArgumentError)
+  #end
+end
+
+context "Fields with a maximum length" do
+  setup do
+    @c = Class.new(Gdt::AbstractField) do |c|
+      c.field 1, :data, "a string", (0..21), :alnum
+    end
+  end
+
+  specify "should allow empty strings" do
+    @c.new( { 1 => "" } ).data.should == ""
+  end
+  specify "should allow fields inside the bounds" do
+    lambda { @c.new( { 1 => "exactly 21 characters" } ).data }.should_not raise_error
+    lambda { @c.new( { 1 => "fewer characters" } ).data }.should_not raise_error
+  end
+  #specify "should raise an error if length is too big" do
+  #  lambda { @c.new( { 1 => "exactly 22 characters!" } ).data }.should raise_error(ArgumentError)
+  #end
+end
+
+context "Date fields" do
+  setup do
+    @c = Class.new(Gdt::AbstractField) do |c|
+      c.field 1, :data, "a date field", 8, :datum
+    end
+  end
+  
+  specify "should return an instance of the Date class" do
+    @c.new( { 1 => "31011994" }).data.should == Date.parse("1994-01-31")
+  end
+end

data/spec/gdt_parser_spec.rb

@@ -0,0 +1,50 @@
+context "Valid GDT tokens" do
+  setup do
+    @line = "01380006301\r\n"
+  end
+
+  specify "should parse without errors" do
+    lambda { Gdt::Parser.parse(@line) }.should_not raise_error
+  end
+
+  specify "should return a hash with the correct data" do
+    Gdt::Parser.parse(@line).should == {8000 => "6301"}
+  end
+
+  specify "parser should ignore empty lines" do
+    result = nil
+    lambda { result = Gdt::Parser.parse(" \r\n\r\n ") }.should_not raise_error  
+    result.should == {}
+  end
+end
+
+context "Malformed data" do
+  specify "should raise an exception on malformed length" do
+    lambda { Gdt::Parser.parse("01480006301") }.should raise_error(Gdt::ParseError)
+  end
+
+  specify "that does not conform to the format at all should raise an exception" do
+    lambda { Gdt::Parser.parse("useless garbage\r\nwith multiple lines\r\n") }.should raise_error(Gdt::ParseError)
+  end
+end
+
+context "a valid Gdt file from Quincy PCNet" do
+  setup do
+    @gdt_data = File.read(File.dirname(__FILE__) + '/examples/BARCQPCN.001')
+  end
+
+  specify "should parse without error" do
+     lambda { Gdt::Parser.parse( @gdt_data ) }.should_not raise_error
+  end
+
+  specify "should contain 14 fields" do
+    Gdt::Parser.parse( @gdt_data ).length.should equal(14)
+  end
+
+  specify "should contain correct data" do
+    Gdt::Parser.parse(@gdt_data).should satisfy { |gdt|
+      gdt[3000] == "98" && gdt[8000] == "6301" && gdt[3101] == "Sierra"
+    }
+  end
+  
+end

data/spec/gdt_spec.rb

@@ -0,0 +1,15 @@
+require 'lib/gdt_interface.rb'
+
+context "reading GDT data from a file" do
+  def read_file
+    Gdt::Gdt.new(File.read('./spec/examples/BARCQPCN.001'))
+  end
+  
+  specify "should work without errors" do
+    lambda { Gdt::Gdt.new(File.read('./spec/examples/BARCQPCN.001')) }.should_not raise_error
+  end
+
+  specify "data should be representable as a hash" do
+    read_file.to_hash.should be_instance_of(Hash)
+  end
+end

data/spec/lg_report_spec.rb

@@ -0,0 +1,38 @@
+
+describe "creating an LG-report" do
+  before do
+    @lg = Xdt::Ldt::LGReport.new do |lg|
+      lg.section("8202") do |s|
+        s.field("8310", "12345") # Anforderungs-ID
+        s.field("8301", "09062008") # Eingangsdatum im Labor
+        s.field("8302", "10062008") # Berichtsdatum
+        s.field("3000", "98") # PAT-ID (Nospec)
+        s.field("3103", "10111982") # Geburtsdatum des Pat
+        s.field("8401", "E") # Befundart
+
+        s.field("8410", "TPO") # Test-Ident
+        s.field("8411", "ANTITPO") # Testbezeichnung
+        s.field("8418", "K") # Tststatus (Fehlt, Korrigiert, Berichtigt)
+        s.field("8420", "12.4")
+        s.field("8421", "U/l") # Einkeit
+        s.field("8480", "Ergebnistext") # Ergebnistext
+
+      end
+    end
+  end
+  
+  it "should not raise any errors" do
+    proc { @lg.to_s }.should_not raise_error
+  end
+  
+  it "should have the correct string representation" do
+    @lg.to_s.should == <<-EOF
+01380008220
+
+    EOF
+  end
+  
+  it "should have correct length" do
+    @lg.to_s[/9202\d{8}/][-8..-1].to_i.should == @lg.to_s.length
+  end
+end

data/spec/xdt_spec.rb

@@ -0,0 +1,23 @@
+require 'lib/xdt'
+
+describe "an XDT record with an ID and some data" do
+  before do
+    @field = Xdt::Field.new("8000", "8221")
+  end
+
+  it "should have a string representation that includes length and ends in CR LF" do
+    @field.to_s.should == "01380008221\r\n"
+  end
+end
+
+describe "creating a XDT block" do
+  before do
+    @block = Xdt::Section.new("0020") do |b|
+      b.field "9105", "123"
+    end
+  end
+  
+  it "should have a string representation where the length field exists and has the correct value" do
+    @block.to_s.should == "01380000020\r\n014810000039\r\n0129105123\r\n"
+  end
+end

data/xdt.gemspec

@@ -0,0 +1,34 @@
+Gem::Specification.new do |s|
+  s.name = %q{xdt}
+  s.version = "1.0.5"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Levin Alexander"]
+  s.date = %q{2008-11-10}
+  s.default_executable = %q{gdt2http}
+  s.description = %q{xDT is a library that reads and writes LDT, GDT and BDT data.}
+  s.email = ["mail@levinalex.net"]
+  s.executables = ["gdt2http"]
+  s.extra_rdoc_files = ["History.txt", "Manifest.txt", "README.txt"]
+  s.files = [".DS_Store", "History.txt", "Manifest.txt", "README.txt", "Rakefile", "bin/gdt2http", "lib/gdt/field_definitions.rb", "lib/gdt/field_handling.rb", "lib/gdt/parser.rb", "lib/gdt2http.rb", "lib/gdt_interface.rb", "lib/xdt.rb", "lib/xdt/ldt.rb", "lib/xdt/markup.rb", "lib/xdt/xdt_fields.rb", "lib/xdt/xdt_sections.rb", "spec/examples/BARCQPCN.001", "spec/gdt_field_definitions_spec.rb", "spec/gdt_parser_spec.rb", "spec/gdt_spec.rb", "spec/lg_report_spec.rb", "spec/xdt_spec.rb", "xdt.gemspec"]
+  s.has_rdoc = true
+  s.homepage = %q{http://levinalex.net/src/xdt}
+  s.rdoc_options = ["--main", "README.txt"]
+  s.require_paths = ["lib"]
+  s.rubyforge_project = %q{xdt}
+  s.rubygems_version = %q{1.2.0}
+  s.summary = %q{xDT is a library that reads and writes LDT, GDT and BDT data.}
+
+  if s.respond_to? :specification_version then
+    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
+    s.specification_version = 2
+
+    if current_version >= 3 then
+      s.add_development_dependency(%q<hoe>, [">= 1.8.0"])
+    else
+      s.add_dependency(%q<hoe>, [">= 1.8.0"])
+    end
+  else
+    s.add_dependency(%q<hoe>, [">= 1.8.0"])
+  end
+end

metadata

@@ -0,0 +1,108 @@
+--- !ruby/object:Gem::Specification 
+name: xdt
+version: !ruby/object:Gem::Version 
+  hash: 29
+  prerelease: false
+  segments: 
+  - 1
+  - 0
+  - 5
+  version: 1.0.5
+platform: ruby
+authors: 
+- Levin Alexander
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2008-11-10 00:00:00 +01:00
+default_executable: gdt2http
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: hoe
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        hash: 55
+        segments: 
+        - 1
+        - 8
+        - 0
+        version: 1.8.0
+  type: :development
+  version_requirements: *id001
+description: xDT is a library that reads and writes LDT, GDT and BDT data.
+email: 
+- mail@levinalex.net
+executables: 
+- gdt2http
+extensions: []
+
+extra_rdoc_files: 
+- History.txt
+- Manifest.txt
+- README.txt
+files: 
+- .DS_Store
+- History.txt
+- Manifest.txt
+- README.txt
+- Rakefile
+- bin/gdt2http
+- lib/gdt/field_definitions.rb
+- lib/gdt/field_handling.rb
+- lib/gdt/parser.rb
+- lib/gdt2http.rb
+- lib/gdt_interface.rb
+- lib/xdt.rb
+- lib/xdt/ldt.rb
+- lib/xdt/markup.rb
+- lib/xdt/xdt_fields.rb
+- lib/xdt/xdt_sections.rb
+- spec/examples/BARCQPCN.001
+- spec/gdt_field_definitions_spec.rb
+- spec/gdt_parser_spec.rb
+- spec/gdt_spec.rb
+- spec/lg_report_spec.rb
+- spec/xdt_spec.rb
+- xdt.gemspec
+has_rdoc: true
+homepage: http://levinalex.net/src/xdt
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --main
+- README.txt
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: xdt
+rubygems_version: 1.3.7
+signing_key: 
+specification_version: 2
+summary: xDT is a library that reads and writes LDT, GDT and BDT data.
+test_files: []
+