From: ian <ian>
Date: Thu, 5 Jan 2006 01:16:36 +0000 (+0000)
Subject: clearer debug
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?p=trains.git;a=commitdiff_plain;h=b1f9cdd486bc3b15d54191c987bb47208a777d04

clearer debug
---

diff --git a/hostside/gui-displayer b/hostside/gui-displayer
index 9086155..d4425d6 100755
--- a/hostside/gui-displayer
+++ b/hostside/gui-displayer
@@ -146,7 +146,7 @@ main
 
 while {[gets stdin l]>=0} {
     if {[regexp {^GUI ([A-Z][0-9a-zA-Z ]*)$} $l dummy cmd]} {
-	puts " * $cmd"
+	puts "GUI $cmd"
 	eval $cmd
     } else {
 	puts $l
diff --git a/hostside/gui-plan.c b/hostside/gui-plan.c
index 6ae3c58..3a4b9a8 100644
--- a/hostside/gui-plan.c
+++ b/hostside/gui-plan.c
@@ -248,6 +248,8 @@ static void *stdin_ifok(oop_source *evts, oop_read *cl_read,
   if (evt != OOP_RD_OK)
     return stdin_iferr(evts,cl_read,evt,errmsg,errnoval,data,recsz,cl_v);
 
+fprintf(stderr,"gui-plan>%.*s<\n",(int)recsz,data);
+
   ps.cl= 0;
   ps.remain= data;
   ps_needword(&ps);