richter 00/11/03 04:04:24
Modified: . Tag: Embperl2c Embperl.pm TODO test.pl
Embperl Tag: Embperl2c Syntax.pm
test/cmp Tag: Embperl2c epodiv.htm
test/html/EmbperlObject Tag: Embperl2c epodiv.htm
Log:
Embperl 2 - fix Execute and [$ var $]
Revision Changes Path
No revision
No revision
1.118.4.9 +2 -2 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.118.4.8
retrieving revision 1.118.4.9
diff -u -r1.118.4.8 -r1.118.4.9
--- Embperl.pm 2000/11/02 14:51:26 1.118.4.8
+++ Embperl.pm 2000/11/03 12:04:13 1.118.4.9
@@ -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.8 2000/11/02 14:51:26 richter Exp $
+# $Id: Embperl.pm,v 1.118.4.9 2000/11/03 12:04:13 richter Exp $
#
###################################################################################
@@ -86,7 +86,7 @@
##ep2##
-$VERSION = '2.0a11' ;
+$VERSION = '2.0a12' ;
##/ep2##
##ep1##$VERSION = '1.3b6';
1.97.4.1 +36 -0 embperl/TODO
Index: TODO
===================================================================
RCS file: /home/cvs/embperl/TODO,v
retrieving revision 1.97
retrieving revision 1.97.4.1
diff -u -r1.97 -r1.97.4.1
--- TODO 2000/08/17 07:31:57 1.97
+++ TODO 2000/11/03 12:04:14 1.97.4.1
@@ -106,3 +106,39 @@
__
- Parse Posted XML data [Alex Schmelkin 4.2.2000]
+
+----------------
+
+- $optRawInput etc.
+
+- [$<br>if ... -> if.htm
+
+- no space between </td></tr> -> </td></tr></table><doc> -> include.htm
+
+- <th>, $cnt -> table.htm
+
+- $row etc. ende checken
+
+- discard.htm
+
+- [$ sub $]
+
+- exit
+
+- print OUT
+
+- safe namespaces (importing Embperl functions)
+
+- errdoc
+
+- http_header / meta http-equiv -> http.htm
+
+- use vars -> cleanup
+
+- Execute / [$sub $] from [+ +]
+
+Docs 2.0
+--------
+
+- ep1compat
+
1.70.4.17 +1 -14 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.70.4.16
retrieving revision 1.70.4.17
diff -u -r1.70.4.16 -r1.70.4.17
--- test.pl 2000/11/03 08:48:08 1.70.4.16
+++ test.pl 2000/11/03 12:04:14 1.70.4.17
@@ -203,10 +203,8 @@
'importsub2.htm' => {
},
'importmodule.htm' => {
-# 'version' => 1,
},
'recursexec.htm' => {
-# 'version' => 1,
},
'nph/div.htm' => {
'option' => '64',
@@ -355,62 +353,51 @@
'EmbperlObject/epopage1.htm' => {
'offline' => 0,
'cgi' => 0,
-# 'version' => 1,
},
'EmbperlObject/epodiv.htm' => {
'offline' => 0,
'cgi' => 0,
-# 'version' => 1,
},
'EmbperlObject/sub/epopage2.htm' => {
'offline' => 0,
'cgi' => 0,
-# 'version' => 1,
},
'EmbperlObject/sub/epopage2.htm' => {
'offline' => 0,
'cgi' => 0,
-# 'version' => 1,
},
'EmbperlObject/sub/subsub/eposubsub.htm' => {
'offline' => 0,
'cgi' => 0,
-# 'version' => 1,
},
'EmbperlObject/sub/eponotfound.htm' => {
'offline' => 0,
'cgi' => 0,
-# 'version' => 1,
},
'EmbperlObject/obj/epoobj1.htm' => {
'offline' => 0,
'cgi' => 0,
-# 'version' => 1,
},
'EmbperlObject/obj/epoobj2.htm' => {
'offline' => 0,
'cgi' => 0,
-# 'version' => 1,
},
'EmbperlObject/obj/epoobj3.htm' => {
'offline' => 0,
'cgi' => 0,
-# 'version' => 1,
},
'EmbperlObject/obj/epoobj4.htm' => {
'offline' => 0,
'cgi' => 0,
-# 'version' => 1,
+ 'version' => 1,
},
'EmbperlObject/base2/epostopdir.htm' => {
'offline' => 0,
'cgi' => 0,
-# 'version' => 1,
},
'EmbperlObject/base3/epobaselib.htm' => {
'offline' => 0,
'cgi' => 0,
-# 'version' => 1,
},
) ;
No revision
No revision
1.1.4.7 +5 -5 embperl/Embperl/Attic/Syntax.pm
Index: Syntax.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Attic/Syntax.pm,v
retrieving revision 1.1.4.6
retrieving revision 1.1.4.7
diff -u -r1.1.4.6 -r1.1.4.7
--- Syntax.pm 2000/11/02 08:45:23 1.1.4.6
+++ Syntax.pm 2000/11/03 12:04:20 1.1.4.7
@@ -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.6 2000/11/02 08:45:23 richter Exp $
+# $Id: Syntax.pm,v 1.1.4.7 2000/11/03 12:04:20 richter Exp $
#
###################################################################################
@@ -778,11 +778,10 @@
'procinfo' => {
embperl => {
perlcode => q{
-#my
-use vars ('$_ep_DomTree') ;
-#$_ep_DomTree = $_[1];
+# any initialisation could be put here
},
compiletimeperlcode => q{
+use vars ('$_ep_DomTree') ;
*_ep_rp=\\&XML::Embperl::DOM::Node::iReplaceChildWithCDATA;
*_ep_rpurl=\\&XML::Embperl::DOM::Node::iReplaceChildWithUrlDATA;
*_ep_cp=\\&XML::Embperl::DOM::Tree::iCheckpoint;
@@ -807,9 +806,10 @@
'procinfo' => {
embperl => {
perlcode => q{
-#my $_ep_DomTree = $_[1];
+# any initialisation could be put here
},
compiletimeperlcode => q{
+use vars ('$_ep_DomTree') ;
*_ep_rp=\\&XML::Embperl::DOM::Node::iReplaceChildWithCDATA;
*_ep_rpurl=\\&XML::Embperl::DOM::Node::iReplaceChildWithUrlDATA;
*_ep_cp=\\&XML::Embperl::DOM::Tree::iCheckpoint;
No revision
No revision
1.1.4.1 +97 -200 embperl/test/cmp/epodiv.htm
Index: epodiv.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/epodiv.htm,v
retrieving revision 1.1
retrieving revision 1.1.4.1
diff -u -r1.1 -r1.1.4.1
--- epodiv.htm 2000/08/21 04:22:49 1.1
+++ epodiv.htm 2000/11/03 12:04:23 1.1.4.1
@@ -74,7 +74,7 @@
<P>$tabmode = default <P>
-<table border="2" width="100%">
+<table border="1" width="100%">
<tr>
<td>a1/1 </td>
</tr>
@@ -96,20 +96,15 @@
<table border="2" width="100%">
<tr>
- <th>1</th>
- <th>2</th>
- <th>3</th>
- </tr>
- <tr>
<td>a1/1 </td>
</tr>
-
+
<tr>
<td>a2/1 </td>
<td>a2/2 </td>
</tr>
-
+
<tr>
<td>a3/1 </td>
@@ -119,24 +114,17 @@
</tr>
</table>
-<table border="2" width="100%">
- <tr>
- <th>b3/1</th>
-
- <th>b3/2</th>
-
- <th>b3/3</th>
- </tr>
+<table border="3" width="100%">
<tr>
<td>a1/1 </td>
</tr>
-
+
<tr>
<td>a2/1 </td>
<td>a2/2 </td>
</tr>
-
+
<tr>
<td>a3/1 </td>
@@ -146,10 +134,10 @@
</tr>
</table>
-<table>
+<table border="4" >
<tr>
<td>
- <table>
+ <table border="5" >
<tr>
<td>b1/1 </td>
</tr>
@@ -174,7 +162,7 @@
<tr>
<td>
- <table>
+ <table border="5" >
<tr>
<td>b1/1 </td>
</tr>
@@ -197,7 +185,7 @@
a2/1 </td>
<td>
- <table>
+ <table border="5" >
<tr>
<td>b1/1 </td>
</tr>
@@ -222,7 +210,7 @@
<tr>
<td>
- <table>
+ <table border="5" >
<tr>
<td>b1/1 </td>
</tr>
@@ -245,7 +233,7 @@
a3/1 </td>
<td>
- <table>
+ <table border="5" >
<tr>
<td>b1/1 </td>
</tr>
@@ -268,7 +256,7 @@
a3/2 </td>
<td>
- <table>
+ <table border="5" >
<tr>
<td>b1/1 </td>
</tr>
@@ -292,7 +280,7 @@
</tr>
</table>
-^<P>1\.3.*?<P>
+^<P>(2\.0.*?|1\.3.*?)<P>
<P>17<P>
<P>1<P>
@@ -300,213 +288,122 @@
<P>
0
-
- 1
-
- 2
+1
+2
A = 1<br>
-
- B = 2<br>
-
- C = 3<br>
+B = 2<br>
+C = 3<br>
@a[0] = a<br>
-
- @a[1] = b<br>
-
- @a[2] = c<br>
-
- @a[3] = d<br>
+ @a[1] = b<br>
+ @a[2] = c<br>
+ @a[3] = d<br>
@a[0] = a<br>
-
- @a[1] = b<br>
-
- @a[2] = c<br>
-
- @a[3] = d<br>
+ @a[1] = b<br>
+ @a[2] = c<br>
+ @a[3] = d<br>
a <br>
-
- b <br>
-
- c <br>
-
- d <br>
+b <br>
+c <br>
+d <br>
1 <br>
-
- 3 <br>
-
- 5 <br>
-
- 7 <br>
-
- 9 <br>
+3 <br>
+5 <br>
+7 <br>
+9 <br>
1 <br>
-
- 2 <br>
-
- 3 <br>
-
- 4 <br>
-
- 5 <br>
-
- 6 <br>
-
- 7 <br>
-
- 8 <br>
-
- 9 <br>
-
- 10 <br>
+2 <br>
+3 <br>
+4 <br>
+5 <br>
+6 <br>
+7 <br>
+8 <br>
+9 <br>
+10 <br>
2:1 <br>
-
- 2:2 <br>
-
- 2:3 <br>
-
- 2:4 <br>
-
- 2:5 <br>
+2:2 <br>
+2:3 <br>
+2:4 <br>
+2:5 <br>
3:a <br>
-
- 3:b <br>
-
- 3:c <br>
+3:b <br>
+3:c <br>
@a[0] = a<br>
A = 1<br>
1 <br>
-
- 3 <br>
-
- 5 <br>
-
- 7 <br>
-
- 9 <br>
-
+ 3 <br>
+ 5 <br>
+ 7 <br>
+ 9 <br>
B = 2<br>
1 <br>
-
- 3 <br>
-
- 5 <br>
-
- 7 <br>
-
- 9 <br>
-
+ 3 <br>
+ 5 <br>
+ 7 <br>
+ 9 <br>
C = 3<br>
1 <br>
-
- 3 <br>
-
- 5 <br>
-
- 7 <br>
-
- 9 <br>
-
- @a[1] = b<br>
+ 3 <br>
+ 5 <br>
+ 7 <br>
+ 9 <br>
+ @a[1] = b<br>
A = 1<br>
1 <br>
-
- 3 <br>
-
- 5 <br>
-
- 7 <br>
-
- 9 <br>
-
+ 3 <br>
+ 5 <br>
+ 7 <br>
+ 9 <br>
B = 2<br>
1 <br>
-
- 3 <br>
-
- 5 <br>
-
- 7 <br>
-
- 9 <br>
-
+ 3 <br>
+ 5 <br>
+ 7 <br>
+ 9 <br>
C = 3<br>
1 <br>
-
- 3 <br>
-
- 5 <br>
-
- 7 <br>
-
- 9 <br>
-
- @a[2] = c<br>
+ 3 <br>
+ 5 <br>
+ 7 <br>
+ 9 <br>
+ @a[2] = c<br>
A = 1<br>
1 <br>
-
- 3 <br>
-
- 5 <br>
-
- 7 <br>
-
- 9 <br>
-
+ 3 <br>
+ 5 <br>
+ 7 <br>
+ 9 <br>
B = 2<br>
1 <br>
-
- 3 <br>
-
- 5 <br>
-
- 7 <br>
-
- 9 <br>
-
+ 3 <br>
+ 5 <br>
+ 7 <br>
+ 9 <br>
C = 3<br>
1 <br>
-
- 3 <br>
-
- 5 <br>
-
- 7 <br>
-
- 9 <br>
-
- @a[3] = d<br>
+ 3 <br>
+ 5 <br>
+ 7 <br>
+ 9 <br>
+ @a[3] = d<br>
A = 1<br>
1 <br>
-
- 3 <br>
-
- 5 <br>
-
- 7 <br>
-
- 9 <br>
-
+ 3 <br>
+ 5 <br>
+ 7 <br>
+ 9 <br>
B = 2<br>
1 <br>
-
- 3 <br>
-
- 5 <br>
-
- 7 <br>
-
- 9 <br>
-
+ 3 <br>
+ 5 <br>
+ 7 <br>
+ 9 <br>
C = 3<br>
1 <br>
-
- 3 <br>
-
- 5 <br>
-
- 7 <br>
-
- 9 <br>
+ 3 <br>
+ 5 <br>
+ 7 <br>
+ 9 <br>
x
y
No revision
No revision
1.1.4.1 +7 -15 embperl/test/html/EmbperlObject/epodiv.htm
Index: epodiv.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/EmbperlObject/epodiv.htm,v
retrieving revision 1.1
retrieving revision 1.1.4.1
diff -u -r1.1 -r1.1.4.1
--- epodiv.htm 2000/08/21 04:22:50 1.1
+++ epodiv.htm 2000/11/03 12:04:23 1.1.4.1
@@ -6,7 +6,7 @@
<body>
-[$ var $a $b $c $d $e $i $ii $v $k $fv @a @b %h @c @ii %hash $]
+[$ var $a $b $c $d $e $i $j $ii $v $k $fv @a %a @b %h @c @ii %hash $wv $wk $]
Here it starts with some HTML Text<P>
@@ -164,7 +164,7 @@
<P>$tabmode = default <P>
-<table border="2" width="100%">
+<table border="1" width="100%">
<tr>
<td>[+ $a[$row][$col] +] </td>
</tr>
@@ -172,28 +172,20 @@
<table border="2" width="100%">
<tr>
- <th>1</th>
- <th>2</th>
- <th>3</th>
- </tr>
- <tr>
<td>[+ $a[$row][$col] +] </td>
</tr>
</table>
-<table border="2" width="100%">
+<table border="3" width="100%">
<tr>
- <th>[+ $b[2][$col] +]</th>
- </tr>
- <tr>
<td>[+ $a[$row][$col] +] </td>
</tr>
</table>
-<table>
+<table border="4" >
<tr>
<td>
- <table>
+ <table border="5" >
<tr>
<td>[+ $b[$row][$col] +] </td>
</tr>
@@ -249,7 +241,7 @@
[- $i++ -]
[$ until $i > $#a $]
-[$ foreach $v @a $]
+[$ foreach $v (@a) $]
[+ $v +] <br>
[$ endforeach $]
@@ -278,7 +270,7 @@
[$ foreach $fv (1, 3, 5, 7, 9) $]
[+ $fv +] <br>
[$ endforeach $]
- [$ foreach $fv () $]
+ [$ foreach $fv (()) $]
[+ $fv +] <br>
[$ while ($wv, $wk) = each (%h) $]
[+ "$wv = $wk" +]<br>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
