richter 00/05/31 13:04:02
Modified: . Tag: Embperl2 TODO epcomp.c epdom.c
Embperl Tag: Embperl2 Syntax.pm
test/cmp Tag: Embperl2 escape.htm table.htm
test/html Tag: Embperl2 table.htm
Log:
Embperl 2 - Tables & Lists
Revision Changes Path
No revision
No revision
1.90.2.3 +1 -1 embperl/TODO
Index: TODO
===================================================================
RCS file: /home/cvs/embperl/TODO,v
retrieving revision 1.90.2.2
retrieving revision 1.90.2.3
diff -u -r1.90.2.2 -r1.90.2.3
--- TODO 2000/05/31 06:21:49 1.90.2.2
+++ TODO 2000/05/31 20:03:50 1.90.2.3
@@ -134,4 +134,4 @@
- <th>, $cnt -> table.htm
-
+- $row etc. ende checken
1.1.2.20 +18 -6 embperl/Attic/epcomp.c
Index: epcomp.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epcomp.c,v
retrieving revision 1.1.2.19
retrieving revision 1.1.2.20
diff -u -r1.1.2.19 -r1.1.2.20
--- epcomp.c 2000/05/31 06:21:49 1.1.2.19
+++ epcomp.c 2000/05/31 20:03:51 1.1.2.20
@@ -21,7 +21,8 @@
const char * sPerlCodeEnd ;
const char * sStackName ;
const char * sPushStack ;
- int bPopStack ;
+ const char * sStackName2 ;
+ const char * sPushStack2 ;
int numPerlCode ;
int bRemoveNode ;
int bPerlCodeRemove ;
@@ -114,9 +115,10 @@
pEmbperlCmds[nNodeName].sPerlCodeEnd = GetHashValueStr (pHash, "perlcodeend",
NULL) ;
pEmbperlCmds[nNodeName].sStackName = GetHashValueStr (pHash, "stackname",
NULL) ;
pEmbperlCmds[nNodeName].sPushStack = GetHashValueStr (pHash, "push", NULL) ;
+ pEmbperlCmds[nNodeName].sStackName2 = GetHashValueStr (pHash, "stackname2",
NULL) ;
+ pEmbperlCmds[nNodeName].sPushStack2 = GetHashValueStr (pHash, "push2", NULL) ;
pEmbperlCmds[nNodeName].bRemoveNode = GetHashValueInt (pHash, "removenode", 0)
;
pEmbperlCmds[nNodeName].sMayJump = GetHashValueStr (pHash, "mayjump", NULL)
;
- pEmbperlCmds[nNodeName].bPopStack = GetHashValueInt (pHash, "pop", 0) ;
pEmbperlCmds[nNodeName].bPerlCodeRemove = GetHashValueInt (pHash,
"perlcoderemove", 0) ;
pEmbperlCmds[nNodeName].bCompileChilds = GetHashValueInt (pHash,
"compilechilds", 1) ;
@@ -183,7 +185,7 @@
do
{
or = strchr (eq + 1, '|') ;
- e = or?or - 1:q - 1 ;
+ e = or?or:q ;
if (strncmp (sText, eq, e - eq) == 0)
break ;
if (or == NULL)
@@ -198,7 +200,7 @@
do
{
or = strchr (eq + 1, '|') ;
- e = or?or - 1:q - 1 ;
+ e = or?or:q ;
if (strstrn (sText, eq, e - eq))
break ;
if (or == NULL)
@@ -660,9 +662,15 @@
if (embperl_CompileToPerlCode (pDomTree, pNode, pCmd -> sPushStack,
&sStackValue))
{
embperl_CompilePushStack (pDomTree, pCmd -> sStackName,
sStackValue) ;
- }
-
+ }
}
+ if (pCmd -> sStackName2 && pCmd -> sPushStack2)
+ {
+ if (embperl_CompileToPerlCode (pDomTree, pNode, pCmd ->
sPushStack2, &sStackValue))
+ {
+ embperl_CompilePushStack (pDomTree, pCmd -> sStackName2,
sStackValue) ;
+ }
+ }
}
}
else
@@ -715,6 +723,10 @@
if (pCmd -> sStackName && pCmd -> sPushStack)
{
embperl_CompilePopStack (pDomTree, pCmd -> sStackName) ;
+ }
+ if (pCmd -> sStackName2 && pCmd -> sPushStack2)
+ {
+ embperl_CompilePopStack (pDomTree, pCmd -> sStackName2) ;
}
}
1.1.2.24 +4 -3 embperl/Attic/epdom.c
Index: epdom.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epdom.c,v
retrieving revision 1.1.2.23
retrieving revision 1.1.2.24
diff -u -r1.1.2.23 -r1.1.2.24
--- epdom.c 2000/05/31 06:21:49 1.1.2.23
+++ epdom.c 2000/05/31 20:03:52 1.1.2.24
@@ -527,7 +527,7 @@
int n ;
int o ;
- while (pNode && (pNode -> bFlags & nflgCheckpoint) == 0)
+ while (pNode && (pNode -> bFlags & nflgCheckpoint) == 0)
{
pChild = Node_selfFirstChild (pDomTree, pNode) ;
if (pChild)
@@ -1342,8 +1342,7 @@
{
char * s ;
int l ;
- if (pAttr -> xName != xNoName || n + 1 == pNode -> numAttr)
- oputc (r, ' ') ;
+ oputc (r, ' ') ;
if (pAttr -> xName != xNoName)
{
Ndx2StringLen (pAttr -> xName,s,l) ;
@@ -1362,6 +1361,8 @@
else
{
Ndx2StringLen (pAttr -> xValue, s, l) ;
+ while (isspace (*s) && l > 0)
+ s++, l-- ;
owrite (r, s, l) ;
}
if (pAttr -> xName != xNoName)
No revision
No revision
1.1.2.14 +91 -14 embperl/Embperl/Attic/Syntax.pm
Index: Syntax.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Attic/Syntax.pm,v
retrieving revision 1.1.2.13
retrieving revision 1.1.2.14
diff -u -r1.1.2.13 -r1.1.2.14
--- Syntax.pm 2000/05/31 06:21:51 1.1.2.13
+++ Syntax.pm 2000/05/31 20:03:56 1.1.2.14
@@ -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.2.13 2000/05/31 06:21:51 richter Exp $
+# $Id: Syntax.pm,v 1.1.2.14 2000/05/31 20:03:56 richter Exp $
#
###################################################################################
@@ -166,7 +166,7 @@
[
'if (!defined (_ep_rpurl(%$n%,scalar(do{%#~0:$col%}))))
%#~-0:$row% { if ($col == 0) { XML::Embperl::DOM::DomTree_discardAfterCheckpoint
(%$t%,%^*htmltable%) ; last l%^*htmltable% ; } else {
XML::Embperl::DOM::DomTree_discardAfterCheckpoint (%$t%,%^*htmlrow%) ; last
l%^*htmlrow% ; }}',
'if (!defined (_ep_rpurl(%$n%,scalar(do{%#~0:$col%})))) {
XML::Embperl::DOM::DomTree_discardAfterCheckpoint (%$t%,%^*htmlrow%) ; last
l%^*htmlrow% ; }',
- 'if (!defined (_ep_rpurl(%$n%,scalar(do{%#~0:$row%})))) {
XML::Embperl::DOM::DomTree_discardAfterCheckpoint (%$t%,%^*htmltable%) ; last
l%^*htmltable% ; }',
+ 'if (!defined
(_ep_rpurl(%$n%,scalar($val3=do{%#~0:$row%;})))) {
XML::Embperl::DOM::DomTree_discardAfterCheckpoint (%$t%,%^*htmltable%) ; last
l%^*htmltable% ; }',
'_ep_rpurl(%$n%,scalar(do{%#0%}));',
] ;
@@ -243,6 +243,19 @@
) ;
+%ProcInfoTable = (
+ embperl => {
+ perlcode => 'l%$l%: for (my $row = 0; $row < $maxrow; $row++) {'
,
+ perlcodeend => '} %?*-htmltable%' ,
+ perlcoderemove => 1,
+ stackname => 'htmltable',
+ push => '%$l%',
+ mayjump => 1,
+ }
+ ) ;
+
+
+
%HtmlTags = (
'input' => {
'text' => 'input',
@@ -316,22 +329,79 @@
'text' => 'table',
'nodetype' => ntypStartTag,
%HtmlTagsStd,
- 'procinfo' => {
- embperl => {
- perlcode => 'l%$l%: for (my $row = 0; $row < $maxrow; $row++) {'
,
- perlcodeend => '} %?*-htmltable%' ,
- perlcoderemove => 1,
- stackname => 'htmltable',
- push => '%$l%',
- mayjump => 1,
- }
- },
+ 'procinfo' => \%ProcInfoTable,
},
'/table' => {
'text' => '/table',
'nodetype' => ntypEndTag,
'cdatatype' => 0,
},
+ 'table' => {
+ 'text' => 'table',
+ 'nodetype' => ntypStartTag,
+ %HtmlTagsStd,
+ 'procinfo' => \%ProcInfoTable,
+ },
+ '/table' => {
+ 'text' => '/table',
+ 'nodetype' => ntypEndTag,
+ 'cdatatype' => 0,
+ },
+ 'ol' => {
+ 'text' => 'ol',
+ 'nodetype' => ntypStartTag,
+ %HtmlTagsStd,
+ 'procinfo' => \%ProcInfoTable,
+ },
+ '/ol' => {
+ 'text' => '/ol',
+ 'nodetype' => ntypEndTag,
+ 'cdatatype' => 0,
+ },
+ 'ul' => {
+ 'text' => 'ul',
+ 'nodetype' => ntypStartTag,
+ %HtmlTagsStd,
+ 'procinfo' => \%ProcInfoTable,
+ },
+ '/ul' => {
+ 'text' => '/ul',
+ 'nodetype' => ntypEndTag,
+ 'cdatatype' => 0,
+ },
+ 'dl' => {
+ 'text' => 'dl',
+ 'nodetype' => ntypStartTag,
+ %HtmlTagsStd,
+ 'procinfo' => \%ProcInfoTable,
+ },
+ '/dl' => {
+ 'text' => '/dl',
+ 'nodetype' => ntypEndTag,
+ 'cdatatype' => 0,
+ },
+ 'menu' => {
+ 'text' => 'menu',
+ 'nodetype' => ntypStartTag,
+ %HtmlTagsStd,
+ 'procinfo' => \%ProcInfoTable,
+ },
+ '/menu' => {
+ 'text' => '/menu',
+ 'nodetype' => ntypEndTag,
+ 'cdatatype' => 0,
+ },
+ 'dir' => {
+ 'text' => 'dir',
+ 'nodetype' => ntypStartTag,
+ %HtmlTagsStd,
+ 'procinfo' => \%ProcInfoTable,
+ },
+ '/dir' => {
+ 'text' => '/dir',
+ 'nodetype' => ntypEndTag,
+ 'cdatatype' => 0,
+ },
'th' => {
'text' => 'th',
'nodetype' => ntypStartTag,
@@ -352,8 +422,15 @@
},
'procinfo' => {
embperl => {
- stackname => 'htmlselect',
- push => '%&*name%',
+ stackname2 => 'htmlselect',
+ push2 => '%&*name%',
+
+ perlcode => 'l%$l%: for (my $row = 0; $row < $maxrow; $row++) {'
,
+ perlcodeend => '} %?*-htmltable%' ,
+ perlcoderemove => 1,
+ stackname => 'htmltable',
+ push => '%$l%',
+ mayjump => 1,
}
},
},
No revision
No revision
1.15.2.3 +30 -32 embperl/test/cmp/escape.htm
Index: escape.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/escape.htm,v
retrieving revision 1.15.2.2
retrieving revision 1.15.2.3
diff -u -r1.15.2.2 -r1.15.2.3
--- escape.htm 2000/05/29 07:34:31 1.15.2.2
+++ escape.htm 2000/05/31 20:03:58 1.15.2.3
@@ -18,29 +18,29 @@
(this is the value in $a) (this is the value in $a)
äöüäöü???<&+ <BR>
What is the EscMode? 3
-Now a Url: <A
HREF="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This+is+a+text+%3F+%26+%2B+-+%2521">Here
it goes</A>
-A Tag 2: <A
HREF="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This+is+a+text+%3F+%26+%2B+-+%2521"
TARGET="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This is a text ?
& + - %21">a2</A>
-A Tag 3: <A
TARGET="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This is a text ?
& + - %21"
HREF="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This+is+a+text+%3F+%26+%2B+-+%2521"
TARGET="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This is a text ?
& + - %21">a3</A>
-A Tag 4: <A
TARGET="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This is a text ?
& + - %21"
HREF="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This+is+a+text+%3F+%26+%2B+-+%2521">a4</A>
-A Tag 5: <A
TARGET="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This is a text ?
& + - %21">a5</A>
-A Tag 6: <A>a6</A>
-A Tag 7: <A HREF="7">x</A>
-A Tag 8: <A TARGET=8 HREF="8">x</A>
-A Tag 9: <A HREF="9" TARGET="9">x</A>
-A Tag 10: <A TARGET="10" HREF="10" TARGET="10">x</A>
-A Tag 11: <A HREF="11">x</A>
-A Tag 12: <A HREF="12">x</A>
-A Tag 13: <A HREF="abcd%20%3E">x</A>
-A Tag 14: <A HREF="abcd%20%3E">x</A>
-FRAME: <FRAME
SRC="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This+is+a+text+%3F+%26+%2B+-+%2521"
name="%20foo">
-IFRAME: <IFRAME
SRC="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This+is+a+text+%3F+%26+%2B+-+%2521"
name="%20foo">
-EMBED: <EMBED
SRC="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This+is+a+text+%3F+%26+%2B+-+%2521"
name="%20foo">
-LAYER: <LAYER
SRC="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This+is+a+text+%3F+%26+%2B+-+%2521"
name="%20foo">
-IMG: <IMG
SRC="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This+is+a+text+%3F+%26+%2B+-+%2521"
name="%20foo">
-FORM: <FORM
action="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This+is+a+text+%3F+%26+%2B+-+%2521"
name="%20foo">
+Now a Url: <a
href="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This+is+a+text+%3F+%26+%2B+-+%2521">Here
it goes</A>
+A Tag 2: <a
href="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This+is+a+text+%3F+%26+%2B+-+%2521"
TARGET="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This is a text ?
& + - %21">a2</A>
+A Tag 3: <a
TARGET="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This is a text ?
& + - %21"
href="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This+is+a+text+%3F+%26+%2B+-+%2521"
TARGET="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This is a text ?
& + - %21">a3</A>
+A Tag 4: <a
TARGET="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This is a text ?
& + - %21"
href="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This+is+a+text+%3F+%26+%2B+-+%2521">a4</A>
+A Tag 5: <a
TARGET="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This is a text ?
& + - %21">a5</A>
+A Tag 6: <a>a6</A>
+A Tag 7: <a href="7">x</A>
+A Tag 8: <a TARGET=8 href="8">x</A>
+A Tag 9: <a href="9" TARGET="9">x</A>
+A Tag 10: <a TARGET="10" href="10" TARGET="10">x</A>
+A Tag 11: <a href="11">x</A>
+A Tag 12: <a href="12">x</A>
+A Tag 13: <a href="abcd%20%3E">x</A>
+A Tag 14: <a href="abcd%20%3E">x</A>
+FRAME: <frame
src="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This+is+a+text+%3F+%26+%2B+-+%2521"
name="%20foo">
+IFRAME: <iframe
src="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This+is+a+text+%3F+%26+%2B+-+%2521"
name="%20foo">
+EMBED: <embed
src="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This+is+a+text+%3F+%26+%2B+-+%2521"
name="%20foo">
+LAYER: <layer
src="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This+is+a+text+%3F+%26+%2B+-+%2521"
name="%20foo">
+IMG: <img
src="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This+is+a+text+%3F+%26+%2B+-+%2521"
name="%20foo">
+FORM: <form
action="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This+is+a+text+%3F+%26+%2B+-+%2521"
name="%20foo">
-Hash in A <A HREF="http://localhost/tests?A=1&B=2">
-Array in A <A HREF="http://localhost/tests?X=9&Y=8&Z=7">
+Hash in A <a href="http://localhost/tests?A=1&B=2">
+Array in A <a href="http://localhost/tests?X=9&Y=8&Z=7">
1
@@ -48,28 +48,28 @@
(this is the value in $a) (this is the value in $a)
äöüäöü???<&+ <BR>
What is the EscMode? 1
-Now a Url: <A HREF="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This
is a text ? & + - %21">Here it goes</A>
+Now a Url: <a href="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This
is a text ? & + - %21">Here it goes</A>
2
Now lets look what we are getting from this:<BR>
(this+is+the+value+in+$a) (this+is+the+value+in+$a)+������%3F%3F%3F%3C%26%2B++<BR>
What is the EscMode? 2
-Now a Url: <A
HREF="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This+is+a+text+%3F+%26+%2B+-+%2521">Here
it goes</A>
+Now a Url: <a
href="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This+is+a+text+%3F+%26+%2B+-+%2521">Here
it goes</A>
0
Now lets look what we are getting from this:<BR>
(this is the value in $a) (this is the value in $a) ������???<&+ <BR>
What is the EscMode? 0
-Now a Url: <A HREF="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This
is a text ? & + - %21">Here it goes</A>
+Now a Url: <a href="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This
is a text ? & + - %21">Here it goes</A>
3
Now lets look what we are getting from this:<BR>
(this is the value in $a) (this is the value in $a)
äöüäöü???<&+ <BR>
What is the EscMode? 3
-Now a Url: <A
HREF="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This+is+a+text+%3F+%26+%2B+-+%2521">Here
it goes</A>
+Now a Url: <a
href="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This+is+a+text+%3F+%26+%2B+-+%2521">Here
it goes</A>
What is the EscMode? 3
file.html?name=abcd&data=xyz
@@ -122,14 +122,14 @@
0
-<A HREF="http://host/script?name=My+Name+���">
+<a href="http://host/script?name=My+Name+���">
-<A HREF="http://host/script?name=My+Name+���">
+<a href="http://host/script?name=My+Name+���">
0
-<A HREF="http://host/script?name=My+Name+���">
+<a href="http://host/script?name=My+Name+���">
-<A HREF="http://host/script?name=My Name ���">
+<a href="http://host/script?name=My Name ���">
<br>
@@ -143,5 +143,3 @@
</body>
</html>
-
-
1.5.2.1 +82 -210 embperl/test/cmp/table.htm
Index: table.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/table.htm,v
retrieving revision 1.5
retrieving revision 1.5.2.1
diff -u -r1.5 -r1.5.2.1
--- table.htm 1999/11/17 07:29:36 1.5
+++ table.htm 2000/05/31 20:03:58 1.5.2.1
@@ -5,8 +5,6 @@
<body>
-<table></table>
-
<p> $tabmode = default <p>
@@ -22,69 +20,116 @@
<P>$tabmode = default <P>
-<table border="2" width="100%">
+
+<table>
<tr>
- <td>a1/1 </td>
+ <td>a1/1</td>
</tr>
<tr>
- <td>a2/1 </td>
-
- <td>a2/2 </td>
+ <td>a2/1</td>
</tr>
<tr>
- <td>a3/1 </td>
+ <td>a3/1</td>
+ </tr>
+</table>
+<table>
+ <tr>
+ <td>a3/1</td>
- <td>a3/2 </td>
+ <td>a3/2</td>
- <td>a3/3 </td>
+ <td>a3/3</td>
</tr>
</table>
+
-<table border="2" width="100%">
+<table>
<tr>
- <th>1</th>
- <th>2</th>
- <th>3</th>
+ <td>beforea1/1</td>
</tr>
+
<tr>
- <td>a1/1 </td>
+ <td>beforea2/1</td>
</tr>
-
+
<tr>
- <td>a2/1 </td>
+ <td>beforea3/1</td>
+ </tr>
+</table>
+<table>
+ <tr>
+ <td>beforea3/1</td>
- <td>a2/2 </td>
+ <td>beforea3/2</td>
+
+ <td>beforea3/3</td>
</tr>
-
+</table>
+
+<table>
<tr>
- <td>a3/1 </td>
+ <td>a1/1after</td>
+ </tr>
+
+ <tr>
+ <td>a2/1after</td>
+ </tr>
+
+ <tr>
+ <td>a3/1after</td>
+ </tr>
+</table>
+<table>
+ <tr>
+ <td>a3/1after</td>
- <td>a3/2 </td>
+ <td>a3/2after</td>
- <td>a3/3 </td>
+ <td>a3/3after</td>
</tr>
</table>
+<table>
+ <tr>
+ <td>beforea1/1after</td>
+ </tr>
+
+ <tr>
+ <td>beforea2/1after</td>
+ </tr>
-<table border="2" width="100%">
<tr>
- <th>b3/1</th>
+ <td>beforea3/1after</td>
+ </tr>
+</table>
+<table>
+ <tr>
+ <td>beforea3/1after</td>
- <th>b3/2</th>
+ <td>beforea3/2after</td>
- <th>b3/3</th>
+ <td>beforea3/3after</td>
</tr>
+</table>
+
+<table></table>
+<table>
+ <tr></tr>
+</table>
+
+
+<table border="1" width="100%">
<tr>
<td>a1/1 </td>
</tr>
-
+
<tr>
<td>a2/1 </td>
<td>a2/2 </td>
</tr>
-
+
<tr>
<td>a3/1 </td>
@@ -94,7 +139,8 @@
</tr>
</table>
-<table>
+
+<table border="4">
<tr>
<td>
<table>
@@ -240,7 +286,7 @@
</tr>
</table>
-<table border="3" width="100%">
+<table border="5" width="100%">
<tr>
<td>b3/1</td>
@@ -257,7 +303,7 @@
</tr>
</table>
-<table border="4" width="100%">
+<table border="6" width="100%">
<tr>
<td>a2/1</td>
</tr>
@@ -273,7 +319,7 @@
</tr>
</table>
-<table>
+<table border="7">
<tr>
<TD BGCOLOR="#F4A460">a1/1 </td>
</tr>
@@ -294,20 +340,11 @@
</table>
-<table>
- <tr>
- <TD BGCOLOR="#F4A460">a1/1 </td>
- <TD BGCOLOR="#FFFF00">a1/2 </td>
- </tr>
- <tr>
- <TD BGCOLOR="#A4A4B4">a2/1 </td>
- <TD BGCOLOR="#7CFC00">a2/2 </td>
- </tr>
-</table>
-<table border="0" width="100%">
+
+<table border="9" width="100%">
<tr>
- <td><table border="0">
+ <td><table border="10">
<tr>
<td valign="top">
<a href="inhalt.htm?Region=Pfalz">Pfalz</a></td>
@@ -319,7 +356,7 @@
</tr>
</table>
</td>
- <td><table border="0">
+ <td><table border="11">
<tr>
<td valign="top"><p align="left">
<a href="inhalt.htm?Kategorie=Kultur">Kultur</a></p>
@@ -335,169 +372,4 @@
</td>
</tr>
</table>
-
-
-<table border="0" width="100%">
- <tr>
- <td><table border="0">
- <tr>
- <td valign="top">
- <a href="inhalt.htm?Region=Pfalz">Pfalz</a></td>
- </tr>
-
- <tr>
- <td valign="top">
- <a href="inhalt.htm?Region=Rheinhessen">Rheinhessen</a></td>
- </tr>
- </table>
- </td>
- <td><table border="0">
- <tr>
- <td valign="top"><p align="left">
- <a href="inhalt.htm?Kategorie=Kultur">Kultur</a></p>
- </td>
- </tr>
-
- <tr>
- <td valign="top"><p align="left">
- <a href="inhalt.htm?Kategorie=Sport">Sport</a></p>
- </td>
- </tr>
-
- <tr>
- <td valign="top"><p align="left">
- <a
href="inhalt.htm?Kategorie=Veranstaltungen">Veranstaltungen</a></p>
- </td>
- </tr>
-
- <tr>
- <td valign="top"><p align="left">
- </td>
- </tr>
- </table>
- </td>
- </tr>
- </table>
-
-
-<hr><P>$tabmode=3 + 48 ; $maxcol = 4; $maxrow = 4 <P>
-<table>
- <tr>
- <td>a1/1 </td>
-
- <td> </td>
-
- <td> </td>
-
- <td> </td>
- </tr>
-
- <tr>
- <td>a2/1 </td>
-
- <td>a2/2 </td>
-
- <td> </td>
-
- <td> </td>
- </tr>
-
- <tr>
- <td>a3/1 </td>
-
- <td>a3/2 </td>
-
- <td>a3/3 </td>
-
- <td> </td>
- </tr>
-
- <tr>
- <td> </td>
-
- <td> </td>
-
- <td> </td>
-
- <td> </td>
- </tr>
-</table>
-
-<hr><p> $tabmode=1 + 32 ; <p>
-<table>
- <tr>
- <td>a1/1 </td>
-
- <td> </td>
- </tr>
-
- <tr>
- <td>a2/1 </td>
-
- <td>a2/2 </td>
-
- <td> </td>
- </tr>
-
- <tr>
- <td>a3/1 </td>
-
- <td>a3/2 </td>
-
- <td>a3/3 </td>
-
- <td> </td>
- </tr>
-
- <tr>
- <td> </td>
- </tr>
-</table>
-
-optDisableTableScan is now: 0 <BR>
-optDisableTableScan is set now to: 1 <BR>
-optDisableTableScan is now: 1 <BR>
-
-<table border="2" width="100%">
- <tr>
- <td>a1/1 </td>
- </tr>
-</table>
-
-optDisableTableScan is now: 1 <BR>
-optDisableTableScan is set now to: 0 <BR>
-optDisableTableScan is now: 0 <BR>
-
-<table border="2" width="100%">
- <tr>
- <td>a1/1 </td>
-
- <td> </td>
- </tr>
-
- <tr>
- <td>a2/1 </td>
-
- <td>a2/2 </td>
-
- <td> </td>
- </tr>
-
- <tr>
- <td>a3/1 </td>
-
- <td>a3/2 </td>
-
- <td>a3/3 </td>
-
- <td> </td>
- </tr>
-
- <tr>
- <td> </td>
- </tr>
-</table>
-
-</body>
-</html>
No revision
No revision
1.4.2.4 +11 -9 embperl/test/html/table.htm
Index: table.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/table.htm,v
retrieving revision 1.4.2.3
retrieving revision 1.4.2.4
diff -u -r1.4.2.3 -r1.4.2.4
--- table.htm 2000/05/31 06:21:52 1.4.2.3
+++ table.htm 2000/05/31 20:04:01 1.4.2.4
@@ -30,7 +30,7 @@
$b[2][2] = 'b3/3' ;
$maxcol=99 ;
--][###
+-]
$a[0][[0] = '1/1' ;<BR>
$a[1][[0] = '2/1' ;<BR>
$a[1][[1] = '2/2' ;<BR>
@@ -96,7 +96,6 @@
</tr>
</table>
-###]
<table border="1" width="100%">
<tr>
@@ -104,6 +103,7 @@
</tr>
</table>
+
[#
<table border="2" width="100%">
@@ -181,6 +181,7 @@
[- $a[0][1] = undef ; -]
+
[-
undef @regs ;
@@ -193,7 +194,6 @@
$kats[1]{Id} = 'Sport' ;
-]
-
<table border="9" width="100%">
<tr>
<td><table border="10">
@@ -214,22 +214,22 @@
</tr>
</table>
-
[-
$kats[2]{Id} = 'Veranstaltungen' ;
$kats[3]{Id} = '' ;
-]
-
-
+[###
<table border="12" width="100%">
<tr>
<td><table border="13">
<tr>
<td valign="top">
- [- $cmp = $regs[$row]{Id} -]
- [$if ($cmp || '') ne '' $]
- <a
href="inhalt.htm?Region=[+$regs[$row]{Id}+]">[+$regs[$row]{Id}+]</a></td>
+ [- print LOG "row= $row regs=$regs[0]{Id}\n" ; 1 ; -]
+ [- print LOG "1row= $row regs=$regs[0]{Id}\n"
; $c = $regs[0]->{Id} ; print LOG "2row= $row regs=$regs[0]{Id}\n" ; 1 ; -]
+ [- while (($k, $v) = each (%{$regs[0]})) { print LOG "$v=$k;\n"
; } -]
+ [$if ($cmp || '') ne '' $]
+ <a href="inhalt.htm?Region=[+print LOG "row= $row
regs=$regs[0]{Id}\n" ; $regs[$row]{Id}+]">[+$regs[$row]{Id}+]</a></td>
[$endif$]
</tr>
</table>
@@ -237,6 +237,7 @@
<td><table border="14">
<tr>
<td valign="top"><p align="left">
+ [- print LOG "row= $row regs=$kats[0]{Id}\n" ; 1 ; -]
[- $cmp = $kats[$row]{Id} -]
[$if ($cmp || '') ne '' $]
<a
href="inhalt.htm?Kategorie=[+$kats[$row]{Id}+]">[+$kats[$row]{Id}+]</a></p>
@@ -247,6 +248,7 @@
</td>
</tr>
</table>
+###]
[#
<hr><P>$tabmode=3 + 48 ; $maxcol = 4; $maxrow = 4 <P>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
