randyk 2004/06/22 20:30:15
Modified: lib/ModPerl WrapXS.pm MapUtil.pm
Added: xs/tables/current/APR FunctionTable.pm
Log:
add xs/tables/current/APR/FunctionTable.pm, which contains the subset
of functions appearing in ModPerl::FunctionTable used to build
APR.so. Eventually this file will be autogenerated by Apache::ParseSource.
Also generate a def/exp file from these functions at build time,
used to create libraries on Win32/AIX.
Revision Changes Path
1.76 +1 -0 modperl-2.0/lib/ModPerl/WrapXS.pm
Index: WrapXS.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/lib/ModPerl/WrapXS.pm,v
retrieving revision 1.75
retrieving revision 1.76
diff -u -r1.75 -r1.76
--- WrapXS.pm 22 Jun 2004 22:44:14 -0000 1.75
+++ WrapXS.pm 23 Jun 2004 03:30:15 -0000 1.76
@@ -1195,6 +1195,7 @@
my %files = (
modperl => $ModPerl::FunctionTable,
apache => $Apache::FunctionTable,
+ apr => $APR::FunctionTable,
);
my $header = \&{"export_file_header_$ext"};
1.7 +3 -1 modperl-2.0/lib/ModPerl/MapUtil.pm
Index: MapUtil.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/lib/ModPerl/MapUtil.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- MapUtil.pm 28 May 2004 01:35:15 -0000 1.6
+++ MapUtil.pm 23 Jun 2004 03:30:15 -0000 1.7
@@ -42,7 +42,9 @@
push @INC, "xs/tables/current";
require Apache::FunctionTable;
require ModPerl::FunctionTable;
- @$function_table = (@$Apache::FunctionTable, @$ModPerl::FunctionTable);
+ require APR::FunctionTable;
+ @$function_table = (@$Apache::FunctionTable, @$ModPerl::FunctionTable,
+ @$APR::FunctionTable);
$function_table;
}
1.1 modperl-2.0/xs/tables/current/APR/FunctionTable.pm
Index: FunctionTable.pm
===================================================================
package APR::FunctionTable;
# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
# ! WARNING: this file was manually generated on
# ! Tue Jun 22 22:00:00 2004
# ! It contains a subset of functions appearing in
# ! ModPerl::FunctionTable used to build APR.so
# ! Eventually this will be autogenerated by
# ! Apache::ParseSource
# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$APR::FunctionTable = [
{
'return_type' => 'void',
'name' => 'modperl_trace',
'args' => [
{
'type' => 'const char *',
'name' => 'func'
},
{
'type' => 'const char *',
'name' => 'fmt'
},
{
'type' => '...',
'name' => 'arg2'
}
]
},
{
'return_type' => 'void',
'name' => 'modperl_trace_level_set',
'args' => [
{
'type' => 'apr_file_t *',
'name' => 'logfile'
},
{
'type' => 'const char *',
'name' => 'level'
}
]
},
{
'return_type' => 'void',
'name' => 'modperl_trace_logfile_set',
'args' => [
{
'type' => 'apr_file_t *',
'name' => 'logfile_new'
}
]
},
{
'return_type' => 'unsigned long',
'name' => 'modperl_debug_level',
'args' => []
},
{
'return_type' => 'SV *',
'name' => 'modperl_hash_tie',
'attr' => [
'__inline__'
],
'args' => [
{
'type' => 'PerlInterpreter *',
'name' => 'my_perl'
},
{
'type' => 'const char *',
'name' => 'classname'
},
{
'type' => 'SV *',
'name' => 'tsv'
},
{
'type' => 'void *',
'name' => 'p'
}
]
},
{
'return_type' => 'void *',
'name' => 'modperl_hash_tied_object',
'attr' => [
'__inline__'
],
'args' => [
{
'type' => 'PerlInterpreter *',
'name' => 'my_perl'
},
{
'type' => 'const char *',
'name' => 'classname'
},
{
'type' => 'SV *',
'name' => 'tsv'
}
]
},
{
'return_type' => 'SV *',
'name' => 'modperl_perl_sv_setref_uv',
'attr' => [
'__inline__'
],
'args' => [
{
'type' => 'PerlInterpreter *',
'name' => 'my_perl'
},
{
'type' => 'SV *',
'name' => 'rv'
},
{
'type' => 'const char *',
'name' => 'classname'
},
{
'type' => 'UV',
'name' => 'uv'
}
]
},
{
'return_type' => 'modperl_uri_t *',
'name' => 'modperl_uri_new',
'attr' => [
'__inline__'
],
'args' => [
{
'type' => 'apr_pool_t *',
'name' => 'p'
}
]
},
{
'return_type' => 'SV *',
'name' => 'modperl_perl_gensym',
'args' => [
{
'type' => 'PerlInterpreter *',
'name' => 'my_perl'
},
{
'type' => 'char *',
'name' => 'pack'
}
]
},
{
'return_type' => 'char *',
'name' => 'modperl_error_strerror',
'args' => [
{
'type' => 'PerlInterpreter *',
'name' => 'my_perl'
},
{
'type' => 'apr_status_t',
'name' => 'rc'
}
]
},
{
'return_type' => 'void',
'name' => 'modperl_croak',
'args' => [
{
'type' => 'PerlInterpreter *',
'name' => 'my_perl'
},
{
'type' => 'apr_status_t',
'name' => 'rc'
},
{
'type' => 'const char*',
'name' => 'func'
}
]
},
{
'return_type' => 'apr_status_t',
'name' => 'modperl_interp_unselect',
'args' => [
{
'type' => 'void *',
'name' => 'data'
}
]
},
{
'return_type' => 'apr_bucket *',
'name' => 'modperl_bucket_sv_create',
'args' => [
{
'type' => 'PerlInterpreter *',
'name' => 'my_perl'
},
{
'type' => 'SV *',
'name' => 'sv'
},
{
'type' => 'apr_off_t',
'name' => 'offset'
},
{
'type' => 'apr_size_t',
'name' => 'len'
}
]
},
];
1;
