1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
package Text::Handlebars::Compiler;
use Any::Moose;
extends 'Text::Xslate::Compiler';
use Try::Tiny;
has '+syntax' => (
default => 'Handlebars',
);
sub define_helper { shift->parser->define_helper(@_) }
sub _generate_block_body {
my $self = shift;
my ($node) = @_;
my @compiled = map { $self->compile_ast($_) } @{ $node->second };
unshift @compiled, $self->_localize_vars($node->first)
if $node->first;
return @compiled;
}
sub _generate_key {
my $self = shift;
my ($node) = @_;
my $var = $node->clone(arity => 'variable');
return $self->compile_ast($self->_check_lambda($var));
}
sub _generate_key_field {
my $self = shift;
my ($node) = @_;
my $field = $node->clone(arity => 'field');
return $self->compile_ast($self->_check_lambda($field));
}
sub _check_lambda {
my $self = shift;
my ($var) = @_;
my $parser = $self->parser;
my $is_code = $parser->symbol('(name)')->clone(
arity => 'name',
id => '(is_code)',
line => $var->line,
);
my $run_code = $parser->symbol('(name)')->clone(
arity => 'name',
id => '(run_code)',
line => $var->line,
);
return $parser->make_ternary(
$parser->call($is_code, $var->clone),
$parser->call(
$run_code,
$var->clone,
$parser->vars,
),
$var,
);
}
sub _generate_include {
my $self = shift;
my ($node) = @_;
my $file = $node->first;
$file->id($file->id . $self->engine->{suffix})
unless try { $self->engine->find_file($file->id); 1 };
return $self->SUPER::_generate_include($node);
}
sub _generate_call {
my $self = shift;
my ($node) = @_;
if ($node->is_helper) {
my @args;
my @hash;
for my $arg (@{ $node->second }) {
if ($arg->arity eq 'pair') {
push @hash, $arg->first, $arg->second;
}
else {
push @args, $arg;
}
}
my $parser = $self->parser;
my $make_hash = $parser->symbol('(name)')->clone(
arity => 'name',
id => '(make_hash)',
line => $node->line,
);
my $hash = $parser->call($make_hash, @hash);
if ($node->first->arity eq 'call' && $node->first->first->id eq '(make_block_helper)') {
push @{ $node->first->second }, $hash;
$node->second(\@args);
}
else {
$node->second([ @args, $hash ]);
}
}
return $self->SUPER::_generate_call($node);
}
__PACKAGE__->meta->make_immutable;
no Any::Moose;
1;
|