clearer debug

diff --git a/hostside/gui-displayer b/hostside/gui-displayer
index 9086155edabfef342dffcdfdda488101b432ca07..d4425d60003a0f006cfcd05c6e37b52227530189 100755 (executable)
--- 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 6ae3c58de9a1571397166340ec4982e4d510e82e..3a4b9a893656a7c57042f6cdd440967a555078bf 100644 (file)
--- 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);