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/03/27 07:56:11 UTC
cvs commit: embperl/test/cmp ssibasic.htm
richter 01/03/26 21:56:11
Modified: . Tag: Embperl2c ep.h epcomp.c epmain.c eputil.c
test/cmp Tag: Embperl2c ssibasic.htm
Log:
Embperl 2 - cleanup
Revision Changes Path
No revision
No revision
1.27.4.10 +6 -0 embperl/ep.h
Index: ep.h
===================================================================
RCS file: /home/cvs/embperl/ep.h,v
retrieving revision 1.27.4.9
retrieving revision 1.27.4.10
diff -u -r1.27.4.9 -r1.27.4.10
--- ep.h 2001/03/22 09:04:42 1.27.4.9
+++ ep.h 2001/03/27 05:56:10 1.27.4.10
@@ -468,6 +468,12 @@
void ClearSymtab (/*i/o*/ register req * r,
/*in*/ const char * sPackage) ;
+void UndefSub (/*i/o*/ register req * r,
+ /*in*/ const char * sName,
+ /*in*/ const char * sPackage) ;
+
+
+
/* ---- from epeval.c ----- */
int CallCV (/*i/o*/ register req * r,
1.4.2.41 +1 -1 embperl/Attic/epcomp.c
Index: epcomp.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epcomp.c,v
retrieving revision 1.4.2.40
retrieving revision 1.4.2.41
diff -u -r1.4.2.40 -r1.4.2.41
--- epcomp.c 2001/03/26 10:29:17 1.4.2.40
+++ epcomp.c 2001/03/27 05:56:10 1.4.2.41
@@ -318,7 +318,7 @@
or = strchr (eq + 1, '|') ;
e = or?or:q ;
- if (f = strstrn (sText, eq, e - eq))
+ if (f = (char *)strstrn (sText, eq, e - eq))
if (!isalnum (f[e - eq]))
break ;
if (or == NULL)
1.75.4.26 +7 -1 embperl/epmain.c
Index: epmain.c
===================================================================
RCS file: /home/cvs/embperl/epmain.c,v
retrieving revision 1.75.4.25
retrieving revision 1.75.4.26
diff -u -r1.75.4.25 -r1.75.4.26
--- epmain.c 2001/03/27 04:09:23 1.75.4.25
+++ epmain.c 2001/03/27 05:56:10 1.75.4.26
@@ -1886,7 +1886,10 @@
if (mtime == 0 || f -> mtime != mtime)
{
hv_clear (f -> pCacheHash) ;
-
+
+#ifdef EP2
+ UndefSub (r, f -> sCurrPackage, EPMAINSUB) ;
+#endif
if (r -> bDebug)
lprintf (r, "[%d]MEM: Reload %s in %s\n", r -> nPid, sSourcefile, f -> sCurrPackage) ;
@@ -2001,6 +2004,9 @@
if (mtime == 0 || f -> mtime != mtime)
{
hv_clear (f -> pCacheHash) ;
+#ifdef EP2
+ UndefSub (pCurrReq, f -> sCurrPackage, EPMAINSUB) ;
+#endif
f -> mtime = -1 ; /* reset last modification time of file */
if (f -> pExportHash)
1.15.4.6 +42 -4 embperl/eputil.c
Index: eputil.c
===================================================================
RCS file: /home/cvs/embperl/eputil.c,v
retrieving revision 1.15.4.5
retrieving revision 1.15.4.6
diff -u -r1.15.4.5 -r1.15.4.6
--- eputil.c 2001/03/22 09:04:43 1.15.4.5
+++ eputil.c 2001/03/27 05:56:11 1.15.4.6
@@ -867,11 +867,10 @@
/* ------------------------------------------------------------------------- */
/* */
-/* SetSubTextPos */
+/* ClearSymtab */
/* */
-/* */
-/* in sName = name of sub */
-/* in nPos = position within the file for a given Embperl sub */
+/* */
+/* in sPackage = package which symtab should be cleared */
/* */
/* ------------------------------------------------------------------------- */
@@ -1016,3 +1015,42 @@
}
}
}
+
+
+
+/* ------------------------------------------------------------------------- */
+/* */
+/* UndefSub */
+/* */
+/* */
+/* in sName = name of sub */
+/* in sPackage = package name */
+/* */
+/* ------------------------------------------------------------------------- */
+
+
+
+void UndefSub (/*i/o*/ register req * r,
+ /*in*/ const char * sName,
+ /*in*/ const char * sPackage)
+
+
+ {
+ CV * pCV ;
+ int l = strlen (sName) + strlen (sPackage) ;
+ char * sFullname = _malloc (r, l + 3) ;
+
+ strcpy (sFullname, sPackage) ;
+ strcat (sFullname, "::") ;
+ strcat (sFullname, sName) ;
+
+ if (!(pCV = perl_get_cv (sFullname, FALSE)))
+ {
+ _free (r, sFullname) ;
+ return ;
+ }
+
+ _free (r, sFullname) ;
+ cv_undef (pCV) ;
+ }
+
No revision
No revision
1.1.2.3 +3 -3 embperl/test/cmp/Attic/ssibasic.htm
Index: ssibasic.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/Attic/ssibasic.htm,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -r1.1.2.2 -r1.1.2.3
--- ssibasic.htm 2001/03/23 09:28:15 1.1.2.2
+++ ssibasic.htm 2001/03/27 05:56:11 1.1.2.3
@@ -43,9 +43,9 @@
sizefmt=bytes
-fsize self: 2232
-fsize file ssiinc.htm 22
-fsize virtual ssiinc.htm 22
+^fsize self: (2232|2121)
+^fsize file ssiinc.htm (22|21)
+^fsize virtual ssiinc.htm (22|21)
^flastmod self: ... ... \d+ \d+:\d+:\d+ 2\d+
^flastmod file ssiinc.htm ... ... \d+ \d+:\d+:\d+ 2\d+
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org