Test C0 Coverage Information - RCov

 require 'encoding/character/utf-8'

 module ODDB

 	module OdbaExporter

 		class Table

 			CRLF = "\r\n"

 			def filename

 				self::class::FILENAME

 			end

 		class AcTable <	Table

 			FILENAME = 's01x'

 			def lines(package)

 				[AcLine.new(package)]

 			end

 		class AccompTable < Table

 			FILENAME = 's19x'

 			def lines(package)

 				[AccompLine.new(package)]

 			end

 		class AcLimTable < Table

 			FILENAME = 's09x'

 			def lines(package)

 				lines = []

 				unless((sl = package.sl_entry).nil?)

 					if(lim = sl.limitation_text)

 						chap = lim.descriptions.values.first

 						chap.paragraphs.each_with_index { |par, idx|

 							pack = package.oid

 							line = idx 

 							lim = (pack.to_s + sprintf('%03i', line).to_s).to_i

 							lines << AcLimLine.new(pack, line, lim)

 				lines

 		class AcmedTable < Table

 			FILENAME = 's02x'

 			def lines(package)

 				[AcmedLine.new(package)]

 			end

 		class AcnamTable < Table

 			FILENAME = 's03x'

 			def lines(package)

 				[AcnamLine.new(package)]

 			end

 		class AcOddbTable < Table

 			FILENAME = 's99x'

 			def lines(package)

 				lines = []

 				if(package.pharmacode)

 					lines << AcOddbLine.new(package)

 				lines

 		class AcpricealgTable < Table

 			FILENAME = 's07x'

 			def lines(package)

 				lines = [

 					AcpricealgPublicLine.new(package),

 					AcpricealgExfactoryLine.new(package),

 				lines.delete_if { |line| line.empty? }

 				lines

 		class AcscTable < Table

 			FILENAME = 's41x'

 			def lines(package)

 				lines = []

 				package.active_agents.each_with_index { |act, idx|

 					lines.push(AcscLine.new(package, act, idx))

 				lines

 		class LimitationTable < Table

 			FILENAME = 's16x'

 			def lines(package)

 				lines = []

 				unless((sl = package.sl_entry).nil?)

 					if(lim = sl.limitation_text)

 						chap = lim.descriptions.values.first

 						chap.paragraphs.each_with_index { |par, idx|

 							pack = package.oid

 							line = idx 

 							lim = (pack.to_s + sprintf('%03i', line).to_s).to_i

 							lines << LimitationLine.new(lim)

 				lines

 		class LimTxtTable < Table

 			FILENAME = 's10x'

 			def lines(package)

 				lines = []

 				unless((sl = package.sl_entry).nil?)

 					if(lim = sl.limitation_text)

 						lim.descriptions.each { |lang, value|

 							value.paragraphs.each_with_index { |par, idx|

 								language = lang[0,1].upcase

 								lim = (package.oid.to_s + sprintf('%03i', idx).to_s).to_i

 								txt = par.text

 								lines << LimTxtLine.new(lim, language, txt)

 				lines

 		class EanTable < Table

 			FILENAME = 's06x'

 			def lines(package)

 				[EanLine.new(package)]

 			end

 		class MCMTable < Table

 			FILENAME = 's31x'

 			def lines(fi)

 				lines = []

 				fi.descriptions.each { |lang, doc|

 					line = 1

 					doc.each_chapter { |chap|

 						text = format_line(chap)

 						while(text.size > 220)

 						lines << MCMLine.new(fi.oid, line, lang, text)

 						line = line.next

 				lines

 			def format_line(chapter)

 				string = String.new

 				unless((head = chapter.heading).empty?)

 					string << '<BI>' << head.to_s << '<E><P>'

 				chapter.sections.each { |sec|

 					unless((subhead = sec.subheading).empty?)

 						subhead = subhead.gsub(/\n/u, "<P>")

 						string << '<I>' << subhead.to_s << '<E>'

 					sec.paragraphs.each { |par|

             case par

             when ODDB::Text::ImageLink

               string << "<IMG src='http://#{SERVER_NAME}#{par.src}'/>"

             when ODDB::Text::Table

               string << '<N>' << par.to_s << '<E>'

               text = u par.text

 							par.formats.each { |format|

 								start_tag = ""

 								end_tag = ""

 								if(format.italic?)

 									start_tag = "<I>"

 									end_tag = "<E>"

                 if formatted = text[format.range]

                   string << start_tag << formatted << end_tag

               string << "<P>"

 							if(par.preformatted?)

 								string.gsub!(/ /, '_')

 								string.gsub!(/\n/, "<P>")

 				string.gsub(/\n/u, ' ')

 		class CodesTable < Table

 			FILENAME = 's11x'

 			def lines(item)

 				case item

 				when AtcClass

 					atclines(item)

 				when GalenicForm

 					gallines(item)

 			end

 			def atclines(atcclass)

 				[AtcLine.new(atcclass)]

 			end

 			def gallines(galform)

 				[GalenicFormLine.new(galform)]

 			end

 		class ScTable < Table

 			FILENAME = 's40x'

 			def lines(substance)

 				[ScLine.new(nil, substance)]

 			end

 		class CompTable < Table

 			FILENAME = 's12x'

 			def lines(company)

 				[CompLine.new(company)]

 			end

 		class Readme < Table

 			FILENAME = 'README'

 			def lines

 				<<-EOS

 			end

 		class Line

 			def initialize(*args)

 				@date = Date.today.strftime("%Y%m%d%H%M%S")

 				@structure = structure

 			def content(structure)

 				return [] if structure.nil?

 				fields = Array.new(self::class::LENGTH)

 				structure.each_pair { |place, field|

 					fields[place-1] = field 

 				fields

 			def empty?

 				@structure.nil?

 			end

 			def structure

 			end

 			def to_s

 				content(@structure).join('|').gsub("\000", "")

 			end	

 		class PackageLine < Line

 			def initialize(package, *args)

 				@package = package

 				super

 		class SubstanceLine < PackageLine

 			def initialize(package, substance, *args)

 				@substance = substance

 				super

 		class AcLine < PackageLine

 			LENGTH = 55

 			def structure

 					4		=>	@package.oid,

 					7		=>	ikskey,

 					20	=>	generic_code(@package.registration),

 					22	=>	iks_date(@package.registration),

 					29	=>	(@package.sl_entry) ? '3' : nil,

 					32	=>	(@package.public?) ? nil : 'H',

 					39	=>	inscode,

 					40	=>	limitation,

 					41	=>	limitation_points,

 					47	=>	(@package.narcotics.empty?) ? nil : 'y',

 				}

 			end

 			def generic_code(registration)

 				if registration.generic_type == :generic

 					'Y'

 			end	

 			def iks_date(registration)

 				if(date = registration.registration_date)

 					date.strftime("%Y%m%d")

 			end

 			def ikskey

 				ikskey = @package.iksnr.dup

 				ikskey << @package.ikscd

 				ikskey

 			def inscode

 				if @package.sl_entry

 					'1'

 			end

 			def limitation

 				if((sl = @package.sl_entry) && (sl.limitation))

 					'Y'

 			end

 			def limitation_points

 				if(sl = @package.sl_entry)

 					sl.limitation_points

 			end

 		class AccompLine < PackageLine

 			LENGTH = 8

 			def structure

 				if(comp = @package.registration.company)

 						3		=>	@package.oid,

 						4		=>	comp.oid,

 					}

 			end

 		class AcLimLine < PackageLine

 			LENGTH = 8

 			def initialize(package_oid, line_oid, lim_oid)

 				@package_oid = package_oid

 				@line_oid = line_oid

 				@lim_oid = lim_oid

 				super

 			def structure

 				}

 			end

 		class AcnamLine < PackageLine

 			LENGTH = 26

 			def structure

 				seq = @package.sequence

 				galform = if(gf = seq.galenic_forms.first)

 					gf.to_s

 				conc, unit = if((dose = seq.dose) && dose.is_a?(Quanty))

 					[dose.qty, dose.unit]

         measures = @package.parts.collect { |part| part.measure }.compact

 				measure, munit = unless(measures.empty?)

                            ms = measures.inject { |a, b| a + b }

                            [ms.qty, ms.unit] if ms.is_a?(Quanty)

         comform = @package.commercial_forms.first

 				qty, qty_unit = if(munit && !munit.empty?)

 					[@package.comparable_size.qty, comform]

 					4		=>	@package.oid,

 					7		=>	seq.name,

 					8		=>	seq.name_base,

 					9		=>	seq.name_descr,

 					16	=>	@package.parts.first ? @package.parts.first.multi : '',

 				}

 		class AcmedLine	< PackageLine

 			LENGTH = 27

 			def structure

 				atccd = if(atc = @package.sequence.atc_class)

 					atc.code

 				gfid = if(galform = @package.galenic_forms.first)

 					galform.oid

 				fioid = if(fachinfo = @package.fachinfo)

 					fachinfo.oid

 				atc = @package.sequence.atc_class

 					4		=>	@package.oid,

 				}

 		class AcOddbLine < PackageLine

 			LENGTH = 2 

 			def structure

 					1		=>	@package.oid,

 				}

 			end

 		class AcpricealgPublicLine	< PackageLine

 			LENGTH = 9

 			def structure

 				if(ppub = @package.price_public)

 						3		=>	@package.oid,

 						4		=>	price_public_type,

 					}

 			end

 			def price_public_type

 				if @package.sl_entry

 					'PSL2'

 					'PPUB'

 			end

 		class AcpricealgExfactoryLine	< PackageLine

 			LENGTH = 9

 			def structure

 				if(pexf = @package.price_exfactory)

 						3		=>	@package.oid,

 					}

 			end

 		class AcscLine < SubstanceLine

 			LENGTH = 10

 			def initialize(package, active_agent, count)

 				@count = count

 				super

 			def structure

 				return if @substance.nil?

 				qty, unit = if((dose = @substance.dose) && dose.is_a?(Quanty))

 					[dose.qty, dose.unit]

 					3		=>	@package.oid,

 					6		=>	@substance.substance.oid,

 				}

 		class AtcLine	< Line

 			LENGTH = 9

 			def initialize(atcclass)

 				@atcclass = atcclass

 				super

 			def structure

 				return if @atcclass.nil?

 					4		=>	@atcclass.code,

 					7		=>	@atcclass.description,

 				}

 		class CompLine < Line

 			LENGTH = 19

 			def initialize(company)

 				@company = company

 				super

 			def structure

 				addr = @company.address(0)

 					3		=>	@company.oid,

 					5		=>	@company.ean13,

 					7		=>	@company.name,

 					8		=>	addr.address,

 					10	=>	addr.plz,

 					11	=>	addr.city,

 					13	=>	addr.fon.first,

 					15	=>	addr.fax.first,

 					16	=>	@company.address_email,

 					17	=>	@company.url,

 				}

 		class EanLine < PackageLine

 			LENGTH = 8

 			def structure

 					3		=>	@package.oid,

 					5		=>	barcode,

 				}

 			end

 			def barcode

 				@package.barcode

 			end

 		class GalenicFormLine	< Line

 			LENGTH = 9

 			def initialize(galenic_form)

 				@galenic_form = galenic_form

 				super

 			def structure

 					4		=>	@galenic_form.oid,

 					7		=>	@galenic_form.to_s,

 				}

 			end

 		class ScLine < SubstanceLine

 			LENGTH = 8

 			def structure

 					3		=>	@substance.oid,

 				}

 			end

 		class LimitationLine < PackageLine

 			LENGTH = 10

 			def initialize(lim_oid)

 				@lim_oid = lim_oid

 				super

 			def structure

 				}

 			end

 		class LimTxtLine < Line

 			LENGTH = 8

 			def initialize(lim_oid, language, txt)

 				@lim_oid = lim_oid

 				@language = language

 				@txt = txt

 				super

 			def structure

 				}

 			end

 		class MCMLine < Line

 			LENGTH = 7

 			def initialize(fi_oid, line_nr, language, text)

 				@fi_oid = fi_oid

 				@line_nr = line_nr

 				@language = language

 				@text = text

 				super

 			def structure

 				}

 			end