summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Tk/Eventloop.pod
blob: a4c99e7988e401ca64814cf8d2ff37ca3a279bb6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
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