You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
37 lines
601 B
37 lines
601 B
#
|
|
|
|
#
|
|
# Copyright (C) 2004 Nicolas GOUTTE <goutte@kde.org>
|
|
# License: LGPL 2.0
|
|
#
|
|
|
|
sub writei18n
|
|
{
|
|
local $_ = @_[1];
|
|
if ( $_ )
|
|
{
|
|
s/</</g;
|
|
s/>/>/g;
|
|
s/'/\'/g;
|
|
s/"/\"/g;
|
|
s/&/&/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" );
|
|
}
|