Lua2 B@//S/Publique/work/carregal/cgi/cgilua/cgilua.conf/preprocess.lua Ì
:
: "
:$#
:&%
:('* +)* +,* +-* +.* +/* +0* +1* +2* +3* +4* + 5* +6* +7* +8,/*-*0*2*3*4*6*8*9).*1*5*7*9*:; < ; =; > ; ? @A B CA D EF G HI J
:KL M NO POMO QRO S TU V
:WU X
:YU Z
:[\ ]
:^_ `
:ab c
:de f gh ihf j EXPORTS CACHE gsubExpandFields B@//S/Publique/work/carregal/cgi/cgilua/cgilua.conf/preprocess.lua
param EXPORTS
expandFields B@//S/Publique/work/carregal/cgi/cgilua/cgilua.conf/preprocess.lua
tmpl s gsub %%([%w_][%w_]*) gsubExpandFields _tmpl_FUNC_INIT %name = function (%params)
_tmpl_FUNC_TERM return '' end
_tmpl_LOOP_INIT %start
while (%test) do
_tmpl_LOOP_TERM
%action
end
_tmpl_IF_INIT if (%test) then
_tmpl_IF_TERM end
_tmpl_ELSE else
_tmpl_CODE_INIT %code _tmpl_CODE_TERM _tmpl_EXP_INIT write(tostring(%exp))
_tmpl_EXP_TERM _tmpl_NORMAL_TXT write(%text)
setEXPORTS / B@//S/Publique/work/carregal/cgi/cgilua/cgilua.conf/preprocess.lua
: params EXPORTS foreach 1 B@//S/Publique/work/carregal/cgi/cgilua/cgilua.conf/preprocess.lua
i v EXPORTS
use_template 9 B@//S/Publique/work/carregal/cgi/cgilua/cgilua.conf/preprocess.lua
tmpl_str exports setEXPORTS
expandFields
FINAL_SOURCE source init_source C B@//S/Publique/work/carregal/cgi/cgilua/cgilua.conf/preprocess.lua
FINAL_SOURCE source newConcatenatableString
add_chunk I B@//S/Publique/work/carregal/cgi/cgilua/cgilua.conf/preprocess.lua
chunk concatenate
FINAL_SOURCE source
close_source O B@//S/Publique/work/carregal/cgi/cgilua/cgilua.conf/preprocess.lua concatenatableToString
FINAL_SOURCE source
_pre_FUNC format %c
_pre_FUNCREM
_pre_ENDFUNC
_pre_LOOP
_pre_LOOPREM
_pre_ENDLOOP _pre_IF _pre_IFREM
_pre_ELSE _pre_ENDIF
_pre_CODE
_pre_ENDCODE _pre_EXP _pre_ENDEXP _pre_CLOSUREMARKS _pre_SPECIALMARKS cgilua
pre_userfile
pre_userline pre_lastcount pre_CountLines ‘ B@//S/Publique/work/carregal/cgi/cgilua/cgilua.conf/preprocess.lua L
2
%
%
0
"6$
%
chunk start stop n s e strfind
cgilua
pre_userline cgilua pre_ReplaceTag ž B@//S/Publique/work/carregal/cgi/cgilua/cgilua.conf/preprocess.lua ]
,4!
* *
* *
*
*2.
4
* *
* *
2
str tagname replopen
replclose func t gsub < >(.-) %1 type function <( )>(.-)func field is not a function. pre_ProcessTags ¬ B@//S/Publique/work/carregal/cgi/cgilua/cgilua.conf/preprocess.lua Z
0 4:2+
%
64
str t cgilua custom_tags type table i pre_ReplaceTag tagname open close func cgilua pre_PrepareText » B@//S/Publique/work/carregal/cgi/cgilua/cgilua.conf/preprocess.lua µ
**
*
*
**
text t cgilua pre_ProcessTags gsub &
_pre_FUNC %1
_pre_FUNCREM %
_pre_ENDFUNC "
_pre_LOOP
_pre_LOOPREM !
_pre_ENDLOOP _pre_IF _pre_IFREM
_pre_ELSE _pre_ENDIF
_pre_ENDCODE %$| _pre_EXP |%$ _pre_ENDEXP cgilua pre_ProcessTemplate × B@//S/Publique/work/carregal/cgi/cgilua/cgilua.conf/preprocess.lua a
4$
htmlfile old cgilua
pre_userfile push script CACHE init_source pre_ProcessText pre_PrepareText read .*
close_source dostring pop cgilua pre_ProcessFile è B@//S/Publique/work/carregal/cgi/cgilua/cgilua.conf/preprocess.lua l
4G
4
2
2
*
htmlfile oldin _INPUT readfrom str read .. -- cgilua douserfile seek set pre_ProcessTemplate pre_usererror format %Error opening file %s. Preprocessing aborted. cgilua includehtml
pre_dostring dostring pre_usererror B@//S/Publique/work/carregal/cgi/cgilua/cgilua.conf/preprocess.lua
* msg cgilua
usererror format at line %d
pre_userline cgilua pre_Expression B@//S/Publique/work/carregal/cgi/cgilua/cgilua.conf/preprocess.lua %
expr
add_chunk
use_template _tmpl_EXP_INIT exp _tmpl_EXP_TERM pre_Code B@//S/Publique/work/carregal/cgi/cgilua/cgilua.conf/preprocess.lua %
code
add_chunk
use_template _tmpl_CODE_INIT _tmpl_CODE_TERM
pre_Function . B@//S/Publique/work/carregal/cgi/cgilua/cgilua.conf/preprocess.lua ”
*
,4
*
*
,4 2
,4
% block control s e param strfind (.-)
_pre_FUNCREM cgilua pre_usererror 1missing $$--> FUNCTION delimiter
pre_dostring return { } LOOP directive params Pincorrect FUNCTION statement; missing parameter list control field name Oincorrect FUNCTION statement; missing function name control field
add_chunk
use_template _tmpl_FUNC_INIT pre_ProcessText _tmpl_FUNC_TERM cgilua pre_Loop b B@//S/Publique/work/carregal/cgi/cgilua/cgilua.conf/preprocess.lua ²
*
,4
*
*
,4 2"
,4 2
,4
%
block control s e param strfind (.-)
_pre_LOOPREM cgilua pre_usererror -missing $$--> LOOP delimiter
pre_dostring return { } LOOP directive start Cincorrect LOOP statement; missing start control field test Bincorrect LOOP statement; missing test control field action Dincorrect LOOP statement; missing action control field
add_chunk
use_template _tmpl_LOOP_INIT pre_ProcessText _tmpl_LOOP_TERM comment q
cgilua.pre_lastcount = cgilua.pre_userline
while cgilua.pre_dostring('return '..control.test, 'LOOP directive (parameter test)' ) do
cgilua.pre_ProcessText( block, e+1 )
-- come back with the line counter for the next cycle
cgilua.pre_userline = cgilua.pre_lastcount
cgilua.pre_dostring(control.action, 'LOOP directive (parameter action)' )
end cgilua pre_If › B@//S/Publique/work/carregal/cgi/cgilua/cgilua.conf/preprocess.lua
*
,4
%
* *
,4
0
4
4E
&
%
% 2
% #" $ block s e param strfind (.-) _pre_IFREM cgilua pre_usererror +missing $$--> IF delimiter
existelse
startelse
_pre_ELSE control
pre_dostring return { }
IF directive test @incorrect IF statement; missing test control field type string number @incorrect IF statement; invalid test control field pre_lastcount
pre_userline
add_chunk
use_template _tmpl_IF_INIT pre_CountLines pre_ProcessText strsub _tmpl_ELSE _tmpl_IF_TERM comment ö
cgilua.pre_lastcount = cgilua.pre_userline
if cgilua.pre_dostring('return '..control.test, 'IF directive (parameter test)' ) then
cgilua.pre_CountLines( block, 1, e )
if existelse then
cgilua.pre_ProcessText( strsub( block, 1, startelse-1 ), e+1 )
else
cgilua.pre_ProcessText( block, e+1 )
end
elseif existelse then
cgilua.pre_CountLines( block, 1, startelse )
cgilua.pre_ProcessText( block, startelse+1 )
end
cgilua.pre_userline = cgilua.pre_lastcount cgilua pre_ProcessText Þ B@//S/Publique/work/carregal/cgi/cgilua/cgilua.conf/preprocess.lua ‡
,4
*
*
33
&
&
4T
** *
,4
% 1–
4T
*"* *
,4 # $
% 1;
% 4S
%*'* *
,4 ( )
% 2á
* 4S
**,* *
,4 - .
% 2‡
/ 4S
/*1* *
,4 2 3
% 2-
5*
*
444
4 6 2+
7 text start cgilua
pre_userline specialmark _ marktype strfind ([ _pre_SPECIALMARKS ])
add_chunk
use_template _tmpl_NORMAL_TXT gsub format %q strsub \
\n pre_CountLines _pre_EXP s e exp (%b _pre_ENDEXP ) pre_usererror "missing |$ delimiter pre_Expression pre_ProcessText
_pre_CODE code
_pre_ENDCODE (missing $$--> delimiter pre_Code
_pre_LOOP
loopblock
_pre_ENDLOOP 9missing <--$$ ENDLOOP $$--> delimiter pre_Loop
_pre_FUNC
funcblock
_pre_ENDFUNC =missing <--$$ ENDFUNCTION $$--> delimiter
pre_Function _pre_IF ifblock _pre_ENDIF 7missing <--$$ ENDIF $$--> delimiter pre_If notexpected _pre_CLOSUREMARKS %missing opening preprocessor command cgilua pre_IncludeText " B@//S/Publique/work/carregal/cgi/cgilua/cgilua.conf/preprocess.lua
text cgilua pre_ProcessText pre_PrepareText cgilua processtext