richter 00/12/19 23:32:40
Modified: . Tag: Embperl2c epdom.c
Embperl Tag: Embperl2c Syntax.pm
test/cmp Tag: Embperl2c table.htm
test/html Tag: Embperl2c table.htm
Log:
Embperl 2 - fix error in dynamic tables
Revision Changes Path
No revision
No revision
1.4.2.22 +1 -1 embperl/Attic/epdom.c
Index: epdom.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epdom.c,v
retrieving revision 1.4.2.21
retrieving revision 1.4.2.22
diff -u -r1.4.2.21 -r1.4.2.22
--- epdom.c 2000/12/18 12:43:23 1.4.2.21
+++ epdom.c 2000/12/20 07:32:36 1.4.2.22
@@ -978,7 +978,7 @@
pArgNode = pNode ;
pNode = Node_selfFirstChild (pDomTree, pNode) ;
if (!pNode)
- pNode = Node_selfNextSibling (pDomTree, pNode) ;
+ pNode = Node_selfNextSibling (pDomTree, pArgNode) ;
}
while (pNode && (pNode -> bFlags & nflgCheckpoint) == 0)
No revision
No revision
1.1.4.12 +21 -13 embperl/Embperl/Attic/Syntax.pm
Index: Syntax.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Attic/Syntax.pm,v
retrieving revision 1.1.4.11
retrieving revision 1.1.4.12
diff -u -r1.1.4.11 -r1.1.4.12
--- Syntax.pm 2000/12/18 20:41:46 1.1.4.11
+++ Syntax.pm 2000/12/20 07:32:37 1.1.4.12
@@ -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.11 2000/12/18 20:41:46 richter Exp $
+# $Id: Syntax.pm,v 1.1.4.12 2000/12/20 07:32:37 richter Exp $
#
###################################################################################
@@ -192,7 +192,7 @@
'unescape' => 1,
'procinfo' => {
embperl => {
- perlcode => '$_ep_node=%$l%;%#0%',
+ perlcode => '%$c%%#0%',
removenode => 3,
mayjump => 1,
compilechilds => 0,
@@ -242,11 +242,11 @@
%ProcInfoTable = (
embperl => {
- perlcode => 'l%$l%: for (my $row = 0; $row < $maxrow; $row++) {'
,
+ perlcode => 'l%$x%: for (my $row = 0; $row < $maxrow; $row++) {'
,
perlcodeend => '} %?*-htmltable%' ,
perlcoderemove => 1,
stackname => 'htmltable',
- 'push' => '%$l%',
+ 'push' => '%$x%',
mayjump => 1,
}
) ;
@@ -307,11 +307,11 @@
%HtmlTagsStd,
'procinfo' => {
embperl => {
- perlcode => 'l%$l%: for (my $col = 0; $col < $maxcol; $col++) {'
,
+ perlcode => 'l%$x%: for (my $col = 0; $col < $maxcol; $col++) {'
,
perlcodeend => '} %?*-htmlrow%' ,
perlcoderemove => 1,
stackname => 'htmlrow',
- 'push' => '%$l%',
+ 'push' => '%$x%',
mayjump => 1,
}
},
@@ -418,11 +418,11 @@
stackname2 => 'htmlselect',
push2 => '%&*name%',
- perlcode => 'l%$l%: for (my $row = 0; $row < $maxrow; $row++) {'
,
+ perlcode => 'l%$x%: for (my $row = 0; $row < $maxrow; $row++) {'
,
perlcodeend => '} %?*-htmltable%' ,
perlcoderemove => 1,
stackname => 'htmltable',
- 'push' => '%$l%',
+ 'push' => '%$x%',
mayjump => 1,
}
},
@@ -962,19 +962,27 @@
=item %$n%
-Node number.
+Source Dom Tree, Index of current node.
+=item %$t%
+
+Source Dom Tree
+
+=item %$x%
+
+Index of current node
+
=item %$l%
-Unique label
+Index of last node
-=item %$l+%
+=item %$c%
-Unique label and increment to next label
+Sets the current node Index, if not already done
=item %$q+%
-Source Dom Tree id
+Index of source Dom Tree
=back
No revision
No revision
1.5.6.3 +72 -1 embperl/test/cmp/table.htm
Index: table.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/table.htm,v
retrieving revision 1.5.6.2
retrieving revision 1.5.6.3
diff -u -r1.5.6.2 -r1.5.6.3
--- table.htm 2000/09/14 05:08:30 1.5.6.2
+++ table.htm 2000/12/20 07:32:38 1.5.6.3
@@ -114,7 +114,7 @@
</table>
<table></table>
-^<table>
+^-<table>
^- <tr></tr>
^-</table>
^-
@@ -425,6 +425,77 @@
</tr>
</table>
+<table>
+ <tr bgcolor="white">
+ <td align="center"><font size="+1">2000</font></td>
+
+ <td align="center"><font size="+1">2000</font></td>
+
+ <td align="center"><font size="+1">Hello</font></td>
+
+ <td align="center"><font size="+1">Hello</font></td>
+
+ <td align="center"><font size="+1">World</font></td>
+
+ <td align="center"><font size="+1">World</font></td>
+ </tr>
+
+ <tr bgcolor="gray">
+ <td align="center"><font size="+1">2000</font></td>
+
+ <td align="center"><font size="+1">2000</font></td>
+
+ <td align="center"><font size="+1">Hello</font></td>
+
+ <td align="center"><font size="+1">Hello</font></td>
+
+ <td align="center"><font size="+1">World</font></td>
+
+ <td align="center"><font size="+1">World</font></td>
+ </tr>
+
+ <tr bgcolor="white">
+ <td align="center"><font size="+1">2000</font></td>
+
+ <td align="center"><font size="+1">2000</font></td>
+
+ <td align="center"><font size="+1">Hello</font></td>
+
+ <td align="center"><font size="+1">Hello</font></td>
+
+ <td align="center"><font size="+1">World</font></td>
+
+ <td align="center"><font size="+1">World</font></td>
+ </tr>
+
+ <tr bgcolor="gray">
+ <td align="center"><font size="+1">2000</font></td>
+
+ <td align="center"><font size="+1">2000</font></td>
+
+ <td align="center"><font size="+1">Hello</font></td>
+
+ <td align="center"><font size="+1">Hello</font></td>
+
+ <td align="center"><font size="+1">World</font></td>
+
+ <td align="center"><font size="+1">World</font></td>
+ </tr>
+
+ <tr bgcolor="white">
+ <td align="center"><font size="+1">2000</font></td>
+
+ <td align="center"><font size="+1">2000</font></td>
+
+ <td align="center"><font size="+1">Hello</font></td>
+
+ <td align="center"><font size="+1">Hello</font></td>
+
+ <td align="center"><font size="+1">World</font></td>
+
+ <td align="center"><font size="+1">World</font></td>
+ </tr>
+</table>
</body>
</html>
No revision
No revision
1.4.6.3 +10 -0 embperl/test/html/table.htm
Index: table.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/table.htm,v
retrieving revision 1.4.6.2
retrieving revision 1.4.6.3
diff -u -r1.4.6.2 -r1.4.6.3
--- table.htm 2000/09/14 05:08:33 1.4.6.2
+++ table.htm 2000/12/20 07:32:39 1.4.6.3
@@ -226,6 +226,16 @@
</tr>
</table>
+[-
+# build tight loop table with array data, multidimensional 5x6
+@array = sort ("Hello", "World", "2000", "Hello", "World", "2000");
+@multi = (\@array, \@array, \@array, \@array, \@array);
+-]
+<table>
+ <tr bgcolor="[+ $row % 2?'gray':'white' +]">
+ <td align="center"><font size="+1">[+ $multi[$row][$col] +]</font></td>
+ </tr>
+</table>
</body>
</html>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
