quincy 0.4.0

data/.gitignore

@@ -0,0 +1 @@
+pkg

data/CHANGES

@@ -0,0 +1,17 @@
+current
+  - Quincy::PCnet(nil) takes path from ENV
+  - rake test now runs tests with specrb
+  
+0.3.3
+  - Pathname() -> Pathname.new() (ruby 1.8.4)
+  - raise an Exception if no path is given explicitly or via the
+    Environment
+
+0.3.1
+  - changed package generation script to use Hoe
+  - changed unit tests to use test/spec
+  
+0.2.0
+  - Changed handling of Version Numbers (Quincy::VERSION::STRING)
+  - added "-V" switch
+

data/History.txt

@@ -0,0 +1,3 @@
+== 0.3.5 / 2007-09-12
+  * create History.txt
+  * switch to anyforge

data/Manifest.txt

@@ -0,0 +1,9 @@
+CHANGES
+Manifest.txt
+README.txt
+Rakefile
+bin/quincy
+lib/quincy.rb
+spec/sample/PATDAT00/0098.DAT
+spec/sample/PATDAT10/1317.DAT
+spec/test_quincy.rb

data/README.txt

@@ -0,0 +1 @@
+this is a small library to extract patient information from Frey Quincy PCNet

data/Rakefile

@@ -0,0 +1,13 @@
+$LOAD_PATH.unshift './lib'
+
+require 'bundler'
+Bundler::GemHelper.install_tasks
+
+
+require 'quincy'
+
+require 'rspec/core/rake_task'
+RSpec::Core::RakeTask.new
+
+task :default => :spec
+

data/bin/quincy

@@ -0,0 +1,43 @@
+#!/usr/bin/env ruby
+
+require 'optparse'
+require 'quincy'
+
+USAGE = "usage: #{$0} PATNR"
+
+quincy_path = nil # defaults to ENV["QUINCY"]
+
+opts = OptionParser.new do |opts|
+  opts.on "-q", "--quincy-path PATHNAME", 
+          "Location of PATDAT directory", 
+          "Defaults to ENV[\"QUINCY\"]" do |arg| 
+    quincy_path = arg 
+  end
+  opts.on "-V","--version","Display version and exit" do 
+    puts Quincy::VERSION
+    exit
+  end
+  opts.on_tail("-h","--help","Show this Message") do 
+    puts opts
+    exit 
+  end
+
+  opts.parse!
+end
+
+if ARGV.empty?
+  puts USAGE
+  exit
+end
+
+begin
+  ARGV.each { |i|
+    patnr = Integer(i)
+    pat = Quincy::PCnet.new(quincy_path).find(patnr)
+    puts pat if pat
+  }
+rescue Exception => e
+ warn e.message
+ exit 1
+end
+

data/lib/quincy.rb

@@ -0,0 +1,92 @@
+#! /usr/bin/ruby
+
+require 'pathname'
+require 'iconv'
+
+module Quincy
+  VERSION = "0.4.0"
+ 
+  # a Struct containing patient information
+  #
+  class Patient < Struct.new( :nr, :last_name, :first_name )
+    def to_s
+      "#{"%6d"%nr}: #{name}"
+    end
+
+    def name
+      [last_name, first_name].join(", ");
+    end
+  end
+
+  # Interface to Frey Quincy PCNet (http://www.frey.de/q_pcnet.htm).
+  #
+  # Extracts patient information by reading the folder containing
+  # the PATDATXX-subdirectories.
+  # 
+  # Usage:
+  # 
+  #   # find the patient with the number 98
+  #   patient = Quincy::PCnet.new("/example/QUINCY").find(98)
+  # 
+  class PCnet  
+    attr_reader :quincy_path
+    
+    def initialize(path = nil)
+      path ||= ENV["QUINCY"]
+      @@blocksize = 1024
+      
+      raise ArgumentError, "Quincy Path not set (use '-q' or ENV['QUINCY'])" unless path
+      @quincy_path = Pathname.new(path)
+    end
+
+    # returns the PATDAT-file for a given patient nr
+    #
+    #   path = Quincy::PCnet.new("foo").path_for("98")
+    #   #=> "foo/PATDAT00/0098.DAT"
+    #
+    def path_for(nr)
+      dat_nr = nr % 0xa00
+      dir_nr = dat_nr / 0x80
+      patdat_path = @quincy_path + "PATDAT#{"%02d" % dir_nr}" + "#{"%04d"% dat_nr}.DAT"
+      patdat_path.to_str
+    end
+
+    def find(nr)
+      filename = Pathname.new(path_for(nr))
+      return nil unless File.exists?(filename)
+
+      filename.open { |f|
+        while (record = f.read(@@blocksize,"rb")) 
+          patient = read_record(record)
+          return patient if patient and patient.nr == nr
+        end
+      }
+    end
+    
+    private
+    
+    def read_record(record) #:nodoc:
+      return unless record[4] == 0xf6
+
+      read_str = lambda { |pattern| lambda { |chunk| 
+        str = chunk.unpack(pattern).first.strip
+        Iconv.new("UTF-8","CP850").iconv(str)
+      }}
+      
+      fields = {
+        :nr         => lambda { |s| s.unpack("@10A5").first.to_i },
+        :last_name  => read_str["@15A30"],
+        :first_name  => read_str["@45A30"]
+      }
+
+      pat = Patient.new
+
+      fields.each { |k,v| 
+        pat[k] = v.call(record)
+      }
+
+      pat
+    end
+  end
+end
+

data/quincy.gemspec

@@ -0,0 +1,26 @@
+# -*- encoding: utf-8 -*-
+$:.push File.expand_path("../lib", __FILE__)
+require 'quincy'
+
+Gem::Specification.new do |s|
+  s.name = %q{quincy}
+  s.version = Quincy::VERSION
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Levin Alexander"]
+  s.description = %q{}
+  s.email = %q{mail@levinalex.net}
+
+  s.files         = `git ls-files`.split("\n")
+  s.test_files    = `git ls-files -- {test,spec,features}/*`.split("\n")
+  s.executables   = `git ls-files -- bin/*`.split("\n").map{ |f| File.basename(f) }
+
+  s.homepage = %q{http://github.com/levinalex/quincy}
+  s.rdoc_options = ["--charset=UTF-8"]
+  s.require_paths = ["lib"]
+  s.summary = %q{extract patient data from QuincyPCnet data files, <http://www.frey.de/q_pcnet.htm>}
+
+  s.add_dependency "rake"
+  s.add_development_dependency "rspec"
+end
+

data/spec/quincy_spec.rb

@@ -0,0 +1,70 @@
+require 'quincy'
+
+describe "With Patdat-Files in the current directory" do
+  before do
+    @q = Quincy::PCnet.new('.')
+  end
+
+  specify "file for patient 0 should be PATDAT00/0000.DAT" do
+    @q.path_for(0).should == "PATDAT00/0000.DAT"
+  end
+  specify "file for patient 98 should be PATDAT00/0098.DAT" do
+    @q.path_for(98).should == "PATDAT00/0098.DAT"
+  end
+  specify "file for patient 128 should be PATDAT00/0098.DAT" do
+    @q.path_for(128).should == "PATDAT01/0128.DAT"
+  end
+  specify "file for patient 19237 should be PATDAT10/1317.DAT" do
+    @q.path_for(19237).should == "PATDAT10/1317.DAT"
+  end
+end
+
+describe "generated path to the patdat files" do
+  specify "absolute pahs should be preserved" do
+    @q = Quincy::PCnet.new("/absolute/path")
+    @q.path_for(300).should == "/absolute/path/PATDAT02/0300.DAT"
+  end
+end
+
+describe "reading of patients" do
+  before do
+    @q = Quincy::PCnet.new( File.dirname(__FILE__) + "/sample")
+  end
+
+  specify "name of patient 98 should be Sierra, Rudolph" do
+    patient = @q.find(98)
+    patient.name.should == ("Sierra, Rudolph")
+    patient.nr.should be_equal(98)
+  end
+
+  specify "searching for nonexistent patient should return nil" do
+    @q.find(140898).should be_nil
+    @q.find(12345).should be_nil
+  end
+end
+
+describe "when ENV['QUINCY'] is set" do
+  before do
+    ENV["QUINCY"] = "/some/path"
+  end
+
+  specify "path should default to this value" do
+    Quincy::PCnet.new.quincy_path.to_s.should == "/some/path"
+  end
+
+  specify "Path should be taken from ENV even if Quincy is constructed with 'nil' as argument" do
+    Quincy::PCnet.new(nil).quincy_path.to_s.should == "/some/path"
+  end
+
+end
+
+describe "when ENV['QUINCY'] is not set" do
+  before do
+    ENV["QUINCY"] = nil
+  end
+
+  specify "PCnet should raise an error if it is constructed without an argument" do
+    lambda { @q = Quincy::PCnet.new() }.should raise_error(ArgumentError)
+  end
+end
+

metadata

@@ -0,0 +1,105 @@
+--- !ruby/object:Gem::Specification 
+name: quincy
+version: !ruby/object:Gem::Version 
+  hash: 15
+  prerelease: 
+  segments: 
+  - 0
+  - 4
+  - 0
+  version: 0.4.0
+platform: ruby
+authors: 
+- Levin Alexander
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2011-06-30 00:00:00 Z
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: rake
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        hash: 3
+        segments: 
+        - 0
+        version: "0"
+  type: :runtime
+  version_requirements: *id001
+- !ruby/object:Gem::Dependency 
+  name: rspec
+  prerelease: false
+  requirement: &id002 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        hash: 3
+        segments: 
+        - 0
+        version: "0"
+  type: :development
+  version_requirements: *id002
+description: ""
+email: mail@levinalex.net
+executables: 
+- quincy
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- .gitignore
+- CHANGES
+- History.txt
+- Manifest.txt
+- README.txt
+- Rakefile
+- bin/quincy
+- lib/quincy.rb
+- quincy.gemspec
+- spec/quincy_spec.rb
+- spec/sample/PATDAT00/0098.DAT
+- spec/sample/PATDAT10/1317.DAT
+homepage: http://github.com/levinalex/quincy
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --charset=UTF-8
+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: 
+rubygems_version: 1.8.5
+signing_key: 
+specification_version: 3
+summary: extract patient data from QuincyPCnet data files, <http://www.frey.de/q_pcnet.htm>
+test_files: 
+- spec/quincy_spec.rb
+- spec/sample/PATDAT00/0098.DAT
+- spec/sample/PATDAT10/1317.DAT