cvs commit: modperl-2.0/src/modules/perl modperl_mgv.c modperl_mgv.h

[dougm]

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);