richter 01/11/29 01:07:45
Modified: . Tag: Embperl2c Embperl.pm
Embperl Tag: Embperl2c Syntax.pm
Embperl/Syntax Tag: Embperl2c POD.pm
test/conf Tag: Embperl2c httpd.conf.src
test/html/pod Tag: Embperl2c pod.asc
Log:
pod parser
Revision Changes Path
No revision
No revision
1.118.4.66 +2 -2 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.118.4.65
retrieving revision 1.118.4.66
diff -u -r1.118.4.65 -r1.118.4.66
--- Embperl.pm 2001/11/27 10:43:36 1.118.4.65
+++ Embperl.pm 2001/11/29 09:07:42 1.118.4.66
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Embperl.pm,v 1.118.4.65 2001/11/27 10:43:36 richter Exp $
+# $Id: Embperl.pm,v 1.118.4.66 2001/11/29 09:07:42 richter Exp $
#
###################################################################################
@@ -69,7 +69,7 @@
##ep2##
-$VERSION = '2.0b5' ;
+$VERSION = '2.0b6_dev-1' ;
##/ep2##
##ep1##$VERSION = '1.3.4_dev';
No revision
No revision
1.1.4.49 +16 -1 embperl/Embperl/Attic/Syntax.pm
Index: Syntax.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Attic/Syntax.pm,v
retrieving revision 1.1.4.48
retrieving revision 1.1.4.49
diff -u -r1.1.4.48 -r1.1.4.49
--- Syntax.pm 2001/11/29 07:32:40 1.1.4.48
+++ Syntax.pm 2001/11/29 09:07:43 1.1.4.49
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Syntax.pm,v 1.1.4.48 2001/11/29 07:32:40 richter Exp $
+# $Id: Syntax.pm,v 1.1.4.49 2001/11/29 09:07:43 richter Exp $
#
###################################################################################
@@ -438,6 +438,11 @@
example for a taglib, which could be a base for writing
your own taglib to extent the number of available tags
+=item POD
+
+Parses POD out of any file and creates a XML tree similar to pod2xml, which
+can be formatted by XSLT afterwards.
+
=back
You can choose which syntax is used inside your page, either by
@@ -546,6 +551,10 @@
is CDATA, which mean no escaping takes places. With C<ntypText> all special
characters are escaped.
+=item '-rootnode'
+
+Name for a root node to insert always.
+
=item <name> => \%tokendescription
All items which does not start with a slash are treated as names. The name
@@ -616,6 +625,12 @@
Hashref that specifices one or more tokens that could occur inside
a node that is started with this token.
+
+=item exitinside
+
+when the token found, the parser stop searching in the current level and continues
+with the tokens that are defined in the hash from there the current one was "called"
+via inside
=item 'procinfo' =>
No revision
No revision
1.1.2.6 +44 -13 embperl/Embperl/Syntax/Attic/POD.pm
Index: POD.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Syntax/Attic/POD.pm,v
retrieving revision 1.1.2.5
retrieving revision 1.1.2.6
diff -u -r1.1.2.5 -r1.1.2.6
--- POD.pm 2001/11/29 07:32:40 1.1.2.5
+++ POD.pm 2001/11/29 09:07:44 1.1.2.6
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: POD.pm,v 1.1.2.5 2001/11/29 07:32:40 richter Exp $
+# $Id: POD.pm,v 1.1.2.6 2001/11/29 09:07:44 richter Exp $
#
###################################################################################
@@ -22,7 +22,7 @@
use HTML::Embperl::Syntax::EmbperlBlocks ;
use strict ;
-use vars qw{@ISA %Tags %Format %Escape %Para %ParaItem %ParaTitle %List %Search} ;
+use vars qw{@ISA %Tags %Format %Escape %Para %ParaItem %ParaTitle %List %Search
%ListStart %CDATA} ;
@@ -203,12 +203,12 @@
'nodename' => 'underline',
'nodetype' => ntypStartEndTag,
},
- 'POD Format L' => {
- 'text' => 'L<',
- 'end' => '>',
- 'nodename' => 'xlink:ref',
- 'nodetype' => ntypStartEndTag,
- },
+# 'POD Format L' => {
+# 'text' => 'L<',
+# 'end' => '>',
+# 'nodename' => 'xlink',
+# 'nodetype' => ntypStartEndTag,
+# },
) ;
my $paraend = "\n\n" ;
@@ -219,11 +219,12 @@
'-defnodetype' => ntypText,
'liststart' => {
'text' => '=over',
- 'end' => "\n",
- 'nodetype' => ntypStartTag,
+ 'end' => '=back',
+ 'nodetype' => ntypStartEndTag,
'cdatatype' => 0,
- 'removespaces' => 72,
+ 'removespaces' => 2,
'nodename' => 'list',
+ 'inside' => \%List,
},
'listend' => {
'text' => '=back',
@@ -232,6 +233,7 @@
'cdatatype' => 0,
'nodename' => 'list',
'removespaces' => 72,
+ 'exitinside' => 1,
},
'item' => {
'text' => '=item',
@@ -244,6 +246,35 @@
},
) ;
+%ListStart =
+ (
+ %List,
+ 'title' =>
+ {
+ 'matchall' => -1, # only match first time after =over
+ 'text' => "\x02", # gives sort order
+ 'end' => "\n", # eat until end of line
+ 'cdatatype' => 0,
+ 'nodetype' => 0,
+ },
+ ) ;
+
+%CDATA =
+ (
+ 'verbatim' =>
+ {
+ 'text' => " ",
+ 'end' => $paraend,
+ 'cdatatype' => ntypCDATA,
+ 'nodename' => ':::<![CDATA[:]]>',
+ 'removespaces' => 0,
+ 'inside' => \%Format,
+ 'nodetype' => ntypStartEndTag,
+ 'donteat' => 3,
+ },
+
+
+ ) ;
%Para =
(
@@ -263,10 +294,10 @@
{
'text' => " ",
'end' => $paraend,
- 'cdatatype' => ntypText,
+ 'cdatatype' => 0,
'nodename' => 'verbatim',
'removespaces' => 0,
- 'inside' => \%Format,
+ 'inside' => \%CDATA,
'nodetype' => ntypStartEndTag,
'donteat' => 1,
},
No revision
No revision
1.24.4.29 +2 -2 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.28
retrieving revision 1.24.4.29
diff -u -r1.24.4.28 -r1.24.4.29
--- httpd.conf.src 2001/11/27 10:34:50 1.24.4.28
+++ httpd.conf.src 2001/11/29 09:07:44 1.24.4.29
@@ -45,7 +45,7 @@
$EPSTRONGHOLDKEY
#-Tw
-PerlTaintCheck On
+###PerlTaintCheck On
PerlWarn On
@@ -482,7 +482,7 @@
<Location /eg/web>
PerlSetEnv EMBPERL_OBJECT_BASE base.htm
PerlSetEnv EMBPERL_OBJECT_STOPDIR \"$EPPATH/eg/web\"
-PerlSetEnv EMBPERL_FILESMATCH \"\\.htm.?\$|\\.epl\$|\\.xml\$\"
+PerlSetEnv EMBPERL_FILESMATCH \"\\.htm.?\$|\\.epl\$|\\.xml\$|\\.pod\$\"
SetHandler perl-script
PerlHandler HTML::EmbperlObject
Options ExecCGI
No revision
No revision
1.1.2.4 +16 -4 embperl/test/html/pod/Attic/pod.asc
Index: pod.asc
===================================================================
RCS file: /home/cvs/embperl/test/html/pod/Attic/pod.asc,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -u -r1.1.2.3 -r1.1.2.4
--- pod.asc 2001/11/29 07:32:40 1.1.2.3
+++ pod.asc 2001/11/29 09:07:45 1.1.2.4
@@ -62,9 +62,8 @@
text 2
-=back xxx
+=back
-
=over 4
=item * first item
@@ -76,9 +75,22 @@
text 2
two lines
-
-=back xxx
+
+=over 4
+
+=item nested list item 1
+
+text 1
+line 2
+
+=item nested list item 2
+
+text 2
+line 2
+
+=back
+=back
=head1 again HEAD1
and second line of title
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
