richter 01/02/23 11:40:31
Modified: . Tag: Embperl2c ep2.h epparse.c
Embperl/Syntax Tag: Embperl2c HTML.pm SSI.pm
test/conf Tag: Embperl2c httpd.conf.src
Added: Embperl/Syntax Tag: Embperl2c EmbperlBlocks.pm
Log:
- Embperl 2 - multiple Syntaxes
Revision Changes Path
No revision
No revision
1.1.2.7 +2 -1 embperl/Attic/ep2.h
Index: ep2.h
===================================================================
RCS file: /home/cvs/embperl/Attic/ep2.h,v
retrieving revision 1.1.2.6
retrieving revision 1.1.2.7
diff -u -r1.1.2.6 -r1.1.2.7
--- ep2.h 2000/11/15 07:21:52 1.1.2.6
+++ ep2.h 2001/02/23 19:40:25 1.1.2.7
@@ -64,7 +64,8 @@
/*in*/ HV * pHash,
/*in*/ int nNodeName,
/*in*/ int nNodeType,
- /*in*/ int nTagSet) ;
+ /*in*/ int nTagSet,
+ /*in*/ void * * ppInfo) ;
int embperl_CompileDocument (/*i/o*/ register req * r,
/*in*/ tProcessor * pFirstProcessor) ;
1.4.2.6 +1 -1 embperl/Attic/epparse.c
Index: epparse.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epparse.c,v
retrieving revision 1.4.2.5
retrieving revision 1.4.2.6
diff -u -r1.4.2.5 -r1.4.2.6
--- epparse.c 2001/02/23 06:49:49 1.4.2.5
+++ epparse.c 2001/02/23 19:40:26 1.4.2.6
@@ -45,7 +45,7 @@
int numTokens ; /* number of tokens in above table */
int bLSearch ; /* when set perform a linear, instead of a
binary search */
struct tToken * pContainsToken ;/* pointer to the token that has a pContains
defined (could be only one per table) */
- void * pCompierInfo ; /* stores tables of the compiler */
+ void * pCompilerInfo ; /* stores tables of the compiler */
} ;
No revision
No revision
1.1.2.2 +18 -3 embperl/Embperl/Syntax/Attic/HTML.pm
Index: HTML.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Syntax/Attic/HTML.pm,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -r1.1.2.1 -r1.1.2.2
--- HTML.pm 2001/02/23 14:57:54 1.1.2.1
+++ HTML.pm 2001/02/23 19:40:28 1.1.2.2
@@ -59,11 +59,11 @@
my ($self, $tagtype, $tagname, $attrs, $procinfo) = @_ ;
+ my $ttref ;
die "'$tagtype' unknown" if (!($ttref = $self -> {-tagtype}{$tagtype})) ;
+ my$ttfollow = ($ttref -> {'follow'} ||= {}) ;
- $ttfollow = ($ttref -> {'follow'} ||= {}) ;
-
- $tag = $ttfollow -> {$tagname} = {
+ my $tag = $ttfollow -> {$tagname} = {
'text' => $tagname,
'cdatatype' => ntypAttrValue,
'unescape' => 1,
@@ -85,6 +85,21 @@
+sub AddInside
+
+ {
+ my ($self, $tagtype, $inside) = @_ ;
+
+ my $ttref ;
+ die "'$tagtype' unknown" if (!($ttref = $self -> {-tagtype}{$tagtype})) ;
+ my $ttinside = ($ttref -> {'inside'} ||= {}) ;
+
+ while (my ($k, $v) = each (%$inside))
+ {
+ $ttinside -> {$k} = $v ;
+ }
+
+ }
1.1.2.2 +2 -3 embperl/Embperl/Syntax/Attic/SSI.pm
Index: SSI.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Syntax/Attic/SSI.pm,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -r1.1.2.1 -r1.1.2.2
--- SSI.pm 2001/02/23 14:57:54 1.1.2.1
+++ SSI.pm 2001/02/23 19:40:28 1.1.2.2
@@ -1,6 +1,4 @@
-
-
###################################################################################
#
# Embperl - Copyright (c) 1997-2001 Gerald Richter / ECOS
@@ -12,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: SSI.pm,v 1.1.2.1 2001/02/23 14:57:54 richter Exp $
+# $Id: SSI.pm,v 1.1.2.2 2001/02/23 19:40:28 richter Exp $
#
###################################################################################
@@ -21,6 +19,7 @@
package HTML::Embperl::Syntax::SSI ;
@ISA = (HTML::Embperl::Syntax::HTML) ;
+
sub new
No revision
No revision
1.1.2.1 +432 -0 embperl/Embperl/Syntax/Attic/EmbperlBlocks.pm
No revision
No revision
1.24.4.8 +8 -0 embperl/test/conf/httpd.conf.src
Index: httpd.conf.src
===================================================================
RCS file: /home/cvs/embperl/test/conf/httpd.conf.src,v
retrieving revision 1.24.4.7
retrieving revision 1.24.4.8
diff -u -r1.24.4.7 -r1.24.4.8
--- httpd.conf.src 2001/02/05 11:19:03 1.24.4.7
+++ httpd.conf.src 2001/02/23 19:40:30 1.24.4.8
@@ -114,6 +114,7 @@
Alias /embperl/ $EPPATH/test/html/
Alias /embperl2/ $EPPATH/test/html2/
Alias /eg/ $EPPATH/eg/
+Alias /embperldbg/ $EPPATH/test/html/
Alias /registrydbg/ $EPPATH/test/html/registry/
<Location /embperl/sub>
@@ -313,6 +314,13 @@
PerlFixupHandler Apache::DB
SetHandler perl-script
PerlHandler Apache::Registry
+Options ExecCGI
+</Location>
+
+<Location /embperldbg/>
+PerlFixupHandler Apache::DB
+SetHandler perl-script
+PerlHandler HTML::Embperl
Options ExecCGI
</Location>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
