Syntax: Introduce &:changequote

[subdirmk.git] / generate

diff --git a/generate b/generate
index c17d5f7d70e3ae848b84a6df77498108a4b6e1f0..351926b80751b7f78ba4d95e3dbc7839fa6913ed 100755 (executable)
--- a/generate
+++ b/generate
@@ -176,9 +176,6 @@ sub process_input_mk ($$$$$$$$) {
            } elsif (s{^![ \t]+}{}) {
                o $_;
                $_ = '';
-           } elsif (s{^!(\S+)(?:[ \t]+|$)}{}) {
-               $$esclitr = $1;
-               $set_esc->();
            } else {
                die "bad escape $$esclitr$_ ";
            }
@@ -192,6 +189,9 @@ sub process_input_mk ($$$$$$$$) {
                                 $var_prefix, $targets,
                                 $subf, $esclitr, $1);
                o "\n";
+           } elsif (m#^changequote\s+(\S+)\s+$#) {
+               $$esclitr = $1;
+               $set_esc->();
            } else {
                die "unknown directive $_ ";
            }