diff -ru qcl-0.6.3/Makefile qcl-0.6.3_mod/Makefile --- qcl-0.6.3/Makefile 2006-12-14 20:34:18.000000000 +0900 +++ qcl-0.6.3_mod/Makefile 2008-10-18 13:51:35.000000000 +0900 @@ -39,8 +39,8 @@ # # Comment out if you don't have GNU libplotter and X -PLOPT = -DQCL_PLOT -PLLIB = -L/usr/X11/lib -lplotter +#PLOPT = -DQCL_PLOT +#PLLIB = -L/usr/X11/lib -lplotter # Readline support # diff -ru qcl-0.6.3/exec.cc qcl-0.6.3_mod/exec.cc --- qcl-0.6.3/exec.cc 2006-12-14 20:34:18.000000000 +0900 +++ qcl-0.6.3_mod/exec.cc 2008-10-18 14:14:19.000000000 +0900 @@ -325,7 +325,9 @@ m+=" "; while(1) { e=0; - s=qclinput("? "+m)+"\n"; + s=qclinput(""); + if(s[s.size()-1]=='\n')s=s.substr(0,s.size()-1); + //s=qclinput("? "+m)+"\n"; switch(pvar->basetype()) { case tINTEGER: if(sscanf(s.c_str(),"%d",&n)==1) v=tValue((tInt)n); @@ -357,9 +359,12 @@ string ostr; tValue v; TRACE(); + bool first=true; for_plist(p,plist,c) { EVAL(v,p); - ostr+=v.str()+" "; + if (!first) ostr+=" "; + ostr+=v.str(); + first=false; } qclprint(ostr); qcllog(": "+ostr+"\n"); diff -ru qcl-0.6.3/format.cc qcl-0.6.3_mod/format.cc --- qcl-0.6.3/format.cc 2006-12-14 20:34:18.000000000 +0900 +++ qcl-0.6.3_mod/format.cc 2008-10-18 13:54:05.000000000 +0900 @@ -36,8 +36,12 @@ "\n", // error_end "! ", // msg_beg "\n", // msg_end + "", // print_beg + "\n", // print_end + /* ": ", // print_beg "\n", // print_end + */ "", // prompt_beg "", // prompt_end "", // ps_beg diff -ru qcl-0.6.3/options.cc qcl-0.6.3_mod/options.cc --- qcl-0.6.3/options.cc 2006-12-14 20:34:18.000000000 +0900 +++ qcl-0.6.3_mod/options.cc 2008-10-18 13:51:13.000000000 +0900 @@ -14,6 +14,7 @@ #include +#include #include #include "options.h"