From: Nathaniel Wesley Filardo <nwf@pf.priv.oc.ietfng.org>
Date: Fri, 19 Mar 2010 00:04:47 +0000 (-0400)
Subject: Add progenv/trackerfmt_perlize.pl utility
X-Git-Url: https://hydra-www.ietfng.org/gitweb/?a=commitdiff_plain;h=442396244f747aad077d7bcf678972fff84cda7b;p=acmetensortoys-chiptunes

Add progenv/trackerfmt_perlize.pl utility
---

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);