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 2001/10/22 10:05:31 UTC
cvs commit: embperl Makefile.PL epdom.c epdom.h
richter 01/10/22 01:05:31
Modified: . Tag: Embperl2c Makefile.PL epdom.c epdom.h
Log:
Embperl 2 - tree structure rewrite
Revision Changes Path
No revision
No revision
1.31.4.27 +2 -2 embperl/Makefile.PL
Index: Makefile.PL
===================================================================
RCS file: /home/cvs/embperl/Makefile.PL,v
retrieving revision 1.31.4.26
retrieving revision 1.31.4.27
diff -u -r1.31.4.26 -r1.31.4.27
--- Makefile.PL 2001/10/17 13:11:23 1.31.4.26
+++ Makefile.PL 2001/10/22 08:05:31 1.31.4.27
@@ -3,7 +3,7 @@
#
# (C) 1997-2001 G.Richter (richter@dev.ecos.de) / ECOS
#
-# $Id: Makefile.PL,v 1.31.4.26 2001/10/17 13:11:23 richter Exp $
+# $Id: Makefile.PL,v 1.31.4.27 2001/10/22 08:05:31 richter Exp $
#
@@ -635,7 +635,7 @@
if ($win32 && ($EPAPACHESRC || $EPNOAPACHELIB))
{
print "\nYou have already build Embperl with support for Apache mod_perl\n" ;
- $EPNOAPACHELIB = GetYesNo ("Do you want a build a separate dynamic library so both can be used?", 'y') ;
+ $EPNOAPACHELIB = GetYesNo ("Do you want to build a separate dynamic library for use without Apache?", 'y') ;
}
1.4.2.51 +7 -2 embperl/Attic/epdom.c
Index: epdom.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epdom.c,v
retrieving revision 1.4.2.50
retrieving revision 1.4.2.51
diff -u -r1.4.2.50 -r1.4.2.51
--- epdom.c 2001/10/22 06:25:01 1.4.2.50
+++ epdom.c 2001/10/22 08:05:31 1.4.2.51
@@ -9,7 +9,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epdom.c,v 1.4.2.50 2001/10/22 06:25:01 richter Exp $
+# $Id: epdom.c,v 1.4.2.51 2001/10/22 08:05:31 richter Exp $
#
###################################################################################*/
@@ -674,7 +674,12 @@
/*in*/ tRepeatLevel nLevel)
{
- tRepeatLevelLookup * pLookupLevelNode = pDomTree -> pLookupLevel[xNode] ;
+ tRepeatLevelLookup * pLookupLevelNode ;
+
+ if (!pDomTree -> pLookupLevel)
+ return NULL ;
+
+ pLookupLevelNode = pDomTree -> pLookupLevel[xNode] ;
if (pLookupLevelNode)
{
register tRepeatLevelLookupItem * pLookupLevelNodeLevel = &pLookupLevelNode -> items[nLevel & pLookupLevelNode -> nMask] ;
1.4.2.29 +2 -2 embperl/Attic/epdom.h
Index: epdom.h
===================================================================
RCS file: /home/cvs/embperl/Attic/epdom.h,v
retrieving revision 1.4.2.28
retrieving revision 1.4.2.29
diff -u -r1.4.2.28 -r1.4.2.29
--- epdom.h 2001/10/22 06:25:01 1.4.2.28
+++ epdom.h 2001/10/22 08:05:31 1.4.2.29
@@ -9,7 +9,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epdom.h,v 1.4.2.28 2001/10/22 06:25:01 richter Exp $
+# $Id: epdom.h,v 1.4.2.29 2001/10/22 08:05:31 richter Exp $
#
###################################################################################*/
@@ -330,7 +330,7 @@
#define DomTree_self(xDomTree) (&pDomTrees[xDomTree])
#define Node_self(pDomTree,xNode) ((struct tNodeData *)(pDomTree -> pLookup[xNode]))
-#define Node_selfLevel(pDomTree,xNode,nLevel) ((((struct tNodeData *)(pDomTree -> pLookup[xNode])) -> nRepeatLevel == nLevel || pDomTree -> pLookupLevel[xNode] == NULL)?Node_selfLevelItem(pDomTree,xNode,nLevel):((struct tNodeData *)(pDomTree -> pLookup[xNode])))
+#define Node_selfLevel(pDomTree,xNode,nLevel) (pDomTree -> pLookup[xNode]?((((struct tNodeData *)(pDomTree -> pLookup[xNode])) -> nRepeatLevel == nLevel || pDomTree -> pLookupLevel[xNode] == NULL)?((struct tNodeData *)(pDomTree -> pLookup[xNode])):Node_selfLevelItem(pDomTree,xNode,nLevel)):NULL)
#define Node_parentNode(pDomTree,xNode,nLevel) (Node_selfLevel(pDomTree,xNode,nLevel)->xParent)
#define Node_selfParentNode(pDomTree,pNode,nLevel) (Node_selfLevel(pDomTree,(pNode)->xParent,nLevel))
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org