numbered-alias-sheet: implement -g and -b

[d.git] / numbered-alias-sheet

diff --git a/numbered-alias-sheet b/numbered-alias-sheet
index fbbfa1f230f488342f7a73d7d69bc2ab9b73afb4..f0e1f337d8f29bfc984311661f0ef7cad4595dec 100755 (executable)
--- a/numbered-alias-sheet
+++ b/numbered-alias-sheet
@@ -75,6 +75,10 @@ for (;;) {
            @borders = ($1,$1);
        } elsif (s/^-b($dbl_re)x($dbl_re)$//o) {
            @borders = ($1,$1);
+       } elsif (s/^-g($dbl_re)$//o) {
+           $gapratio = $1;
+       } elsif (s/^-b($dbl_re)$//o) {
+           $blankratio = $1;
        } elsif (s/^-D/-/) {
            open DEBUG, ">&STDERR" or die $!;
        } else {