extracti18n.pl 2.55 KB
Newer Older
1 2 3 4
#!/usr/bin/perl -w

# This file is part of Krita
#
5
#  Copyright (c) 2005 Sven Langkamp <sven.langkamp@gmail.com>
6 7 8 9 10 11 12 13 14 15 16 17 18
#
#  This program is free software; you can redistribute it and/or modify
#  it under the terms of the GNU General Public License as published by
#  the Free Software Foundation; either version 2 of the License, or
#  (at your option) any later version.
#
#  This program is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.
#
#  You should have received a copy of the GNU General Public License
#  along with this program; if not, write to the Free Software
19
#  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
20 21 22 23 24


use strict;
use warnings;

25
sub printi18n($$$$) {
26 27
  if ($_[0] ne "") 
    {
28 29 30 31
      if ($_[3] > 0)
      {
        print "// i18n: file: ".$_[2].":".$_[3]."\n";
      }
32
          print "i18nc(\"".$_[1]."\",\"".$_[0]."\");\n";
33
    }
34 35
}

36 37 38 39 40
my @filenames = glob("./krita/data/gradients/*.ggr");
push( @filenames, glob("./krita/data/palettes/*.gpl"));
push( @filenames, glob("./krita/data/brushes/*.gih"));
push( @filenames, glob("./krita/data/brushes/*.gbr"));
push( @filenames, glob("./krita/data/patterns/*.pat"));
41 42 43 44 45 46 47 48 49 50 51 52 53 54 55
foreach my $filename (@filenames)
{
  unless ( open(FILE, '<'.$filename) )
  {
    next;
  }
  if( $filename =~ /ggr/ || $filename =~ /gpl/ || $filename =~ /gih/ )
  {
    my @lines = <FILE>;
    close(FILE);
    if( $filename =~ /ggr/ || $filename =~ /gpl/ )
    {
      my @splited = split(/: /, $lines[1]);
      my $name = $splited[1];
      chomp($name);
56
      printi18n($name, $filename, $filename, 2);
57 58 59 60 61
    }
    else
    {
      my $name = $lines[0];
      chomp($name);
62
      printi18n($name, $filename, $filename, 1);
63 64 65 66 67 68 69 70 71 72 73 74 75 76
    }
  }
  else
  {
    if( $filename =~ /gbr/ )
    {
      read(FILE, my $bytes, 4);
      my $size = unpack("N", $bytes);
      read(FILE, $bytes, 4);
      my $version = unpack("N", $bytes);
      if( $version == 1 )
      {
        read(FILE, $bytes, 12);
        read(FILE, my $name, $size - 21);
77
        printi18n($name, $filename, $filename, -1);
78 79 80 81 82
      }
      else
      {
        read(FILE, $bytes, 20);
        read(FILE, my $name, $size - 29);
83
        printi18n($name, $filename, $filename, -1);
84 85 86 87 88 89 90 91
      }
    }
    else
    {
      read(FILE, my $bytes, 4);
      my $size = unpack("N", $bytes);
      read(FILE, $bytes, 20);
      read(FILE, my $name, $size - 25);
92
      printi18n($name, $filename, $filename, -1);
93 94 95 96 97
    }
  }
}