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
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
|
#!perl -w
use strict;
print <<"HEAD";
# This lines are automatically generated by $0.
# ANY CHANGES WILL BE LOST!
HEAD
my @ops;
my @lines = <DATA>;
my $code = '';
while(<>) {
if(/^TXC(\w*) \s* \( (\w+) \)/xms) {
push @ops, [$2, $1];
}
}
$code .= <<'CODE';
our %OPS = (
CODE
my $i = 0;
for my $op ( @ops ) {
$code .= sprintf( " %-16s => %d,\n", $op->[0], $i++ );
}
$code .= <<'CODE';
); # %OPS
CODE
$code .= <<'CODE';
our @OPCODE = (
CODE
$i = 0;
for my $op ( @ops ) {
$code .= sprintf( " \\&Text::Xslate::PP::Opcode::op_%-20s %s\n", $op->[0] . ',', '# ' . $i++ );
}
$code .= <<'CODE';
); # @OPCODE
CODE
$code .= <<'CODE';
our @OPARGS = (
CODE
for my $op ( @ops ) {
my $arg_type = $op->[1];
my $flags;
if( $arg_type ) {
$flags .= "TXCODE" . uc $arg_type;
}
else {
$flags = '0';
}
$code .= sprintf( " %-14s %s\n", $flags . ',', '# ' . $op->[0] );
}
$code .= <<'CODE';
); # @OPARGS
CODE
for my $line ( @lines ) {
if ( $line =~ /^<<.+?>>$/ ) {
print $code;
next;
}
print $line;
}
__DATA__
package Text::Xslate::PP::Const;
use strict;
use parent qw(Exporter);
{
no strict 'refs';
our @EXPORT = ( grep { defined &{$_} } sort keys %Text::Xslate::PP::Const:: );
our @EXPORT_OK = (@EXPORT, qw(%OPS @OPCODE @OPARGS));
our %EXPORT_TAGS = (
all => \@EXPORT_OK,
);
}
use constant TXARGf_SV => 0x01;
use constant TXARGf_INT => 0x02;
use constant TXARGf_KEY => 0x04;
use constant TXARGf_VAR => 0x08;
use constant TXARGf_PC => 0x10;
# note that these flags are different form XS's because
# of the difference of data structure
use constant TXCODE_W_SV => TXARGf_SV;
use constant TXCODE_W_SVIV => (TXARGf_SV | TXARGf_INT) ;
use constant TXCODE_W_KEY => (TXARGf_SV | TXARGf_KEY);
use constant TXCODE_W_INT => (TXARGf_SV | TXARGf_INT);
use constant TXCODE_W_VAR => (TXARGf_SV | TXARGf_INT | TXARGf_VAR);
use constant TXCODE_GOTO => (TXARGf_SV | TXARGf_INT | TXARGf_PC);
# template representation, stored in $self->{template}{$file}
use constant TXo_MTIME => 0;
use constant TXo_CACHEPATH => 1;
use constant TXo_FULLPATH => 2;
# vm execution frame
use constant TXframe_NAME => 0;
use constant TXframe_OUTPUT => 1;
use constant TXframe_RETADDR => 2;
use constant TXframe_START_LVAR => 3;
use constant TX_VERBOSE_DEFAULT => 1;
# for-loop variables
use constant TXfor_ITEM => 0;
use constant TXfor_ITER => 1;
use constant TXfor_ARRAY => 2;
# types
use constant TXt_RAW => 'Text::Xslate::Type::Raw';
use constant TXt_MACRO => 'Text::Xslate::PP::Type::Macro';
use constant TXt_PAIR => 'Text::Xslate::PP::Type::Pair';
<<This lines will be created by tool/opcode_for_pp.pl>>
1;
__END__
=pod
=head1 NAME
Text::Xslate::PP::Const - Text::Xslate constants in pure Perl
=head1 DESCRIPTION
This module is used by Text::Xslate::PP internally.
=head1 SEE ALSO
L<Text::Xslate>
L<Text::Xslate::PP>
=head1 LICENSE AND COPYRIGHT
Copyright (c) 2010 by Makamaka Hannyaharamitu (makamaka).
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
|
