richter 2005/08/07 09:16:12
Modified: . Old.xs eputil.c
Log:
fix compiler errors
Revision Changes Path
1.14 +1 -23 embperl/Old.xs
Index: Old.xs
===================================================================
RCS file: /home/cvs/embperl/Old.xs,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -r1.13 -r1.14
--- Old.xs 7 Aug 2005 16:09:07 -0000 1.13
+++ Old.xs 7 Aug 2005 16:16:12 -0000 1.14
@@ -97,32 +97,10 @@
tReq * r = CurrReq ;
CODE:
{
- /*
- tNode xChild ;
- */
char * p = SvPV (sText, l) ;
- /*
r -> Component.bSubNotEmpty = 1 ;
- if (0) //Node_self(DomTree_self (r -> Component.xCurrDomTree), r ->
Component.xCurrNode) -> nType == ntypDocumentFraq)
- Node_appendChild (r->pApp, DomTree_self (r ->
Component.xCurrDomTree), r -> Component.xCurrNode, r ->
Component.nCurrRepeatLevel, ntypCDATA, 0, p, l, 0, 0, NULL) ;
- else
- */
- /*
- if ((xChild = Node_firstChild(r->pApp,DomTree_self (r ->
Component.xCurrDomTree),
- r -> Component.xCurrNode,r ->
Component.nCurrRepeatLevel)) &&
- Node_self(DomTree_self (r -> Component.xCurrDomTree), r ->
Component.xCurrNode) -> nType != ntypDocumentFraq)
- {
- Node_insertBefore_CDATA (r->pApp, p, l, (r ->
Component.nCurrEscMode & 3)== 3?1 + (r -> Component.nCurrEscMode & 4):r ->
Component.nCurrEscMode,
- DomTree_self (r ->
Component.xCurrDomTree),
- xChild, r ->
Component.nCurrRepeatLevel) ;
- }
- else
- */
- {
- r -> Component.xCurrNode = Node_insertAfter_CDATA (r->pApp, p, l,
(r -> Component.nCurrEscMode & 3)== 3?1 + (r -> Component.nCurrEscMode & 4):r
-> Component.nCurrEscMode, DomTree_self (r -> Component.xCurrDomTree), r ->
Component.xCurrNode, r -> Component.nCurrRepeatLevel) ;
- }
+ r -> Component.xCurrNode = Node_insertAfter_CDATA (r->pApp, p, l, (r
-> Component.nCurrEscMode & 3)== 3?1 + (r -> Component.nCurrEscMode & 4):r ->
Component.nCurrEscMode, DomTree_self (r -> Component.xCurrDomTree), r ->
Component.xCurrNode, r -> Component.nCurrRepeatLevel) ;
r -> Component.bEscModeSet = 0 ;
-
}
1.47 +14 -1 embperl/eputil.c
Index: eputil.c
===================================================================
RCS file: /home/cvs/embperl/eputil.c,v
retrieving revision 1.46
retrieving revision 1.47
diff -u -r1.46 -r1.47
--- eputil.c 7 Aug 2005 00:02:58 -0000 1.46
+++ eputil.c 7 Aug 2005 16:16:12 -0000 1.47
@@ -2011,7 +2011,11 @@
const char * embperl_CalcExpires(const char *sTime, char * sResult, int
bHTTP)
{
time_t when;
+#ifdef WIN32
+ struct tm *tms;
+#else
struct tm tms;
+#endif
int sep = bHTTP ? ' ' : '-';
dTHX ;
@@ -2026,6 +2030,14 @@
return sResult ;
}
+#ifdef WIN32
+ tms = gmtime(&when);
+ sprintf(sResult,
+ ep_day_snames[tms->tm_wday],
+ tms->tm_mday, sep, ep_month_snames[tms->tm_mon], sep,
+ tms->tm_year + 1900,
+ tms->tm_hour, tms->tm_min, tms->tm_sec);
+#else
gmtime_r(&when, &tms);
sprintf(sResult,
"%s, %.2d%c%s%c%.2d %.2d:%.2d:%.2d GMT",
@@ -2033,6 +2045,7 @@
tms.tm_mday, sep, ep_month_snames[tms.tm_mon], sep,
tms.tm_year + 1900,
tms.tm_hour, tms.tm_min, tms.tm_sec);
+#endif
return sResult ;
}
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
