perl-embperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From rich...@locus.apache.org
Subject cvs commit: embperl/test/html table.htm
Date Wed, 31 May 2000 20:04:04 GMT
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) &auml;&ouml;&uuml;&auml;&ouml;&uuml;???&lt;&amp;+
 <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 ? &amp;
+ - %21">a2</A>
  -A Tag 3:   <A TARGET="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This
is a text ? &amp; + - %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 ? &amp;
+ - %21">a3</A>
  -A Tag 4:   <A TARGET="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This
is a text ? &amp; + - %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 ? &amp; + - %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 ? &amp;
+ - %21">a2</A>
  +A Tag 3:   <a TARGET="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This
is a text ? &amp; + - %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 ? &amp;
+ - %21">a3</A>
  +A Tag 4:   <a TARGET="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This
is a text ? &amp; + - %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 ? &amp; + - %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) &auml;&ouml;&uuml;&auml;&ouml;&uuml;???&lt;&amp;+
 <BR>
   
   What is the EscMode? 1
  -Now a Url: <A HREF="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This
is a text ? &amp; + - %21">Here it goes</A>
  +Now a Url: <a href="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This
is a text ? &amp; + - %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) &auml;&ouml;&uuml;&auml;&ouml;&uuml;???&lt;&amp;+
 <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&amp;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>
  
  
  

Mime
View raw message