tml 4.3.1

data/lib/tml/logger.rb

@@ -0,0 +1,109 @@
+# encoding: UTF-8
+#--
+# Copyright (c) 2015 Translation Exchange, Inc
+#
+#  _______                  _       _   _             ______          _
+# |__   __|                | |     | | (_)           |  ____|        | |
+#    | |_ __ __ _ _ __  ___| | __ _| |_ _  ___  _ __ | |__  __  _____| |__   __ _ _ __   __ _  ___
+#    | | '__/ _` | '_ \/ __| |/ _` | __| |/ _ \| '_ \|  __| \ \/ / __| '_ \ / _` | '_ \ / _` |/ _ \
+#    | | | | (_| | | | \__ \ | (_| | |_| | (_) | | | | |____ >  < (__| | | | (_| | | | | (_| |  __/
+#    |_|_|  \__,_|_| |_|___/_|\__,_|\__|_|\___/|_| |_|______/_/\_\___|_| |_|\__,_|_| |_|\__, |\___|
+#                                                                                        __/ |
+#                                                                                       |___/
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+#++
+
+require 'logger'
+
+module Tml
+
+  def self.logger
+    @logger ||= begin
+      logfile_path = File.expand_path(Tml.config.logger[:path])
+      logfile_dir = logfile_path.split("/")[0..-2].join("/")
+      FileUtils.mkdir_p(logfile_dir) unless File.exist?(logfile_dir)
+      logfile = File.open(logfile_path, 'a')
+      logfile.sync = true
+      Tml::Logger.new(logfile)
+    end
+  end
+
+  class Logger < ::Logger
+
+    def format_message(severity, timestamp, progname, msg)
+      return "" unless Tml.config.logger[:enabled]
+      # TODO: check for severity/level
+      "[#{timestamp.strftime("%D %T")}]: #{"  " * stack.size}#{msg}\n"
+    end
+
+    def add(severity, message = nil, progname = nil, &block)
+      return unless Tml.config.logger[:enabled]
+      super
+    end
+
+    def stack
+      @stack ||= []
+    end
+
+    def trace_api_call(path, params, opts = {})
+      #[:client_secret, :access_token].each do |param|
+      #  params = params.merge(param => "##filtered##") if params[param]
+      #end
+      if opts[:method] == :post
+        debug("post: [#{path}] #{params.inspect}")
+      else
+        debug("get: #{path}?#{to_query(params)}")
+      end
+      stack.push(caller)
+      t0 = Time.now
+      if block_given?
+        ret = yield
+      end
+      t1 = Time.now
+      stack.pop
+      debug("call took #{t1 - t0} seconds")
+      ret
+    end
+
+    def to_query(hash)
+      query = []
+      hash.each do |key, value|
+        query << "#{key}=#{value}"
+      end
+      query.join('&')
+    end
+
+    def trace(message)
+      debug(message)
+      stack.push(caller)
+      t0 = Time.now
+      if block_given?
+        ret = yield
+      end
+      t1 = Time.now
+      stack.pop
+      debug("execution took #{t1 - t0} seconds")
+      ret
+    end
+
+  end
+
+end
+

data/lib/tml/rules_engine/evaluator.rb

@@ -0,0 +1,162 @@
+# encoding: UTF-8
+#--
+# Copyright (c) 2015 Translation Exchange, Inc
+#
+#  _______                  _       _   _             ______          _
+# |__   __|                | |     | | (_)           |  ____|        | |
+#    | |_ __ __ _ _ __  ___| | __ _| |_ _  ___  _ __ | |__  __  _____| |__   __ _ _ __   __ _  ___
+#    | | '__/ _` | '_ \/ __| |/ _` | __| |/ _ \| '_ \|  __| \ \/ / __| '_ \ / _` | '_ \ / _` |/ _ \
+#    | | | | (_| | | | \__ \ | (_| | |_| | (_) | | | | |____ >  < (__| | | | (_| | | | | (_| |  __/
+#    |_|_|  \__,_|_| |_|___/_|\__,_|\__|_|\___/|_| |_|______/_/\_\___|_| |_|\__,_|_| |_|\__, |\___|
+#                                                                                        __/ |
+#                                                                                       |___/
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+#++
+
+module Tml
+  module RulesEngine
+
+    class Evaluator
+      attr_reader :env, :vars
+
+      def initialize
+        @vars = {}
+        @env = {
+            # McCarthy's Elementary S-functions and Predicates
+            'label'   => lambda { |l, r|      @vars[l] = r },
+            'quote'   => lambda { |expr|      expr },
+            'car'     => lambda { |list|      list[1] },
+            'cdr'     => lambda { |list|      list.drop(1) },
+            'cons'    => lambda { |e, cell|   [e] + cell },
+            'eq'      => lambda { |l, r|      l == r },
+            'atom'    => lambda { |expr|      [Symbol, String, Fixnum, Float].include?(expr.class) },
+            'cond'    => lambda { |c, t, f|   evaluate(c) ? evaluate(t) : evaluate(f) },
+
+            # Tml Extensions
+            '='       => lambda { |l, r|      l == r },                                             # ['=', 1, 2]
+            '!='      => lambda { |l, r|      l != r },                                             # ['!=', 1, 2]
+            '<'       => lambda { |l, r|      l < r },                                              # ['<', 1, 2]
+            '>'       => lambda { |l, r|      l > r },                                              # ['>', 1, 2]
+            '+'       => lambda { |l, r|      l + r },                                              # ['+', 1, 2]
+            '-'       => lambda { |l, r|      l - r },                                              # ['-', 1, 2]
+            '*'       => lambda { |l, r|      l * r },                                              # ['*', 1, 2]
+            '%'       => lambda { |l, r|      l % r },                                              # ['%', 14, 10]
+            'mod'     => lambda { |l, r|      l % r },                                              # ['mod', '@n', 10]
+            '/'       => lambda { |l, r|      (l * 1.0) / r },                                      # ['/', 1, 2]
+            '!'       => lambda { |expr|      not expr },                                           # ['!', ['true']]
+            'not'     => lambda { |val|       not val },                                            # ['not', ['true']]
+            '&&'      => lambda { |*expr|     expr.all?{|e| evaluate(e)} },                         # ['&&', [], [], ...]
+            'and'     => lambda { |*expr|     expr.all?{|e| evaluate(e)} },                         # ['and', [], [], ...]
+            '||'      => lambda { |*expr|     expr.any?{|e| evaluate(e)} },                         # ['||', [], [], ...]
+            'or'      => lambda { |*expr|     expr.any?{|e| evaluate(e)} },                         # ['or', [], [], ...]
+            'if'      => lambda { |c, t, f|   evaluate(c) ? evaluate(t) : evaluate(f) },            # ['if', 'cond', 'true', 'false']
+            'let'     => lambda { |l, r|      @vars[l] = r },                                       # ['let', 'n', 5]
+            'true'    => lambda { true },                                                           # ['true']
+            'false'   => lambda { false },                                                          # ['false']
+
+            'date'    => lambda { |date|      Date.strptime(date, '%Y-%m-%d') },                    # ['date', '2010-01-01']
+            'today'   => lambda { Time.now.to_date },                                               # ['today']
+            'time'    => lambda { |expr|      Time.strptime(expr, '%Y-%m-%d %H:%M:%S') },           # ['time', '2010-01-01 10:10:05']
+            'now'     => lambda { Time.now },                                                       # ['now']
+
+            'append'  => lambda { |l, r|      r.to_s + l.to_s },                                    # ['append', 'world', 'hello ']
+            'prepend' => lambda { |l, r|      l.to_s + r.to_s },                                    # ['prepend', 'hello  ', 'world']
+            'match'   => lambda { |search, subject|                                                 # ['match', /a/, 'abc']
+              search = regexp_from_string(search)
+              not search.match(subject).nil?
+            },
+            'in'      => lambda { |values, search|                                                  # ['in', '1,2,3,5..10,20..24', '@n']
+              search = search.to_s.strip
+              values.split(',').each do |e|
+                if e.index('..')
+                  bounds = e.strip.split('..')
+                  return true if (bounds.first.strip..bounds.last.strip).include?(search)
+                end
+                return true if e.strip == search
+              end
+              false
+            },
+            'within'  => lambda { |values, search|                                                 # ['within', '0..3', '@n']
+              bounds = values.split('..').map{|d| Integer(d)}
+              (bounds.first..bounds.last).include?(search)
+            },
+            'replace' => lambda { |search, replace, subject|                                       # ['replace', '/^a/', 'v', 'abc']
+                                                                                                   # handle regular expression
+              if /\/i$/.match(search)
+                replace = replace.gsub(/\$(\d+)/, '\\\\\1') # for compatibility with Perl notation
+              end
+              search = regexp_from_string(search)
+              subject.gsub(search, replace)
+            },
+            'count'   => lambda { |list|                                                          # ['count', '@genders']
+              (list.is_a?(String) ? vars[list] : list).count
+            },
+            'all'     => lambda { |list, value|                                                   # ['all', '@genders', 'male']
+              list = (list.is_a?(String) ? vars[list] : list)
+              list.is_a?(Array) ? list.all?{|e| e == value} : false
+            },
+            'any'     => lambda { |list, value|                                                   # ['any', '@genders', 'female']
+              list = (list.is_a?(String) ? vars[list] : list)
+              list.is_a?(Array) ? list.any?{|e| e == value} : false
+            },
+        }
+      end
+
+      def regexp_from_string(str)
+        return Regexp.new(/#{str}/) unless /^\//.match(str)
+
+        str = str.gsub(/^\//, '')
+
+        if /\/i$/.match(str)
+          str = str.gsub(/\/i$/, '')
+          return Regexp.new(/#{str}/i)
+        end
+
+        str = str.gsub(/\/$/, '')
+        Regexp.new(/#{str}/)
+      end
+
+      def reset!
+        @vars = {}
+      end
+
+      def apply(fn, args)
+        raise "undefined symbols #{fn}" unless @env.keys.include?(fn)
+        @env[fn].call(*args)
+      end
+
+      def evaluate(expr)
+        if @env['atom'].call(expr)
+          return @vars[expr] if expr.is_a?(String) and @vars[expr]
+          return expr
+        end
+
+        fn = expr[0]
+        args = expr.drop(1)
+
+        unless %w(quote car cdr cond if && || and or true false let count all any).member?(fn)
+          args = args.map { |a| self.evaluate(a) }
+        end
+        apply(fn, args)
+      end
+    end
+
+  end
+end

data/lib/tml/rules_engine/parser.rb

@@ -0,0 +1,65 @@
+# encoding: UTF-8
+#--
+# Copyright (c) 2015 Translation Exchange, Inc
+#
+#  _______                  _       _   _             ______          _
+# |__   __|                | |     | | (_)           |  ____|        | |
+#    | |_ __ __ _ _ __  ___| | __ _| |_ _  ___  _ __ | |__  __  _____| |__   __ _ _ __   __ _  ___
+#    | | '__/ _` | '_ \/ __| |/ _` | __| |/ _ \| '_ \|  __| \ \/ / __| '_ \ / _` | '_ \ / _` |/ _ \
+#    | | | | (_| | | | \__ \ | (_| | |_| | (_) | | | | |____ >  < (__| | | | (_| | | | | (_| |  __/
+#    |_|_|  \__,_|_| |_|___/_|\__,_|\__|_|\___/|_| |_|______/_/\_\___|_| |_|\__,_|_| |_|\__, |\___|
+#                                                                                        __/ |
+#                                                                                       |___/
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+#++
+
+module Tml
+  module RulesEngine
+
+    class Parser
+      attr_reader :tokens, :expression
+
+      def initialize(expression)
+        @expression = expression
+        if expression =~ /^\(/
+          @tokens = expression.scan(/[()]|\w+|@\w+|[\+\-\!\|\=>&<\*\/%]+|".*?"|'.*?'/)
+        end
+      end
+
+      def parse
+        return @expression unless tokens
+        token = tokens.shift
+        return nil if token.nil?
+        return parse_list if (token) == '('
+        return token[1..-2].to_s if token =~ /^['"].*/
+        return token.to_i if token =~ /\d+/
+        token.to_s
+      end
+
+      def parse_list
+        list = []
+        list << parse until tokens.empty? or tokens.first == ')'
+        tokens.shift
+        list
+      end
+    end
+
+  end
+end

data/lib/tml/session.rb

@@ -0,0 +1,199 @@
+# encoding: UTF-8
+#--
+# Copyright (c) 2015 Translation Exchange, Inc
+#
+#  _______                  _       _   _             ______          _
+# |__   __|                | |     | | (_)           |  ____|        | |
+#    | |_ __ __ _ _ __  ___| | __ _| |_ _  ___  _ __ | |__  __  _____| |__   __ _ _ __   __ _  ___
+#    | | '__/ _` | '_ \/ __| |/ _` | __| |/ _ \| '_ \|  __| \ \/ / __| '_ \ / _` | '_ \ / _` |/ _ \
+#    | | | | (_| | | | \__ \ | (_| | |_| | (_) | | | | |____ >  < (__| | | | (_| | | | | (_| |  __/
+#    |_|_|  \__,_|_| |_|___/_|\__,_|\__|_|\___/|_| |_|______/_/\_\___|_| |_|\__,_|_| |_|\__, |\___|
+#                                                                                        __/ |
+#                                                                                       |___/
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+#++
+
+module Tml
+
+  def self.session
+    Thread.current[:session] ||= Tml::Session.new
+  end
+
+  class Session
+    # Session Attributes - Move to Session
+    attr_accessor :application, :current_user, :current_locale, :current_language, :current_translator,
+                  :current_source, :current_component, :block_options, :cookie_params, :access_token, :tools_enabled
+
+    def self.access_token
+      @access_token
+    end
+
+    def self.access_token=(token)
+      @access_token = token
+    end
+
+    def init(opts = {})
+      return unless Tml.config.enabled? and Tml.config.application
+
+      key     = opts[:key]    || Tml.config.application[:key]
+      secret  = opts[:secret] || Tml.config.application[:secret]
+      host    = opts[:host]   || Tml.config.application[:host]
+
+      Tml::Session.access_token ||= begin
+        self.access_token = opts[:token] || Tml.config.application[:token]
+        self.access_token ||= opts[:access_token] || Tml.config.application[:access_token]
+      end
+
+      Tml.cache.reset_version
+
+      self.application = Tml.memory.fetch(Tml::Application.cache_key) do
+        Tml::Application.new(:host => host, :key => key, :secret => secret, :access_token => Tml::Session.access_token).fetch
+      end
+
+      if Tml.cache.read_only?
+        self.class.access_token = self.application.access_token
+      end
+
+      # Tml.logger.info(self.cookie_params.inspect)
+
+      self.cookie_params = begin
+        cookie_name = "trex_#{self.application.key}"
+        if opts[:cookies] and opts[:cookies][cookie_name]
+          begin
+            HashWithIndifferentAccess.new(Tml::Utils.decode_and_verify_params(opts[:cookies][cookie_name], secret))
+          rescue Exception => ex
+            Tml.logger.error("Failed to parse tml cookie: #{ex.message}")
+            {}
+          end
+        else
+          {}
+        end
+      end
+
+      self.tools_enabled = opts[:tools_enabled]
+      self.current_user = opts[:user]
+      self.current_source = opts[:source] || '/tml/core'
+      self.current_component = opts[:component]
+      self.current_locale = opts[:locale] || self.cookie_params[:locale] || Tml.config.default_locale
+
+      if self.cookie_params['translator']
+        self.current_translator = Tml::Translator.new(self.cookie_params['translator'])
+      end
+
+      # if inline mode don't use any app cache
+      if inline_mode?
+        self.application = self.application.dup
+        self.application.reset_translation_cache
+      end
+
+      if self.current_translator
+        self.current_translator.application = self.application
+      end
+
+      self.current_language = self.application.language(self.current_locale)
+    end
+
+    def tools_enabled?
+      self.tools_enabled
+    end
+
+    def reset
+      self.application= nil
+      self.current_user= nil
+      self.current_language= nil
+      self.current_translator= nil
+      self.current_source= nil
+      self.current_component= nil
+      self.tools_enabled= nil
+      self.block_options= nil
+    end
+
+    def current_language
+      @current_language ||= Tml.config.default_language
+    end
+
+    def application
+      @application ||= Tml::Application.new(:host => Tml::Api::Client::API_HOST)
+    end
+
+    def source_language
+      arr = @block_options || []
+      arr.reverse.each do |opts|
+        return application.language(opts[:locale]) unless opts[:locale].blank?
+      end
+      application.language
+    end
+
+    def target_language
+      arr = @block_options || []
+      arr.reverse.each do |opts|
+        return application.language(opts[:target_locale]) unless opts[:target_locale].nil?
+      end
+      current_language
+    end
+
+    def inline_mode?
+      current_translator and current_translator.inline?
+    end
+
+    #########################################################
+    ## Block Options
+    #########################################################
+
+    def push_block_options(opts)
+      (@block_options ||= []).push(opts)
+    end
+
+    def pop_block_options
+      return unless @block_options
+      @block_options.pop
+    end
+
+    def block_options
+      (@block_options ||= []).last || {}
+    end
+
+    def with_block_options(opts)
+      push_block_options(opts)
+      if block_given?
+        ret = yield
+      end
+      pop_block_options
+      ret
+    end
+
+    def current_source_from_block_options
+      arr = @block_options || []
+      arr.reverse.each do |opts|
+        return application.source_by_key(opts[:source]) unless opts[:source].blank?
+      end
+      nil
+    end
+
+    def current_component_from_block_options
+      arr = @block_options || []
+      arr.reverse.each do |opts|
+        return application.component_by_key(opts[:component]) unless opts[:component].blank?
+      end
+      Tml.config.current_component
+    end
+
+  end
+end