#!/usr/bin/perl

undef $/;
$header = <>;
$header =~ s/;(.*?)\n//g;

print "\\ * * * * *   DO NOT EDIT!   * * * * * \n";
print "\\ generated by: bin/snarf-constants.pl\n\n";
print "macro\n";

while ($header =~ m/(\w+)\s+equ\s+(\S+)/gi){
    $name = $1;
    $value = $2;

    $value =~ s/H\'(.*?)\'/#x$1/;
    
    print ": $name $value ;\n";

}

print "forth\n";