2 # NOTE the use of -n above; this script is called in a loop.
12 open STDIN, "../src/main.c" or die "main.c: $!\n";
15 if (/^static struct cmdline_option option_data/) {
23 /^[\t ]*\{ "[^"]*", '(.)', OPT_[A-Z0-9_]*, /
32 "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789";
33 print "Free chars:\n\t";
34 for (my $i = 0; $i < length $opt_chars; ++$i, ++$cols) {
35 if ($cols == $max_cols) {
39 my $opt = substr($opt_chars,$i,1);
41 if (!$used_chars{ $opt }) {