X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?a=blobdiff_plain;f=gui.pl;h=7cfe6085f24085b14aa7fdf8c1cfb32927d45423;hb=3b3c72e17a541d14f063c4c4f9093f42b271ff08;hp=3f74cc4f8a3f7764f7806a7ba6022f816f5e3d8e;hpb=cd3dd2cbdb007c774c2485a7e14cf12b75249dfd;p=slotcarman.git

diff --git a/gui.pl b/gui.pl
index 3f74cc4..7cfe608 100755
--- a/gui.pl
+++ b/gui.pl
@@ -9,16 +9,28 @@ use Glib qw(TRUE FALSE);
 use SCX::GUI;
 use SCX::Track;
 use SCX::Reader;
+use SCX::RaceParser;
 
-my $gui = SCX::GUI->new({ img_height => 80 });
+my $gui = SCX::GUI->new({ img_height => 120 });
 my $track = SCX::Track->new({ gui => $gui });
 
-my $reader;
-eval {
-	$reader = SCX::Reader->new({
-		portname   => '/dev/ttyUSB0',
-		logfile    => 'log',
-		track      => $track,
+my $logfile = 'log';
+my $tty = '/dev/ttyUSB0';
+
+if (defined $ARGV[0] && $ARGV[0] eq '-') {
+	$logfile = undef;
+	$tty = '-';
+}
+
+my $parser = SCX::RaceParser->new({
+	track => $track,
+	logfile => $logfile,
+});
+
+my $reader = eval {
+	SCX::Reader->new({
+		filename   => $tty,
+		parser     => $parser,
 	});
 };