You are viewing a plain text version of this content. The canonical link for it is here.
Posted to embperl-cvs@perl.apache.org by ri...@apache.org on 2004/01/22 06:59:11 UTC
cvs commit: embperl/test/html nesting.htm
richter 2004/01/21 21:59:11
Modified: . Old.xs TODO epdom.c
test/html nesting.htm
Log:
debug print OUT
Revision Changes Path
1.5 +3 -3 embperl/Old.xs
Index: Old.xs
===================================================================
RCS file: /home/cvs/embperl/Old.xs,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- Old.xs 30 Mar 2003 18:57:01 -0000 1.4
+++ Old.xs 22 Jan 2004 05:59:11 -0000 1.5
@@ -93,9 +93,9 @@
CODE:
{
char * p = SvPV (sText, l) ;
- /*if Node_self(DomTree_self (r -> Component.xCurrDomTree), r -> Component.xCurrNode) -> nType == ntypDocumentFraq)
- Node_appendChild (DomTree_self (r -> Component.xCurrDomTree), r -> Component.xCurrNode, r -> Component.nCurrRepeatLevel, ntypCDATA, 0, p, l, 0, 0, NULL) ;
- else*/
+ if (0) //Node_self(DomTree_self (r -> Component.xCurrDomTree), r -> Component.xCurrNode) -> nType == ntypDocumentFraq)
+ Node_appendChild (r->pApp, DomTree_self (r -> Component.xCurrDomTree), r -> Component.xCurrNode, r -> Component.nCurrRepeatLevel, ntypCDATA, 0, p, l, 0, 0, NULL) ;
+ else
r -> Component.xCurrNode = Node_insertAfter_CDATA (r->pApp, p, l, (r -> Component.nCurrEscMode & 3)== 3?1 + (r -> Component.nCurrEscMode & 4):r -> Component.nCurrEscMode, DomTree_self (r -> Component.xCurrDomTree), r -> Component.xCurrNode, r -> Component.nCurrRepeatLevel) ;
r -> Component.bEscModeSet = 0 ;
1.113 +3 -0 embperl/TODO
Index: TODO
===================================================================
RCS file: /home/cvs/embperl/TODO,v
retrieving revision 1.112
retrieving revision 1.113
diff -u -r1.112 -r1.113
--- TODO 2 Jan 2004 15:24:08 -0000 1.112
+++ TODO 22 Jan 2004 05:59:11 -0000 1.113
@@ -9,5 +9,8 @@
- debug defualt to zero?
+- make $Embperl::req global
+
+
TODO for Embperl 2.1 and later
1.12 +7 -2 embperl/epdom.c
Index: epdom.c
===================================================================
RCS file: /home/cvs/embperl/epdom.c,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- epdom.c 11 Apr 2003 05:41:17 -0000 1.11
+++ epdom.c 22 Jan 2004 05:59:11 -0000 1.12
@@ -1587,7 +1587,12 @@
pPrevNode -> bFlags |= nflgNewLevelNext ;
if ((a -> pCurrReq?a -> pCurrReq -> Component.Config.bDebug:a -> Config.bDebug) & dbgCheckpoint)
- lprintf (a, "[%d]Checkpoint: jump backward DomTree=%d Index=%d Node=%d RepeatLevel=%d Line=%d -> Index=%d Node=%d Line=%d SVs=%d\n", a -> pThread -> nPid, r -> Component.xCurrDomTree, nCompileCheckpoint, pPrevNode -> xNdx, r -> Component.nCurrRepeatLevel, pPrevNode -> nLinenumber, nRunCheckpoint, pRunNode -> xNdx, pRunNode -> nLinenumber, sv_count) ;
+ lprintf (a, "[%d]Checkpoint: jump backward DomTree=%d Index=%d Node=%d(%d) RepeatLevel=%d Line=%d -> Index=%d Node=%d(%d) Line=%d SVs=%d\n",
+ a -> pThread -> nPid, r -> Component.xCurrDomTree,
+ nCompileCheckpoint, pPrevNode -> xNdx, xNode_selfLevelNull(pDomTree, pPrevNode),
+ r -> Component.nCurrRepeatLevel, pPrevNode -> nLinenumber,
+ nRunCheckpoint, pRunNode -> xNdx, xNode_selfLevelNull(pDomTree, pRunNode),
+ pRunNode -> nLinenumber, sv_count) ;
}
else if (pRunParent2 && pCompileParent2 && pCompileParent2 -> xNdx == pRunParent2 -> xNdx)
1.3 +30 -2 embperl/test/html/nesting.htm
Index: nesting.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/nesting.htm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- nesting.htm 5 Oct 1999 06:03:46 -0000 1.2
+++ nesting.htm 22 Jan 2004 05:59:11 -0000 1.3
@@ -24,7 +24,7 @@
</tr>
</table>
-
+[#
[$if $t $]
<table>
<tr>
@@ -34,7 +34,7 @@
</tr>
</table>
[$endif$]
-
+#]
[$if $f $]
<table>
@@ -45,6 +45,34 @@
</tr>
</table>
[$endif$]
+
+
+<!-- [ + + ] -->
+
+[- $count = 0 -]
+<DL>
+ [$ while $count < 10 $]
+ <DL>
+ <DD>[+ $count +]
+ </DL>
+ [- $count++ -]
+ [$ endwhile $]
+</DL>
+
+
+<!-- print OUT -->
+
+[- $count = 0 -]
+<DL>
+ [$ while $count < 10 $]
+ <DL>
+ <DD>[- print OUT $count; -]
+ </DL>
+ [- $count++ -]
+ [$ endwhile $]
+</DL>
+
+
</body>
</html>
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org