richter 2002/10/21 23:13:32
Modified: . CVS.pod
Added: test/html2 execviamod.pm notallow.xhtm subimp.pm
Log:
move Embperl 2 to HEAD revision
Revision Changes Path
1.12 +9 -0 embperl/CVS.pod
Index: CVS.pod
===================================================================
RCS file: /home/cvs/embperl/CVS.pod,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- CVS.pod 22 Oct 2002 05:29:03 -0000 1.11
+++ CVS.pod 22 Oct 2002 06:13:32 -0000 1.12
@@ -91,6 +91,15 @@
#uncomment these three for the latest apache src, docs and/or mod_perl
# if you want them
+=head2 Embperl 1.x
+
+There is no further developement in the Embperl 1.x branch, but case it
+will become necessary you can access the Embperl 1.x code via the branch
+B<ep1>, so when you checkout just run
+
+ cvs -d ":pserver:[EMAIL PROTECTED]:/home/cvspublic" co -r ep1 embperl
+
+
=head2 MAILING LIST
There is a CVS mailing list for Embperl (This is CVS - B<not> a list for asking
1.1 embperl/test/html2/execviamod.pm
Index: execviamod.pm
===================================================================
sub execviamod
{
print OUT "begin execviamod\n" ;
Embperl::Execute ({inputfile => 'plain.htm', input_escmode => 7, escmode => 7}) ;
print OUT "middle execviamod\n" ;
Embperl::Req::ExecuteComponent ({inputfile => 'plain.htm', input_escmode => 7,
escmode => 7}) ;
print OUT "end execviamod\n" ;
}
sub execviamod2
{
Embperl::Execute ({inputfile => 'div.htm', input_escmode => 7, escmode => 7}) ;
Embperl::Req::ExecuteComponent ({inputfile => 'div.htm', input_escmode => 7,
escmode => 7}) ;
}
1 ;
1.1 embperl/test/html2/notallow.xhtm
Index: notallow.xhtm
===================================================================
xxx
1.1 embperl/test/html2/subimp.pm
Index: subimp.pm
===================================================================
package subimp ;
#require Embperl::Module ;
#@ISA = qw{Embperl::Module} ;
#Embperl::Module::init (\*DATA) ;
#1 ;
{
local $/ = undef ;
my $data = <DATA> ;
# compile page
my $pn = __PACKAGE__ ;
Embperl::Execute ({inputfile => __FILE__,
input => \$data,
mtime => -M __FILE__ ,
import => 0,
options => Embperl::optKeepSrcInMemory,
package => $pn . $ENV{EMBPERL_EP1COMPAT}}) ;
}
# import subs
sub import
{
my $pn = __PACKAGE__ ;
Embperl::Execute ({inputfile => __FILE__,
import => 2,
package => $pn . $ENV{EMBPERL_EP1COMPAT}}) ;
1 ;
}
1 ;
__DATA__
[###### first sub #####]
[$sub tfirst$]
<h2>1.) Here goes some normal html text <h2>
[$endsub$]
[###### second sub #####]
[$sub tsecond $]
2.) Here comes some perl:
[- $foo = 'Hello world' -]
foo = [+ $foo +]<br>
testdata = [+ $testdata +]<br>
params in sub.pm = [+ "@_" +]
[$endsub$]
[###### table cell #####]
[$sub tabcell $]
<td>[+ $_[0] -> [$row][$col] +]<td>
[$endsub$]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
