← Back to branch summary

~ubuntu-branches/ubuntu/feisty/gnumeric/feisty

« back to all changes in this revision

Viewing changes to intltool-extract.in

  • Committer: Bazaar Package Importer
  • Author(s): Gauvain Pocentek
  • Date: 2006-11-14 14:02:03 UTC
  • mfrom: (1.1.5 upstream)
  • Revision ID: james.westby@ubuntu.com-20061114140203-iv3j2aii3vch6isl
Tags: 1.7.2-1ubuntu1
* Merge with debian experimental:
  - debian/control, debian/*-gtk-*, debian/rules,
    debian/shlibs.local: Xubuntu changes for
    gtk/gnome multibuild.
  - run intltool-update in po*
  - Build Depend on intltool

Show diffs side-by-side

added added

removed removed

Lines of Context:
intltool-extract.in
32
32
## Release information
33
33
my $PROGRAM      = "intltool-extract";
34
34
my $PACKAGE      = "intltool";
35
 
my $VERSION      = "0.34.90";
 
35
my $VERSION      = "0.35.0";
36
36
 
37
37
## Loaded modules
38
38
use strict; 
156
156
      --type=TYPE   Specify the file type of FILENAME. Currently supports:
157
157
                    "gettext/glade", "gettext/ini", "gettext/keys"
158
158
                    "gettext/rfc822deb", "gettext/schemas",
159
 
                    "gettext/scheme", "gettext/xml"
 
159
                    "gettext/scheme", "gettext/xml", "gettext/quoted"
160
160
  -l, --local       Writes output into current working directory
161
161
                    (conflicts with --update)
162
162
      --update      Writes output into the same directory the source file 
212
212
    &type_scheme if $gettext_type eq "scheme";
213
213
    &type_schemas  if $gettext_type eq "schemas";
214
214
    &type_rfc822deb  if $gettext_type eq "rfc822deb";
 
215
    &type_quoted if $gettext_type eq "quoted";
215
216
}
216
217
 
217
218
sub entity_decode_minimal
242
243
{
243
244
    return '\"' if $_ eq '"';
244
245
    return '\n' if $_ eq "\n";
245
 
    return '\\' if $_ eq '\\';
 
246
    return '\\\\' if $_ eq '\\';
246
247
 
247
248
    return $_;
248
249
}
711
712
    return @list;
712
713
}
713
714
 
 
715
sub type_quoted {
 
716
    while ($input =~ /\"(([^\"]|\\\")*[^\\\"])\"/g) {
 
717
        my $message = $1;
 
718
        my $before = $`;
 
719
        $message =~ s/\\\"/\"/g;
 
720
        $before =~ s/[^\n]//g;
 
721
        $messages{$message} = [];
 
722
        $loc{$message} = length ($before) + 2;
 
723
    }
 
724
}
 
725
 
714
726
sub type_glade {
715
727
    ### For translatable Glade XML files ###
716
728