created gettext processor using StringScanner and benchmark it

it is slower

benchmark/gettext_reg.rb

@@ -0,0 +1,20 @@
+require 'rubygems'
+require 'lib/i18n-translate'
+require 'pp'
+
+opts = {:locale_dir => 'test/locale/src', :locale => 'cze', :format => 'po', :default => 'cze'}
+tr = I18n::Translate::Translate.new('cze', opts)
+fname = opts[:locale_dir] + "/" + opts[:locale] + "." + opts[:format]
+
+pr = I18n::Translate::Processor::Gettext
+
+COUNT = 1000
+
+bt = Time.now
+COUNT.times do |i|
+  processor = pr.new(fname, tr)
+  processor.read
+end
+et = Time.now
+
+puts "Regular Time: #{et-bt}"

benchmark/gettext_scan.rb

@@ -0,0 +1,21 @@
+require 'rubygems'
+require 'lib/i18n-translate'
+require 'lib/i18n/processor/gettext_strscan'
+require 'pp'
+
+opts = {:locale_dir => 'test/locale/src', :locale => 'cze', :format => 'po', :default => 'cze'}
+tr = I18n::Translate::Translate.new('cze', opts)
+fname = opts[:locale_dir] + "/" + opts[:locale] + "." + opts[:format]
+
+pr = I18n::Translate::Processor::GettextScanner
+
+COUNT = 1000
+
+bt = Time.now
+COUNT.times do |i|
+  processor = pr.new(fname, tr)
+  processor.read
+end
+et = Time.now
+
+puts "Scanner Time: #{et-bt}"

lib/i18n/processor/gettext_strscan.rb

@@ -0,0 +1,190 @@
+# -*- coding: utf-8 -*-
+# vi: fenc=utf-8:expandtab:ts=2:sw=2:sts=2
+# 
+# @author: Petr Kovar <pejuko@gmail.com>
+
+require 'strscan'
+
+module I18n::Translate::Processor
+
+  class GettextScanner < Template
+    FORMAT = ['po', 'pot']
+
+  protected
+
+    def import(data)
+      hash = {}
+
+      entry = {}
+      key = nil
+      last = nil
+
+
+      s = StringScanner.new(data)
+
+      until s.eos?
+
+        # empty line starts new entry
+        if s.scan /\n\s*\n/
+          if not entry.empty? and key
+            key = entry["default"].dup unless key
+            I18n::Translate.set(key, entry, hash, @translate.options[:separator])
+          end
+          key = last = nil
+          entry = {}
+          next
+        end
+
+        # skip end of line
+        if s.scan /\n/
+          next
+        end
+
+        # comments
+        if s.scan /#/
+          # translator's comment
+          if s.scan %r{\s+}
+            entry["comment"] = s.scan(/.*?$/).to_s.strip
+
+          # extracted comment
+          elsif s.scan %r{\.\s+}
+            entry["extracted_comment"] = s.scan(/.*?$/).to_s.strip
+
+          # reference
+          elsif s.scan %r{:\s+}
+            entry["reference"] = s.scan(/.*?$/).to_s.strip
+            if entry["reference"] =~ %r{(.*):(\d+)}
+              entry["file"] = $1.to_s.strip
+              entry["line"] = $2.to_s.strip
+            end
+
+          # flag
+          elsif s.scan %r{,\s+}
+            flags = s.scan(/.*?$/).split(",").compact.map{|x| x.strip}
+            fuzzy = flags.delete("fuzzy")
+            unless fuzzy
+              entry["flag"] = "ok"
+            else
+              flags.delete_if{|x| not I18n::Translate::FLAGS.include?(x)}
+              entry["flag"] = flags.first unless flags.empty?
+              entry["fuzzy"] = true
+            end
+
+          # old default
+          elsif s.scan %r{\| msgid\s+"}
+            match = s.scan(%r{.*"$}).to_s[0..-2]
+            entry["old_default"] = match
+            # expect that this entry has no key
+            # if does, will be overwriten later
+            key = entry["old_default"].dup
+          end
+        end # end of scan for comments
+
+        # key (context)
+        if s.scan %r{msgctxt\s+"}
+          key = get_string(s)
+          last = "key"
+
+        # default
+        elsif s.scan %r{msgid\s+"}
+          match = get_string(s)
+          if match.empty?
+            last = "po-header"
+          else
+            last = "default"
+            entry[last] = uninspect(match)
+            key = entry[last].dup unless key
+          end
+
+        # translation
+        elsif s.scan %r{msgstr\s+"}
+          match = get_string(s)
+          last = "translation" unless last == "po-header"
+          entry[last] = uninspect(match)
+
+        # string continuation
+        elsif s.scan %r{"}
+          match = get_string(s)
+          if last == "key"
+            key = "#{key}#{match}"
+          elsif last == "po-header"
+            case match
+            when %r{Content-Type: text/plain; charset=(.*)}
+              enc = uninspect($1.to_s).strip
+              @translate.options[:encoding] = enc unless enc.empty?
+            when %r{X-Language: (.*)}
+              # skip language is set from filename
+            end
+          elsif last
+            entry[last] = "#{entry[last]}#{uninspect(match)}"
+          end
+        end
+      end
+
+      # last line at end of file
+      if not entry.empty? and key
+        I18n::Translate.set(key, entry, hash, @translate.options[:separator])
+      end
+
+      {@translate.lang => hash}
+    end
+
+
+    def export(data)
+      target = data[@translate.lang]
+      str = ""
+      keys = I18n::Translate.hash_to_keys(@translate.default).sort
+
+      str << %~msgid ""\n~
+      str << %~msgstr ""\n~
+      str << %~"Content-Type: text/plain; charset=#{@translate.options[:encoding]}\\n"\n~
+      str << %~"X-Language: #{@translate.lang}\\n"\n~
+      keys.each do |key|
+        entry = [""]
+        value = @translate.find(key, target)
+        next unless value
+
+        if value.kind_of?(String)
+          # leave out msgctxt if using po strings as a key
+          default = @translate.find(key, @translate.default)
+          entry << %~msgctxt #{key.inspect}~ if key != default
+          entry << %~msgid #{default.to_s.inspect}~
+          entry << %~msgstr #{value.to_s.inspect}~
+        else
+          entry << %~#  #{value["comment"].to_s.strip}~ unless value["comment"].to_s.strip.empty?
+          entry << %~#. #{value["extracted_comment"].to_s.strip}~ unless value["extracted_comment"].to_s.strip.empty?
+          if not value["reference"].to_s.strip.empty?
+            entry << %~#: #{value["reference"].to_s.strip}~
+          elsif value["file"] or value["line"]
+            entry << %~#: #{value["file"].to_s.strip}:#{value["line"].to_s.strip}~
+          end
+          key_default = nil
+          key_default = value["default"] if value["default"] == key
+          key_default = value["old_default"] if value["old_default"] == key
+          flags = []
+          flags << "fuzzy" if (not value["flag"].nil?) and (value["flag"] != "ok")
+          flags << value["flag"] unless value["flag"].to_s.strip.empty?
+          entry << %~#, #{flags.join(", ")}~ unless flags.empty?
+          entry << %~#| msgid #{value["old_default"].to_s.inspect}~ unless value["old_default"].to_s.empty?
+          entry << %~msgctxt #{key.inspect}~ if key != key_default
+          entry << %~msgid #{value["default"].to_s.inspect}~
+          entry << %~msgstr #{value["translation"].to_s.inspect}~
+        end
+
+        entry << ""
+
+        str << entry.join("\n")
+      end
+
+      str
+    end
+
+    private
+
+    def get_string scanner
+      scanner.scan(%r{.*?"$}).to_s[0..-2]
+    end
+
+  end
+
+end