From 4e866f37a3fdd31ee835436e8a0e248fa85841df Mon Sep 17 00:00:00 2001 From: graehl Date: Fri, 16 Jul 2010 20:47:43 +0000 Subject: line_mediator.pl indicate mode if DEBUG git-svn-id: https://ws10smt.googlecode.com/svn/trunk@295 ec762483-ff6d-05da-a07a-a48fb63a330f --- vest/line_mediator.pl | 3 +++ 1 file changed, 3 insertions(+) (limited to 'vest/line_mediator.pl') diff --git a/vest/line_mediator.pl b/vest/line_mediator.pl index 4e899c39..2b8fa77c 100755 --- a/vest/line_mediator.pl +++ b/vest/line_mediator.pl @@ -43,6 +43,7 @@ if ($serial || $snake) { my $c1p=open2($R1,$W1,@c1); # Open2 R W backward from Open3. my $c2p=open2($R2,$W2,@c2); if ($snake) { + info("SNAKE mode\n"); while() { info("IN:",$_); lineto($W1,$_); @@ -57,6 +58,7 @@ if ($serial || $snake) { lineto(*STDOUT,$_); } } else { + info("SERIAL mode\n"); while(<$R1>) { info("1:",$_); lineto($W2,$_); @@ -66,6 +68,7 @@ if ($serial || $snake) { } } } else { + info("DIRECT mode\n"); my @rw1=POSIX::pipe(); my @rw2=POSIX::pipe(); my $pid=undef; -- cgit v1.2.3