mirror of
https://gitlab.gnome.org/GNOME/glib.git
synced 2024-11-10 19:36:18 +01:00
10 lines
162 B
Perl
10 lines
162 B
Perl
|
#!/usr/bin/perl
|
||
|
|
||
|
open (List, "gmarshal.list");
|
||
|
|
||
|
while (<List>) {
|
||
|
next unless /^[A-Z]/;
|
||
|
s/^/"g_cclosure_marshal_/; s/:/__/; s/,/_/g; s/$/",/;
|
||
|
print;
|
||
|
}
|