gettext 1.0.0

data/bin/rgettext

@@ -0,0 +1,22 @@
+#! /usr/bin/ruby
+=begin
+  rgettext - ruby version of xgettext
+
+  Copyright (C) 2005  Masao Mutoh
+  
+  You may redistribute it and/or modify it under the same
+  license terms as Ruby.
+=end
+
+begin
+  require 'gettext/rgettext'
+rescue LoadError
+  begin
+    require 'rubygems'
+    require_gem 'gettext/rgettext'
+  rescue LoadError
+    raise 'Ruby-GetText-Package are not installed.'
+  end
+end
+
+GetText.rgettext

data/bin/rmsgfmt

@@ -0,0 +1,22 @@
+#! /usr/bin/ruby
+=begin
+  rgettext - ruby version of xgettext
+
+  Copyright (C) 2005  Masao Mutoh
+ 
+  You may redistribute it and/or modify it under the same
+  license terms as Ruby.
+=end
+
+begin
+  require 'gettext/rmsgfmt'
+rescue LoadError
+  begin
+    require 'rubygems'
+    require_gem 'gettext/rmsgfmt'
+  rescue LoadError
+    raise 'Ruby-GetText-Package are not installed.'
+  end
+end
+
+GetText.rmsgfmt

data/ext/gettext/gettext/MANIFEST

@@ -0,0 +1,3 @@
+MANIFEST
+_locale.c
+extconf.rb

data/ext/gettext/gettext/_locale.c

@@ -0,0 +1,86 @@
+/* -*- c-file-style: "ruby"; tab-width: 4 -*-
+ *
+ * Copyright (C) 2002-2005 Masao Mutoh
+ * 
+ * You may redistribute it and/or modify it under the same
+ * license terms as Ruby.
+ * 
+ * $Id: _locale.c,v 1.2 2005/08/20 17:05:34 mutoh Exp $
+ */
+
+#include "ruby.h"
+
+#if defined HAVE_WINDOWS_H
+# include <windows.h>
+#else
+# if defined HAVE_SETLOCALE
+#  include <locale.h>
+# endif
+# if defined HAVE_NL_LANGINFO
+#  include <langinfo.h>
+# endif
+#endif
+#ifndef StringValuePtr
+#define StringValuePtr(s) STR2CSTR(s)
+#endif
+
+#if defined HAVE_WINDOWS_H
+static VALUE
+gt_locale_id_win32(self)
+    VALUE self;
+{
+	int lcid, pri_id, sub_id;
+	lcid = GetUserDefaultLangID();
+	pri_id = lcid & 0x3ff;
+	sub_id = lcid >> 10;
+	return rb_assoc_new(INT2FIX(pri_id), INT2FIX(sub_id));
+}
+#endif
+static VALUE
+gt_setlocale(self, type, locale)
+    VALUE self, type, locale;
+{
+# if defined HAVE_SETLOCALE
+    char* ret = setlocale(NUM2INT(type), 
+			  NIL_P(locale) ? NULL : StringValuePtr(locale));
+    return ret == NULL ? rb_str_new2("C") : rb_str_new2(ret);
+# else
+    return rb_str_new2("C");
+# endif
+}
+
+static VALUE
+gt_codeset(self)
+	VALUE self;
+{
+#if defined HAVE_WINDOWS_H
+	char buf[2 + 10 + 1];
+	sprintf (buf, "CP%u", GetACP ());
+	return rb_str_new2(buf);
+#elif defined HAVE_NL_LANGINFO
+	return rb_str_new2(nl_langinfo(CODESET));
+#else
+	return rb_str_new2("UTF-8");
+#endif
+}
+
+void Init__locale()
+{
+    VALUE mLocale = rb_define_module("Locale");
+
+#if defined HAVE_WINDOWS_H
+    rb_define_module_function(mLocale, "__locale_id", gt_locale_id_win32, 0);
+#endif
+    rb_define_module_function(mLocale, "set", gt_setlocale, 2);
+    rb_define_module_function(mLocale, "codeset", gt_codeset, 0);
+# if defined HAVE_SETLOCALE
+    rb_define_const(mLocale, "ALL", INT2NUM(LC_ALL));
+    rb_define_const(mLocale, "COLLATE", INT2NUM(LC_COLLATE));
+    rb_define_const(mLocale, "CTYPE", INT2NUM(LC_CTYPE));
+    rb_define_const(mLocale, "MESSAGES", INT2NUM(LC_MESSAGES));
+    rb_define_const(mLocale, "MONETARY", INT2NUM(LC_MONETARY));
+    rb_define_const(mLocale, "NUMERIC", INT2NUM(LC_NUMERIC));
+    rb_define_const(mLocale, "TIME", INT2NUM(LC_TIME));
+#endif
+
+}

data/ext/gettext/gettext/extconf.rb

@@ -0,0 +1,20 @@
+=begin
+  extconf.rb
+
+  Copyright (C) 2002,2003 Masao Mutoh <mutoh@highway.ne.jp>
+ 
+  You may redistribute it and/or modify it under the same
+  license terms as Ruby.
+
+ $Id: extconf.rb,v 1.1.1.1 2005/08/13 02:38:09 mutoh Exp $
+=end
+
+require 'mkmf'
+
+if RUBY_PLATFORM =~ /cygwin|mingw|mswin32|bccwin32/
+	have_header 'windows.h'
+else
+	have_func 'setlocale'
+	have_func 'nl_langinfo'
+end
+create_makefile '_locale'

data/lib/gettext.rb

@@ -0,0 +1,127 @@
+=begin
+  gettext.rb - GetText module
+
+  Copyright (C) 2001-2005  Masao Mutoh
+  Copyright (C) 2001-2003  Masahiro Sakai
+
+      Masao Mutoh       <mutoh@highway.ne.jp>
+      Masahiro Sakai    <s01397ms@sfc.keio.ac.jp>
+
+  You may redistribute it and/or modify it under the same
+  license terms as Ruby.
+
+  $Id: gettext.rb,v 1.2 2005/08/20 17:05:34 mutoh Exp $
+=end
+
+require 'rbconfig'
+require 'gettext/version'
+require 'gettext/mo'
+require 'gettext/locale'
+require 'gettext/textdomain'
+
+module GetText
+  class NoboundTextDomainError < RuntimeError
+  end
+
+  @@__textdomain = Hash.new
+  @@__textdomain_key = Hash.new
+
+  @@output_charset = nil
+
+  def bindtextdomain(domainname, path = nil, locale = nil, charset = nil)
+    locale ||= Locale.get
+    if @@output_charset
+      charset = @@output_charset
+    else
+      charset ||= ENV["OUTPUT_CHARSET"] ? ENV["OUTPUT_CHARSET"] : Locale.codeset
+      @@output_charset = charset
+    end
+    src = callersrc
+    $stderr.print "bind the domain '#{domainname}' to '#{src}'. charset is #{charset}\n" if $DEBUG
+    textdomain = @@__textdomain[src]
+    unless textdomain
+      textdomain = @@__textdomain_key[domainname]
+      @@__textdomain[src] = textdomain
+    end
+    if ! textdomain or ! textdomain.same_property?(domainname, path, locale, charset)
+      textdomain = TextDomain.new(domainname, path, locale, charset)
+      @@__textdomain_key[domainname] = textdomain
+      @@__textdomain[src] = textdomain
+    end
+    @@__textdomain[src]
+  end
+
+  def textdomain(domainname)
+    src = callersrc
+    textdomain = @@__textdomain_key[domainname]
+    raise NoboundTextDomainError, "#{domainname} is not bound." unless textdomain
+    @@__textdomain[src] = textdomain
+    $stderr.print "Use the domain '#{domainname}' to '#{src}'. charset is #{textdomain.charset}\n" if $DEBUG
+    @@__textdomain[src]
+  end
+  
+  def gettext(msgid)
+    textdomain = @@__textdomain[callersrc]
+    textdomain ? textdomain.gettext(msgid) : msgid
+  end
+  
+  def ngettext(msgid, msgid_plural, n)
+    textdomain = @@__textdomain[callersrc]
+    textdomain ? textdomain.ngettext(msgid, msgid_plural, n) : msgid
+  end
+  
+  def N_(msgid)
+    msgid
+  end
+
+  def sgettext(msgid, div = '|')
+    textdomain = @@__textdomain[callersrc]
+    if textdomain
+      msg = textdomain.gettext(msgid)
+    else
+      msg = msgid
+    end
+    if msg == msgid
+      if index = msg.rindex(div)
+	msg = msg[(index + 1)..-1]
+      end
+    end
+    msg
+  end
+
+  def callersrc
+    caller(2)[0].sub(/:\d+(?::in \`\S+\')?\Z/, '')
+  end
+
+  def locale=(locale)
+    textdomain = @@__textdomain[callersrc]
+    textdomain.set_locale(locale) if textdomain
+    locale
+  end
+
+  def output_charset=(charset)
+    @@output_charset = charset
+  end
+
+  def output_charset
+    @@output_charset
+  end
+
+  def charset=(cs)
+    textdomain = @@__textdomain[callersrc]
+    textdomain.set_charset(cs) if textdomain
+  end
+  
+  alias :setlocale :locale=
+  alias :set_locale :locale=
+  alias :set_output_charset :output_charset=
+  alias :_ :gettext
+  alias :n_ :ngettext
+  alias :s_ :sgettext
+
+  module_function :bindtextdomain, :textdomain, 
+    :N_, :gettext, :_, :ngettext, :n_, 
+    :sgettext, :s_, :callersrc,
+    :setlocale, :set_locale, :locale=, :charset=,
+    :set_output_charset, :output_charset=, :output_charset
+end

data/lib/gettext/cgi.rb

@@ -0,0 +1,83 @@
+=begin
+  gettext/cgi.rb - GetText for CGI
+
+  Copyright (C) 2005  Masao Mutoh
+
+  You may redistribute it and/or modify it under the same
+  license terms as Ruby.
+
+  $Id: cgi.rb,v 1.2 2005/08/27 18:52:20 mutoh Exp $
+=end
+
+require 'cgi'
+require 'gettext'
+
+module Locale
+  alias :orig_get :get
+
+  @@cgi = nil
+
+  module_function
+  def cgi=(cgi)
+    @@cgi = cgi
+  end
+
+  def cgi
+    @@cgi = CGI.new unless @@cgi
+    @@cgi
+  end
+
+  def get
+    @@cgi = CGI.new unless @@cgi
+    if ret = @@cgi["lang"] and ret.size > 0
+      $stderr.print "query_string: lang = #{ret}\n" if $DEBUG
+    elsif ret = @@cgi.cookies["lang"][0]
+      print "cookie: lang = #{ret}\n" if $DEBUG
+    elsif lang = @@cgi.accept_language
+      $stderr.print "accept lanaugage: lang = #{lang}\n" if $DEBUG
+ 
+      lang = lang.split(',').first.split('-') rescue []
+      language = lang[0]
+      dialect  = lang[1]
+      language = language ? language.downcase : 'en' # default is en
+      dialect  = dialect ? "_#{dialect.upcase}" : ""
+      ret = "#{language}#{dialect}"
+    else
+      ret = "en"
+    end
+    $stderr.print "Locale.get = #{ret}\n" if $DEBUG
+    ret
+  end
+
+  def codeset
+    @@cgi = CGI.new unless @@cgi
+    codesets = @@cgi.accept_charset
+    if codesets
+      ary = codesets.split(',')
+      ary[0]
+    else
+      "UTF-8"
+    end
+  end
+
+  alias :charset :codeset
+  alias :set_cgi :cgi=
+
+  module_function :charset, :set_cgi
+end
+
+module GetText
+  def cgi=(cgi)
+    @cgi = cgi
+    Locale.cgi = cgi
+  end
+
+  def cgi
+    @cgi = Locale.cgi unless @cgi
+    @cgi
+  end
+
+  alias :set_cgi :cgi=
+
+  module_function :cgi=, :set_cgi, :cgi
+end

data/lib/gettext/container.rb

@@ -0,0 +1,30 @@
+=begin
+  gettext/erb.rb - Class-based container module for GetText 
+
+  Copyright (C) 2005  Masao Mutoh
+
+  You may redistribute it and/or modify it under the same
+  license terms as Ruby.
+
+  $Id: container.rb,v 1.3 2005/08/22 17:24:33 mutoh Exp $
+=end
+
+require 'gettext'
+
+module GetText
+  module Container
+    include GetText
+
+    alias :_bindtextdomain :bindtextdomain
+
+    def bindtextdomain(domainname, path = nil, locale = nil, charset = nil)    
+      @gettext_container_domainname = domainname
+      _bindtextdomain(domainname, path, locale, charset)
+    end
+
+    def callersrc
+      @gettext_container_domainname
+    end
+
+  end
+end

data/lib/gettext/erb.rb

@@ -0,0 +1,28 @@
+=begin
+  gettext/erb.rb - GetText for ERB
+
+  Copyright (C) 2005  Masao Mutoh
+
+  You may redistribute it and/or modify it under the same
+  license terms as Ruby.
+
+  $Id: erb.rb,v 1.1.1.1 2005/08/13 02:38:09 mutoh Exp $
+=end
+
+require 'erb'
+require 'gettext/container'
+
+module GetText
+  module ErbContainer
+    include Container
+
+    def eval_src(rhtml)
+      erb = ERB.new(rhtml).src
+      eval(erb, binding)
+    end
+
+    def eval_file(rhtmlpath)
+      eval_src(IO.read(rhtmlpath))
+    end
+  end
+end