richter 00/06/14 00:20:46
Modified: . Tag: Embperl2 epcomp.c epdom.c test.pl
test/cmp Tag: Embperl2 if.htm mix.htm
test/html Tag: Embperl2 if.htm lists.htm
Log:
Embperl 2
Revision Changes Path
No revision
No revision
1.1.2.33 +15 -0 embperl/Attic/epcomp.c
Index: epcomp.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epcomp.c,v
retrieving revision 1.1.2.32
retrieving revision 1.1.2.33
diff -u -r1.1.2.32 -r1.1.2.33
--- epcomp.c 2000/06/13 21:13:36 1.1.2.32
+++ epcomp.c 2000/06/14 07:20:34 1.1.2.33
@@ -763,6 +763,21 @@
nCheckpointCodeOffset = 0 ;
}
+ if (*bCheckpointPending && (pNode -> bFlags & nflgIgnore))
+ {
+ int l ;
+ char buf [80] ;
+
+ pNode -> bFlags |= nflgCheckpoint ;
+ l = sprintf (buf, " _ep_cp($_ep_DomTree,%d) ;\n",
*bCheckpointPending<0?pNode -> xNdx:*bCheckpointPending) ;
+ nCheckpointCodeOffset = StringAdd (&pProg, buf, l) ;
+ *bCheckpointPending = 0 ;
+
+ if (pCurrReq -> bDebug & dbgParse)
+ lprintf (pCurrReq, "[%d]EPCOMP: #%d L%d Checkpoint\n", pCurrReq ->
nPid, pNode -> xNdx, pNode -> nLinenumber) ;
+
+ }
+
if (pCmd -> sStackName && pCmd -> sPushStack)
{
if (embperl_CompileToPerlCode (pDomTree, pNode, pCmd -> sPushStack,
&sStackValue))
1.1.2.36 +3 -1 embperl/Attic/epdom.c
Index: epdom.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epdom.c,v
retrieving revision 1.1.2.35
retrieving revision 1.1.2.36
diff -u -r1.1.2.35 -r1.1.2.36
--- epdom.c 2000/06/13 21:13:37 1.1.2.35
+++ epdom.c 2000/06/14 07:20:35 1.1.2.36
@@ -1548,6 +1548,7 @@
tNode xNextNode ;
int nOrderNdx = *pOrderNdx ;
int nOrderIndexNode = -1 ;
+ int bCheckpointFound = 0 ;
tNodeData * pNextNode ;
tNodeData * pSavedNode = NULL ;
tNodeData * pLastStartTag = NULL ;
@@ -1573,6 +1574,7 @@
if (pCurrReq -> bDebug & dbgParse)
lprintf (r, "[%d]toString: Skip Node=%d to Node=%d\n", r -> nPid,
pNode -> xNdx, xNextNode) ;
+ bCheckpointFound = 1 ;
pSavedNode = NULL ;
pNewNode = Node_self (pDomTree, xNextNode) ;
pNewParent = Node_selfParentNode (pDomTree, pNewNode) ;
@@ -1723,7 +1725,7 @@
if (pNextNode == NULL || pNextNode == pFirstNode || pNextNode ->
nType == ntypAttr)
{
*pOrderNdx = nOrderNdx ;
- return pNextNode ;
+ return bCheckpointFound?pNextNode:NULL ;
}
pNode = pNextNode ;
1.57.2.24 +1 -1 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.57.2.23
retrieving revision 1.57.2.24
diff -u -r1.57.2.23 -r1.57.2.24
--- test.pl 2000/06/13 21:13:38 1.57.2.23
+++ test.pl 2000/06/14 07:20:35 1.57.2.24
@@ -5,7 +5,7 @@
@tests = (
'ascii',
- 'tmp/header.htm',
+# 'tmp/header.htm',
'pure.htm',
## 'plainlong.htm',
## 'plainlong.htm',
No revision
No revision
1.4.2.4 +39 -0 embperl/test/cmp/if.htm
Index: if.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/if.htm,v
retrieving revision 1.4.2.3
retrieving revision 1.4.2.4
diff -u -r1.4.2.3 -r1.4.2.4
--- if.htm 2000/06/13 21:13:54 1.4.2.3
+++ if.htm 2000/06/14 07:20:40 1.4.2.4
@@ -51,6 +51,45 @@
<endif>
+
+
+<table WIDTH="530" BORDER="0">
+ <tr>
+ <TD ALIGN="LEFT">
+ <a href="/">
+ <img src="/icons/iiilogo_narrow.gif"
+ WIDTH="" HEIGHT="" BORDER="0"
+ ALT="iii logo"
+ qqq >
+
+ </TD>
+</tr>
+</table>
+
+<table WIDTH="530" BORDER="0">
+ <tr>
+ <TD ALIGN="LEFT">
+ <a href="/">
+ <img src="/i/www.iii.co.uk/iiilogo_narrow.gif"
+ WIDTH="1" HEIGHT="2" BORDER="0"
+ ALT="iii logo"
+
onload="window.open('/iit/leavingiit.epl','dis','status=no,scrollbars=no,resizable=yes,width=370,height=320,screenX=100,screenY=100,top=100,left=100');
return false"
+ >
+
+ </TD>
+</tr>
+</table>
+
+
+<img src="/icons/iiilogo_narrow_else.gif" WIDTH="5" HEIGHT="10" BORDER="0"
+ ALT="iii logo"
+ >
+
+<img src="/i/www.iii/iit.gif" WIDTH="6" HEIGHT="11" BORDER="0"
+ ALT="iit logo"
+ qqq >
+
+
</body>
</html>
1.2.2.2 +6 -12 embperl/test/cmp/mix.htm
Index: mix.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/mix.htm,v
retrieving revision 1.2.2.1
retrieving revision 1.2.2.2
diff -u -r1.2.2.1 -r1.2.2.2
--- mix.htm 2000/06/01 06:38:15 1.2.2.1
+++ mix.htm 2000/06/14 07:20:41 1.2.2.2
@@ -23,21 +23,14 @@
again global value: $a = global value <BR>
0 = 1 <br>
- 0
- <BR>
+ 0 <BR>
1 = 4 <br>
- 0 1
- <BR>
+ 0 1 <BR>
2 = 8 <br>
- 0 1 2
- <BR>
+ 0 1 2 <BR>
3 = 17 <br>
- 0 1 2 3
- <BR>
-
-
-
-<table>
+ 0 1 2 3 <BR>
+ <table>
<tr>
<td>0</td><td>b1/1 </td>
</tr>
@@ -61,3 +54,4 @@
</body>
</html>
+
No revision
No revision
1.3.2.6 +2 -2 embperl/test/html/if.htm
Index: if.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/if.htm,v
retrieving revision 1.3.2.5
retrieving revision 1.3.2.6
diff -u -r1.3.2.5 -r1.3.2.6
--- if.htm 2000/06/13 21:13:58 1.3.2.5
+++ if.htm 2000/06/14 07:20:45 1.3.2.6
@@ -314,8 +314,8 @@
<endif>
-[##
+
<TABLE WIDTH="530" BORDER="0">
<TR>
<TD ALIGN="LEFT">
@@ -401,8 +401,8 @@
ALT="iii logo"
[$ endif $]
qqq >
+
-##]
</body>
</html>
1.1.2.1.2.2 +1 -1 embperl/test/html/lists.htm
Index: lists.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/lists.htm,v
retrieving revision 1.1.2.1.2.1
retrieving revision 1.1.2.1.2.2
diff -u -r1.1.2.1.2.1 -r1.1.2.1.2.2
--- lists.htm 2000/06/07 09:23:04 1.1.2.1.2.1
+++ lists.htm 2000/06/14 07:20:45 1.1.2.1.2.2
@@ -43,7 +43,7 @@
If you request this document with list.htm?sel1=x you can specify that the
element of the dropdownlist is initialy selected
-
+
<p><select name="SEL1">
<option value="[+ $v[$row] +]">[+ $k[$row] +]</option>
</select></p>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
