diff options
author | Karl Berry <karl@freefriends.org> | 2015-04-26 22:16:26 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2015-04-26 22:16:26 +0000 |
commit | 342e672574c4e67d510e46ab6acd0e21a7d0cf54 (patch) | |
tree | 79e04202d08c0404bbd780bd26c1e34710e539b6 /Master/tlpkg/tlperl/lib/Tk/Eventloop.pod | |
parent | be2706af7c57a0ef0f4d4e9f684ca4ef74922a82 (diff) |
(tl)perl 5.20.2 for windows, from siep
git-svn-id: svn://tug.org/texlive/trunk@37064 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tk/Eventloop.pod')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Tk/Eventloop.pod | 62 |
1 files changed, 62 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/Tk/Eventloop.pod b/Master/tlpkg/tlperl/lib/Tk/Eventloop.pod new file mode 100644 index 00000000000..a4c99e7988e --- /dev/null +++ b/Master/tlpkg/tlperl/lib/Tk/Eventloop.pod @@ -0,0 +1,62 @@ + +=head1 NAME + +Tk::Event - ToolKit for Events + +=for category Implementation + +=head1 SYNOPSIS + + use Tk::Event; + + Tk::Event->fileevent(\*FH, 'readable' => callback); + + Tk::Event->lineavail(\*FH, callback); + + use Tk::Event::Signal qw(INT); + + $SIG{'INT'} = callback; + + use Tk::Event::process; + + Tk::Event->proc($pid, callback); + + QueueEvent(callback [, position]) + + +=head1 DESCRIPTION + + +That is better than nothing but still hard to use. Most scripts want higher +level result (a line, a "block" of data etc.) + +So it has occured to me that we could use new-ish TIEHANDLE thus: + + my $obj = tie SOMEHANDLE,Tk::Event::IO; + + while (<SOMEHANDLE>) + { + } + +Then the READLINE routine registers a callback and looks something like: + + sub READLINE + { + my $obj = shift; + Event->io(*$obj,'readable',sub { sysread(*$obj,${*$obj},1,length(${*$obj}) }); + my $pos; + while (($pos = index(${*$obj},$/) < 0) + { + DoOneEvent(); + } + Event->io(*$obj,'readable',''); # unregister + $pos += length($/); + my $result = substr(${*$obj},0,$pos); + substr(${*$obj},0,$pos) = ''; + return $result; + } + +This is using the scalar part of the glob representing the _inner_ IO +as a buffer in which to accumulate chars. + +=cut |