nexmon – Blame information for rev 1

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 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 }