Re: PO files location (Was Re: [d-i] Problems with various debconf templates)

[Denis Barbier]

On Wed, Sep 04, 2002 at 09:30:32AM +0200, Denis Barbier wrote:
[...]
> Here is a patch against retriever/choose-mirror/makeheader.pl

Here it is.

Denis

Index: makeheader.pl
===================================================================
RCS file: /cvs/debian-boot/debian-installer/retriever/choose-mirror/makeheader.pl,v
retrieving revision 1.4
diff -u -u -r1.4 makeheader.pl
--- makeheader.pl       29 Aug 2002 11:37:15 -0000      1.4
+++ makeheader.pl       4 Sep 2002 07:16:35 -0000
@@ -46,6 +46,9 @@
 
 open (OUT, ">mirrors_$type.h") or die "mirrors_$type.h: $!";
 print OUT "/* Automatically generated; do not edit. */\n";
+print OUT "#ifndef _\n";
+print OUT "#define _(ARG) ARG\n";
+print OUT "#endif\n";
 
 # Poor man's mirror rating system: push-primary, push* (-secondary), others
 foreach my $site (keys %data) {
@@ -65,7 +68,8 @@
        next unless exists $data{$site}->{"archive-$type"} and
                    exists $data{$site}->{country};
        print OUT "\t{",
-                 join(", ", $q.$site.$q, $q.$data{$site}->{country}.$q,
+                 join(", ", $q.$site.$q,
+                       "_(".$q.$data{$site}->{country}.$q.")",
                        $q.$data{$site}->{"archive-$type"}.$q),
                  "},\n";
        $used_country{$data{$site}->{country}}=1;