On Mon, 2003-11-17 at 15:27, [EMAIL PROTECTED] wrote: > geoff 2003/11/17 15:27:11 > > Modified: xs/maps apr_functions.map apr_structures.map apr_types.map > xs/tables/current/ModPerl FunctionTable.pm > Added: xs/APR/Finfo APR__Finfo.h > Log: > add access to $r->finfo() and related APR::Finfo methods, > such as $r->finfo->size(), $r->finfo->mtime(), and > APR::Finfo::stat()
Way to go Geoff!!!! Wonder what dark corner of Las Vegas you are hiding in to get this code out ;-) > Revision Changes Path > 1.1 modperl-2.0/xs/APR/Finfo/APR__Finfo.h > > Index: APR__Finfo.h > =================================================================== > static MP_INLINE > apr_finfo_t *mpxs_Apache__RequestRec_finfo(request_rec *r) > { > return &r->finfo; > } > > > > 1.60 +5 -2 modperl-2.0/xs/maps/apr_functions.map > > Index: apr_functions.map > =================================================================== > RCS file: /home/cvs/modperl-2.0/xs/maps/apr_functions.map,v > retrieving revision 1.59 > retrieving revision 1.60 > diff -u -r1.59 -r1.60 > --- apr_functions.map 26 Sep 2003 08:29:26 -0000 1.59 > +++ apr_functions.map 17 Nov 2003 23:27:11 -0000 1.60 > @@ -301,9 +301,12 @@ > apr_filepath_root > apr_filepath_set > > --MODULE=APR::Finfo > - apr_lstat > +MODULE=APR::Finfo > +-apr_lstat > apr_stat > + > +PACKAGE=Apache::RequestRec > + mpxs_Apache__RequestRec_finfo > > !MODULE=APR::String > apr_collapse_spaces > > > > 1.9 +2 -2 modperl-2.0/xs/maps/apr_structures.map > > Index: apr_structures.map > =================================================================== > RCS file: /home/cvs/modperl-2.0/xs/maps/apr_structures.map,v > retrieving revision 1.8 > retrieving revision 1.9 > diff -u -r1.8 -r1.9 > --- apr_structures.map 19 May 2002 01:05:30 -0000 1.8 > +++ apr_structures.map 17 Nov 2003 23:27:11 -0000 1.9 > @@ -28,7 +28,7 @@ > > list > </apr_bucket> > > -!<apr_finfo_t> > +<apr_finfo_t> > pool > valid > protection > @@ -45,7 +45,7 @@ > ctime > fname > name > - filehand > +- filehand > </apr_finfo_t> > > !<apr_sockaddr_t> > > > > 1.21 +2 -2 modperl-2.0/xs/maps/apr_types.map > > Index: apr_types.map > =================================================================== > RCS file: /home/cvs/modperl-2.0/xs/maps/apr_types.map,v > retrieving revision 1.20 > retrieving revision 1.21 > diff -u -r1.20 -r1.21 > --- apr_types.map 18 Mar 2003 06:52:41 -0000 1.20 > +++ apr_types.map 17 Nov 2003 23:27:11 -0000 1.21 > @@ -62,9 +62,9 @@ > struct apr_os_dir_t | UNDEFINED > apr_seek_where_t | UNDEFINED > struct apr_pollfd_t | UNDEFINED > -apr_fileperms_t | UNDEFINED > +apr_fileperms_t | IV > struct apr_finfo_t | APR::Finfo > -apr_filetype_e | UNDEFINED > +apr_filetype_e | IV > apr_dev_t | NV > apr_ino_t | IV > > > > > 1.130 +10 -0 modperl-2.0/xs/tables/current/ModPerl/FunctionTable.pm > > Index: FunctionTable.pm > =================================================================== > RCS file: /home/cvs/modperl-2.0/xs/tables/current/ModPerl/FunctionTable.pm,v > retrieving revision 1.129 > retrieving revision 1.130 > diff -u -r1.129 -r1.130 > --- FunctionTable.pm 6 Nov 2003 20:14:07 -0000 1.129 > +++ FunctionTable.pm 17 Nov 2003 23:27:11 -0000 1.130 > @@ -5632,6 +5632,16 @@ > ] > }, > { > + 'return_type' => 'apr_finfo_t *', > + 'name' => 'mpxs_Apache__RequestRec_finfo', > + 'args' => [ > + { > + 'type' => 'request_rec *', > + 'name' => 'r' > + } > + ] > + }, > + { > 'return_type' => 'SV *', > 'name' => 'mpxs_Apache__RequestRec_pnotes', > 'args' => [ > > > >