chiark
/
gitweb
/
~ian
/
subdirmk.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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{^![ \t]+}{}) {
o $_;
$_ = '';
- } elsif (s{^!(\S+)(?:[ \t]+|$)}{}) {
- $$esclitr = $1;
- $set_esc->();
} else {
die "bad escape $$esclitr$_ ";
}
} else {
die "bad escape $$esclitr$_ ";
}
@@
-192,6
+189,9
@@
sub process_input_mk ($$$$$$$$) {
$var_prefix, $targets,
$subf, $esclitr, $1);
o "\n";
$var_prefix, $targets,
$subf, $esclitr, $1);
o "\n";
+ } elsif (m#^changequote\s+(\S+)\s+$#) {
+ $$esclitr = $1;
+ $set_esc->();
} else {
die "unknown directive $_ ";
}
} else {
die "unknown directive $_ ";
}