Sign in
android
/
platform
/
external
/
bluetooth
/
glib.git
/
refs/tags/android-2.3_r1
/
.
/
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;
}