[Rt-commit] r15294 - in rt/3.8/trunk: sbin

[elacour at bestpractical.com]

Author: elacour
Date: Wed Aug 20 11:38:41 2008
New Revision: 15294

Modified:
   rt/3.8/trunk/   (props changed)
   rt/3.8/trunk/sbin/extract-message-catalog

Log:
 r10422 at datura:  manu | 2008-08-20 17:37:05 +0200
 Add support to translate only key part of a key => value pair with #loc_left_pair


Modified: rt/3.8/trunk/sbin/extract-message-catalog
==============================================================================
--- rt/3.8/trunk/sbin/extract-message-catalog	(original)
+++ rt/3.8/trunk/sbin/extract-message-catalog	Wed Aug 20 11:38:41 2008
@@ -175,6 +175,16 @@
     }
     }
 
+    # Comment-based left pair mark: "..." => ... # loc_left_pair
+    $line = 1;
+    pos($_) = 0;
+    while (m/\G.*?(\w+)\s*=>\s*[^#]+#\s*loc_left_pair\s*$/smg) {
+	my $key = $1;
+	$line += ( () = ( $& =~ /\n/g ) );    # cryptocontext!
+	$key  =~ s/\\'/\'/g;
+	push @{ $FILECAT->{$key} }, [ $filename, $line, '' ];
+    }
+
     # Comment-based pair mark: "..." => "..." # loc_pair
     $line = 1;
     pos($_) = 0;