extracti18n.pl 2.39 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
          print "i18nc(\"".$_[1]."\",\"".$_[0]."\");\n";
29
    }
30 31
}

Boudewijn Rempt's avatar
Boudewijn Rempt committed
32 33 34 35 36
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"));
37 38 39 40 41 42 43 44 45 46 47 48 49 50 51
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);
52
      printi18n($name, $filename);
53 54 55 56 57
    }
    else
    {
      my $name = $lines[0];
      chomp($name);
58
      printi18n($name, $filename);
59 60 61 62 63 64 65 66 67 68 69 70 71 72
    }
  }
  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);
73
        printi18n($name, $filename);
74 75 76 77 78
      }
      else
      {
        read(FILE, $bytes, 20);
        read(FILE, my $name, $size - 29);
79
        printi18n($name, $filename);
80 81 82 83 84 85 86 87
      }
    }
    else
    {
      read(FILE, my $bytes, 4);
      my $size = unpack("N", $bytes);
      read(FILE, $bytes, 20);
      read(FILE, my $name, $size - 25);
88
      printi18n($name, $filename);
89 90 91 92 93
    }
  }
}