1 files changed, 35 insertions, 0 deletions
diff --git a/docs/analyse-irssi.pl b/docs/analyse-irssi.pl
new file mode 100755
index 0000000..ceab06b
--- /dev/null
+++ b/docs/analyse-irssi.pl
@@ -0,0 +1,35 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+use C::Scan;
+use Data::Dumper;
+
+my $basedir = "/Users/tomfeist/sources/irssi/src";
+my $filename = $basedir . "/fe-text/gui-printtext.c";
+
+my $addflags = "-DUOFF_T_INT";
+
+my $c = C::Scan->new( 'filename' => $filename,
+#                      'filename_filter' => $filter,b
+                      'add_cppflags' => $addflags,
+                    );
+
+my @includes = (
+                $basedir,
+                $basedir . "/fe-text/",
+                $basedir . "/fe-common/",
+                $basedir . "/fe-common/core/",
+
+
+                $basedir . "/core/",
+                "/opt/local/include/glib-2.0",
+                "/opt/local/lib/glib-2.0/include/",
+#                "/opt/local/include/",
+               );
+
+$c->set('includeDirs' => \@includes);
+
+my $fdec = $c->get('parsed_fdecls');
+print Dumper($fdec), $/;