From 91585163e7f7cd886b2bce4c98dbc3d14b9d3c2e Mon Sep 17 00:00:00 2001
From: Tom Feist <shabble@metavore.org>
Date: Thu, 14 Oct 2010 21:42:31 +0100
Subject: misc: tidying up my working dir

---
 docs/parse_formats.pl | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100755 docs/parse_formats.pl

(limited to 'docs/parse_formats.pl')

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'));
-- 
cgit v1.2.3