Changeset 5607

Timestamp:

06/26/09 11:28:55 (3 years ago)

Author:

ryan52

Message:

add support for contexts

Location:

trunk/Locale-Msgfmt

Files:

• Changes (modified) (1 diff)
• lib/Locale/Msgfmt/Utils.pm (modified) (1 diff)
• lib/Locale/Msgfmt/po.pm (modified) (3 diffs)
• t/msgfmt.t (modified) (1 diff)

trunk/Locale-Msgfmt/Changes

@@ -1 +1 @@
 Revision history for Locale-Msgfmt
+
+0.06    Jun 26, 2009
+        add support for contexts
 
 0.05    Jun 25, 2009

trunk/Locale-Msgfmt/lib/Locale/Msgfmt/Utils.pm

@@ -50 +50 @@
 }
 
+sub eot {
+  return chr(4);
+}
+
 1;

trunk/Locale-Msgfmt/lib/Locale/Msgfmt/po.pm

@@ -1 +1 @@
 package Locale::Msgfmt::po;
+
+use Locale::Msgfmt::Utils;
 
 use strict;
@@ -28 +30 @@
   return if ($h{fuzzy} && !$self->{fuzzy} && length($h{msgid}) > 0);
   return if($h{msgstr} eq "");
-  $self->{mo}->add_string(cleanup_string($h{msgid}), cleanup_string($h{msgstr}));
+  my $context;
+  if($h{msgctxt}) {
+    $context = cleanup_string($h{msgctxt}) . Locale::Msgfmt::Utils::eot();
+  } else {
+    $context = "";
+  }
+  $self->{mo}->add_string($context . cleanup_string($h{msgid}), cleanup_string($h{msgstr}));
 }
 
@@ -40 +48 @@
   while (<F>) {
     s/\r\n/\n/;
-    if(/^(msgid|msgstr) +"(.*)" *$/) {
+    if(/^(msgid|msgstr|msgctxt) +"(.*)" *$/) {
       $type = $1;
-      if($type eq "msgid" && defined($h{msgid})) {
+      if(defined($h{$type})) {
         $self->add_string(\%h);
         %h = ();

trunk/Locale-Msgfmt/t/msgfmt.t

@@ -31 +31 @@
     }
     do_one_test("fr-fr");
+    do_one_test("context");
   TODO: {
       local $TODO = "not yet implemented";
-      do_one_test("context");
+      
       do_one_test("ngettext");
     }