#!/usr/bin/perl6

sub html-escape($_ is copy) {
    s:g/\&/&/;
    s:g/\</&lt;/;
    s:g/\>/&gt;/;
    s:g/\"/&quot;/;
    s:g/\'/&apos;/;
    $_;
}

BEGIN {
    use nqp;
    use QAST:from<NQP>;
    role Templating {
        rule escape:if {
            "#if"  <cond=.LANG('MAIN', 'EXPR', 'y=')>
            <?before '{' >
                <then=.LANG('MAIN', 'quibble', self)>
            [
                '#else'
                <else=.LANG('MAIN', 'quibble', self)>
            ]?
        }
    }
    role Grammar {
        method tweak_tpl($v) {
            $v ??  self.apply_tweak(Templating) !! self
        }
    }
    role Actions {
        method escape:if (Mu $/ is raw) {
            #$/.make: QAST::SVal.new(:value<pokus>)
            $/.make: QAST::Op.new(
                :op<if>,
                nqp::atkey($/, "cond").ast,
                nqp::atkey($/, "then").ast,
                nqp::existskey($/, "else") ?? nqp::atkey($/, "else").ast
                    !!QAST::SVal.new(:value('')),
            );
        }
    }
    $*LANG.define_slang("Quote", %*LANG<Quote> but Grammar,
                                 %*LANG<Quote-actions> but Actions);
}


my $name = 'Franta';
for [X] (^2) xx 3 -> [$bold, $uc, $exclaim] {
    say qq:tpl[
        Hello #if $bold {<b>}#if $uc {$name.uc()}#else {$name}#if $exclaim {!}#else {.}
        #if $bold {</b>}
    ]
}