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 2001/11/02 15:30:13 UTC
cvs commit: embperl epcache.c ep.h eputil.c
richter 01/11/02 06:30:13
Modified: . Tag: Embperl2c ep.h eputil.c
Added: . Tag: Embperl2c epcache.c
Log:
Embperl 2 - enhance cache management
Revision Changes Path
No revision
No revision
1.27.4.20 +4 -0 embperl/ep.h
Index: ep.h
===================================================================
RCS file: /home/cvs/embperl/ep.h,v
retrieving revision 1.27.4.19
retrieving revision 1.27.4.20
diff -u -r1.27.4.19 -r1.27.4.20
--- ep.h 2001/11/02 11:34:26 1.27.4.19
+++ ep.h 2001/11/02 14:30:13 1.27.4.20
@@ -428,6 +428,10 @@
/*in*/ const char * sKey,
/*in*/ char * sDefault) ;
+SV * GetHashValueSVinc (/*in*/ HV * pHash,
+ /*in*/ const char * sKey,
+ /*in*/ SV * sDefault)
+
const char * GetHtmlArg (/*in*/ const char * pTag,
/*in*/ const char * pArg,
/*out*/ int * pLen) ;
1.15.4.18 +21 -0 embperl/eputil.c
Index: eputil.c
===================================================================
RCS file: /home/cvs/embperl/eputil.c,v
retrieving revision 1.15.4.17
retrieving revision 1.15.4.18
diff -u -r1.15.4.17 -r1.15.4.18
--- eputil.c 2001/11/02 11:34:26 1.15.4.17
+++ eputil.c 2001/11/02 14:30:13 1.15.4.18
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: eputil.c,v 1.15.4.17 2001/11/02 11:34:26 richter Exp $
+# $Id: eputil.c,v 1.15.4.18 2001/11/02 14:30:13 richter Exp $
#
###################################################################################*/
@@ -738,6 +738,27 @@
if (sDefault)
return strdup (sDefault) ;
+ else
+ return NULL ;
+ }
+
+SV * GetHashValueSVinc (/*in*/ HV * pHash,
+ /*in*/ const char * sKey,
+ /*in*/ SV * sDefault)
+ {
+ SV ** ppSV ;
+ STRLEN l ;
+ char * s ;
+
+ ppSV = hv_fetch(pHash, (char *)sKey, strlen (sKey), 0) ;
+ if (ppSV != NULL)
+ {
+ SvREFCNT_inc (*ppSV) ;
+ return *ppSV ;
+ }
+
+ if (sDefault)
+ return SvREFCNT_inc (sDefault) ;
else
return NULL ;
}
No revision
No revision
1.1.2.1 +293 -0 embperl/Attic/epcache.c
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org