fml/utils/bin/gen_paths.cf.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#!/usr/bin/env perl
#
# $FML$
#

print "#\n";
print "# \$FML\$\n";
print "#\n";
print "\n";

while (<>) {
    if (/dnl path_check/ .. /dnl path_check_end/) {
	if (/AC_PATH_PROG\(([\w\d]+),\s*([\w\d]+)\)/) {
	    printf "path_%-20s = \@%s\@\n\n", $2, $1;
	}
    }
}

exit 0;