You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@apache.org on 2002/08/29 06:07:42 UTC
cvs commit: modperl-2.0/src/modules/perl modperl_mgv.c modperl_mgv.h
dougm 2002/08/28 21:07:41
Modified: src/modules/perl modperl_mgv.c modperl_mgv.h
Log:
add modperl_mgv_last and modperl_mgv_last_name util functions
Revision Changes Path
1.18 +15 -0 modperl-2.0/src/modules/perl/modperl_mgv.c
Index: modperl_mgv.c
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_mgv.c,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -r1.17 -r1.18
--- modperl_mgv.c 24 May 2002 02:33:06 -0000 1.17
+++ modperl_mgv.c 29 Aug 2002 04:07:41 -0000 1.18
@@ -327,6 +327,21 @@
return 0;
}
+modperl_mgv_t *modperl_mgv_last(modperl_mgv_t *symbol)
+{
+ while (symbol->next) {
+ symbol = symbol->next;
+ }
+
+ return symbol;
+}
+
+char *modperl_mgv_last_name(modperl_mgv_t *symbol)
+{
+ symbol = modperl_mgv_last(symbol);
+ return symbol->name;
+}
+
char *modperl_mgv_as_string(pTHX_ modperl_mgv_t *symbol,
apr_pool_t *p, int package)
{
1.5 +4 -0 modperl-2.0/src/modules/perl/modperl_mgv.h
Index: modperl_mgv.h
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_mgv.h,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- modperl_mgv.h 26 Mar 2001 01:08:29 -0000 1.4
+++ modperl_mgv.h 29 Aug 2002 04:07:41 -0000 1.5
@@ -21,6 +21,10 @@
void modperl_mgv_append(pTHX_ apr_pool_t *p, modperl_mgv_t *symbol,
const char *name);
+modperl_mgv_t *modperl_mgv_last(modperl_mgv_t *symbol);
+
+char *modperl_mgv_last_name(modperl_mgv_t *symbol);
+
char *modperl_mgv_as_string(pTHX_ modperl_mgv_t *symbol,
apr_pool_t *p, int package);