Re: [cdebconf] I18n of frontends

[barbier@linuxfr.org (Denis Barbier)]

On Tue, Oct 07, 2003 at 12:34:06AM +0200, Denis Barbier wrote:
[...]
> --- src2po	2003-08-30 00:41:58.000000000 +0200
> +++ src2po	2003-10-06 23:59:43.000000000 +0200
> @@ -0,0 +1,15 @@
> +#! /usr/bin/perl
> +
> +$/="\n\n";
> +my $first = 1;
> +while (<>) {
> +        s/"\n"//g;
> +        my ($pre, $name, $descr) = m/(.*)msgid "([^\n]+)"\nmsgid_plural "([^\n]+)"/s;
> +        print "\n" unless $first;
> +        $first = 0;
> +        print "Template: $name\n";
> +        print "Type: text\n";
> +        $pre =~ s/^#[,:].*//mg;
> +        print "# $pre\n" if $pre =~ s/.*#\. ([^\n]+)\n*$/$1/s;
> +        print "_Description: $descr\n";
> +}

This script is obviously misnamed, it should be called po2templates or
something similar.

Denis