vitalif
/
VMXTemplate
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Debug new Template

databind
vitalif 2009-06-27 14:57:22 +00:00 committed by Vitaliy Filippov
parent e1aedc9559
commit 51dc18faa9
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
VMX/Template.pm
View File

@ -534,7 +534,7 @@ sub compile_code_fragment
my \$blk_${1}_count = ref($ref) && $ref =~ /ARRAY/so ? scalar \@{$ref} : $ref ? 1 : 0;
${to}
for (my \$blk_${1}_i = $at; \$blk_${1}_i < \$blk_${1}_count; \$blk_${1}_i $by) {
my \$blk_${1}_vars = ref($ref) && $ref =~ /ARRAY/so ? $ref ->{\$blk_${1}_i} : $ref;
my \$blk_${1}_vars = ref($ref) && $ref =~ /ARRAY/so ? $ref ->[\$blk_${1}_i] : $ref;
EOF
}
elsif ($e =~ /^END(?:\s+([a-z_][a-z0-9_]*))?$/iso)
@ -544,7 +544,7 @@ EOF
warn "$& without BEGIN, IF or SET";
return undef;
}
my $l = $self->{in}->{$#{$self->{in}}};
my $l = $self->{in}->[$#{$self->{in}}];
if ($1 && ($l->[0] ne 'begin' || !$l->[1] || $l->[1] ne $1) ||
!$1 && $l->[1])
{
@ -615,7 +615,7 @@ sub compile_expression
$e =~ s/^\s+//so;
$e =~ s/\s+$//so unless $after;
# строковой или числовой литерал
if ($e =~ /^((\")(?:[^\"\\]+|\\.)+\"|\'(?:[^\'\\]+|\\.)+\'|[1-9]\d*(\.\d+)?|0\d*|0x\d+)\s*/iso)
if ($e =~ /^((\")(?:[^\"\\]+|\\.)*\"|\'(?:[^\'\\]+|\\.)*\'|[1-9]\d*(\.\d+)?|0\d*|0x\d+)\s*/iso)
{
if ($')
{
@ -721,7 +721,8 @@ sub varref
my @e = ref $_[0] ? @{$_[0]} : split /\.+/, $_[0];
$self->{last_varref_path} = join '.', @e;
my $t = '$self->{tpldata}';
EQBLOCK: if (@{$self->{blocks}})
EQBLOCK: {
if (@{$self->{blocks}})
{
for (0..$#{$self->{blocks}})
{
@ -740,6 +741,7 @@ sub varref
$t = '$blk_'.$self->{blocks}->[$#{$self->{blocks}}].'_vars';
}
}
}
for (@e)
{
if (/^\d+$/so)