Sign in
fuchsia
/
third_party
/
glib
/
refs/tags/2.33.3
/
.
/
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;
}