richter 02/03/05 03:05:03
Modified: . Tag: Embperl2c embperl.h epcgiinit.c epinit.c
test.pl
driver Tag: Embperl2c epxalan.cpp
Log:
sun fixes
Revision Changes Path
No revision
No revision
1.19.4.23 +3 -2 embperl/embperl.h
Index: embperl.h
===================================================================
RCS file: /home/cvs/embperl/embperl.h,v
retrieving revision 1.19.4.22
retrieving revision 1.19.4.23
diff -u -r1.19.4.22 -r1.19.4.23
--- embperl.h 1 Mar 2002 05:38:51 -0000 1.19.4.22
+++ embperl.h 5 Mar 2002 11:05:02 -0000 1.19.4.23
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: embperl.h,v 1.19.4.22 2002/03/01 05:38:51 richter Exp $
+# $Id: embperl.h,v 1.19.4.23 2002/03/05 11:05:02 richter Exp $
#
###################################################################################*/
@@ -210,4 +210,5 @@
#else
#define PATH_SEPARATOR_CHAR '/'
#define PATH_SEPARATOR_STR "/"
-#endif
\ No newline at end of file
+#endif
+
1.1.2.16 +4 -2 embperl/Attic/epcgiinit.c
Index: epcgiinit.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epcgiinit.c,v
retrieving revision 1.1.2.15
retrieving revision 1.1.2.16
diff -u -r1.1.2.15 -r1.1.2.16
--- epcgiinit.c 4 Mar 2002 11:44:49 -0000 1.1.2.15
+++ epcgiinit.c 5 Mar 2002 11:05:02 -0000 1.1.2.16
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epcgiinit.c,v 1.1.2.15 2002/03/04 11:44:49 richter Exp $
+# $Id: epcgiinit.c,v 1.1.2.16 2002/03/05 11:05:02 richter Exp $
#
###################################################################################*/
@@ -44,8 +44,10 @@
#undef EPCFG_CHAR
#define EPCFG_CHAR(STRUCT,TYPE,NAME,CFGNAME) \
{ \
- char buf[2] = { pConfig -> NAME, '\0' } ; \
+ char buf[2] ; \
char *p ; \
+ buf[0] = pConfig -> NAME ; \
+ buf[1] = '\0' ; \
tainted = 0 ; \
p = GetHashValueStrDup (aTHX_ pPool, pThread -> pEnvHash,
REDIR"EMBPERL_"#CFGNAME, buf) ; \
tainted = 0 ; \
1.1.2.37 +3 -2 embperl/Attic/epinit.c
Index: epinit.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epinit.c,v
retrieving revision 1.1.2.36
retrieving revision 1.1.2.37
diff -u -r1.1.2.36 -r1.1.2.37
--- epinit.c 5 Mar 2002 08:07:21 -0000 1.1.2.36
+++ epinit.c 5 Mar 2002 11:05:02 -0000 1.1.2.37
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epinit.c,v 1.1.2.36 2002/03/05 08:07:21 richter Exp $
+# $Id: epinit.c,v 1.1.2.37 2002/03/05 11:05:02 richter Exp $
#
###################################################################################*/
@@ -1996,4 +1996,5 @@
return rc ;
return embperl_SetupComponent (*ppReq, pPerlParam, &pComponent) ;
- }
\ No newline at end of file
+ }
+
1.70.4.124 +28 -28 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.70.4.123
retrieving revision 1.70.4.124
diff -u -r1.70.4.123 -r1.70.4.124
--- test.pl 5 Mar 2002 10:56:06 -0000 1.70.4.123
+++ test.pl 5 Mar 2002 11:05:02 -0000 1.70.4.124
@@ -11,7 +11,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: test.pl,v 1.70.4.123 2002/03/05 10:56:06 richter Exp $
+# $Id: test.pl,v 1.70.4.124 2002/03/05 11:05:02 richter Exp $
#
###################################################################################
@@ -737,13 +737,13 @@
'condition' => '!$EPWIN32',
'cgi' => 0,
},
- 'pod/pod.asc' => {
- 'version' => 2,
- 'syntax' => 'POD',
- 'condition' => '$EPWIN32',
- 'cmpext' => '.win32',
- 'cgi' => 0,
- },
+ 'pod/pod.asc' => {
+ 'version' => 2,
+ 'syntax' => 'POD',
+ 'condition' => '$EPWIN32',
+ 'cmpext' => '.win32',
+ 'cgi' => 0,
+ },
'xml/pod.xml' => {
'version' => 2,
'recipe' => 'EmbperlLibXSLT',
@@ -826,16 +826,16 @@
'msg' => ' libxslt',
'condition' => '$LIBXSLTVERSION && !$EPWIN32',
},
- 'pod/pod.asc' => {
- 'version' => 2,
- 'syntax' => 'POD',
- 'recipe' => 'EmbperlLibXSLT',
- 'xsltstylesheet' => "$inpath/xml/pod.xsl",
- 'cmpext' => '.htm.win32',
- 'offline' => 1,
- 'msg' => ' libxslt',
- 'condition' => '$LIBXSLTVERSION && $EPWIN32',
- },
+ 'pod/pod.asc' => {
+ 'version' => 2,
+ 'syntax' => 'POD',
+ 'recipe' => 'EmbperlLibXSLT',
+ 'xsltstylesheet' => "$inpath/xml/pod.xsl",
+ 'cmpext' => '.htm.win32',
+ 'offline' => 1,
+ 'msg' => ' libxslt',
+ 'condition' => '$LIBXSLTVERSION && $EPWIN32',
+ },
'pod/pod.asc' => {
'version' => 2,
'syntax' => 'POD',
@@ -846,16 +846,16 @@
'msg' => ' xalan',
'condition' => '$XALANPATH && !$EPWIN32',
},
- 'pod/pod.asc' => {
- 'version' => 2,
- 'syntax' => 'POD',
- 'recipe' => 'EmbperlXalanXSLT',
- 'xsltstylesheet' => "$inpath/xml/pod.xsl",
- 'cmpext' => '.xalan.htm.win32',
- 'offline' => 1,
- 'msg' => ' xalan',
- 'condition' => '$XALANPATH && $EPWIN32',
- },
+ 'pod/pod.asc' => {
+ 'version' => 2,
+ 'syntax' => 'POD',
+ 'recipe' => 'EmbperlXalanXSLT',
+ 'xsltstylesheet' => "$inpath/xml/pod.xsl",
+ 'cmpext' => '.xalan.htm.win32',
+ 'offline' => 1,
+ 'msg' => ' xalan',
+ 'condition' => '$XALANPATH && $EPWIN32',
+ },
'libxslt/pod.xml' => {
'version' => 2,
'modperl' => 1,
No revision
No revision
1.1.2.20 +28 -28 embperl/driver/Attic/epxalan.cpp
Index: epxalan.cpp
===================================================================
RCS file: /home/cvs/embperl/driver/Attic/epxalan.cpp,v
retrieving revision 1.1.2.19
retrieving revision 1.1.2.20
diff -u -r1.1.2.19 -r1.1.2.20
--- epxalan.cpp 5 Mar 2002 10:56:07 -0000 1.1.2.19
+++ epxalan.cpp 5 Mar 2002 11:05:03 -0000 1.1.2.20
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epxalan.cpp,v 1.1.2.19 2002/03/05 10:56:07 richter Exp $
+# $Id: epxalan.cpp,v 1.1.2.20 2002/03/05 11:05:03 richter Exp $
#
###################################################################################*/
@@ -162,7 +162,7 @@
/*in*/ IV nParamIndex,
/*i/o*/ SV * pKey)
{
- epTHX_
+ epTHX_
int rc ;
if ((rc = Cache_AppendKey (r, pProviderParam, "stylesheet", pParam,
nParamIndex, pKey)) != ok)
@@ -210,7 +210,7 @@
/*in*/ bool bUseCache)
{
- epTHX_
+ epTHX_
int rc ;
char * p ;
STRLEN len ;
@@ -403,7 +403,7 @@
/*in*/ IV nParamIndex,
/*i/o*/ SV * pKey)
{
- epTHX_
+ epTHX_
int rc ;
if ((rc = Cache_AppendKey (r, pProviderParam, "source", pParam, nParamIndex,
pKey)) != ok)
@@ -451,7 +451,7 @@
/*in*/ bool bUseCache)
{
- epTHX_
+ epTHX_
int rc ;
char * p ;
STRLEN len ;
@@ -584,7 +584,7 @@
/*in*/ SV * pSource)
{
- epTHX_
+ epTHX_
int rc ;
HE * pEntry ;
HV * pParam ;
@@ -825,7 +825,7 @@
/*in*/ IV nParamIndex,
/*i/o*/ SV * pKey)
{
- epTHX_
+ epTHX_
int rc ;
if ((rc = Cache_AppendKey (r, pProviderParam, "source", pParam, nParamIndex,
pKey)) != ok)
@@ -872,20 +872,20 @@
/*in*/ tProvider * pProvider,
/*in*/ HV * pParam)
{
- epTHX_
+ epTHX_
int rc ;
HV * pParamHV ;
- if ((rc = GetHashValueHREF (r, pParam, "param", &pParamHV)) != ok)
- {
- pParamHV = r -> Component.Param.pXsltParam ;
- }
+ if ((rc = GetHashValueHREF (r, pParam, "param", &pParamHV)) != ok)
+ {
+ pParamHV = r -> Component.Param.pXsltParam ;
+ }
if (((tProviderXalan *)pProvider) -> pParamHV)
SvREFCNT_dec (((tProviderXalan *)pProvider) -> pParamHV) ;
((tProviderXalan *)pProvider) -> pParamHV = pParamHV ;
- if (pParamHV)
+ if (pParamHV)
SvREFCNT_inc (((tProviderXalan *)pProvider) -> pParamHV) ;
return ok ;
@@ -898,21 +898,21 @@
/* output callback */
/* */
/* ------------------------------------------------------------------------ */
-
-struct iowrite
- {
- tProviderXalan * pProvider ;
- tReq * pReq ;
- } ;
+
+struct iowrite
+ {
+ tProviderXalan * pProvider ;
+ tReq * pReq ;
+ } ;
static long unsigned int ProviderXalan_iowrite (const char *buffer,
long unsigned int len,
void *context)
{
- tReq * r = ((struct iowrite *)context) -> pReq ;
- epTHX_
-
+ tReq * r = ((struct iowrite *)context) -> pReq ;
+ epTHX_
+
sv_catpvn (((struct iowrite *)context) -> pProvider -> pOutputSV, (char
*)buffer, len) ;
return len ;
}
@@ -955,7 +955,7 @@
/*in*/ bool bUseCache)
{
- epTHX_
+ epTHX_
int rc ;
XalanParsedSource * parsedXML ;
XalanCompiledStylesheet * pCompiledXSL ;
@@ -965,7 +965,7 @@
SV * pValue ;
IV l ;
STRLEN len ;
- struct iowrite iowrite ;
+ struct iowrite iowrite ;
tCacheItem * pSrcCache = Cache_GetDependency(r, pProvider -> pCache, 0) ;
tCacheItem * pXSLCache = Cache_GetDependency(r, pProvider -> pCache, 1) ;
@@ -996,9 +996,9 @@
}
}
- iowrite.pProvider = (tProviderXalan *)pProvider ;
- iowrite.pReq = r ;
-
+ iowrite.pProvider = (tProviderXalan *)pProvider ;
+ iowrite.pReq = r ;
+
// Do the transform.
int theResult = theXalanTransformer -> transform(*parsedXML, pCompiledXSL,
&iowrite, ProviderXalan_iowrite, NULL);
@@ -1045,7 +1045,7 @@
/*in*/ tCacheItem * pItem)
{
- epTHX_
+ epTHX_
tProviderXalan * pProvider = ((tProviderXalan *)pItem -> pProvider) ;
if (pProvider -> pOutputSV)
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
