Sign in
nest-open-source
/
nest-cam
/
4320010
/
glib
/
f6dccbe12024995c576bb85b2ad596af2833d2bd
/
.
/
glib
/
gobject
/
marshal-genstrings.pl
blob: 93fceb46c64871163807e1903af99fca9f1c35cd [
file
] [
log
] [
blame
]
#!/usr/bin/perl
open
(
List
,
"gmarshal.list"
);
while
(<
List
>)
{
next
unless
/^[
A
-
Z
]/;
s
/^
/"g_cclosure_marshal_/
;
s
/:
/__/
;
s
/,
/_/
g
;
s
/
$
/
",/;
print;
}