From 442396244f747aad077d7bcf678972fff84cda7b Mon Sep 17 00:00:00 2001
From: Nathaniel Wesley Filardo <nwf@pf.priv.oc.ietfng.org>
Date: Thu, 18 Mar 2010 20:04:47 -0400
Subject: [PATCH] Add progenv/trackerfmt_perlize.pl utility

---
 progenv/trackerfmt_perlize.pl | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 progenv/trackerfmt_perlize.pl

diff --git a/progenv/trackerfmt_perlize.pl b/progenv/trackerfmt_perlize.pl
new file mode 100644
index 0000000..4e8de07
--- /dev/null
+++ b/progenv/trackerfmt_perlize.pl
@@ -0,0 +1,27 @@
+use strict;
+use warnings;
+
+use Data::Dumper;
+
+sub parse_header($) {
+    my ($FH) = @_;
+    my %const = ( );
+    while (my $line = <$FH>) {
+        chomp $line;
+        if($line =~ /#define\s+(PACKSIZE_\S+)\s+(\S+)\s*.*$/) {
+            $const{$1} = $2;
+        } elsif($line =~ /#define\s+(NR_\S+)\s+(\S+)\s*.*$/) {
+            $const{$1} = $2;
+        } elsif($line =~ /#define\s+(TRACKLEN)\s+(\S+)\s*.*$/) {
+            $const{$1} = $2;
+        }
+    }
+
+    return \%const;
+}
+
+open TF, '<', "progenv/trackerfmt.h" or die $!;
+my $params = parse_header(*TF);
+close TF;
+
+print Dumper($params);
-- 
2.50.1