aboutsummaryrefslogtreecommitdiffstats
path: root/docs/analyse-irssi.pl
diff options
context:
space:
mode:
Diffstat (limited to 'docs/analyse-irssi.pl')
-rwxr-xr-xdocs/analyse-irssi.pl35
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), $/;