richter 2005/01/16 05:31:14
Modified: . Embperl_BS Old.xs epmain.c mod_embperl.c
Embperl/Syntax MsgIdExtract.pm
Log:
removed some compiler warnings
Revision Changes Path
1.3 +2 -1 embperl/Embperl_BS
Index: Embperl_BS
===================================================================
RCS file: /home/cvs/embperl/Embperl_BS,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- Embperl_BS 4 Dec 2001 07:43:15 -0000 1.2
+++ Embperl_BS 16 Jan 2005 13:31:13 -0000 1.3
@@ -10,4 +10,5 @@
#print STDERR "\n*** bs load file = $file ***\n" ;
}
-] ;
\ No newline at end of file
+] ;
+
1.11 +3 -1 embperl/Old.xs
Index: Old.xs
===================================================================
RCS file: /home/cvs/embperl/Old.xs,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- Old.xs 16 Aug 2004 07:36:14 -0000 1.10
+++ Old.xs 16 Jan 2005 13:31:13 -0000 1.11
@@ -97,7 +97,9 @@
tReq * r = CurrReq ;
CODE:
{
- tNode xChild ;
+ /*
+ tNode xChild ;
+ */
char * p = SvPV (sText, l) ;
/*
if (0) //Node_self(DomTree_self (r -> Component.xCurrDomTree), r ->
Component.xCurrNode) -> nType == ntypDocumentFraq)
1.136 +7 -4 embperl/epmain.c
Index: epmain.c
===================================================================
RCS file: /home/cvs/embperl/epmain.c,v
retrieving revision 1.135
retrieving revision 1.136
diff -u -r1.135 -r1.136
--- epmain.c 13 Nov 2004 16:47:08 -0000 1.135
+++ epmain.c 16 Jan 2005 13:31:13 -0000 1.136
@@ -19,9 +19,6 @@
#include "epmacro.h"
-/* Version */
-
-static char sVersion [] = VERSION ;
/*---------------------------------------------------------------------------
@@ -398,6 +395,7 @@
}
+#ifdef UNUSED
/*
---------------------------------------------------------------------------- */
@@ -445,6 +443,8 @@
}
}
+#endif
+
/*
---------------------------------------------------------------------------- */
/*
*/
@@ -545,6 +545,7 @@
}
+#ifdef UNUSED
/*
---------------------------------------------------------------------------- */
/*
*/
@@ -588,6 +589,8 @@
GvHV(gv) = (HV*)SvREFCNT_inc(defstash);
}
}
+
+#endif
/*
---------------------------------------------------------------------------- */
/*
*/
1.29 +1 -1 embperl/mod_embperl.c
Index: mod_embperl.c
===================================================================
RCS file: /home/cvs/embperl/mod_embperl.c,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -r1.28 -r1.29
--- mod_embperl.c 15 Jan 2005 20:17:26 -0000 1.28
+++ mod_embperl.c 16 Jan 2005 13:31:14 -0000 1.29
@@ -913,7 +913,7 @@
#define EPCFG(STRUCT,TYPE,NAME,CFGNAME) \
if (bApDebug && pDirCfg -> set_##STRUCT##NAME) \
- ap_log_error (APLOG_MARK, APLOG_WARNING | APLOG_NOERRNO,
APLOG_STATUSCODE NULL, "EmbperlDebug: Get "#CFGNAME" (type="#TYPE") %d
(0x%p)\n", pDirCfg -> STRUCT.NAME, pDirCfg -> STRUCT.NAME) ;
+ ap_log_error (APLOG_MARK, APLOG_WARNING | APLOG_NOERRNO,
APLOG_STATUSCODE NULL, "EmbperlDebug: Get "#CFGNAME" (type="#TYPE") %d
(0x%x)\n", pDirCfg -> STRUCT.NAME, pDirCfg -> STRUCT.NAME) ;
#define EPCFG_STR(STRUCT,TYPE,NAME,CFGNAME) \
if (bApDebug && pDirCfg -> set_##STRUCT##NAME) \
1.4 +27 -3 embperl/Embperl/Syntax/MsgIdExtract.pm
Index: MsgIdExtract.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Syntax/MsgIdExtract.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- MsgIdExtract.pm 23 Jan 2004 06:50:57 -0000 1.3
+++ MsgIdExtract.pm 16 Jan 2005 13:31:14 -0000 1.4
@@ -85,11 +85,35 @@
embperl => {
perlcode =>
[
- '$Embperl::Syntax::MsgIdExtract::Ids{scalar(%#0%)} =
q{} if (!exists ($Embperl::Syntax::MsgIdExtract::Ids{scalar(%#0%)})) ;',
+ '$Embperl::Syntax::MsgIdExtract::Ids{%#\'0%} = q{}
if (!exists ($Embperl::Syntax::MsgIdExtract::Ids{%#\'0%})) ;',
],
- removenode => 4,
+ removenode => 4,
compilechilds => 0,
+ removespaces => 12
}
+ },
+ },
+ 'Embperl output msg id gettext' => {
+ 'text' => 'gettext',
+ 'end' => ')',
+ 'unescape' => 1,
+ follow => {
+ 'string' =>
+ {
+ 'text' => '(\'',
+ 'end' => ')',
+ 'procinfo' => {
+ embperl => {
+ perlcode =>
+ [
+ '$Embperl::Syntax::MsgIdExtract::Ids{%#\'0%}
= q{} if (!exists ($Embperl::Syntax::MsgIdExtract::Ids{%#\'0%})) ;',
+ ],
+ removenode => 4,
+ compilechilds => 0,
+ removespaces => 12
+ }
+ },
+ },
},
},
) ;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
