aboutsummaryrefslogtreecommitdiffstats
path: root/docs/parse_formats.pl
diff options
context:
space:
mode:
authorTom Feist <shabble@metavore.org>2010-10-14 20:42:31 +0000
committerTom Feist <shabble@metavore.org>2010-10-14 20:42:31 +0000
commit91585163e7f7cd886b2bce4c98dbc3d14b9d3c2e (patch)
treead714832c76eb1c72537db47c1a309261d2385ab /docs/parse_formats.pl
parentuberprompt: removed dead code from startup func. (diff)
downloadirssi-scripts-91585163e7f7cd886b2bce4c98dbc3d14b9d3c2e.tar.gz
irssi-scripts-91585163e7f7cd886b2bce4c98dbc3d14b9d3c2e.zip
misc: tidying up my working dir
Diffstat (limited to '')
-rwxr-xr-xdocs/parse_formats.pl23
1 files changed, 23 insertions, 0 deletions
diff --git a/docs/parse_formats.pl b/docs/parse_formats.pl
new file mode 100755
index 0000000..b3adec6
--- /dev/null
+++ b/docs/parse_formats.pl
@@ -0,0 +1,23 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+
+use C::Scan;
+use Data::Dumper;
+use Config;
+
+my $home = $ENV{HOME};
+my $src_loc = "$home/sources/irssi/src";
+my $file = "perl/module-formats.c";
+
+
+my $scan = C::Scan->new(filename => $src_loc . "/". $file);
+$scan->set('includeDirs' => [$src_loc,
+ $src_loc . "/perl",
+ "/opt/local/include",
+ "/opt/local/include/glib-2.0",
+ $Config::Config{shrpdir}]);
+
+print Dumper($scan->get('typedef_structs'));