gobject/marshal-genstrings.pl


1
2
3
4
5
6
7
8
9

#!/usr/bin/perl

open (List, "gmarshal.list");

while (<List>) {
    next unless /^[A-Z]/;
    s/^/"g_cclosure_marshal_/; s/:/__/; s/,/_/g; s/$/",/;
    print;
}