[prev in list] [next in list] [prev in thread] [next in thread] 

List:       apache-modperl-cvs
Subject:    cvs commit: modperl-2.0/src/modules/perl modperl_util.c modperl_util.h
From:       stas () apache ! org
Date:       2003-09-22 23:46:19
[Download RAW message or body]

stas        2003/09/22 16:46:19

  Modified:    src/modules/perl modperl_util.c modperl_util.h
  Log:
  not sure where the modperl_apr_table_dump function belongs, add it to utils
  for now so it won't get lost
  
  Revision  Changes    Path
  1.54      +21 -0     modperl-2.0/src/modules/perl/modperl_util.c
  
  Index: modperl_util.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_util.c,v
  retrieving revision 1.53
  retrieving revision 1.54
  diff -u -u -r1.53 -r1.54
  --- modperl_util.c	18 Sep 2003 07:44:24 -0000	1.53
  +++ modperl_util.c	22 Sep 2003 23:46:19 -0000	1.54
  @@ -734,3 +734,24 @@
       
       return newRV_noinc(sv);
   }
  +
  +#ifdef MP_TRACE
  +/* XXX: internal debug function */
  +/* any non-false value for MOD_PERL_TRACE/PerlTrace enables this function */
  +void modperl_apr_table_dump(pTHX_ apr_table_t *table, char *name)
  +{
  +    int i;
  +    const apr_array_header_t *array;
  +    apr_table_entry_t *elts;
  +
  +    array = apr_table_elts(table);
  +    elts  = (apr_table_entry_t *)array->elts;
  +    modperl_trace(MP_FUNC, "Contents of table %s", name);
  +    for (i = 0; i < array->nelts; i++) {
  +        if (!elts[i].key || !elts[i].val) {
  +            continue;
  +        }
  +        modperl_trace(MP_FUNC, "%s => %s", elts[i].key, elts[i].val);
  +    }    
  +}
  +#endif
  
  
  
  1.48      +4 -0      modperl-2.0/src/modules/perl/modperl_util.h
  
  Index: modperl_util.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_util.h,v
  retrieving revision 1.47
  retrieving revision 1.48
  diff -u -u -r1.47 -r1.48
  --- modperl_util.h	18 Sep 2003 07:44:24 -0000	1.47
  +++ modperl_util.h	22 Sep 2003 23:46:19 -0000	1.48
  @@ -155,4 +155,8 @@
   
   void modperl_clear_symtab(pTHX_ HV *symtab);
   
  +#ifdef MP_TRACE
  +void modperl_apr_table_dump(pTHX_ apr_table_t *table, char *name);
  +#endif
  +
   #endif /* MODPERL_UTIL_H */
  
  
  
[prev in list] [next in list] [prev in thread] [next in thread]