aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBrian Cully <bjc@kublai.com>2017-11-12 11:55:06 -0500
committerBrian Cully <bjc@kublai.com>2017-11-12 12:00:59 -0500
commit699ca6cab6fe62650293b81694af8a13e4ac7827 (patch)
tree2153c50e20fd45e31f4b4ed17a3aa811732a4555
parentbbaaba6a72abb2357d1650eabe60e82eed024a58 (diff)
downloadxmpt-699ca6cab6fe62650293b81694af8a13e4ac7827.tar.gz
xmpt-699ca6cab6fe62650293b81694af8a13e4ac7827.zip
Add comment blocks to templates.
Comments are {# some comment} syntax for documentation purposes.
-rw-r--r--xml/signout.expected.xml2
-rwxr-xr-xxmpt5
2 files changed, 6 insertions, 1 deletions
diff --git a/xml/signout.expected.xml b/xml/signout.expected.xml
index 4ae4038..1516eee 100644
--- a/xml/signout.expected.xml
+++ b/xml/signout.expected.xml
@@ -1 +1 @@
-</{stream}>
+</{stream}>{# Need a match as the final step or nothing gets read.}
diff --git a/xmpt b/xmpt
index 8fed801..a43c037 100755
--- a/xmpt
+++ b/xmpt
@@ -43,6 +43,7 @@ if (@ARGV) {
}
binmode($inh, ':utf8');
binmode($outh, ':utf8');
+
eval_in($inh, $outh, \%conf, @plans);
waitpid($pid, 0) if $pid;
@@ -106,6 +107,10 @@ sub parse_template {
if ($intext) {
if ($tok =~ /{/) {
+ if ($line =~ /^#/) {
+ do { my $tok = shift @parts } until $tok = '}';
+ next;
+ }
$thunkstart = $line;
$intext = 0;
} else {