gobject/marshal-genstrings.pl

   1 #!/usr/bin/perl
   2
   3 open (List, "gmarshal.list");
   4
   5 while (<List>) {
   6     next unless /^[A-Z]/;
   7     s/^/"g_cclosure_marshal_/; s/:/__/; s/,/_/g; s/$/",/;
   8     print;
   9 }