From: James E. J. Jr. <mu...@us...> - 2003-08-02 06:17:31
|
Update of /cvsroot/psp/psp/samples/call1 In directory sc8-pr-cvs1:/tmp/cvs-serv27863/psp/samples/call1 Added Files: Makefile default.psp testinc.inc testinc2.inc testinc3.inc .cvsignore Log Message: for sample pile using psp:sub and psp:call. --- NEW FILE --- PILE = call1 include ../samples.mk --- NEW FILE --- <% my $var1 = "dog"; my @var2 = qw(cat mouse seed light); %> <html><head><title>Calling test</title></head> <body> Calling testinc with args:<br> <psp:call src="testinc.inc" args="$var1,@var2"/> <br> <psp:call src="testinc.inc" args="$var1,@var2"/> <hr> Calling testinc without args:<br> <psp:call src="testinc.inc"/><br> <psp:call src="testinc.inc"/> <hr> Including testinc:<br> <psp:include src="testinc.inc"/><br> <psp:include src="testinc.inc"/> </body> </html> --- NEW FILE --- <psp:sub prototype="$var1,@var2"/> Here is some testinc text. <psp:include src="testinc2.inc"> --- NEW FILE --- Here is another included file. <% my $doodah = "another value"; %> [= $doodah." == (@var2)" =] --- NEW FILE --- <psp:sub prototype="$var1"/> Here is yet more text. <% my $frah = "lalala"; %> [= $frah." and ".$var1 =] --- NEW FILE --- *.pile *.seed .depend |