#!/usr/bin/env perl

# feed this script with vims.h to generate selectors.h

print "// selector.h\n";
print "// generated from vims.h\n";
while (<>){
    if (m/VIMS_(\S+)\s*=\s*(\d+)\s*,/) {
	$id = $2;        # numeric id
	$tag = lc $1;    # convert to lower case
	$tag =~ s/_/\./g; # pd-ify

	$nid = int( $id );
	
	print "SELECTOR(\"" . $tag . "\", " . $id . ");\n" if $nid <= 400 or $nid >= 500;
    }
}