oddb2xml 2.0.9 → 2.1.0

checksums.yaml

@@ -1,7 +1,15 @@
 ---
-SHA1:
-  metadata.gz: 927b0bc8d96d6ed56d7bb1daf1c9620483ff10ce
-  data.tar.gz: 9544ef85b62183a230dba6b97cb8b4c7f64936fa
+!binary "U0hBMQ==":
+  metadata.gz: !binary |-
+    MWIzODZlNjVlYTgzMzIxNDUwNmQ1NjgwMjdhNGFkNWEwNmI2NjExYQ==
+  data.tar.gz: !binary |-
+    NDYwYWMxMmQ5YjVlNWM4NmNlOTU4NWY0NDU2YjRhZThlNTUzNjhmNw==
 SHA512:
-  metadata.gz: 13910208d9a0c0ef08dc1f9d8c8272ea2d5098b6d010c94473c6ff4063b9a8f5b7e09bad77332a2ef476725b8426ab363b6676dd0bc9cea0023ade6e5d7d77e8
-  data.tar.gz: 388bea5552438eac7d3b4027d98785b27302cab874a5ee2e596655abfb2bed974f99ac8b7f423b71b9fae0986ffdcb204cae1bde4cce54d92f2ab9d8a5665580
+  metadata.gz: !binary |-
+    NzQ1OWJlMmVlZDMzM2ZkMDM0M2Q0MzNlNGEyNzYxNGE0YjYxN2FjM2RkNjM0
+    Y2Y0Yjk4YTkxZGY5YTBjODMzYWE2ZjQ3NGZlMzU5YTUxZmI0N2QxZGY5MDQ0
+    YjRjMWIyNWNmZGI1YzYyOTBiODU2MjU1MDFkODU5MjIyOTczYjE=
+  data.tar.gz: !binary |-
+    MjIxZWJkY2JmNzhlOGNhNTljMDUwZmU3YThhODAwYTNiNTYxMTg0MDE3ZDcy
+    MGMzNjA0MGY4ODFlZWJjM2MzYzIxOTU4MTVkOWVhMTUxMzBhOTE4MDQ5OTM3
+    ODY4ZDY0ZWNjZDQ1YzY2NTQ0ZDQyNDI1MjgxYmYwNDkyNzcyMTY=

data/Gemfile.lock

@@ -1,7 +1,7 @@
 PATH
   remote: .
   specs:
-    oddb2xml (2.0.8)
+    oddb2xml (2.1.0)
       archive-tar-minitar (~> 0.5.2)
       mechanize (~> 2.5.1)
       nokogiri (~> 1.5.10)

data/History.txt

@@ -1,3 +1,7 @@
+=== 2.1.0 / 12.05.2015
+
+* --calc uses now a parser to split Column-C into the preparationname and the galenic-form
+
 === 2.0.9 / 05.05.2015
 
 * rm /downloads when running with option "-e"

data/dokumentation_calc.textile

@@ -23,34 +23,152 @@ Die Syntax wird in einer Datei "compositions_syntax":https://raw.githubuserconte
 
 h2. Gebrauchte Abkürzungen und Schlüsselworte
 
-- et alia  := es gibt noch andere Substanzen. Beispiel: 62504 Olanzapin Sandoz Solufilm 20 mg
-- et oder ,  := trennen Substanzen. Beispiel: 29555 NaCl 11,7 % B. Braun, Zusatzampullen zu Infusionslösungen
-- ut := vorgehende Substanz wird via nachstehend aufgeführte Salze(e) aufgenommen. Beispiel: 54749 Supradyn Vital 50+.
-- DER: :=  DrugEthanol Ratio
-- q.s. := quantum satis (genügend, meist ohne Limitenangabe)
-- pro praeparatione := pro Präparat
-- excipiens := Füllmittel
-- pro compresso obducto := pro Dragée
-- pro compresso := pro Tablette
-- pro praeparatione := pro Präparat
-- ad pulverem := zum Pulver hinzufügen
-- pro charta := pro Pulver Briefchen
+- DER :=  DrugEthanol Ratio
+- Diluens := Verdünnungsmittel
+- Solutio reconstituta := angefertigte Lösung
+- Solvens (i.m.) := Lösungsmittel (intramuskulär)
+- Solvens (i.v.) := Lösungsmittel (intravenös)
+- Solvens := Lösungsmittel
+- ad emulsionem := zur Herstellung einer Emulsion
 - ad globulos := zu den Vaginalkugeln
-- aqua ad iniectabilia q.s. ad solutionem := genügend steriles Wasser zur Lösung/zum Lösen
-- solvens (i.v.): aqua ad iniectabilia := Lösungsmittel (intravenös): Wasser zu Injektionszwecken
+- ad pulverem := zum Pulver hinzufügen
 - ad solutionem := füge zur Lösung hinzu
-- q.s. ad := quatum satis ad (genügend für/zu/zum)
-- aqua q.s. ad := genügend Wasser zu
-- saccharum ad := Zucker hinzufügen zu
+- ad suspensionem := zur Herstellung einer Suspension
 - aether q.s. := genügend Äther/Aether/Ether
+- ana partes := zu gleichen Teilen
+- antiox. := Antioxidans (Oxidationshemmer)
 - aqua ad iniectabilia := Wasser zu Injektionszwecken
+- aqua ad iniectabilia q.s. ad solutionem := genügend steriles Wasser zur Lösung/zum Lösen
+- aqua ad iniectabilia q.s. ad solutionem pro := wie oben, jedoch für (pro) eine bestimmte Menge (oder best. Volumen)
+- aqua ad solutionem pro := Wasser zur Herstellung einer Lösung von …...
+- aqua q.s. := genügend Wasser ...
+- aqua q.s. ad := entsprechende Menge Wasser für ...
+- aqua q.s. ad emulsionem pro := genügende Menge Wasser zur Herstellung der … best. Menge …. an Emulsion
+- aqua q.s. ad gelatum pro := genügend Wasser zur Herstellung eines Gel
+- aqua q.s. ad solutionem pro := ausreichende Menge Wasser  zur Herstellung einer (best. Menge/Volumen) einer Lösung
+- aqua q.s. ad suspensionem pro := dito wie oben, jedoch für eine Suspension
+- aquos := tdb, 52 Vorkommnisse, z.B. 53096  @Sanukehl Strep D6, homöopathische Tropfen@
+- arom. := aromatisiert ?
+- ca. := zirka
+- color. := gefärbt
+- conserv. := konserviert
+- corresp. := entsprechend
+- corresp. ca. := entsprechend etwa ...
+- deklar. := angegeben
+- doses := Dosen (Mehrzahl von Dosis)
+- doses pro vase := tbd (26 Vorkommnisse, z.B. 48943, @Turbuhaler, Pulver mit Applikator@
+- et alia := es gibt noch andere Substanzen. Beispiel 62504 Olanzapin Sandoz Solufilm 20 mg
+- et oder , := trennen Substanzen. Beispiel 29555 NaCl 11,7 % B. Braun, Zusatzampullen zu Infusionslösungen
+- excipiens := Füllmittel
+- excipiens ad emulsionem pro := Füllmittel zur Herstellung einer Emulsion in einer bestimmten Menge/Volumen
+- excipiens ad pulverem pro := wie oben, aber für ein Pulver
+- excipiens ad solutionem pro := wie oben, einfach für ein best. Volumen einer Lösung
+- excipiens pro compresso := Füllmittel für eine Tablette
+- excipiens pro compresso obducto := Füllmittel für ein Dragée
+- excipiens pro praeparatione := Füllmittel für das Präparat (welches?)
+- mineralia := Mineralien (Minralsalze)
+- pro capsula := je Kapsel
+- pro charta := pro Pulver Briefchen
+- pro compresso := pro Tablette
+- pro compresso obducto := pro Dragée
+- pro dosi := je Dosis
+- pro praeparatione := pro Präparat
+- pro vase := tbd, 84 Vorkommnisse, z.B. 52331 @Extra Dry Cow ad us.vet., Suspension in Injektoren@
+- pro vitro := tbd, je Gläschen (Ampulle? oder was?). Z.B. 55763 @Menopur, Injektionspräparat@
+- q.s. := quantum satis (genügend, meist ohne Limitenangabe)
+- q.s. ad := quatum satis ad (genügend für/zu/zum)
+- q.s. ad pulverem pro := genügend je Pulver zu ...
 - q.s. pro praeparatione := genügend für Präparat
-- ana partes := zu gleichen Teilen
+- ratio := Verhältnis
+- residui := tbd, übrig, aber wovon??, 24 Vorkommnisse, z.B. 58158 @Priorix-Tetra, Pulver und Lösungsmittel zur Herstellung einer Injektionslösung@
+- saccharum ad := Zucker hinzufügen zu
+- solvens (i.v.) aqua ad iniectabilia := Lösungsmittel (intravenös) Wasser zu Injektionszwecken
+- q.s. ad pulverem pro genügend je Pulver zu …….
+- ratio := Verhältnis
+- residui := übrig, aber wovon??
+- spag. := spagyrisches Medi, wahrscheinlich
+- spec. := Spezies, Art
+- spp. := Subspezies, Unterart
+- ssp. := tbd, kommt einmal vor 55445 @Verintex, homöopathisch-spagyrische Lösung zur äusserlichen Anwendung@
+- ut := vorgehende Substanz wird via nachstehend aufgeführte Salze(e) aufgenommen. Beispiel 54749 Supradyn Vital 50+.
+- ut alia := tbd, kommt einmal vor 54749 @Supradyn Vital 50+, Filmtabletten@
+- ut aqua ad iniectabilia q.s. ad emulsionem pro := in Form von genügend Wasser zur Herstellung einer best. Menge Emulsion
+- var. := verschieden, Verschiedenes, ...
 
-h2. Vorgeschlag für Bereinigung
+h2. Vorschlag für Bereinigung
 
 * SwissmedicErrorHandler
-* Corresp: als Label für Bestandteile
-* corresp. für zugehörende Substanz
+* Corresp: als Label für Bestandteile immer Gross schreiben
+* corresp. für zugehörende Substanz, immer klein schreiben
+* Namen von Präparaten und Substanzen, welche Klammern, Anführungszeichen, etc enthalten, mit einfache Anführungszeichen umgeben, z.B. @2,2'-methylen-bis(6-tert.-butyl-4-methyl-phenolum)@ -> @"2,2'-methylen-bis(6-tert.-butyl-4-methyl-phenolum)"@. Dito für Namen, welche Zahlen enthalten wie @Macrogolum 3350@
 * @<@ durch @max.@ ersetzen (1 Mal)
 * @mind.@ durch @min.@ ersetzen, @min.@ kommt viel häufiger vor
+* Alle Bereiche wie @2.4-60 GBq@  durch @2.4-60 GBq@ ersetzen, damit das maschinelle Parsen einfacher wird. Siehe auch Bemerkung über Dosis.
+
+h2. Vorkommende Lebensmittelfarbstoffe (E 100-199), Konservierungsstoffe (E 200-299) und Antioxidantien und Säureregulatoren (E 300-399)
+
+E 102 Tartrazin
+E 104 Chinolingelb
+E 106
+E 110 Gelborange S
+E 120 Echtes Karmin
+E 122 Azorubin
+E 123 Amaranth
+E 124 Cochenillerot A
+E 127 Erythrosin
+E 129 Allurarot AC
+E 131 Patentblau V
+E 132 Indigotin I
+E 133 Brillantblau FCF
+E 141 Kupferhaltige Komplexe der Chlorophylle, kupferhaltige Komplexe der Chlorophylline
+E 142 Grün S
+E 150 Zuckerkulöre
+E 151 Brillantschwarz BN
+E 153 Pflanzenkohle
+E 160
+E 171 Titandioxid
+E 172 Eisenoxide und -hydroxide
+E 200 Sorbinsäure
+E 202 Kaliumsorbat
+E 210 Benzoesäure
+E 211 Natriumbenzoat
+E 214 4-Hydroxybenzoesäureethylester
+E 215 Natrium-4-Hydroxybenzoesäureethylester
+E 216 4-Hydroxybenzoesäurepropylester (nicht zugelassen)
+E 217 Natrium-4-Hydroxybenzoesäurepropylester (nicht zugelassen)
+E 218 4-Hydroxybenzoesäuremethylester
+E 219 Natrium-4-Hydroxybenzoesäuremethylester
+E 220 Schwefeldioxid / Schweflige Säure
+E 221 Natriumsulfit
+E 222 Natriumhydrogensulfit
+E 223 Natriumdisulfit
+E 224 Kaliumdisulfit
+E 281 Natriumpropionat
+E 300 Ascorbinsäure
+E 301 Natriumascorbat
+E 304 Ascorbylpalmitat, Ascorbylstearat
+E 307 Alpha-Tocopherol
+E 310 Propylgallat
+E 311 Octylgallat
+E 312 Dodecylgallat
+E 320 Butylhydroxyanisol (BHA)
+E 321 Butylhydroxytoluol (BHT)
+
+h2. mit Vorsicht zu geniessende Konservierungsstoffe
+
+kritisch im Hinblick auf Nebenwirkungen im menschlichen Körper, sind meines Wissens folgende Stoffe:
+
+214  PHB-Ester
+215  PHB-Ethylester-Natriumsalz
+218  PHB-Methylester
+219  PHB-Methylester-Natriumsalz
+220  Schwefeldioxid
+221  Natriumsulfit
+222  Natriumhydrogensulfit
+223  Natriummetabisulfit
+224  Kaliummetabisulfit
+226  Calciumsulfit
+
+Aber Vorsicht: Patienten können auch auf andere Zusatzstoffe reagieren - meist Reaktionen allergischer Natur. Gemeinhin treten primär gastro-intestinale Probleme auf (angefangen bei schlechtem Mundgeruch bis hin zu akuter Diarrhöe (Durchfall), Übelkeit, Kopfschmerzen, Hautausschläge, Jucken usw.).  
+
+Für Kleininder kann Banzylalkohol (z.T. auch in Schokoladewaren) schlimme Folgen haben. Darum dürfen Ampullenlösungen für die Pädiatrie NIE Benzylakohol als Konservierungsmittel enthalten!

data/lib/oddb2xml/builder.rb

@@ -698,7 +698,7 @@ module Oddb2xml
             items[ean13] = info
             xml.ARTICLE {
               xml.GTIN          ean13
-              xml.NAME          info.name
+              xml.NAME          info.column_c
               xml.PKG_SIZE      info.pkg_size
               xml.SELLING_UNITS info.selling_units
               xml.MEASURE       info.measure # Nur wenn Lösung wen Spalte M ml, Spritze

data/lib/oddb2xml/calc.rb

@@ -103,7 +103,7 @@ module Oddb2xml
     @@names_without_galenic_forms = []
     @@rules_counter = {}
     attr_accessor   :galenic_form, :unit, :pkg_size
-    attr_reader     :name, :substances, :composition, :compositions
+    attr_reader     :name, :substances, :composition, :compositions, :column_c
     attr_reader     :selling_units, :count, :multi, :measure, :addition, :scale # s.a. commercial_form in oddb.org/src/model/part.rb
     def self.get_galenic_group(name, lang = 'de')
       @@galenic_groups.values.collect { |galenic_group|
@@ -156,16 +156,32 @@ private
       string ? string.to_s.gsub(/\s\s+/, ' ') : nil
     end
 public
-    def initialize(name = nil, size = nil, unit = nil, active_substance = nil, composition= nil)
-      @name = remove_duplicated_spaces(name)
+    def initialize(column_c = nil, size = nil, unit = nil, active_substance = nil, composition= nil)
+      @column_c = column_c ? column_c.gsub(/\s\s+/, ' ') : nil
+      @name, gal_form =  ParseGalenicForm.from_string(column_c)
+      gal_form = gal_form.gsub(/\s\s+/, ' ').sub(' / ', '/') if gal_form
+      @galenic_form = search_galenic_info(gal_form)
       @pkg_size = remove_duplicated_spaces(size)
       @unit = unit
-      # @pkg_size, @galenic_group, @galenic_form =
-      search_galenic_info
+      @selling_units = get_selling_units(@name, @pkg_size, @unit)
       @composition = composition
       @measure = unit if unit and not @measure
+      unless @galenic_form
+        parts = column_c.split(/\s+|,|\-/)
+        parts.each{
+          |part|
+          if idx = search_exact_galform(part)
+            @galenic_form = idx
+            break
+          end
+        }
+      end if column_c
+      if @measure and not @galenic_form
+        @galenic_form ||= search_exact_galform(@measure)
+        @galenic_form ||= search_exact_galform(@measure.sub('(n)', 'n'))
+      end
+      handle_unknown_galform(gal_form)
       @measure = @galenic_form.description if @galenic_form and not @measure
-      @galenic_form  ||= @@galenic_forms[UnknownGalenicForm]
 
       unless composition
         @compositions = []
@@ -193,9 +209,6 @@ public
         galenic_group ? galenic_group.description : ''
         ]
     end
-    def galenic_form__xxx
-      @galenic_form.description
-    end
   private
 
     def update_rule(rulename)
@@ -291,63 +304,49 @@ public
         return 1
       end
     end
-    # Parse a string for a numerical value and unit, e.g. 1.5 ml
-    def self.check_for_value_and_units(what)
-      if m = /^([\d.]+)\s*(\D+)/.match(what)
-        # return [m[1], m[2] ]
-        return m[0].to_s
-      else
-        nil
+
+    def search_exact_galform(name)
+      return nil unless name
+      if idx = @@galenic_forms.values.find{|x| x.descriptions['de'] and x.descriptions['de'].downcase.eql?(name.downcase) } or
+        idx = @@galenic_forms.values.find{|x| x.descriptions['fr'] and x.descriptions['fr'].downcase.eql?(name.downcase) } or
+        idx = @@galenic_forms.values.find{|x| x.descriptions['en'] and x.descriptions['en'].downcase.eql?(name.downcase) }
+        return idx
       end
+      return nil
     end
-    def search_galenic_info
-      @substances = nil
-      @substances = @composition.split(/\s*,(?!\d|[^(]+\))\s*/u).collect { |name| ParseUtil.capitalize(name) }.uniq if @composition
 
-      name = @name ? @name.clone : ''
-      parts = name.split(',')
-      form_name = nil
-      if parts.size == 0
-      elsif parts.size == 1
-        @@names_without_galenic_forms << name
+    def handle_unknown_galform(gal_form)
+      return if @galenic_form
+      if gal_form
+        @galenic_form =  GalenicForm.new(0, {'de' => remove_duplicated_spaces(gal_form.gsub(' +', ' '))}, @@galenic_forms[UnknownGalenicForm] )
+        @@new_galenic_forms << gal_form
       else
-        parts[1..-1].each{
+        @galenic_form = @@galenic_forms[UnknownGalenicForm]
+      end
+    end
+
+    def search_galenic_info(gal_form)
+      if idx = search_exact_galform(gal_form)
+        return idx
+      end
+      if gal_form and gal_form.index(',')
+        parts = gal_form.split(/\s+|,/)
+        parts.each{
           |part|
-          form_name = part.strip
-          @galenic_form = Calc.get_galenic_form(form_name)
-          # puts "oid #{UnknownGalenicForm} #{@galenic_form.oid} for #{name}"
-          break unless @galenic_form.oid == UnknownGalenicForm
-          if @galenic_form.oid == UnknownGalenicForm
-            @galenic_form =  GalenicForm.new(0, {'de' => remove_duplicated_spaces(form_name.gsub(' +', ' '))}, @@galenic_forms[UnknownGalenicForm] )
-            @@new_galenic_forms << form_name
+          if idx = search_exact_galform(part)
+            return idx
           end
         }
-      end
-      @name = name.strip
-      if @pkg_size.is_a?(Fixnum)
-        @count = @pkg_size
-        res = [@pkg_size]
-      else
-        res = @pkg_size ? @pkg_size.split(/x/i) : []
-        if res.size >= 1
-          @count = res[0].to_i
-        else
-          @count = 1
+      elsif gal_form
+        if gal_form.eql?('capsule')
+          idx = search_exact_galform('capsules')
+          return idx
         end
-      end
-      # check whether we find numerical and units
-      if res.size >= 2
-        if (result = Calc.check_for_value_and_units(res[1].strip)) != nil
-          @multi = result[1].to_f
-        else
-          @multi = res[1].to_i
+        if idx = search_exact_galform(gal_form)
+          return idx
         end
-      else
-        @multi = 1
+        return nil
       end
-      @addition = 0
-      @scale = 1
-      @selling_units = get_selling_units(form_name, @pkg_size, @unit)
     end
   end
 end

data/lib/oddb2xml/compositions_syntax.rb

@@ -96,8 +96,7 @@ class CompositionParser < Parslet::Parser
   rule(:words_nested) { one_word.repeat(1) >> in_parent.maybe >> space? >> one_word.repeat(0) }
   # dose
   # 150 U.I. hFSH et 150 U.I. hLH
-  rule(:dose_unit) {
-    (
+  rule(:units) {
       str('cm²') |
       str('g/dm²') |
       str('g/l') |
@@ -118,6 +117,7 @@ class CompositionParser < Parslet::Parser
       str('kJ') |
       str('G') |
       str('g') |
+      str('I.E.') |
       str('l') |
       str('µl') |
       str('U. Ph. Eur.') |
@@ -146,8 +146,8 @@ class CompositionParser < Parslet::Parser
       str('% m/m') |
       str('% m/m') |
       str('%')
-    ).as(:unit)
   }
+  rule(:dose_unit) { units.as(:unit) }
   rule(:qty_range)       { (number >> space? >> (str('+/-') | str(' - ') | str(' -') | str('-') | str('±') ) >> space? >> number).as(:qty_range) }
   rule(:qty_unit)       { dose_qty >> (space >> dose_unit).maybe }
   rule(:dose_qty)       { number.as(:qty) }
@@ -434,6 +434,104 @@ class CompositionParser < Parslet::Parser
     excipiens.as(:composition) |
     space.repeat(3)
   }
+
   root :expression_comp
 end
 
+class GalenicFormParser < CompositionParser
+
+  rule(:prepation_separator) { str(', ') | str("\n") }
+
+  rule(:prepation_name) { ((prepation_separator|lparen).absent? >> any).repeat(1)
+                          }
+  rule(:dose_with_pro) {
+                            ( match('[0-9a-zA-Z]').repeat(1) >>
+                               str('/') >>
+                              match('[0-9a-zA-Z\'%]').repeat(1)
+                            ).maybe
+  }
+
+  rule(:gal_form) {
+    qty_unit_silent.maybe >>
+    ((( str("\n") # |
+        str(',') >> space? >> qty_unit_silent |
+        digits >> str('%')
+      ).absent? >> any).repeat(1) >>
+        (lparen >> (rparen.absent? >> any).repeat(1) >> rparen).maybe
+    ).as(:galenic_form) >>
+    space?
+
+  }
+
+  rule(:standard_galenic) {
+                            prepation_name.as(:prepation_name) >> space? >>
+                            prepation_separator >> space? >>
+                            (name_without_parenthesis >> qty_unit_silent >> prepation_separator).maybe >>
+                            (qty_unit_silent >> space?).maybe >>
+                            (dose_with_pro >> space? >> str(',') >> space?).maybe >>
+                            gal_form >> space?
+                         }
+
+  rule(:qty_unit_silent) { number >> space >> units  }
+  rule(:name_then_dose) { ((space.absent? >> any).repeat(1) >>
+                            space >> qty_unit_silent).as(:prepation_name) >> space?.as(:galenic_form)
+                          }
+
+  rule(:only_name) { any.repeat(1).as(:prepation_name) >> space?.as(:galenic_form)
+                     }
+
+  rule(:name_comma_gal_form) { (space.absent? >> any).repeat(1).as(:prepation_name) >>
+                                comma >> space >>
+                                any.repeat(1).as(:galenic_form)
+                              }
+  rule(:simple_name) { ((match(["a-zA-Z0-9,%"]) | str('-') | umlaut).repeat(1))  >>
+                       (lparen >> (rparen.absent? >> any.repeat(1)) >> rparen).maybe
+                     }
+  rule(:name_gal_form) { # e.g. Dicloabak 0,1% Augentropfen or 35 Clear-Flex 3,86 % Peritonealdialyselösung
+                           (simple_name >> space).repeat(1).as(:prepation_name) >>
+                           space? >>
+                            (dose_with_pro >> space?).maybe >>
+                          (digits.absent? >> gal_form) >> space?
+  }
+
+  rule(:name_without_comma_gal_form) { # Sulfure de Rhénium (186Re)-RE-186-MM-1 Cis bio International
+    ((str(', ')| str(',') >> match(['A-Z'])).absent? >> any).repeat(1).as(:prepation_name) >>
+    comma >> space? >>
+    gal_form >> space?
+  }
+
+# Phytopharma foie et bile capsules/Leber-Galle Kapseln
+  rule(:leber_gallen_kapseln) { ((str('/Leber-Galle Kapseln').absent? >> any).repeat(1)).as(:prepation_name)  >>
+                                str('/') >> any.repeat(1).as(:galenic_form) >>
+                                space?
+                              }
+# Plak-out Spray 0,1 %
+  rule(:plak_out_spray) { str('Plak-out Spray 0,1 %').as(:prepation_name)  >>
+                                space? >> str('dummy').maybe.as(:galenic_form) >> space?
+                              }
+  rule(:galenic)   {
+                     plak_out_spray |
+                     leber_gallen_kapseln |
+                     standard_galenic |
+                     name_comma_gal_form |
+                     name_then_dose >> space? |
+                     name_without_comma_gal_form |
+                     name_gal_form |
+                     only_name >> space? |
+                     space?
+                   }
+
+  # for debugging purposes only
+  rule(:galenicD)   {
+                     plak_out_spray.as(:plak_out_spray) |
+                     leber_gallen_kapseln.as(:leber_gallen_kapseln) |
+                     standard_galenic.as(:standard_galenic) |
+                     name_comma_gal_form.as(:name_comma_gal_form) |
+                     name_then_dose.as(:name_then_dose) >> space? |
+                     name_without_comma_gal_form.as(:name_without_comma_gal_form) |
+                     name_gal_form.as(:name_gal_form) |
+                     only_name.as(:only_name) >> space? |
+                     space?
+                   }
+  root :galenic
+end

data/lib/oddb2xml/parslet_compositions.rb

@@ -83,6 +83,7 @@ module ParseUtil
     comps << ParseComposition.new(composition_text.split(/,|:|\(/)[0]) if comps.size == 0
     comps
   end
+
 end
 
 class IntLit   < Struct.new(:int)
@@ -426,3 +427,46 @@ class ParseComposition
     return result
   end
 end
+
+class GalenicFormTransformer < CompositionTransformer
+
+  rule( :preparation_name => simple(:preparation_name),
+        :galenic_form => simple(:preparation_name),
+      ) {
+    |dictionary|
+        puts "#{File.basename(__FILE__)}:#{__LINE__}: dictionary #{dictionary}" if VERBOSE_MESSAGES
+      binding.pry
+        name = dictionary[:preparation_name] ? dictionary[:preparation_name].to_s : nil
+        form = dictionary[:galenic_form] ? dictionary[:galenic_form].to_s : nil
+        # name, form
+  }
+end
+
+class ParseGalenicForm
+  def ParseGalenicForm.from_string(string)
+    return nil if string == nil
+    stripped = string.gsub(/^"|["\n]+$/, '')
+    return nil unless stripped
+    puts "ParseGalenicForm.from_string #{string}" if VERBOSE_MESSAGES # /ng-tr/.match(Socket.gethostbyname(Socket.gethostname).first)
+
+    parser = GalenicFormParser.new
+    transf = GalenicFormTransformer.new
+    begin
+      if defined?(RSpec)
+        ast = transf.apply(parser.parse_with_debug(string))
+        puts "#{File.basename(__FILE__)}:#{__LINE__}: ==> " if VERBOSE_MESSAGES
+        pp ast if VERBOSE_MESSAGES
+      else
+        ast = transf.apply(parser.parse(string))
+      end
+    rescue Parslet::ParseFailed => error
+      @@errorHandler.nrParsingErrors += 1
+      puts "#{File.basename(__FILE__)}:#{__LINE__}: failed parsing ==>  #{string}"
+      return nil
+    end
+    return [] unless ast
+    form = ast[:galenic_form] ? ast[:galenic_form].to_s.sub(/^\/\s+/, '') : nil
+    name = ast[:prepation_name] ? ast[:prepation_name].to_s.strip : nil
+    return [name,  form]
+  end
+end

data/lib/oddb2xml/version.rb

@@ -1,3 +1,3 @@
 module Oddb2xml
-  VERSION = "2.0.9"
+  VERSION = "2.1.0"
 end