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...@locus.apache.org on 2000/06/26 21:28:38 UTC
cvs commit: embperl epcmd.c epdom.c epdom.h
richter 00/06/26 12:28:38
Modified: . Tag: Embperl2 epcmd.c epdom.c epdom.h
Log:
Embperl 2
Revision Changes Path
No revision
No revision
1.33.2.2 +1 -1 embperl/epcmd.c
Index: epcmd.c
===================================================================
RCS file: /home/cvs/embperl/epcmd.c,v
retrieving revision 1.33.2.1
retrieving revision 1.33.2.2
diff -u -r1.33.2.1 -r1.33.2.2
--- epcmd.c 2000/06/04 19:42:40 1.33.2.1
+++ epcmd.c 2000/06/26 19:28:35 1.33.2.2
@@ -1631,7 +1631,7 @@
oputc (r, ' ') ;
oputs (r, sArg) ;
}
- oputs (r, " SELECTED>") ;
+ oputs (r, " selected>") ;
r -> Buf.pCurrPos = NULL ; /* nothing more left of html tag */
return ok ;
}
1.1.2.40 +9 -4 embperl/Attic/epdom.c
Index: epdom.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epdom.c,v
retrieving revision 1.1.2.39
retrieving revision 1.1.2.40
diff -u -r1.1.2.39 -r1.1.2.40
--- epdom.c 2000/06/26 05:00:25 1.1.2.39
+++ epdom.c 2000/06/26 19:28:36 1.1.2.40
@@ -458,15 +458,19 @@
int numLookup = ArrayGetSize (pLookup) ;
tIndex xDomTree = pDomTree -> xNdx ;
+ pLookup += numLookup - 1 ;
while (numLookup-- > 0)
{
tNodePad * pPad = *pLookup ;
+ if (pPad)
+ lprintf (pCurrReq, "delete typ=%d xNdx=%d\n", pPad -> nType, pPad -> xNdx) ;
+
if (pPad && pPad -> nType == (tNodeType)ntypPad && xDomTree == pPad -> xDomTree)
{
dom_free (pPad) ;
}
- pLookup++ ;
+ pLookup-- ;
}
ArrayFree (&pDomTree -> pLookup) ;
@@ -1200,7 +1204,7 @@
tNodeData * pNode = Node_self (pDomTree, xNode) ;
- if (pOldChild -> bFlags & nflgModified)
+ if (pOldChild -> bFlags & nflgModified)
{
pOldChild -> bFlags |= bFlags ;
pOldChild = Node_selfCloneNode (pOldChildDomTree, pNode, 1) ;
@@ -1284,16 +1288,17 @@
struct tNodeData * pOldChild = Node_self (pDomTree, xOldChild) ;
tNode xOrgChild = xOldChild ;
- lprintf (pCurrReq, "rp--> SVs=%d %s\n", sv_count, sText) ;
+ lprintf (pCurrReq, "rp1--> SVs=%d %s DomTree Old=%d\n", sv_count, sText, Node_selfDomTree (pOldChild)) ;
xCheckpointCache[nCheckpointCache++] = xOldChild ;
- if (pOldChild -> bFlags & nflgModified)
+ if (pOldChild -> bFlags & nflgModified)
{
pOldChild -> bFlags |= bFlags ;
pOldChild = Node_selfCloneNode (pDomTree, pOldChild, 0) ;
xOldChild = pOldChild -> xNdx ;
}
+ lprintf (pCurrReq, "rp2--> DomTree New=%d\n", Node_selfDomTree (pOldChild)) ;
DomTree_selfCheckpoint (pDomTree, xOrgChild, xOldChild) ;
1.1.2.29 +2 -0 embperl/Attic/epdom.h
Index: epdom.h
===================================================================
RCS file: /home/cvs/embperl/Attic/epdom.h,v
retrieving revision 1.1.2.28
retrieving revision 1.1.2.29
diff -u -r1.1.2.28 -r1.1.2.29
--- epdom.h 2000/06/25 19:49:12 1.1.2.28
+++ epdom.h 2000/06/26 19:28:36 1.1.2.29
@@ -272,6 +272,7 @@
#define DomTree_self(xDomTree) (&pDomTrees[xDomTree])
#define NodePad_self(pDomTree,xNode) ((struct tNodePad *)(pDomTree -> pLookup[xNode]))
+#define NodePad_selfDomTree(pPad) (pPad -> xDomTree)
#define NodePad_selfFirstChild(pDomTree,pNodePad) ((tNodeData *)(pNodePad + 1))
#define Node_self(pDomTree,xNode) ((struct tNodeData *)(pDomTree -> pLookup[xNode]))
@@ -280,6 +281,7 @@
#define Node_selfNodeName(pNode) (Ndx2String (pNode -> nText))
#define Node_nodeName(pDomTree,pNode) (Ndx2String (Node_self (pDomTree,xNode) -> nText))
#define Node_selfPad(pNode) ((struct tNodePad * )(((tUInt8 *)pNode) - pNode -> nPadOffset))
+#define Node_selfDomTree(pNode) NodePad_selfDomTree (Node_selfPad(pNode))
#define Node_selfFirstAttr(pNode) ((tAttrData *)(pNode + 1))
tNodeData * Node_selfCloneNode (/*in*/ tDomTree * pDomTree,