when_exe 0.2.100 → 0.3.1

data/lib/when_exe/locales/wo.rb

@@ -0,0 +1,82 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2012-2013 Takashi SUGA
+
+  You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
+=end
+
+module When::BasicTypes
+  class M17n
+
+    # from https://raw.github.com/svenfuchs/rails-i18n/master/rails/locale/wo.yml
+
+    Locale_wo =
+{"date"=>
+  {"abbr_day_names"=>["Dib", "Alt", "Tal", "All", "Alx", "Ajj", "Gaw"],
+   "abbr_month_names"=>
+    [nil,
+     "Jan",
+     "Feb",
+     "Mar",
+     "Apr",
+     "May",
+     "Jun",
+     "Jul",
+     "Aug",
+     "Sep",
+     "Oct",
+     "Nov",
+     "Dec"],
+   "day_names"=>
+    ["Dibèer", "Altine", "Talaata", "Allarba", "Alxamess", "Ajjouma", "Gaawu"],
+   "formats"=>{"default"=>"%Y-%m-%d", "long"=>"%B %d, %Y", "short"=>"%b %d"},
+   "month_names"=>
+    [nil,
+     "Tamkharit",
+     "Digui Gamou",
+     "Gamou",
+     "Raki Gamou",
+     "Rakati Gamou",
+     "Mamou Kor",
+     "Ndeyou Kor",
+     "Baraxlou",
+     "Kor",
+     "Kori",
+     "Digui Tabaski",
+     "Tabaski"],
+   "order"=>[:year, :month, :day]},
+ "time"=>
+  {"am"=>"am",
+   "formats"=>
+    {"default"=>"%a, %d %b %Y %H:%M:%S %z",
+     "long"=>"%B %d, %Y %H:%M",
+     "short"=>"%d %b %H:%M",
+     "time"=>"%H:%M:%S %z"},
+   "pm"=>"pm"},
+ "datetime"=>
+  {"distance_in_words"=>
+    {"about_x_hours"=>{"one"=>"about 1 hour", "other"=>"about %{count} hours"},
+     "about_x_months"=>
+      {"one"=>"about 1 month", "other"=>"about %{count} months"},
+     "about_x_years"=>{"one"=>"about 1 year", "other"=>"about %{count} years"},
+     "almost_x_years"=>
+      {"one"=>"almost 1 year", "other"=>"almost %{count} years"},
+     "half_a_minute"=>"half a minute",
+     "less_than_x_minutes"=>
+      {"one"=>"less than a minute", "other"=>"less than %{count} minutes"},
+     "less_than_x_seconds"=>
+      {"one"=>"less than 1 second", "other"=>"less than %{count} seconds"},
+     "over_x_years"=>{"one"=>"over 1 year", "other"=>"over %{count} years"},
+     "x_days"=>{"one"=>"1 day", "other"=>"%{count} days"},
+     "x_minutes"=>{"one"=>"1 minute", "other"=>"%{count} minutes"},
+     "x_months"=>{"one"=>"1 month", "other"=>"%{count} months"},
+     "x_seconds"=>{"one"=>"1 second", "other"=>"%{count} seconds"}},
+   "prompts"=>
+    {"day"=>"Day",
+     "hour"=>"Hour",
+     "minute"=>"Minute",
+     "month"=>"Month",
+     "second"=>"Seconds",
+     "year"=>"Year"}}}
+  end
+end

data/lib/when_exe/locales/zh_CN.rb

@@ -0,0 +1,77 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2012-2013 Takashi SUGA
+
+  You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
+=end
+
+module When::BasicTypes
+  class M17n
+
+    # from https://raw.github.com/svenfuchs/rails-i18n/master/rails/locale/zh-CN.yml
+
+    Locale_zh_CN =
+{"date"=>
+  {"abbr_day_names"=>["日", "一", "二", "三", "四", "五", "六"],
+   "abbr_month_names"=>
+    [nil,
+     "1月",
+     "2月",
+     "3月",
+     "4月",
+     "5月",
+     "6月",
+     "7月",
+     "8月",
+     "9月",
+     "10月",
+     "11月",
+     "12月"],
+   "day_names"=>["星期日", "星期一", "星期二", "星期三", "星期四", "星期五", "星期六"],
+   "formats"=>{"default"=>"%Y-%m-%d", "long"=>"%Y年%b%d日", "short"=>"%b%d日"},
+   "month_names"=>
+    [nil,
+     "一月",
+     "二月",
+     "三月",
+     "四月",
+     "五月",
+     "六月",
+     "七月",
+     "八月",
+     "九月",
+     "十月",
+     "十一月",
+     "十二月"],
+   "order"=>[:year, :month, :day]},
+ "time"=>
+  {"am"=>"上午",
+   "formats"=>
+    {"default"=>"%Y年%b%d日 %A %H:%M:%S %Z",
+     "long"=>"%Y年%b%d日 %H:%M",
+     "short"=>"%b%d日 %H:%M",
+     "time"=>"%H:%M:%S %Z"},
+   "pm"=>"下午"},
+ "datetime"=>
+  {"distance_in_words"=>
+    {"about_x_hours"=>{"one"=>"大约一小时", "other"=>"大约 %{count} 小时"},
+     "about_x_months"=>{"one"=>"大约一个月", "other"=>"大约 %{count} 个月"},
+     "about_x_years"=>{"one"=>"大约一年", "other"=>"大约 %{count} 年"},
+     "almost_x_years"=>{"one"=>"接近一年", "other"=>"接近 %{count} 年"},
+     "half_a_minute"=>"半分钟",
+     "less_than_x_minutes"=>{"one"=>"不到一分钟", "other"=>"不到 %{count} 分钟"},
+     "less_than_x_seconds"=>{"one"=>"不到一秒", "other"=>"不到 %{count} 秒"},
+     "over_x_years"=>{"one"=>"一年多", "other"=>"%{count} 年多"},
+     "x_days"=>{"one"=>"一天", "other"=>"%{count} 天"},
+     "x_minutes"=>{"one"=>"一分钟", "other"=>"%{count} 分钟"},
+     "x_months"=>{"one"=>"一个月", "other"=>"%{count} 个月"},
+     "x_seconds"=>{"one"=>"一秒", "other"=>"%{count} 秒"}},
+   "prompts"=>
+    {"day"=>"日",
+     "hour"=>"时",
+     "minute"=>"分",
+     "month"=>"月",
+     "second"=>"秒",
+     "year"=>"年"}}}
+  end
+end

data/lib/when_exe/locales/zh_HK.rb

@@ -0,0 +1,77 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2012-2013 Takashi SUGA
+
+  You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
+=end
+
+module When::BasicTypes
+  class M17n
+
+    # from https://raw.github.com/svenfuchs/rails-i18n/master/rails/locale/zh-HK.yml
+
+    Locale_zh_HK =
+{"date"=>
+  {"abbr_day_names"=>["日", "一", "二", "三", "四", "五", "六"],
+   "abbr_month_names"=>
+    [nil,
+     "1月",
+     "2月",
+     "3月",
+     "4月",
+     "5月",
+     "6月",
+     "7月",
+     "8月",
+     "9月",
+     "10月",
+     "11月",
+     "12月"],
+   "day_names"=>["星期日", "星期一", "星期二", "星期三", "星期四", "星期五", "星期六"],
+   "formats"=>{"default"=>"%Y-%m-%d", "long"=>"%Y年%b%d日", "short"=>"%b%d日"},
+   "month_names"=>
+    [nil,
+     "一月",
+     "二月",
+     "三月",
+     "四月",
+     "五月",
+     "六月",
+     "七月",
+     "八月",
+     "九月",
+     "十月",
+     "十一月",
+     "十二月"],
+   "order"=>[:year, :month, :day]},
+ "time"=>
+  {"am"=>"上晝",
+   "formats"=>
+    {"default"=>"%Y年%b%d號 %A %H:%M:%S %Z",
+     "long"=>"%Y年%b%d號 %H:%M",
+     "short"=>"%b%d號 %H:%M",
+     "time"=>"%H:%M:%S %Z"},
+   "pm"=>"下晝"},
+ "datetime"=>
+  {"distance_in_words"=>
+    {"about_x_hours"=>{"one"=>"大概一個鐘", "other"=>"大概%{count}個鐘"},
+     "about_x_months"=>{"one"=>"大概一個月", "other"=>"大概%{count}個月"},
+     "about_x_years"=>{"one"=>"大概一年", "other"=>"大概%{count}年"},
+     "almost_x_years"=>{"one"=>"差唔多一年", "other"=>"差唔多%{count}年"},
+     "half_a_minute"=>"半分鐘",
+     "less_than_x_minutes"=>{"one"=>"唔夠一分鐘", "other"=>"唔夠%{count}分鐘"},
+     "less_than_x_seconds"=>{"one"=>"唔夠一秒", "other"=>"唔夠%{count}秒"},
+     "over_x_years"=>{"one"=>"超過一年", "other"=>"超過%{count}年"},
+     "x_days"=>{"one"=>"一日", "other"=>"%{count}日"},
+     "x_minutes"=>{"one"=>"一分鐘", "other"=>"%{count}分鐘"},
+     "x_months"=>{"one"=>"一個月", "other"=>"%{count}個月"},
+     "x_seconds"=>{"one"=>"一秒", "other"=>"%{count}秒"}},
+   "prompts"=>
+    {"day"=>"日",
+     "hour"=>"點",
+     "minute"=>"分",
+     "month"=>"月",
+     "second"=>"秒",
+     "year"=>"年"}}}
+  end
+end

data/lib/when_exe/locales/zh_TW.rb

@@ -0,0 +1,77 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2012-2013 Takashi SUGA
+
+  You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
+=end
+
+module When::BasicTypes
+  class M17n
+
+    # from https://raw.github.com/svenfuchs/rails-i18n/master/rails/locale/zh-TW.yml
+
+    Locale_zh_TW =
+{"date"=>
+  {"abbr_day_names"=>["日", "一", "二", "三", "四", "五", "六"],
+   "abbr_month_names"=>
+    [nil,
+     "1月",
+     "2月",
+     "3月",
+     "4月",
+     "5月",
+     "6月",
+     "7月",
+     "8月",
+     "9月",
+     "10月",
+     "11月",
+     "12月"],
+   "day_names"=>["星期日", "星期一", "星期二", "星期三", "星期四", "星期五", "星期六"],
+   "formats"=>{"default"=>"%Y-%m-%d", "long"=>"%Y年%b%d日", "short"=>"%b%d日"},
+   "month_names"=>
+    [nil,
+     "一月",
+     "二月",
+     "三月",
+     "四月",
+     "五月",
+     "六月",
+     "七月",
+     "八月",
+     "九月",
+     "十月",
+     "十一月",
+     "十二月"],
+   "order"=>[:year, :month, :day]},
+ "time"=>
+  {"am"=>"上午",
+   "formats"=>
+    {"default"=>"%Y年%b%d日 %A %H:%M:%S %Z",
+     "long"=>"%Y年%b%d日 %H:%M",
+     "short"=>"%b%d日 %H:%M",
+     "time"=>"%H:%M:%S %Z"},
+   "pm"=>"下午"},
+ "datetime"=>
+  {"distance_in_words"=>
+    {"about_x_hours"=>{"one"=>"大約一小時", "other"=>"大約 %{count} 小時"},
+     "about_x_months"=>{"one"=>"大約一個月", "other"=>"大約 %{count} 個月"},
+     "about_x_years"=>{"one"=>"大約一年", "other"=>"大約 %{count} 年"},
+     "almost_x_years"=>{"one"=>"接近一年", "other"=>"接近 %{count} 年"},
+     "half_a_minute"=>"半分鐘",
+     "less_than_x_minutes"=>{"one"=>"不到一分鐘", "other"=>"不到 %{count} 分鐘"},
+     "less_than_x_seconds"=>{"one"=>"不到一秒", "other"=>"不到 %{count} 秒"},
+     "over_x_years"=>{"one"=>"一年多", "other"=>"%{count} 年多"},
+     "x_days"=>{"one"=>"一天", "other"=>"%{count} 天"},
+     "x_minutes"=>{"one"=>"一分鐘", "other"=>"%{count} 分鐘"},
+     "x_months"=>{"one"=>"一個月", "other"=>"%{count} 個月"},
+     "x_seconds"=>{"one"=>"一秒", "other"=>"%{count} 秒"}},
+   "prompts"=>
+    {"day"=>"日",
+     "hour"=>"時",
+     "minute"=>"分",
+     "month"=>"月",
+     "second"=>"秒",
+     "year"=>"年"}}}
+  end
+end

data/lib/when_exe/mini_application.rb

@@ -0,0 +1,252 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2013 Takashi SUGA
+
+  You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
+=end
+
+require 'socket'
+
+#
+# Time for v1.8.x compatibility
+#
+class Time
+  if Time.now.respond_to?(:strftime) && Time.now.strftime('%FT%X.%L').length > 0
+    alias :_log_ :strftime
+  else
+    def _log_(format)
+      "%04d-%02d-%02dT%02d:%02d:%02d.%03d" % [year, month, day, hour, min, sec, usec / 1000]
+    end
+  end
+end
+
+#
+# Micro Client / Server
+#
+module When
+  class << self
+
+    #
+    # 設定ファイルを読み込む
+    # @private
+    def config(path=File.expand_path($0) + '.config')
+      config = {}
+      open(path, 'r') do |file|
+        while (line=file.gets)
+          next if line =~ /^\s*#/
+          key, *value = line.chomp.split(':')
+          value = value[0] if value.size <= 1
+          config[key] = value
+        end
+      end
+      config
+    rescue
+      {}
+    end
+    
+    #
+    # マイクロ・サーバーを起動する
+    #
+    # @param [#to_i] port 待ち受けるポート番号
+    #
+    # @return [void]
+    #
+    # @note mini_application
+    #
+    def server(port)
+      config = When.config
+      TCPServer.open(port.to_i) do |socket|
+        puts Time.now._log_('%FT%X.%L') + ': Start'
+        loop do
+          Thread.start(socket.accept) do |client|
+            query = client.gets.chomp.force_encoding("UTF-8")
+            start = Time.now
+            puts start._log_('%FT%X.%L') + ': Query - ' + When::Parts::Locale.translate(query, config['!'])
+            begin
+              client.puts JSON.generate(Array(free_conv(*query.split(/\s+/)))).to_s
+              stop = Time.now
+              puts stop._log_('%FT%X.%L') + ": Respond (%7.0f ms)" % (1000 * (stop.to_f - start.to_f))
+            rescue => err
+              puts Time.now._log_('%FT%X.%L') + ': error - ' + err.to_s
+              client.puts JSON.generate({:error=>query}).to_s
+            end
+            client.close
+          end
+        end
+      end
+    rescue Exception => e
+      puts Time.now._log_('%FT%X.%L') + ': Exception - ' + e.to_s
+    ensure
+      puts Time.now._log_('%FT%X.%L') + ': Done.'
+    end
+
+    #
+    # マイクロ・クライアントを実行する
+    #
+    # @param [String] server マイクロ・サーバのアドレス
+    # @param [#to_i] port つなぐポート番号
+    # @param [String] query 問い合わせ文字列
+    #
+    # @return [JSON] 応答
+    #
+    # @note mini_application
+    #
+    def client(server, port, query)
+      TCPSocket.open(server, port.to_i) do |socket|
+        socket.puts(query)
+        JSON.parse(socket.gets.force_encoding("UTF-8"))
+      end
+    end
+
+    # 日付の自由変換
+    #
+    # @param [Array<String>] args コマンドライン入力
+    # @param [Block] block ブロック
+    #
+    # @return [Array<Hash>] 変換結果
+    # @return [Array<Array<Numeric>>] 最良近似分数列
+    #
+    # @note 暦法のIRI, When.exe Standard Expression, 最良近似分数列の分母分子などを文字列で指定
+    # @note mini_application
+    #
+    def free_conv(*args, &block)
+      calendars, dates, numbers, methods, output, options = _parse(args)
+
+      if numbers.size >= 2 && calendars.size == 0
+        result = []
+        When::Coordinates::Residue.new(numbers[0], numbers[1]).each { |v| result << v }
+        return result
+      end
+
+      block ||= 
+        if methods.size == 0
+          lambda {|date| date.send(*output)}
+        else
+          lambda {|date, type|
+            case type
+            when When::YEAR  ; date.strftime("%Y")
+            when When::MONTH ; date.strftime("%B %Y")
+            when When::WEEK  ; nil
+            when When::DAY   ; date[0]
+            else             ; '-'
+            end
+          }
+        end
+      _free_conv(calendars, dates, methods, output, options, &block)
+    end
+
+    # 引数読み込み
+    #
+    # args [String] コマンドライン入力
+    #
+    # @return [Array] ( calendars, dates, numbers, methods )
+    #   [ calendars [Array<When::TM::Calendar or When::TM::CalendarEra>]]
+    #   [ dates     [Array<When::TM::CalData or When::TM::DateAndTime>] ]
+    #   [ numbers   [Array<Numeric>]]
+    #   [ methods   [Array<String>] メソッド名('week', 'month', 'year') ]
+    #   [ output    [Array<Symbol, String>] 出力処理に使うメソッドのシンボルと引数  ]
+    #   [ options   [Hash{ :extent=>Boolean, :go_back=><:All || :Before(nil) || :After> }]
+    #
+    # @private
+    def _parse(args)
+      calendars = []
+      dates     = []
+      numbers   = []
+      methods   = []
+      options   = {}
+      output    = [:to_s]
+
+      config    = When.config
+      args.flatten.each do |arg|
+        case arg
+        when Numeric ; dates << arg ; numbers << arg
+        when Hash    ; options.update(arg)
+        when Range   ; arg.each {|d| dates << d}
+        when Symbol  ; output = arg
+        when String
+          case arg
+          when /^:(.+?)(?:\[(..)\])?$/             ; output  = [$1.to_sym, $2].compact
+          when /^(year|month|week)(?:\[(..)\])?$/i ; methods << [$1.downcase + '_included', $2||'SU']
+          when /^[-+\d]\d*$/                       ; dates   << arg.to_i ; numbers << arg.to_i
+          when /^[-+.\d][.\d]*$/                   ; dates   << arg.to_f ; numbers << arg.to_f
+          when /^now$/i                            ; dates   << When.now
+          when /^today$/i                          ; dates   << When.today
+          when /(^[-+\d])|\^/                      ; dates   << arg
+          when /^\//
+            arg[1..-1].scan(/./) do |c|
+              c = c.upcase
+              if config.key?(c)
+                calendar = config[c]
+                calendar = calendar.join(':') if calendar.kind_of?(Array)
+                calendars << When.Calendar(calendar)
+              elsif c == 'D'
+                calendars << When::TM::JulianDate
+              end
+            end
+          else
+            begin
+              calendars << ((arg == 'JulianDate') ? When::TM::JulianDate : When.Calendar(arg))
+            rescue NameError, OpenURI::HTTPError
+              dates << arg
+            end
+          end
+        else
+          dates << arg
+        end
+      end
+      [calendars, dates, numbers, methods, output, options]
+    end
+
+    # 変換処理(実行部)
+    #
+    # @param [When::TM::Calendar, When::TM::CalendarEra] calendars
+    # @param [When::TM::CalData, When::TM::DateAndTime] dates
+    # @param [String] methods メソッド名('week', 'month', 'year')
+    # @param [Hash] options {:extent=>Boolean, :go_back=><:All||:Before(nil)||:After>}
+    #
+    # @return [Array] 変換結果
+    #
+    # @private
+    def _free_conv(calendars, dates, methods, output, options, &block)
+      dates[0]     ||= When.now
+      calendars[0] ||= When.Calendar('Gregorian')
+      result = dates.map {|date|
+        date = When.when?(date)
+        list = calendars.dup
+        (0...calendars.size).to_a.reverse.each do |i|
+          case list[i]
+          when When::TM::Calendar ; list.slice!(i) if options[:extent] && !list[i].domain.include?(date)
+          when Class              ; 
+          else
+             eras = (date ^ list[i]).delete_if {|e| !e.leaf?}
+             unless options[:go_back] == :All
+               if options[:go_back] == :After
+                 eras = [eras[(eras.index {|e| e.calendar_era_name[3]}) || -1]]
+               else
+                 eras.delete_if {|e| e.calendar_era_name[3]}
+               end
+             end
+             list[i,1] = eras.map {|e| e.calendar_era}
+          end
+        end
+
+        if methods.size == 0
+          list.map {|calendar|
+             calendar.kind_of?(Class) ?
+             yield(calendar.new(date)) :
+             yield(calendar ^ (calendar.rate_of_clock == date.rate_of_clock ? date.to_i : date))
+          }
+        else
+          list.map {|calendar|
+            date_for_calendar = calendar ^ (calendar.rate_of_clock == date.rate_of_clock ? date.to_i : date)
+            methods.map {|method|
+              date_for_calendar.send(method[0].to_sym, method[1], &block)
+            }
+          }
+        end
+      }
+      result = result[0] while result.kind_of?(Array) && result.size == 1
+      return result
+    end
+  end
+end