mirror of
https://github.com/game-stop/veejay.git
synced 2025-12-19 14:19:58 +01:00
18 lines
406 B
Perl
Executable File
18 lines
406 B
Perl
Executable File
#!/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;
|
|
}
|
|
}
|