richter 00/07/01 06:04:31
Modified: . Tag: Embperl2 embpcgi.bat embpcgi.pl
embpcgi.test.bat embpcgi.test.pl embpexec.bat
embpexec.pl epdom.c
test/cmp Tag: Embperl2 lists.htm
Log:
- Embperl 2
Revision Changes Path
No revision
No revision
1.7.2.14 +2 -2 embperl/embpcgi.bat
Index: embpcgi.bat
===================================================================
RCS file: /home/cvs/embperl/embpcgi.bat,v
retrieving revision 1.7.2.13
retrieving revision 1.7.2.14
diff -u -r1.7.2.13 -r1.7.2.14
--- embpcgi.bat 2000/06/19 04:22:57 1.7.2.13
+++ embpcgi.bat 2000/07/01 13:04:20 1.7.2.14
@@ -1,9 +1,9 @@
@rem = '--*-Perl-*--
@echo off
-/usr/bin/perl -x %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
+D:\Perl\5.00502\bin\MSWin32-x86\perl -x %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
@rem ';
-#!/usr/bin/perl --
+#!D:\Perl\5.00502\bin\MSWin32-x86\perl --
#line 8
###################################################################################
#
1.7.2.14 +1 -1 embperl/embpcgi.pl
Index: embpcgi.pl
===================================================================
RCS file: /home/cvs/embperl/embpcgi.pl,v
retrieving revision 1.7.2.13
retrieving revision 1.7.2.14
diff -u -r1.7.2.13 -r1.7.2.14
--- embpcgi.pl 2000/06/19 04:22:57 1.7.2.13
+++ embpcgi.pl 2000/07/01 13:04:20 1.7.2.14
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!D:\Perl\5.00502\bin\MSWin32-x86\perl
###################################################################################
#
# Embperl - Copyright (c) 1997-1999 Gerald Richter / ECOS
1.5.2.15 +2 -2 embperl/embpcgi.test.bat
Index: embpcgi.test.bat
===================================================================
RCS file: /home/cvs/embperl/embpcgi.test.bat,v
retrieving revision 1.5.2.14
retrieving revision 1.5.2.15
diff -u -r1.5.2.14 -r1.5.2.15
--- embpcgi.test.bat 2000/06/19 04:27:22 1.5.2.14
+++ embpcgi.test.bat 2000/07/01 13:04:20 1.5.2.15
@@ -1,9 +1,9 @@
@rem = '--*-Perl-*--
@echo off
-/usr/bin/perl -x -T %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
+D:\Perl\5.00502\bin\MSWin32-x86\perl -x -T %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
@rem ';
-#!/usr/bin/perl --
+#!D:\Perl\5.00502\bin\MSWin32-x86\perl --
#line 8
###################################################################################
#
1.7.2.15 +1 -1 embperl/embpcgi.test.pl
Index: embpcgi.test.pl
===================================================================
RCS file: /home/cvs/embperl/embpcgi.test.pl,v
retrieving revision 1.7.2.14
retrieving revision 1.7.2.15
diff -u -r1.7.2.14 -r1.7.2.15
--- embpcgi.test.pl 2000/06/19 04:27:22 1.7.2.14
+++ embpcgi.test.pl 2000/07/01 13:04:20 1.7.2.15
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!D:\Perl\5.00502\bin\MSWin32-x86\perl
###################################################################################
#
# Embperl - Copyright (c) 1997-1999 Gerald Richter / ECOS
1.18.2.14 +2 -2 embperl/embpexec.bat
Index: embpexec.bat
===================================================================
RCS file: /home/cvs/embperl/embpexec.bat,v
retrieving revision 1.18.2.13
retrieving revision 1.18.2.14
diff -u -r1.18.2.13 -r1.18.2.14
--- embpexec.bat 2000/06/19 04:22:57 1.18.2.13
+++ embpexec.bat 2000/07/01 13:04:20 1.18.2.14
@@ -1,9 +1,9 @@
@rem = '--*-Perl-*--
@echo off
-/usr/bin/perl -x %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
+D:\Perl\5.00502\bin\MSWin32-x86\perl -x %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
@rem ';
-#!/usr/bin/perl --
+#!D:\Perl\5.00502\bin\MSWin32-x86\perl --
#line 8
###################################################################################
#
1.18.2.14 +1 -1 embperl/embpexec.pl
Index: embpexec.pl
===================================================================
RCS file: /home/cvs/embperl/embpexec.pl,v
retrieving revision 1.18.2.13
retrieving revision 1.18.2.14
diff -u -r1.18.2.13 -r1.18.2.14
--- embpexec.pl 2000/06/19 04:22:57 1.18.2.13
+++ embpexec.pl 2000/07/01 13:04:22 1.18.2.14
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!D:\Perl\5.00502\bin\MSWin32-x86\perl
###################################################################################
#
# Embperl - Copyright (c) 1997-1999 Gerald Richter / ECOS
1.1.2.43 +13 -7 embperl/Attic/epdom.c
Index: epdom.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epdom.c,v
retrieving revision 1.1.2.42
retrieving revision 1.1.2.43
diff -u -r1.1.2.42 -r1.1.2.43
--- epdom.c 2000/06/30 21:26:51 1.1.2.42
+++ epdom.c 2000/07/01 13:04:23 1.1.2.43
@@ -347,18 +347,22 @@
return 0 ;
if ((ppSV = hv_fetch (pStringTableHash, (char *)sText, nLen, 0)) != NULL)
- {
- /*lprintf (pCurrReq, "String2Ndx type=%d iok=%d flg=%x\n",
*ppSV?SvTYPE(*ppSV):-1, SvIOK (*ppSV), SvFLAGS(*ppSV)) ;*/
+ {
+
+ /*lprintf (pCurrReq, "String2Ndx type=%d iok=%d flg=%x\n",
*ppSV?SvTYPE(*ppSV):-1, SvIOK (*ppSV), SvFLAGS(*ppSV)) ;*/
+
if (*ppSV != NULL && SvIOKp (*ppSV)) /* use SvIOKp to avoid problems with
tainting */
return SvIVX (*ppSV) ;
}
-
+
+
/* new string */
nNdx = ArrayAdd (&pStringTableArray, 1) ;
pSVNdx = newSViv (nNdx) ;
- SvTAINTED_off (pSVNdx) ;
+ SvTAINTED_off (pSVNdx) ;
+
SvREFCNT_inc (pSVNdx) ;
pSVKey = newSVpv (nLen?(char *)sText:"", nLen) ;
pHEKey = hv_store_ent (pStringTableHash, pSVKey, pSVNdx, 0) ;
@@ -466,14 +470,14 @@
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)
{
tNodeData * pNode = NodePad_selfFirstChild (pDomTree,pPad) ;
int nOffset ;
+ lprintf (pCurrReq, "delete typ=%d Pad xNdx=%d\n", pPad -> nType, pPad ->
xNdx) ;
+
while (pNode)
{
/* is it really save to leave out attr here????
@@ -486,6 +490,7 @@
pAttr++ ;
}
*/
+ lprintf (pCurrReq, "delete typ=%d Node xNdx=%d\n", pNode -> nType,
pNode -> xNdx) ;
pDomTree -> pLookup[pNode -> xNdx] = NULL ;
nOffset = sizeof (struct tNodeData) + sizeof (struct tAttrData) *
pNode -> numAttr ;
if (pPad -> nFill <= pNode -> nPadOffset + nOffset)
@@ -1985,7 +1990,7 @@
tNodeData * pNewNode ;
if (bClone)
- pNode -> bFlags |= nflgReturn ;
+ pNode -> bFlags |= nflgReturn | nflgModified ;
if (pAttr)
{
@@ -2049,6 +2054,7 @@
pAttr = Element_selfGetAttribut (pDomTree, pNode, sAttrName, nAttrNameLen) ;
if (bClone)
{
+ pNode -> bFlags |= nflgReturn | nflgModified ;
if (pAttr != NULL && (pNode -> bFlags & nflgModified))
{
pNode -> bFlags |= nflgReturn | nflgModified ;
No revision
No revision
1.3.2.2 +3 -3 embperl/test/cmp/lists.htm
Index: lists.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/lists.htm,v
retrieving revision 1.3.2.1
retrieving revision 1.3.2.2
diff -u -r1.3.2.1 -r1.3.2.2
--- lists.htm 2000/06/07 09:23:02 1.3.2.1
+++ lists.htm 2000/07/01 13:04:31 1.3.2.2
@@ -132,10 +132,10 @@
<option value="C">3</option>
<option value="C" size=5>3</option>
+ <option selected value="D">4</option>
<option value="D" selected>4</option>
- <option value="D" selected>4</option>
- <option value="D" size=5 selected>4</option>
-
+ <option value="D" selected size=5>4</option>
+
<option value="E">5</option>
<option value="E">5</option>
<option value="E" size=5>5</option>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
