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/analyse-irssi.pl | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100755 docs/analyse-irssi.pl

(limited to 'docs/analyse-irssi.pl')

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), $/;
-- 
cgit v1.2.3