diff options
author | Brian Cully <bjc@kublai.com> | 2017-11-12 11:55:06 -0500 |
---|---|---|
committer | Brian Cully <bjc@kublai.com> | 2017-11-12 12:00:59 -0500 |
commit | 699ca6cab6fe62650293b81694af8a13e4ac7827 (patch) | |
tree | 2153c50e20fd45e31f4b4ed17a3aa811732a4555 | |
parent | bbaaba6a72abb2357d1650eabe60e82eed024a58 (diff) | |
download | xmpt-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.xml | 2 | ||||
-rwxr-xr-x | xmpt | 5 |
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.} @@ -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 { |