ixtlan-gettext 0.1.0

data/lib/fast_gettext/translation_repository/ixtlan.rb

@@ -0,0 +1,65 @@
+#
+# ixtlan_gettext - helper to use fast_gettext with datamapper/ixtlan
+# Copyright (C) 2012 Christian Meier
+#
+# This file is part of ixtlan_gettext.
+#
+# ixtlan_gettext is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as
+# published by the Free Software Foundation, either version 3 of the
+# License, or (at your option) any later version.
+#
+# ixtlan_gettext is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with ixtlan_gettext.  If not, see <http://www.gnu.org/licenses/>.
+#
+require 'ixtlan/user_management/domain_resource'
+require 'ixtlan/gettext/models'
+
+module FastGettext
+  module TranslationRepository
+    class Ixtlan
+
+      def initialize( name, options={} )
+        @name = name
+      end
+
+      @@seperator = '||||' # string that seperates multiple plurals
+      def self.seperator=(sep);@@seperator = sep;end
+      def self.seperator;@@seperator;end
+
+      def available_locales
+        []
+      end
+
+      def pluralisation_rule
+        nil
+      end
+
+      def [](key)
+        r = ::Ixtlan::Gettext::Translation.first( ::Ixtlan::Gettext::Translation.translation_key.name => key, 
+                                                  ::Ixtlan::Gettext::Translation.locale.code => FastGettext.locale, 
+                                                  :domain => domain )
+        r.text.to_s if r
+      end
+
+      def plural(*args)
+        if translation = self[ args*self.class.seperator ]
+          translation.to_s.split(self.class.seperator)
+        else
+          []
+        end
+      end
+
+      private
+      
+      def domain
+        @domain ||= ::Ixtlan::UserManagement::Domain.first_or_create( :name => @name ) if @name != ::Ixtlan::Gettext::Manager::DEFAULT
+      end
+    end
+  end
+end

data/lib/fast_gettext/translation_repository/ixtlan.rb~

@@ -0,0 +1,61 @@
+module Ixtlan
+  module Gettext
+    class Repository
+
+      def initialize(name,options={})
+        @domain = Ixtlan::UserManagement::Domain.first( :name => name )
+        raise "domain not found: #{name}" unless @domain
+      end
+
+      @@seperator = '||||' # string that seperates multiple plurals
+      def self.seperator=(sep);@@seperator = sep;end
+      def self.seperator;@@seperator;end
+
+      def available_locales
+        []
+      end
+
+      def pluralisation_rule
+        nil
+      end
+
+      def [](key)
+        Translation.first(TranslationKey.name => key, Locale.code => FastGettext.locale, :domain => @domain)
+      end
+
+      def plural(*args)
+        if translation = self[ args*self.class.seperator ]
+          translation.to_s.split(self.class.seperator)
+        else
+          []
+        end
+      end
+    end
+
+    class Manager
+      
+      DEFAULT = 'default'
+
+      def initialize
+        FastGettext.default_text_domain = DEFAULT
+        @default_repo = build( DEFAULT )
+      end
+
+      def use( locale, name = DEFAULT )
+        unless FastGettext.translation_repositories.key?( name )
+          repos = [ build( "#{name}-overlay" ), @default_repo ]
+          FastGettext.add_text_domain name, :type=>:chain, :chain=> repos
+        end
+        FastGettext.set_locale(locale)
+        FastGettext.text_domain = name
+      end
+
+      private
+
+      def build( name )
+        FastGettext::TranslationRepository.build( name, 
+                                                  :type => Manager.to_s )
+      end
+    end
+  end
+end

data/lib/ixtlan-gettext.rb

@@ -0,0 +1,22 @@
+#
+# ixtlan_gettext - helper to use fast_gettext with datamapper/ixtlan
+# Copyright (C) 2012 Christian Meier
+#
+# This file is part of ixtlan_gettext.
+#
+# ixtlan_gettext is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as
+# published by the Free Software Foundation, either version 3 of the
+# License, or (at your option) any later version.
+#
+# ixtlan_gettext is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with ixtlan_gettext.  If not, see <http://www.gnu.org/licenses/>.
+#
+if defined?(Rails)
+  require 'ixtlan/gettext/railtie'
+end

data/lib/ixtlan-gettext.rb~

@@ -0,0 +1,4 @@
+if defined?(Rails)
+  require 'ixtlan/remote/railtie'
+end
+

data/lib/ixtlan/gettext.rb

@@ -0,0 +1,22 @@
+#
+# ixtlan_gettext - helper to use fast_gettext with datamapper/ixtlan
+# Copyright (C) 2012 Christian Meier
+#
+# This file is part of ixtlan_gettext.
+#
+# ixtlan_gettext is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as
+# published by the Free Software Foundation, either version 3 of the
+# License, or (at your option) any later version.
+#
+# ixtlan_gettext is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with ixtlan_gettext.  If not, see <http://www.gnu.org/licenses/>.
+#
+if defined?(Rails)
+  require 'ixtlan/gettext/railtie'
+end

data/lib/ixtlan/gettext.rb~

@@ -0,0 +1,4 @@
+if defined?(Rails)
+  require 'ixtlan/railtie'
+end
+

data/lib/ixtlan/gettext/controller.rb

@@ -0,0 +1,17 @@
+module Ixtlan
+  module Gettext
+    module Controller
+
+      def flush
+        # only for localhost
+        if request.remote_ip == '127.0.0.1'
+          Rails.application.config.gettext.flush_caches
+          head :ok
+        else
+          head :not_found
+        end
+      end
+
+    end
+  end
+end

data/lib/ixtlan/gettext/controller.rb~

@@ -0,0 +1,16 @@
+module Ixtlan
+  module Gettext
+    module Controller
+
+      def flush
+        # only for localhost
+        if request.remote_ip == '127.0.0.1'
+          Rails.application.config.gettext.flush_caches
+        else
+          head :not_found
+        end
+      end
+
+    end
+  end
+end

data/lib/ixtlan/gettext/crawler.rb

@@ -0,0 +1,61 @@
+#
+# ixtlan_gettext - helper to use fast_gettext with datamapper/ixtlan
+# Copyright (C) 2012 Christian Meier
+#
+# This file is part of ixtlan_gettext.
+#
+# ixtlan_gettext is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as
+# published by the Free Software Foundation, either version 3 of the
+# License, or (at your option) any later version.
+#
+# ixtlan_gettext is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with ixtlan_gettext.  If not, see <http://www.gnu.org/licenses/>.
+#
+module Ixtlan
+  module Gettext
+    class Crawler
+
+      def self.crawl
+        Crawler.new.crawl
+      end
+
+      def crawl
+        keys.clear
+        Dir[File.join('app', 'views', '**', '*rb')].each do |f|
+          File.read(f).each_line do |line|
+            extract_key(line) if line =~ /_[ (]/
+          end
+        end
+        keys.sort!
+        keys.uniq!
+        keys
+      end
+      
+      private
+
+      def keys
+        @keys ||= []
+      end
+      
+      def extract_key(line)
+        extract(line, "'")
+        extract(line, '"')
+      end
+      
+      def extract(line, sep)
+        if line =~ /.*_[ (][#{sep}]/
+          # non-greedy +? and *? vs. greedy + and *
+          k = line.sub( /.*?_[ (][#{sep}]/, '').sub(/[#{sep}].*\n/, '')
+          keys << k; puts k unless keys.member? k
+          extract_key(line.sub(/[^_]*_[ (][#{sep}][^#{sep}]+[#{sep}]/, ''))
+        end
+      end
+    end
+  end
+end

data/lib/ixtlan/gettext/crawler.rb~

@@ -0,0 +1,69 @@
+class NewLocale
+
+  def initialize(lang)
+    @lang = lang
+    @file = "config/locales/#{lang}.yml"
+    @trans = if File.exists? @file
+               YAML.load_file(@file)[lang]
+             else
+               {}
+             end
+  end
+
+  def crawl
+    Dir[File.join('app', 'views', '**/*rb')].each do |f|
+      File.read(f).each do |line|
+        extract_key(line) if line =~ /_[ (]/
+      end
+    end
+  end
+
+  def dump
+    merge
+    result = {}
+    result[@lang] = @trans
+    lines = result.to_yaml.sub(/---\s*\n/, '').gsub(/  -\s*\n/, '').split /\n/
+    lines.sort!{|n,m| n.sub(/^  /, "zz") <=> m.sub(/^  /, "zz") }
+    File.open(@file, 'w') do |f|
+      lines.each do |l|
+        f.puts l
+        f.puts "  -" if l =~ /^  .*: $/
+      end
+    end
+  end
+
+  def self.doit(lang)
+    l = new(lang)
+    l.crawl
+    l.dump
+  end
+
+  private
+
+  def merge
+    keys.each do |k|
+      @trans[k] = k unless @trans.key? k
+    end
+    @trans.keys.each do |k|
+      @trans[" Deleted-Key-#{k}"] = @trans.delete(k) if !keys.member?(k) && (k =~ /^ Deleted-Key-/).nil?
+    end
+  end
+
+  def keys
+    @keys ||= []
+  end
+
+  def extract_key(line)
+    line.gsub!(/_[^ (]/, '-')
+    extract(line, "'")
+    extract(line, '"')
+  end
+
+  def extract(line, sep)
+    if line =~ /.*_[ (][#{sep}]/
+      k = line.sub(/[^_]*_[ (][#{sep}]/, '').sub(/[#{sep}].*\n/, '')
+      keys << k; puts k unless keys.member? k
+      extract_key(line.sub(/[^_]*_[ (][#{sep}][^#{sep}]+[#{sep}]/, ''))
+    end
+  end
+end

data/lib/ixtlan/gettext/locale.rb~

@@ -0,0 +1,71 @@
+module Ixtlan
+  module Gettext
+    class TranslationKey
+      include DataMapper::Resource
+
+      def self.storage_name(arg)
+        'gettext_keys'
+      end
+
+      property :id, Serial
+      property :name, String, :unique=>true, :required => true
+      
+      property :updated_at, DateTime, :required => true, :lazy => true
+
+      def self.update_all(keys)
+        ids = keys.collect do |k|
+          k.save
+          k.id
+        end
+        all(:id.not => ids).destroy!
+      end
+
+      def self.translation(key, locale)
+        TranslationText.first(TranslationKey.name => key, Locale.code => locale)
+      end
+
+      def self.available_locales
+        Translation.all(:fields => [:locale_id], :unique => true).collect do |t|
+          t.locale
+        end
+      end
+      # do not record timestamps since they are set from outside
+      def set_timestamps_on_save
+      end
+    end
+     class Locale
+      include DataMapper::Resource
+
+      def self.storage_name(arg)
+        'gettext_locales'
+      end
+
+      property :id, Serial
+      property :code, String, :unique=>true, :required => true, :format => /^[a-z][a-z](_[A-Z][A-Z])?$/, :length => 5
+      
+      property :updated_at, DateTime, :required => true, :lazy => true
+
+      # do not record timestamps since they are set from outside
+      def set_timestamps_on_save
+      end
+    end
+    class TranslationText
+      include DataMapper::Resource
+
+      def self.storage_name(arg)
+        'gettext_texts'
+      end
+
+      belongs_to :locale, Locale.to_s,:key => true
+      belongs_to :translation_key, TranslationKey.to_s, :key => true
+      
+      property :text, String, :required => true
+
+      property :updated_at, DateTime, :required => true, :lazy => true
+
+      # do not record timestamps since they are set from outside
+      def set_timestamps_on_save
+      end
+    end
+  end
+end

data/lib/ixtlan/gettext/locale_resource.rb

@@ -0,0 +1,46 @@
+#
+# ixtlan_gettext - helper to use fast_gettext with datamapper/ixtlan
+# Copyright (C) 2012 Christian Meier
+#
+# This file is part of ixtlan_gettext.
+#
+# ixtlan_gettext is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as
+# published by the Free Software Foundation, either version 3 of the
+# License, or (at your option) any later version.
+#
+# ixtlan_gettext is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with ixtlan_gettext.  If not, see <http://www.gnu.org/licenses/>.
+#
+module Ixtlan
+  module Gettext
+    class Locale
+      include DataMapper::Resource
+
+      def self.storage_name(arg)
+        'gettext_locales'
+      end
+
+      # key for selectng the IdentityMap should remain this class if
+      # there is no single table inheritance with Discriminator in place
+      # i.e. the subclass used as key for the IdentityMap
+      def self.base_model
+        self
+      end
+
+      property :id, Serial, :auto_validation => false
+      property :code, String, :unique=>true, :required => true, :format => /^[a-z][a-z](_[A-Z][A-Z])?$/, :length => 5
+      
+      property :updated_at, DateTime, :required => true, :lazy => true
+
+      # do not record timestamps since they are set from outside
+      def set_timestamps_on_save
+      end
+    end
+  end
+end