[Po4a-commits] po4a/lib/Locale/Po4a Man.pm,1.94,1.95

[Nicolas FRANCOIS]

Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory haydn:/tmp/cvs-serv354/lib/Locale/Po4a

Modified Files:
	Man.pm 
Log Message:
The ds macro is used to define strings, its argument must be translated
(but not the name of this string)


Index: Man.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Man.pm,v
retrieving revision 1.94
retrieving revision 1.95
diff -u -d -r1.94 -r1.95
--- Man.pm	24 Jul 2005 17:07:17 -0000	1.94
+++ Man.pm	2 Sep 2005 10:37:56 -0000	1.95
@@ -1408,7 +1408,16 @@
 };
 # .ds stringvar anything
 #                 Set stringvar to anything.
-$macro{'ds'}=\&untranslated;
+$macro{'ds'}=sub {
+    my ($self, $m) = (shift,shift);
+    my $name = shift;
+    my $string = "@_";
+    # indicate to which variable this corresponds. The translator can
+    # find references to this string in the translation "\*(name" or
+    # "\*[name]"
+    $self->{type} = "ds $name";
+    $self->pushline($m." ".$name." ".$self->translate($string)."\n");
+};
 #       .fam      Return to previous font family.
 #       .fam name Set the current font family to name.
 $macro{'fam'}=\&untranslated;