cvs commit: modperl-2.0/xs/tables/current/ModPerl FunctionTable.pm
dougm 2002/06/23 14:28:15
Modified:xs/maps apr_functions.map apr_types.map
xs/tables/current/ModPerl FunctionTable.pm
Log:
add APR::ThreadMutex module
Revision ChangesPath
1.44 +4 -3 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.43
retrieving revision 1.44
diff -u -r1.43 -r1.44
--- apr_functions.map 24 May 2002 17:47:27 - 1.43
+++ apr_functions.map 23 Jun 2002 21:28:14 - 1.44
-344,9 +344,10
-apr_proc_other_child_check
-apr_proc_wait_all_procs
-!MODULE=APR::ThreadMutex
- apr_thread_mutex_create
- apr_thread_mutex_destroy
+MODULE=APR::ThreadMutex PREFIX=apr_thread_mutex_
+ apr_thread_mutex_t *:apr_thread_mutex_create | mpxs_ | \
+ SV *:classname, pool, flags=APR_THREAD_MUTEX_DEFAULT | new
+ void:apr_thread_mutex_destroy | | | apr_thread_mutex_DESTROY
apr_thread_mutex_lock
apr_thread_mutex_trylock
apr_thread_mutex_unlock
1.19 +1 -1 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.18
retrieving revision 1.19
diff -u -r1.18 -r1.19
--- apr_types.map 23 May 2002 19:49:49 - 1.18
+++ apr_types.map 23 Jun 2002 21:28:14 - 1.19
-100,7 +100,7
struct apr_thread_t | UNDEFINED
apr_thread_start_t | UNDEFINED
struct apr_threadattr_t | UNDEFINED
-struct apr_thread_mutex_t| UNDEFINED
+struct apr_thread_mutex_t| APR::ThreadMutex
struct apr_thread_once_t | UNDEFINED
struct apr_thread_cond_t | UNDEFINED
struct apr_thread_rwlock_t | UNDEFINED
1.75 +27 -2 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.74
retrieving revision 1.75
diff -u -r1.74 -r1.75
--- FunctionTable.pm 21 Jun 2002 03:04:36 - 1.74
+++ FunctionTable.pm 23 Jun 2002 21:28:15 - 1.75
-2,7 +2,7
# !!
# ! WARNING: generated by ModPerl::ParseSource/0.01
-# ! Thu Jun 20 19:51:30 2002
+# ! Sun Jun 23 13:55:55 2002
# ! do NOT edit, any changes will be lost !
# !!
-3836,7 +3836,7
'name' = 'modperl_trace',
'args' = [
{
-'type' = 'char *',
+'type' = 'const char *',
'name' = 'func'
},
{
-5473,6 +5473,31
{
'type' = 'const char *',
'name' = 'val'
+ }
+]
+ },
+ {
+'return_type' = '__inline__',
+'name' = 'mpxs_apr_thread_mutex_create',
+'attr' = [
+ 'static'
+],
+'args' = [
+ {
+'type' = 'PerlInterpreter *',
+'name' = 'my_perl'
+ },
+ {
+'type' = 'SV *',
+'name' = 'classname'
+ },
+ {
+'type' = 'apr_pool_t *',
+'name' = 'pool'
+ },
+ {
+'type' = 'unsigned int',
+'name' = 'flags'
}
]
},
cvs commit: modperl-2.0/t/response/TestAPR threadmutex.pm
dougm 2002/06/23 14:29:18
Modified:t/apr.cvsignore
Added: t/response/TestAPR threadmutex.pm
Log:
add tests for APR::ThreadMutex
Revision ChangesPath
1.6 +1 -0 modperl-2.0/t/apr/.cvsignore
Index: .cvsignore
===
RCS file: /home/cvs/modperl-2.0/t/apr/.cvsignore,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- .cvsignore22 May 2002 16:30:40 - 1.5
+++ .cvsignore23 Jun 2002 21:29:18 - 1.6
-10,3 +10,4
util.t
uuid.t
os.t
+threadmutex.t
1.1 modperl-2.0/t/response/TestAPR/threadmutex.pm
Index: threadmutex.pm
===
package TestAPR::threadmutex;
use strict;
use warnings FATAL = 'all';
use Apache::Test;
use Apache::TestUtil;
use Apache::Const -compile = 'OK';
use APR::Const -compile = qw(EBUSY SUCCESS);
sub handler {
my $r = shift;
plan $r, tests = 4, 'APR::ThreadMutex';
require APR::ThreadMutex;
my $mutex = APR::ThreadMutex-new($r-pool);
ok $mutex;
ok t_cmp($mutex-lock, APR::SUCCESS,
'lock == APR::SUCCESS');
ok t_cmp($mutex-trylock, APR::EBUSY,
'trylock == APR::EBUSY');
ok t_cmp($mutex-unlock, APR::SUCCESS,
'unlock == APR::SUCCESS');
Apache::OK;
}
1;
cvs commit: modperl-2.0/xs/maps apr_functions.map
dougm 2002/06/23 15:00:04 Modified:xs/maps apr_functions.map Log: moving ThreadMutex into same area as Global,Proc Mutex Revision ChangesPath 1.45 +9 -9 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.44 retrieving revision 1.45 diff -u -r1.44 -r1.45 --- apr_functions.map 23 Jun 2002 21:28:14 - 1.44 +++ apr_functions.map 23 Jun 2002 22:00:03 - 1.45 -209,6 +209,15 apr_global_mutex_trylock apr_global_mutex_unlock +MODULE=APR::ThreadMutex PREFIX=apr_thread_mutex_ + apr_thread_mutex_t *:apr_thread_mutex_create | mpxs_ | \ + SV *:classname, pool, flags=APR_THREAD_MUTEX_DEFAULT | new + void:apr_thread_mutex_destroy | | | apr_thread_mutex_DESTROY + apr_thread_mutex_lock + apr_thread_mutex_trylock + apr_thread_mutex_unlock + apr_thread_mutex_pool_get + !MODULE=APR::ProcMutex apr_proc_mutex_child_init apr_proc_mutex_create -343,15 +352,6 -apr_proc_other_child_unregister -apr_proc_other_child_check -apr_proc_wait_all_procs - -MODULE=APR::ThreadMutex PREFIX=apr_thread_mutex_ - apr_thread_mutex_t *:apr_thread_mutex_create | mpxs_ | \ - SV *:classname, pool, flags=APR_THREAD_MUTEX_DEFAULT | new - void:apr_thread_mutex_destroy | | | apr_thread_mutex_DESTROY - apr_thread_mutex_lock - apr_thread_mutex_trylock - apr_thread_mutex_unlock - apr_thread_mutex_pool_get -MODULE=APR::Thread apr_thread_create
