kivio/kivio-extract-i18n-desc.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

#

#
# Copyright (C) 2004 Nicolas GOUTTE <goutte@kde.org>
# License: LGPL 2.0
#

sub writei18n
{
    local $_ = @_[1];
    if ( $_ )
    {
        s/&lt;/</g;
        s/&gt;/>/g;
        s/&apos;/\'/g;
        s/&quot;/\"/g;
        s/&amp;/&/g;
        s/\"/\\\"/g;
        print "i18n( \"". @_[0] . "\", \"" . $_ . "\" );";
        if ( @_[2] )
        {
            print " // " . @_[2];
        }
        print "\n";
    }
}

if ( m/<Title +data=\"(.+)\"/ )
{
    writei18n( "Stencils", $1 , "Title" );
}

if ( m/<Description +data=\"(.+)\"/ )
{
    writei18n( "Stencils", $1 , "Description" );
}