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 2002/05/20 14:30:33 UTC
cvs commit: embperl epapinit.c
richter 02/05/20 05:30:33
Modified: . Tag: Embperl2c epapinit.c
Log:
config debug
Revision Changes Path
No revision
No revision
1.1.2.34 +15 -7 embperl/epapinit.c
Index: epapinit.c
===================================================================
RCS file: /home/cvs/embperl/epapinit.c,v
retrieving revision 1.1.2.33
retrieving revision 1.1.2.34
diff -u -r1.1.2.33 -r1.1.2.34
--- epapinit.c 20 May 2002 12:11:19 -0000 1.1.2.33
+++ epapinit.c 20 May 2002 12:30:33 -0000 1.1.2.34
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epapinit.c,v 1.1.2.33 2002/05/20 12:11:19 richter Exp $
+# $Id: epapinit.c,v 1.1.2.34 2002/05/20 12:30:33 richter Exp $
#
###################################################################################*/
@@ -388,7 +388,15 @@
#define EPCFG_BOOL EPCFG
#define EPCFG_CHAR EPCFG
#undef EPCFG
-#define EPCFG(STRUCT,TYPE,NAME,CFGNAME)
+
+#define EPCFG(STRUCT,TYPE,NAME,CFGNAME) \
+ if (bApDebug && pDirCfg -> set_##STRUCT##NAME) \
+ aplog_error (APLOG_MARK, APLOG_WARNING | APLOG_NOERRNO, NULL, "Embperl: Get "#CFGNAME" (type="#TYPE") stays %d\n", pDirCfg -> STRUCT.NAME) ;
+
+#define EPCFG_STR(STRUCT,TYPE,NAME,CFGNAME) \
+ if (bApDebug && pDirCfg -> set_##STRUCT##NAME) \
+ aplog_error (APLOG_MARK, APLOG_WARNING | APLOG_NOERRNO, NULL, "Embperl: Get "#CFGNAME" (type="#TYPE") %s\n", pDirCfg -> STRUCT.NAME?pDirCfg -> STRUCT.NAME:"<null>") ;
+
#undef EPCFG_SV
@@ -396,7 +404,7 @@
if (pDirCfg -> save_##STRUCT##NAME && !pDirCfg -> STRUCT.NAME) \
{ \
if (bApDebug) \
- aplog_error (APLOG_MARK, APLOG_WARNING | APLOG_NOERRNO, NULL, "Embperl: About to convert "#CFGNAME" (type="#TYPE";SV) to perl data\n") ; \
+ aplog_error (APLOG_MARK, APLOG_WARNING | APLOG_NOERRNO, NULL, "Embperl: Get, about to convert "#CFGNAME" (type="#TYPE";SV) to perl data\n") ; \
\
pDirCfg -> STRUCT.NAME = newSVpv((char *)pDirCfg -> save_##STRUCT##NAME, 0) ; \
}
@@ -407,7 +415,7 @@
{ \
int rc ;\
if (bApDebug) \
- aplog_error (APLOG_MARK, APLOG_WARNING | APLOG_NOERRNO, NULL, "Embperl: About to convert "#CFGNAME" (type="#TYPE";CV) to perl data\n") ; \
+ aplog_error (APLOG_MARK, APLOG_WARNING | APLOG_NOERRNO, NULL, "Embperl: Get, about to convert "#CFGNAME" (type="#TYPE";CV) to perl data\n") ; \
\
if ((rc = EvalConfig (pApp, sv_2mortal(newSVpv(pDirCfg -> save_##STRUCT##NAME, 0)), 0, NULL, "Configuration: EMBPERL_"#CFGNAME, &pDirCfg -> STRUCT.NAME)) != ok) \
LogError (pReq, rc) ; \
@@ -420,7 +428,7 @@
if (pDirCfg -> save_##STRUCT##NAME && !pDirCfg -> STRUCT.NAME) \
{ \
if (bApDebug) \
- aplog_error (APLOG_MARK, APLOG_WARNING | APLOG_NOERRNO, NULL, "Embperl: About to convert "#CFGNAME" (type="#TYPE";AV) to perl data\n") ; \
+ aplog_error (APLOG_MARK, APLOG_WARNING | APLOG_NOERRNO, NULL, "Embperl: Get, about to convert "#CFGNAME" (type="#TYPE";AV) to perl data\n") ; \
\
pDirCfg -> STRUCT.NAME = embperl_String2AV(pApp, pDirCfg -> save_##STRUCT##NAME, SEPARATOR) ;\
tainted = 0 ; \
@@ -432,7 +440,7 @@
if (pDirCfg -> save_##STRUCT##NAME && !pDirCfg -> STRUCT.NAME) \
{ \
if (bApDebug) \
- aplog_error (APLOG_MARK, APLOG_WARNING | APLOG_NOERRNO, NULL, "Embperl: About to convert "#CFGNAME" (type="#TYPE";HV) to perl data\n") ; \
+ aplog_error (APLOG_MARK, APLOG_WARNING | APLOG_NOERRNO, NULL, "Embperl: Get, about to convert "#CFGNAME" (type="#TYPE";HV) to perl data\n") ; \
\
pDirCfg -> STRUCT.NAME = embperl_String2HV(pApp, pDirCfg -> save_##STRUCT##NAME, ' ', NULL) ;\
tainted = 0 ; \
@@ -445,7 +453,7 @@
{ \
int rc ; \
if (bApDebug) \
- aplog_error (APLOG_MARK, APLOG_WARNING | APLOG_NOERRNO, NULL, "Embperl: About to convert "#CFGNAME" (type="#TYPE";REGEX) to perl data\n") ; \
+ aplog_error (APLOG_MARK, APLOG_WARNING | APLOG_NOERRNO, NULL, "Embperl: Get, about to convert "#CFGNAME" (type="#TYPE";REGEX) to perl data\n") ; \
\
if ((rc = EvalRegEx (pApp, pDirCfg -> save_##STRUCT##NAME, "Configuration: EMBPERL_"#CFGNAME, &pDirCfg -> STRUCT.NAME)) != ok) \
return rc ; \
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org