Codebase list libcoro-perl / 6bad99c
[svn-upgrade] new version libcoro-perl (5.250) Jonathan Yu 13 years ago
26 changed file(s) with 31 addition(s) and 25 deletion(s). Raw diff Collapse all Expand all
44 TODO: myhttpd header parsing
55 TODO: channel->maxsize(newsize)?
66 TODO: http://www.microsoft.com/msj/archive/s2ce.aspx
7
8 5.25 Thu Nov 11 01:08:39 CET 2010
9 - try a different approach on netbsd - netbsd 5 finally has marginally
10 working pthreads, but still broken ucontext/sigaltstack.
11 - openbsd 4.8 finally got their act together, Coro works out of the box
12 with asm, setjmp and pthreads (no change, just informational).
713
814 5.24 Sat Oct 23 11:27:12 CEST 2010
915 - port to the EV 4.0 API.
6868
6969 use base Exporter::;
7070
71 our $VERSION = 5.24;
71 our $VERSION = 5.25;
7272
7373 our @EXPORT = (@IO::AIO::EXPORT, qw(aio_wait));
7474 our @EXPORT_OK = @IO::AIO::EXPORT_OK;
154154 use Coro;
155155 use AnyEvent ();
156156
157 our $VERSION = 5.24;
157 our $VERSION = 5.25;
158158
159159 #############################################################################
160160 # idle handler
4646
4747 use base Exporter::;
4848
49 our $VERSION = 5.24;
49 our $VERSION = 5.25;
5050 our $WATCHER;
5151
5252 BDB::set_sync_prepare {
3131 use Coro ();
3232 use Coro::Semaphore ();
3333
34 our $VERSION = 5.24;
34 our $VERSION = 5.25;
3535
3636 sub DATA (){ 0 }
3737 sub SGET (){ 1 }
120120 use Coro::AnyEvent ();
121121 use Coro::Timer ();
122122
123 our $VERSION = 5.24;
123 our $VERSION = 5.25;
124124
125125 our %log;
126126 our $SESLOGLEVEL = exists $ENV{PERL_CORO_DEFAULT_LOGLEVEL} ? $ENV{PERL_CORO_DEFAULT_LOGLEVEL} : -1;
4444
4545 use base 'Exporter';
4646
47 our $VERSION = 5.24;
47 our $VERSION = 5.25;
4848 our @EXPORT = qw(unblock);
4949
5050 =item $fh = new_from_fh Coro::Handle $fhandle [, arg => value...]
9393 use Net::FTP ();
9494 use Net::NNTP ();
9595
96 our $VERSION = 5.24;
96 our $VERSION = 5.25;
9797
9898 *Socket::inet_aton = \&Coro::Util::inet_aton;
9999
66
77 our $installsitearch;
88
9 our $VERSION = 5.24;
9 our $VERSION = 5.25;
1010 our @EXPORT_OK = qw(&coro_args $installsitearch);
1111
1212 my %opt;
6565 # hey, it might actually work, with some hacks.
6666 $iface = "p";
6767
68 if ($Config{libs} =~ "-lpthread") {
68 if ($Config{libs} !~ "-lpthread") {
6969 # uh-oh
7070 print <<EOF;
7171
2929
3030 use Coro ();
3131
32 our $VERSION = 5.24;
32 our $VERSION = 5.25;
3333
3434 =item $l = new Coro::RWLock;
3535
6666
6767 use base Exporter::;
6868
69 our $VERSION = 5.24;
69 our $VERSION = 5.25;
7070 our @EXPORT_OK = "select";
7171
7272 sub import {
3636
3737 use Coro ();
3838
39 our $VERSION = 5.24;
39 our $VERSION = 5.25;
4040
4141 =item new [inital count]
4242
3131
3232 use common::sense;
3333
34 our $VERSION = 5.24;
34 our $VERSION = 5.25;
3535
3636 use Coro::Semaphore ();
3737
3434
3535 use Coro::Semaphore ();
3636
37 our $VERSION = 5.24;
37 our $VERSION = 5.25;
3838
3939 =item $sig = new Coro::Signal;
4040
7272
7373 use base qw(Coro::Handle IO::Socket::INET);
7474
75 our $VERSION = 5.24;
75 our $VERSION = 5.25;
7676
7777 our (%_proto, %_port);
7878
2525
2626 use common::sense;
2727
28 our $VERSION = 5.24;
28 our $VERSION = 5.25;
2929
3030 =item new
3131
9191 use XSLoader;
9292
9393 BEGIN {
94 our $VERSION = 5.24;
94 our $VERSION = 5.25;
9595
9696 # must be done here because the xs part expects it to exist
9797 # it might exist already because Coro::Specific created it.
8383 use Storable;
8484 use base "Exporter";
8585
86 our $VERSION = 5.24;
86 our $VERSION = 5.25;
8787 our @EXPORT = qw(thaw freeze nfreeze blocking_thaw blocking_freeze blocking_nfreeze);
8888
8989 our $GRANULARITY = 0.01;
2929 use Coro ();
3030 use Coro::AnyEvent ();
3131
32 our $VERSION = 5.24;
32 our $VERSION = 5.25;
3333 our @EXPORT_OK = qw(timeout sleep);
3434
3535 =item $flag = timeout $seconds;
4040 our @EXPORT = qw(gethostbyname gethostbyaddr);
4141 our @EXPORT_OK = qw(inet_aton fork_eval);
4242
43 our $VERSION = 5.24;
43 our $VERSION = 5.25;
4444
4545 our $MAXPARALLEL = 16; # max. number of parallel jobs
4646
8282 our $main; # main coro
8383 our $current; # current coro
8484
85 our $VERSION = 5.24;
85 our $VERSION = 5.25;
8686
8787 our @EXPORT = qw(async async_pool cede schedule terminate current unblock_sub rouse_cb rouse_wait);
8888 our %EXPORT_TAGS = (
5555 use XSLoader;
5656
5757 BEGIN {
58 our $VERSION = 5.24;
58 our $VERSION = 5.25;
5959
6060 local $^W = 0; # avoid redefine warning for Coro::ready;
6161 XSLoader::load __PACKAGE__, $VERSION;
9191 our @EXPORT = qw(loop unloop sweep);
9292
9393 BEGIN {
94 our $VERSION = 5.24;
94 our $VERSION = 5.25;
9595
9696 local $^W = 0; # avoid redefine warning for Coro::ready;
9797 XSLoader::load __PACKAGE__, $VERSION;
0 {"no_index":{"directory":["t","inc"]},"meta-spec":{"version":1.4,"url":"http://module-build.sourceforge.net/META-spec-v1.4.html"},"generated_by":"ExtUtils::MakeMaker version 6.56","distribution_type":"module","version":"5.24","name":"Coro","author":[],"license":"unknown","build_requires":{"ExtUtils::MakeMaker":0},"requires":{"Scalar::Util":0,"AnyEvent":5,"Guard":0.5,"Storable":2.15,"Time::HiRes":0,"common::sense":0},"recommends":{"BDB":0,"AnyEvent::AIO":1,"Event":1.08,"EV":3,"IO::AIO":3.1,"AnyEvent::BDB":1},"abstract":null,"configure_requires":{"ExtUtils::MakeMaker":0}}
0 {"no_index":{"directory":["t","inc"]},"meta-spec":{"version":1.4,"url":"http://module-build.sourceforge.net/META-spec-v1.4.html"},"generated_by":"ExtUtils::MakeMaker version 6.56","distribution_type":"module","version":"5.25","name":"Coro","author":[],"license":"unknown","build_requires":{"ExtUtils::MakeMaker":0},"requires":{"Scalar::Util":0,"AnyEvent":5,"Guard":0.5,"Storable":2.15,"Time::HiRes":0,"common::sense":0},"recommends":{"BDB":0,"AnyEvent::AIO":1,"Event":1.08,"EV":3,"IO::AIO":3.1,"AnyEvent::BDB":1},"abstract":null,"configure_requires":{"ExtUtils::MakeMaker":0}}
1010 },
1111 "generated_by" : "ExtUtils::MakeMaker version 6.56",
1212 "distribution_type" : "module",
13 "version" : "5.24",
13 "version" : "5.25",
1414 "name" : "Coro",
1515 "author" : [],
1616 "license" : "unknown",