8 lines
97 B
Plaintext
8 lines
97 B
Plaintext
|
#! /usr/bin/perl
|
||
|
|
|
||
|
|
while (<>) {
|
||
|
|
if (/_\(\"(.*)\"\)/) {
|
||
|
|
print "gchar *s = N_(\"$1\");\n"
|
||
|
|
}
|
||
|
|
}
|