richter 00/12/13 07:21:14
Modified: . Tag: Embperl2c epcomp.c epdom.c
Embperl Tag: Embperl2c Syntax.pm
Log:
Embperl 2
Revision Changes Path
No revision
No revision
1.4.2.24 +5 -1 embperl/Attic/epcomp.c
Index: epcomp.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epcomp.c,v
retrieving revision 1.4.2.23
retrieving revision 1.4.2.24
diff -u -r1.4.2.23 -r1.4.2.24
--- epcomp.c 2000/12/13 06:54:36 1.4.2.23
+++ epcomp.c 2000/12/13 15:21:06 1.4.2.24
@@ -1148,11 +1148,15 @@
if (pAttr -> bFlags & aflgAttrChilds)
{
tNodeData * pChild = Node_selfFirstChild (pDomTree, (tNodeData
*)pAttr) ;
+ tNodeData * pNext ;
while (pChild)
{
embperl_CompileNode (r, pDomTree, pChild -> xNdx,
bCheckpointPending) ;
- pChild = Node_selfNextSibling (pDomTree, pChild) ;
+ pNext = Node_selfNextSibling (pDomTree, pChild) ;
+ if (pChild -> bFlags == 0)
+ Node_selfRemoveChild(pDomTree, -1, pChild) ;
+ pChild = pNext ;
}
}
1.4.2.16 +3 -3 embperl/Attic/epdom.c
Index: epdom.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epdom.c,v
retrieving revision 1.4.2.15
retrieving revision 1.4.2.16
diff -u -r1.4.2.15 -r1.4.2.16
--- epdom.c 2000/12/13 12:56:02 1.4.2.15
+++ epdom.c 2000/12/13 15:21:08 1.4.2.16
@@ -1236,14 +1236,14 @@
{
xOldValue = ((tAttrData *)pParent) -> xValue ;
((tAttrData *)pParent) -> xValue = 0 ;
- ((tAttrData *)pParent) -> bFlags &= ~aflgAttrValue ;
- ((tAttrData *)pParent) -> bFlags |= aflgAttrChilds ;
pNew = Node_newAndAppend (pDomTree, xParent, &(((tAttrData
*)pParent) -> xValue), nLinenumber, 0) ;
- pNew -> nText = ntypAttrValue ;
+ pNew -> nType = ntypAttrValue ;
pNew -> nText = xOldValue ;
}
+ ((tAttrData *)pParent) -> bFlags &= ~aflgAttrValue ;
+ ((tAttrData *)pParent) -> bFlags |= aflgAttrChilds ;
pNew = Node_newAndAppend (pDomTree, xParent, &(((tAttrData *)pParent)
-> xValue), nLinenumber, 0) ;
}
No revision
No revision
1.1.4.8 +3 -2 embperl/Embperl/Attic/Syntax.pm
Index: Syntax.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Attic/Syntax.pm,v
retrieving revision 1.1.4.7
retrieving revision 1.1.4.8
diff -u -r1.1.4.7 -r1.1.4.8
--- Syntax.pm 2000/11/03 12:04:20 1.1.4.7
+++ Syntax.pm 2000/12/13 15:21:11 1.1.4.8
@@ -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.7 2000/11/03 12:04:20 richter Exp $
+# $Id: Syntax.pm,v 1.1.4.8 2000/12/13 15:21:11 richter Exp $
#
###################################################################################
@@ -170,7 +170,8 @@
'$_ep_node=%$l%;if (!defined
(scalar(do{%#~0:$row%}))) { _ep_dcp (%$t%,%^*htmltable%) ; last l%^*htmltable% ; }',
'$_ep_node=%$l%;{%#0%;}',
],
- removenode => 3,
+ #removenode => 3,
+ removenode => 10,
mayjump => 1,
compilechilds => 0,
},
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
