Changeset 31960 in osm for applications/editors/josm

Timestamp:

2016-01-07T19:25:04+01:00 (9 years ago)

Author:

holgermappt

Message:

Added scripts that read the JOSM *.lang language files.

Location:

applications/editors/josm/plugins/photoadjust/i18n

Files:

• README (modified) (1 diff)
• diff_lang.pl (added)
• i18nlib.pm (modified) (1 diff)
• read_lang.pl (added)

applications/editors/josm/plugins/photoadjust/i18n/README

@@ -50 +50 @@
 * It is not possible to add the translations of the plugin description
   to the manifest.
+
+See Language String Changes
+---------------------------
+To see what language strings changed in data/*.lang run this:
+svn diff --diff-cmd i18n/diff_lang.pl --force data
+
+To see just removed or modified strings:
+svn diff --diff-cmd i18n/diff_lang.pl --force data | grep ^- | grep -v '^--- data/'
+
+To display changes of a single file with tkdiff:
+svn diff --diff-cmd i18n/diff_lang.pl --extensions --tkdiff --force data/<lang>.lang

applications/editors/josm/plugins/photoadjust/i18n/i18nlib.pm

@@ -182 +182 @@
 }
 
+### Load a JOSM language file.  The format is two byte string length, then the
+### string.  Length 0x0000 means the string was not in the PO file, i.e. there
+### is no translation (there are no empty strings).  Length 0xfffe (65534)
+### means the string is the same as the original string.  Length 0xffff ends
+### the string list.
+###
+### Args:
+###     filename (str): Path to language file.
+###
+### Returns:
+###     array: List of decoded strings.
+sub loadLangFile {
+  my ($filename) = @_;
+  my @strings;
+  open(my $langFd, $filename) or die "Cannot open file $filename: $!";
+  binmode($langFd);
+  my $buffer;
+  my $length;
+  while (1) {
+    read($langFd, $buffer, 2);
+    $length = unpack("n", $buffer);
+    die "Unable to read string length" unless ($buffer);
+    if ($length == 0) {
+      push(@strings, "");
+    }
+    elsif ($length == 0xfffe) {
+      push(@strings, "(see original string)");
+    }
+    elsif ($length == 0xffff) {
+      last;
+    }
+    else {
+      read($langFd, $buffer, $length);
+      push(@strings, $buffer);
+    }
+  }
+  close($langFd);
+  return @strings;
+}
+
 1;