mirror of
https://gitlab.gnome.org/GNOME/glib.git
synced 2024-12-25 23:16:14 +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;
|
||
|
}
|