gettext 1.0.0-mswin32 → 1.1.0-mswin32

data/lib/gettext/mo.rb

@@ -12,7 +12,7 @@
     of Ruby.  License of Ruby is included with Ruby distribution in
     the file "README".
 
-    $Id: mo.rb,v 1.1.1.1 2005/08/13 02:38:09 mutoh Exp $
+    $Id: mo.rb,v 1.2 2005/10/22 10:49:59 mutoh Exp $
 =end
 
 require 'gettext/iconv'
@@ -233,6 +233,11 @@ class MOFile < Hash
     File.open(filename, 'wb'){|f| save_to_stream(f)}
   end
 
+  def set_comment(msgid_or_sym, comment)
+    #Do nothing
+  end
+
+
   attr_accessor :little_endian
   attr_reader :charset, :nplurals, :plural
 end

data/lib/gettext/parser/activerecord.rb

@@ -0,0 +1,115 @@
+#!/usr/bin/ruby
+=begin
+  parser/activerecord.rb - parser for ActiveRecord
+
+  Copyright (C) 2005  Masao Mutoh
+ 
+  You may redistribute it and/or modify it under the same
+  license terms as Ruby.
+
+  $Id: activerecord.rb,v 1.2 2005/12/25 11:43:20 mutoh Exp $
+=end
+
+require 'gettext'
+require 'gettext/parser/ruby'
+
+module GetText
+  module ActiveRecordParser
+    extend GetText
+    include GetText
+    GetText.bindtextdomain("rgettext")
+
+    @config = {
+      :db_yml => "config/database.yml",
+      :db_mode => "development",
+      :activerecord_classes => ["ActiveRecord::Base"],
+      :use_classname => true,
+    }
+
+    @ar_re = nil
+
+    module_function
+    def require_rails(file)
+      begin
+	require file
+      rescue MissingSourceFile
+	$stderr.puts _("'%{file}' is not found.") % {:file => file}
+      end
+    end
+
+    def init(config)
+      if config
+	config.each{|k, v|
+	  @config[k] = v
+	}
+      end
+      @ar_re = /class.*(#{@config[:activerecord_classes].join("|")})/
+    end
+
+    def parse(file, targets = [])
+      ActiveRecord::Base.establish_connection(@db)
+
+      old_constants = constants
+      begin
+        eval(open(file).read)
+      rescue
+        $stderr.puts _("Ignored '%{file}'. Solve dependencies first.") % {:file => file}
+        $stderr.puts $! 
+      end
+      loaded_constants = constants - old_constants
+      loaded_constants.each do |classname|
+	klass = eval(classname)
+	if klass < ActiveRecord::Base
+	  tablename = klass.human_attribute_name(klass.class_name)
+	  targets << [tablename, "#{file}:-"]
+	  begin
+	    klass.columns.each do |column|
+	      if @config[:use_classname]
+		targets << [tablename + "|" +  klass.human_attribute_name(column.name), "#{file}:-"]
+	      else
+		targets << [klass.human_attribute_name(column.name), "#{file}:-"]
+	      end
+	    end
+	  rescue
+	    $stderr.puts _("No database is available.")
+	    $stderr.puts $!
+	  end
+	end
+      end
+      if RubyParser.target?(file)
+	RubyParser.parse(file, targets)
+      end
+    end
+
+    def target?(file)
+      init(nil) unless @ar_re
+      data = IO.readlines(file)
+      data.each do |v|
+	if @ar_re =~ v
+	  unless @db
+	    require 'rubygems'
+	    require 'active_record'
+	    yml = YAML.load_file(@config[:db_yml])
+	    @db = yml[:db_mode]
+	    @db = yml["production"] unless @db
+	    require_rails 'config/boot.rb'
+	    require_rails 'config/environment.rb'
+	    require_rails 'app/controllers/application.rb'
+	  end
+	  return true
+	end
+      end
+      false
+    end
+  end
+end
+
+if __FILE__ == $0
+  # ex) ruby model1.rb model2.rb 
+  ARGV.each do |file|
+    if GetText::ActiveRecordParser.target?(file)
+      p file
+      p GetText::ActiveRecordParser.parse(file)
+    end
+  end
+end

data/lib/gettext/parser/glade.rb

@@ -6,7 +6,7 @@
   You may redistribute it and/or modify it under the same
   license terms as Ruby.
 
-  $Id: glade.rb,v 1.1.1.1 2005/08/13 02:38:09 mutoh Exp $
+  $Id: glade.rb,v 1.2 2005/12/17 07:12:40 mutoh Exp $
 =end
 
 require 'cgi'
@@ -14,6 +14,8 @@ require 'gettext'
 
 module GetText
   module GladeParser
+    extend GetText
+    bindtextdomain("rgettext")
 
     TARGET1 = /<property.*translatable="yes">(.*)/
     TARGET2 = /(.*)<\/property>/

data/lib/gettext/parser/ruby.rb

@@ -3,43 +3,27 @@
   parser/ruby.rb - parser for ruby script
 
   Copyright (C) 2003-2005  Masao Mutoh
+  Copyright (C) 2005       speakillof
   Copyright (C) 2001,2002  Yasushi Shoji, Masao Mutoh
  
-      Yasushi Shoji   <yashi@yashi.com>
-      Masao Mutoh     <mutoh@highway.ne.jp>
- 
   You may redistribute it and/or modify it under the same
   license terms as Ruby.
 
-  $Id: ruby.rb,v 1.1.1.1 2005/08/13 02:38:09 mutoh Exp $
+  $Id: ruby.rb,v 1.4 2005/12/17 07:12:40 mutoh Exp $
 =end
 
-require 'irb/ruby-lex'
-require 'irb/ruby-token'
+require 'irb/ruby-lex.rb'
 require 'stringio'
 
 class RubyLexX < RubyLex
+  
   def initialize
     super
     @prompt = nil
     @here_header = nil
     @lex_state = nil
   end
-
-  def token
-    tk = super
-    if $DEBUG
-      if tk.is_a? TkSTRING
-        $stderr.puts("#{tk}: #{tk.value}")
-      elsif tk.is_a? TkIDENTIFIER
-        $stderr.puts("#{tk}: #{tk.name}")
-      else
-        $stderr.puts(tk)
-      end
-    end
-    tk
-  end
-
+  
   def read_escape
     case ch = getc
     when "\n", "\r", "\f"
@@ -92,44 +76,50 @@ class RubyLexX < RubyLex
     end
   end
 
-  def identify_string(ltype, quoted = ltype)
-    @ltype = ltype
-    @quoted = quoted
-    subtype = nil
-    str = ''
-    begin
-      while ch = getc
-        if @quoted == ch
-	  break
-        elsif @ltype != "'" && @ltype != "]" and ch == "#"
-          subtype = true
-        elsif ch == '\\' #'
-          e = read_escape
-          str.concat e unless e.nil?
+  # Parser#parse resemlbes RubyLex#lex
+  def parse
+    until (  (tk = token).kind_of?(RubyToken::TkEND_OF_SCRIPT) && !@continue or tk.nil?  )
+      s = get_readed
+ 
+      if RubyToken::TkSTRING === tk
+        def tk.value
+          @value 
+        end
+        
+        def tk.value=(s)
+          @value = s
+        end
+        
+        if @here_header
+          s = s.sub(/\A.*?\n/, '').sub(/^.*\n\Z/, '')
         else
-          str.concat ch
+	  begin
+	    s = eval(s)
+	  rescue Exception
+	    # Do nothing.
+	  end
         end
+        
+        tk.value = s
       end
-      if @ltype == "/"
-	if peek(0) =~ /i|o|n|e|s/
-	  getc
-	end
-      end
-      if subtype
-        tk = Token(DLtype2Token[ltype], str)
-      else
-        tk = Token(Ltype2Token[ltype], str)
+      
+      if $DEBUG
+        if tk.is_a? TkSTRING
+          $stderr.puts("#{tk}: #{tk.value}")
+        elsif tk.is_a? TkIDENTIFIER
+          $stderr.puts("#{tk}: #{tk.name}")
+        else
+          $stderr.puts(tk)
+        end
       end
-    ensure
-      @ltype = nil
-      @quoted = nil
-      @lex_state = EXPR_END
+      
+      yield tk
     end
+    
+    return nil
   end
-end
 
-######################################################################
-# GetText::RubyParser
+end
 
 module GetText
   module RubyParser
@@ -147,12 +137,13 @@ module GetText
       rl = RubyLexX.new
       rl.set_input(file)
       rl.skip_space = true
-      rl.readed_auto_clean_up = true
+      #rl.readed_auto_clean_up = true
 
       target = nil
       msgid = nil
       line_no = nil
-      while tk = rl.token
+      
+      rl.parse do |tk|
         case tk
         when RubyToken::TkIDENTIFIER, RubyToken::TkCONSTANT
           if ID.include?(tk.name)
@@ -193,6 +184,7 @@ module GetText
         end
         targets
       end
+      
       targets
     end
 
@@ -201,11 +193,18 @@ module GetText
     end
     
   end 
-end  
+end
+
+
 
 if __FILE__ == $0
-  # ex) ruby c.rb foo.rb bar.rb
+  require 'pp'
   ARGV.each do |file|
-    p GetText::RubyParser.parse(file)
+    pp GetText::RubyParser.parse(file)
   end
+  
+  #rl = RubyLexX.new; rl.set_input(ARGF)  
+  #rl.parse do |tk|
+    #p tk
+  #end  
 end

data/lib/gettext/poparser.rb

@@ -0,0 +1,297 @@
+=begin
+  poparser.rb - Generate a .mo
+
+  Copyright (C) 2003-2005 Masao Mutoh <mutoh@highway.ne.jp>
+
+  You may redistribute it and/or modify it under the same
+  license terms as Ruby.
+=end
+
+#
+# DO NOT MODIFY!!!!
+# This file is automatically generated by racc 1.4.4
+# from racc grammer file "src/poparser.ry".
+#
+
+require 'racc/parser'
+
+
+module GetText
+
+  class PoParser < Racc::Parser
+
+module_eval <<'..end src/poparser.ry modeval..id9163dcbd5f', 'src/poparser.ry', 90
+  include GetText
+  GetText.bindtextdomain("rgettext")
+
+  def unescape(orig)
+    ret = orig.gsub(/\\n/, "\n")
+    ret.gsub!(/\\t/, "\t")
+    ret.gsub!(/\\r/, "\r")
+    ret.gsub!(/\\"/, "\"")
+    ret
+  end
+  
+  def parse(str, data)
+    @comments = []
+    @data = data
+    @fuzzy = false
+    str.strip!
+    @q = []
+    until str.empty? do
+      case str
+      when /\A\s+/
+	str = $'
+      when /\Amsgid_plural/
+	@q.push [:MSGID_PLURAL, $&]
+	str = $'
+      when /\Amsgid/
+	@q.push [:MSGID, $&]
+	str = $'
+      when /\Amsgstr/
+	@q.push [:MSGSTR, $&]
+	str = $'
+      when /\A\[(\d+)\]/
+	@q.push [:PLURAL_NUM, $1]
+	str = $'
+      when /\A\#~(.*)/
+	$stderr.print _("Warning: obsolete msgid is existed.\n")
+	$stderr.print "         #{$&}\n"
+	@q.push [:COMMENT, $&]
+	str = $'
+      when /\A\#(.*)/
+	@q.push [:COMMENT, $&]
+	str = $'      
+      when /\A\"(.*)\"/
+	@q.push [:STRING, $1]
+	str = $'
+      else
+	#c = str[0,1]
+	#@q.push [:STRING, c]
+	str = str[1..-1]
+      end
+    end 
+    @q.push [false, '$end']
+    if $DEBUG
+      @q.each do |a,b|
+      puts "[#{a}, #{b}]"
+      end
+    end
+    @yydebug = true if $DEBUG
+    do_parse
+
+    if @comments.size > 0
+      @data.set_comment(:last, @comments.join("\n"))
+    end
+    @data
+  end
+  
+  def next_token
+    @q.shift
+  end
+
+  def on_message(msgid, msgstr)
+    @data[msgid] = msgstr
+    
+    @data.set_comment(msgid, @comments.join("\n"))
+    @comments.clear
+  end
+      
+  def on_comment(comment)
+    @fuzzy = true if (/fuzzy/ =~ comment)
+    @comments << comment
+  end 
+
+..end src/poparser.ry modeval..id9163dcbd5f
+
+##### racc 1.4.4 generates ###
+
+racc_reduce_table = [
+ 0, 0, :racc_error,
+ 0, 9, :_reduce_none,
+ 2, 9, :_reduce_none,
+ 2, 9, :_reduce_none,
+ 4, 11, :_reduce_4,
+ 5, 11, :_reduce_5,
+ 2, 13, :_reduce_6,
+ 1, 13, :_reduce_none,
+ 3, 14, :_reduce_8,
+ 1, 10, :_reduce_9,
+ 2, 12, :_reduce_10,
+ 1, 12, :_reduce_11 ]
+
+racc_reduce_n = 12
+
+racc_shift_n = 21
+
+racc_action_table = [
+     3,     9,     4,     5,    10,    11,    12,    17,    12,     9,
+     9,     7,    12,    17,    19,     9,    12 ]
+
+racc_action_check = [
+     1,     5,     1,     1,     8,     8,     8,    13,    13,    10,
+    11,     3,    14,    15,    17,    19,    20 ]
+
+racc_action_pointer = [
+   nil,     0,   nil,    11,   nil,    -5,   nil,   nil,     0,   nil,
+     3,     4,   nil,     2,     6,     8,   nil,     7,   nil,     9,
+    10 ]
+
+racc_action_default = [
+    -1,   -12,    -3,   -12,    -9,   -12,    -2,    21,   -12,   -11,
+   -12,   -12,   -10,   -12,    -4,    -5,    -7,   -12,    -6,   -12,
+    -8 ]
+
+racc_goto_table = [
+     8,    16,     2,    18,     6,    13,    14,    15,     1,   nil,
+   nil,   nil,   nil,   nil,    20 ]
+
+racc_goto_check = [
+     4,     6,     3,     6,     2,     4,     4,     5,     1,   nil,
+   nil,   nil,   nil,   nil,     4 ]
+
+racc_goto_pointer = [
+   nil,     8,     3,     1,    -5,    -6,   -12 ]
+
+racc_goto_default = [
+   nil,   nil,   nil,   nil,   nil,   nil,   nil ]
+
+racc_token_table = {
+ false => 0,
+ Object.new => 1,
+ :COMMENT => 2,
+ :MSGID => 3,
+ :MSGID_PLURAL => 4,
+ :MSGSTR => 5,
+ :STRING => 6,
+ :PLURAL_NUM => 7 }
+
+racc_use_result_var = true
+
+racc_nt_base = 8
+
+Racc_arg = [
+ racc_action_table,
+ racc_action_check,
+ racc_action_default,
+ racc_action_pointer,
+ racc_goto_table,
+ racc_goto_check,
+ racc_goto_default,
+ racc_goto_pointer,
+ racc_nt_base,
+ racc_reduce_table,
+ racc_token_table,
+ racc_shift_n,
+ racc_reduce_n,
+ racc_use_result_var ]
+
+Racc_token_to_s_table = [
+'$end',
+'error',
+'COMMENT',
+'MSGID',
+'MSGID_PLURAL',
+'MSGSTR',
+'STRING',
+'PLURAL_NUM',
+'$start',
+'msgfmt',
+'comment',
+'message',
+'string_list',
+'msgstr_plural',
+'msgstr_plural_line']
+
+Racc_debug_parser = true
+
+##### racc system variables end #####
+
+ # reduce 0 omitted
+
+ # reduce 1 omitted
+
+ # reduce 2 omitted
+
+ # reduce 3 omitted
+
+module_eval <<'.,.,', 'src/poparser.ry', 36
+  def _reduce_4( val, _values, result )
+    if @fuzzy
+      if val[1] != ""
+        $stderr.print _("Warning: fuzzy message was ignored.\n")
+        $stderr.print "         msgid '#{val[1]}'\n"
+      else
+        on_message('', unescape(val[3]))
+      end
+      @fuzzy = false
+    else
+      on_message(unescape(val[1]), unescape(val[3]))
+    end
+    result = ""
+   result
+  end
+.,.,
+
+module_eval <<'.,.,', 'src/poparser.ry', 51
+  def _reduce_5( val, _values, result )
+    if @fuzzy
+      if val[1] != ""
+        $stderr.print _("Warning: fuzzy message was ignored.\n")
+        $stderr.print "msgid = '#{val[1]}\n"
+      else
+        on_message('', unescape(val[3]))
+      end
+      @fuzzy = false
+    else
+      on_message(unescape(val[1]) + "\000" + unescape(val[3]), unescape(val[4]))
+    end
+    result = ""
+   result
+  end
+.,.,
+
+module_eval <<'.,.,', 'src/poparser.ry', 58
+  def _reduce_6( val, _values, result )
+    result = val[0] + "\000" + val[1]
+   result
+  end
+.,.,
+
+ # reduce 7 omitted
+
+module_eval <<'.,.,', 'src/poparser.ry', 66
+  def _reduce_8( val, _values, result )
+    result = val[2]
+   result
+  end
+.,.,
+
+module_eval <<'.,.,', 'src/poparser.ry', 73
+  def _reduce_9( val, _values, result )
+    on_comment(val[0])
+   result
+  end
+.,.,
+
+module_eval <<'.,.,', 'src/poparser.ry', 81
+  def _reduce_10( val, _values, result )
+    result = val.delete_if{|item| item == ""}.join
+   result
+  end
+.,.,
+
+module_eval <<'.,.,', 'src/poparser.ry', 85
+  def _reduce_11( val, _values, result )
+    result = val[0]
+   result
+  end
+.,.,
+
+ def _reduce_none( val, _values, result )
+  result
+ end
+
+  end   # class PoParser
+
+end   # module GetText