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' => [
>
>
>
>
