diff options
author | Daniel Friesel <derf@derf.homelinux.org> | 2010-03-21 16:57:12 +0100 |
---|---|---|
committer | Daniel Friesel <derf@derf.homelinux.org> | 2010-03-21 16:57:12 +0100 |
commit | 031cf5e8ffd0511c1d69a41da295ab6bb017bc1d (patch) | |
tree | a1e909a0c683e2ab1d684d61a7664111d3632302 /dev/checkopts.pl | |
parent | b3c405408fb7abaad6039b65d86ef701b12c9f0a (diff) |
Remove autoconf (from branch 'autocruft')
Use config.mk for configuration, both GNU make and FreeBSD make are supported.
Diffstat (limited to 'dev/checkopts.pl')
-rwxr-xr-x | dev/checkopts.pl | 66 |
1 files changed, 0 insertions, 66 deletions
diff --git a/dev/checkopts.pl b/dev/checkopts.pl deleted file mode 100755 index fb88c0f..0000000 --- a/dev/checkopts.pl +++ /dev/null @@ -1,66 +0,0 @@ -#!/usr/bin/env perl -## Copyright © 2010 by Daniel Friesel <derf@derf.homelinux.org> -## License: WTFPL <http://sam.zoy.org/wtfpl> -use strict; -use warnings; - -my $options; - -open(my $c_fh, '<', 'src/options.c') or die("Can't read options.c: $!"); -while (my $line = <$c_fh>) { - - if ($line =~ /\{"(?<long>[\w-]+)",.*,\s*(?:'(?<short>.)'|(?<short>\d+))\}/o) { - push(@{$options->{$+{long}}}, ['source', $+{short}]); - } - elsif ($line =~ /" (?:\-(?<short>.), |\s*)--(?<long>[\w-]+) /) { - push(@{$options->{$+{long}}}, ['help', $+{short}]); - } - -} -close($c_fh); - -open(my $man_fh, '<', 'feh.1') or die("Can't read feh.1: $!"); -while (my $line = <$man_fh>) { - - if ($line =~ /^\.B (?:-(?<short>.), )?--(?<long>[\w-]+)/) { - push(@{$options->{$+{long}}}, ['manual', $+{short}]); - } - -} -close($man_fh); - -foreach my $option (keys %{$options}) { - my $last; - my $count = 0; - - if ($option =~ / ^ action\d | help /x) { - next; - } - - foreach my $source (@{$options->{$option}}) { - my $name = $source->[0]; - my $short = $source->[1] // ''; - $short = '' if ($short =~ /^\d+$/); - - if (not defined $last) { - $last = $short; - } - - if ($last ne $short) { - last; - } - - $last = $short; - $count++; - } - - if ($count == 3) { - next; - } - - foreach my $source (@{$options->{$option}}) { - my $name = $source->[0]; - my $short = $source->[1] // ''; - print "$option: $name ($short)\n"; - } -} |