Error handling: Fix messages resulting from bad directive arguments

"Unknown directive" is not necessarily accurate; another possibility
is that the directive is known but didn't match the parsing regexp
because of problems with the arguments.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/generate b/generate
index 747a79b8441a740dedeb641886849111c5077c27..4a0450686c61e556227a1134bef5f3d114b7b277 100755 (executable)
--- a/generate
+++ b/generate
@@ -241,7 +241,7 @@ sub process_input_mk ($$$$) {
        } elsif (s#^\s*$esc\:(?=(-?)include|macro)##) {
            $buffering_output='';
        } elsif (m#^\s*$esc\:([a-z][-0-9a-z_]*)#) {
        } elsif (s#^\s*$esc\:(?=(-?)include|macro)##) {
            $buffering_output='';
        } elsif (m#^\s*$esc\:([a-z][-0-9a-z_]*)#) {

-           err "unknown directive &:$1";
+           err "unknown directive &:$1 or bad argumnt syntax";

        } elsif (s{^\s*${esc}TARGETS(?:_([0-9a-zA-Z_]+))?(?=\W)}{}) {
            my $t = $1 // 'all';
            od target_varname($var_prefix, $t);
        } elsif (s{^\s*${esc}TARGETS(?:_([0-9a-zA-Z_]+))?(?=\W)}{}) {
            my $t = $1 // 'all';
            od target_varname($var_prefix, $t);


@@ -311,7 +311,7 @@ sub process_input_mk ($$$$) {
                od "define $1\n";
                $push_nest->('macro', 1, '&:macro');
            } else {
                od "define $1\n";
                $push_nest->('macro', 1, '&:macro');
            } else {

-               die "internal error ($_?)";
+               err "bad directive argument syntax";

            }
        }
     }
            }
        }
     }