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/05 09:23:01 UTC
cvs commit: embperl Embperl.xs embpcgi.bat embpcgi.pl embpcgi.test.bat embpcgi.test.pl embpexec.bat embpexec.pl ep.h epcmd2.c epcomp.c eputil.c
richter 00/06/05 00:23:00
Modified: . Tag: Embperl2 Embperl.xs embpcgi.bat embpcgi.pl
embpcgi.test.bat embpcgi.test.pl embpexec.bat
embpexec.pl ep.h epcmd2.c epcomp.c eputil.c
Log:
Embperl 2
Revision Changes Path
No revision
No revision
1.26.2.16 +16 -16 embperl/Embperl.xs
Index: Embperl.xs
===================================================================
RCS file: /home/cvs/embperl/Embperl.xs,v
retrieving revision 1.26.2.15
retrieving revision 1.26.2.16
diff -u -r1.26.2.15 -r1.26.2.16
--- Embperl.xs 2000/06/05 06:44:04 1.26.2.15
+++ Embperl.xs 2000/06/05 07:22:54 1.26.2.16
@@ -603,12 +603,12 @@
MODULE = HTML::Embperl PACKAGE = HTML::Embperl::Cmd PREFIX = embperl_
-void
-embperl_InputText (xDomTree, xNode, sName)
- int xDomTree
- int xOldChild
- char * sName
-CODE:
+#void
+#embperl_InputText (xDomTree, xNode, sName)
+# int xDomTree
+# int xOldChild
+# char * sName
+#CODE:
@@ -619,8 +619,8 @@
SV * sName
SV * sValue
CODE:
- IV nName ;
- IV nValue ;
+ STRLEN nName ;
+ STRLEN nValue ;
char * sN = SV2String (sName, nName) ;
char * sV = SV2String (sValue, nValue) ;
embperlCmd_InputCheck (pCurrReq, DomTree_self (xDomTree), xNode, sN, nName, sV, nValue) ;
@@ -633,8 +633,8 @@
SV * sName
SV * sValue
CODE:
- IV nName ;
- IV nValue ;
+ STRLEN nName ;
+ STRLEN nValue ;
char * sN = SV2String (sName, nName) ;
char * sV = SV2String (sValue, nValue) ;
embperlCmd_Option (pCurrReq, DomTree_self (xDomTree), xNode, sN, nName, sV, nValue) ;
@@ -661,7 +661,7 @@
int xOldChild
SV * sText
CODE:
- IV l ;
+ STRLEN l ;
char * s = SV2String (sText, l) ;
Node_replaceChildWithCDATA (DomTree_self(xDomTree), -1, xOldChild, s, l, (pCurrReq -> nCurrEscMode & 3)== 3?1 + (pCurrReq -> nCurrEscMode & 4):pCurrReq -> nCurrEscMode, nflgModified | nflgReturn) ;
pCurrReq -> nCurrEscMode = pCurrReq -> nEscMode ;
@@ -677,7 +677,7 @@
int xOldChild
SV * sText
CODE:
- IV l ;
+ STRLEN l ;
char * s ;
AV * pAV ;
tDomTree * pDomTree = DomTree_self(xDomTree) ;
@@ -737,7 +737,7 @@
int nType
SV * sText
CODE:
- IV nText ;
+ STRLEN nText ;
char * sT = SV2String (sText, nText) ;
tDomTree * pDomTree = DomTree_self(xDomTree) ;
Node_appendChild (pDomTree, nType, 0, sT, nText, xParent, 0) ;
@@ -776,8 +776,8 @@
SV * sAttr
SV * sText
CODE:
- IV nAttr ;
- IV nText ;
+ STRLEN nAttr ;
+ STRLEN nText ;
char * sT = SV2String (sText, nText) ;
char * sA = SV2String (sAttr, nAttr) ;
tDomTree * pDomTree = DomTree_self (xDomTree) ;
@@ -793,7 +793,7 @@
int xNode
SV * sAttr
CODE:
- IV nAttr ;
+ STRLEN nAttr ;
char * sA = SV2String (sAttr, nAttr) ;
tDomTree * pDomTree = DomTree_self (xDomTree) ;
1.7.2.2 +2 -2 embperl/embpcgi.bat
Index: embpcgi.bat
===================================================================
RCS file: /home/cvs/embperl/embpcgi.bat,v
retrieving revision 1.7.2.1
retrieving revision 1.7.2.2
diff -u -r1.7.2.1 -r1.7.2.2
--- embpcgi.bat 2000/05/02 20:03:11 1.7.2.1
+++ embpcgi.bat 2000/06/05 07:22:54 1.7.2.2
@@ -1,9 +1,9 @@
@rem = '--*-Perl-*--
@echo off
-D:\Perl\5.00502\bin\MSWin32-x86\perl -x %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
+/usr/bin/perl -x %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
@rem ';
-#!D:\Perl\5.00502\bin\MSWin32-x86\perl --
+#!/usr/bin/perl --
#line 8
###################################################################################
#
1.7.2.2 +1 -1 embperl/embpcgi.pl
Index: embpcgi.pl
===================================================================
RCS file: /home/cvs/embperl/embpcgi.pl,v
retrieving revision 1.7.2.1
retrieving revision 1.7.2.2
diff -u -r1.7.2.1 -r1.7.2.2
--- embpcgi.pl 2000/05/02 20:03:11 1.7.2.1
+++ embpcgi.pl 2000/06/05 07:22:54 1.7.2.2
@@ -1,4 +1,4 @@
-#!D:\Perl\5.00502\bin\MSWin32-x86\perl
+#!/usr/bin/perl
###################################################################################
#
# Embperl - Copyright (c) 1997-1999 Gerald Richter / ECOS
1.5.2.2 +2 -2 embperl/embpcgi.test.bat
Index: embpcgi.test.bat
===================================================================
RCS file: /home/cvs/embperl/embpcgi.test.bat,v
retrieving revision 1.5.2.1
retrieving revision 1.5.2.2
diff -u -r1.5.2.1 -r1.5.2.2
--- embpcgi.test.bat 2000/05/02 20:03:11 1.5.2.1
+++ embpcgi.test.bat 2000/06/05 07:22:54 1.5.2.2
@@ -1,9 +1,9 @@
@rem = '--*-Perl-*--
@echo off
-D:\Perl\5.00502\bin\MSWin32-x86\perl -x -T %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
+/usr/bin/perl -x -T %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
@rem ';
-#!D:\Perl\5.00502\bin\MSWin32-x86\perl --
+#!/usr/bin/perl --
#line 8
###################################################################################
#
1.7.2.2 +1 -1 embperl/embpcgi.test.pl
Index: embpcgi.test.pl
===================================================================
RCS file: /home/cvs/embperl/embpcgi.test.pl,v
retrieving revision 1.7.2.1
retrieving revision 1.7.2.2
diff -u -r1.7.2.1 -r1.7.2.2
--- embpcgi.test.pl 2000/05/02 20:03:11 1.7.2.1
+++ embpcgi.test.pl 2000/06/05 07:22:54 1.7.2.2
@@ -1,4 +1,4 @@
-#!D:\Perl\5.00502\bin\MSWin32-x86\perl
+#!/usr/bin/perl
###################################################################################
#
# Embperl - Copyright (c) 1997-1999 Gerald Richter / ECOS
1.18.2.2 +2 -2 embperl/embpexec.bat
Index: embpexec.bat
===================================================================
RCS file: /home/cvs/embperl/embpexec.bat,v
retrieving revision 1.18.2.1
retrieving revision 1.18.2.2
diff -u -r1.18.2.1 -r1.18.2.2
--- embpexec.bat 2000/05/02 20:03:11 1.18.2.1
+++ embpexec.bat 2000/06/05 07:22:54 1.18.2.2
@@ -1,9 +1,9 @@
@rem = '--*-Perl-*--
@echo off
-D:\Perl\5.00502\bin\MSWin32-x86\perl -x %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
+/usr/bin/perl -x %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
@rem ';
-#!D:\Perl\5.00502\bin\MSWin32-x86\perl --
+#!/usr/bin/perl --
#line 8
###################################################################################
#
1.18.2.2 +1 -1 embperl/embpexec.pl
Index: embpexec.pl
===================================================================
RCS file: /home/cvs/embperl/embpexec.pl,v
retrieving revision 1.18.2.1
retrieving revision 1.18.2.2
diff -u -r1.18.2.1 -r1.18.2.2
--- embpexec.pl 2000/05/02 20:03:11 1.18.2.1
+++ embpexec.pl 2000/06/05 07:22:54 1.18.2.2
@@ -1,4 +1,4 @@
-#!D:\Perl\5.00502\bin\MSWin32-x86\perl
+#!/usr/bin/perl
###################################################################################
#
# Embperl - Copyright (c) 1997-1999 Gerald Richter / ECOS
1.23.2.7 +1 -1 embperl/ep.h
Index: ep.h
===================================================================
RCS file: /home/cvs/embperl/ep.h,v
retrieving revision 1.23.2.6
retrieving revision 1.23.2.7
diff -u -r1.23.2.6 -r1.23.2.7
--- ep.h 2000/06/05 06:44:04 1.23.2.6
+++ ep.h 2000/06/05 07:22:54 1.23.2.7
@@ -554,5 +554,5 @@
/*in*/ HV * pHash,
/*in*/ int nNodeName) ;
-embperl_CompileDocument (/*i/o*/ register req * r) ;
+int embperl_CompileDocument (/*i/o*/ register req * r) ;
1.1.2.4 +6 -6 embperl/Attic/epcmd2.c
Index: epcmd2.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epcmd2.c,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -u -r1.1.2.3 -r1.1.2.4
--- epcmd2.c 2000/06/05 06:44:04 1.1.2.3
+++ epcmd2.c 2000/06/05 07:22:54 1.1.2.4
@@ -53,7 +53,7 @@
}
else
{
- IV dlen ;
+ STRLEN dlen ;
char * pData = SvPV (pSV, dlen) ;
if (dlen == nValLen && strncmp (pVal, pData, dlen) == 0)
{
@@ -219,13 +219,13 @@
ppsv = av_fetch (pSort, i, 0) ;
if (ppsv && (pKey = SvPV(*ppsv, nKey)) && !hv_exists (pSubHash, pKey, nKey))
{
- IV lppsv ;
+ STRLEN lppsv ;
ppsv = hv_fetch (pAddHash, pKey, nKey, 0) ;
if (ppsv && (!(r -> bOptions & optNoHiddenEmptyValue) || *SvPV (*ppsv, lppsv)))
{
char * s ;
- IV l ;
+ STRLEN l ;
tNode xInputNode = Node_appendChild (pDomTree, ntypTag, 0, "input", 5, xNode, 0) ;
tNode xAttr = Node_appendChild (pDomTree, ntypAttr, 0, "type", 4, xInputNode, 0) ;
Node_appendChild (pDomTree, ntypAttrValue, 0, "hidden", 6, xAttr, 0) ;
@@ -246,18 +246,18 @@
hv_iterinit (pAddHash) ;
while ((pEntry = hv_iternext (pAddHash)))
{
- IV nKey ;
+ STRLEN nKey ;
pKey = hv_iterkey (pEntry, &l) ;
nKey = strlen (pKey) ;
if (!hv_exists (pSubHash, pKey, nKey))
{
- IV lpsv ;
+ STRLEN lpsv ;
psv = hv_iterval (pAddHash, pEntry) ;
if (!(r -> bOptions & optNoHiddenEmptyValue) || *SvPV (psv, lpsv))
{
char * s ;
- IV l ;
+ STRLEN l ;
tNode xInputNode = Node_appendChild (pDomTree, ntypTag, 0, "input", 5, xNode, 0) ;
tNode xAttr = Node_appendChild (pDomTree, ntypAttr, 0, "type", 4, xInputNode, 0) ;
Node_appendChild (pDomTree, ntypAttrValue, 0, "hidden", 6, xAttr, 0) ;
1.1.2.23 +4 -4 embperl/Attic/epcomp.c
Index: epcomp.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epcomp.c,v
retrieving revision 1.1.2.22
retrieving revision 1.1.2.23
diff -u -r1.1.2.22 -r1.1.2.23
--- epcomp.c 2000/06/05 06:44:04 1.1.2.22
+++ epcomp.c 2000/06/05 07:22:54 1.1.2.23
@@ -85,7 +85,7 @@
{ /* Array reference */
int f = AvFILL(pAV) + 1 ;
int i ;
- IV l ;
+ STRLEN l ;
char * s ;
pEmbperlCmds[nNodeName].sPerlCode = malloc (f * sizeof (char *)) ;
@@ -104,7 +104,7 @@
{
if (ppSV)
{
- IV l ;
+ STRLEN l ;
pEmbperlCmds[nNodeName].sPerlCode = malloc (sizeof (char *)) ;
pEmbperlCmds[nNodeName].numPerlCode = 1 ;
@@ -318,7 +318,7 @@
{
const char * eq = strchr (p, ':') ;
const char * e = eq && eq < q?eq:q;
- IV l ;
+ STRLEN l ;
const char * sText = NULL ;
SV ** ppSV ;
AV * pAV ;
@@ -767,7 +767,7 @@
/* ------------------------------------------------------------------------ */
-embperl_CompileDocument (/*i/o*/ register req * r)
+int embperl_CompileDocument (/*i/o*/ register req * r)
{
1.14.2.5 +1 -1 embperl/eputil.c
Index: eputil.c
===================================================================
RCS file: /home/cvs/embperl/eputil.c,v
retrieving revision 1.14.2.4
retrieving revision 1.14.2.5
diff -u -r1.14.2.4 -r1.14.2.5
--- eputil.c 2000/06/05 06:44:05 1.14.2.4
+++ eputil.c 2000/06/05 07:22:54 1.14.2.5
@@ -580,7 +580,7 @@
/*in*/ char * sDefault)
{
SV ** ppSV ;
- IV l ;
+ STRLEN l ;
char * s ;
ppSV = hv_fetch(pHash, (char *)sKey, strlen (sKey), 0) ;