]> www.fi.muni.cz Git - slotcarman.git/blob - ttymon
Move qualification start to SCX::Track
[slotcarman.git] / ttymon
1 #!/usr/bin/perl -w
2
3 use Time::HiRes qw(gettimeofday tv_interval);
4 use Event::Lib;
5 use SCX::Reader;
6
7 my ($portname, $logfile) = @ARGV;
8
9 if (!defined $portname || !defined $logfile) {
10         die "Usage: $0 /dev/ttyUSB0 logfile\n";
11 }
12
13 my $reader = SCX::Reader->new({
14         portname   => $portname,
15         logfile    => $logfile,
16         callback   => \&do_packet,
17 });
18
19 sub stdin_read {
20         my $event = shift;
21         my $fh = $event->fh;
22
23         my $data = <$fh>;
24         chomp $data;
25         print "===== ", $data, " =====\n";
26         $event->add;
27 }
28
29 sub tty_read {
30         my $event = shift;
31
32         $reader->read();
33         $event->add;
34 }
35
36 sub do_packet {
37         print "do_packet\n";
38 }
39         
40 my $tty_reader = event_new($reader->fh, EV_READ, \&tty_read);
41 my $stdin_reader = event_new(\*STDIN, EV_READ, \&stdin_read);
42
43 $tty_reader->add;
44 $stdin_reader->add;
45
46 event_mainloop;
47