(loop
:for str := (cffi:with-foreign-pointer-as-string (str 255) (wgetnstr *cli* str 255))
:while str
- :while (and (string/= str "q") (string/= str "Q"))
:do (print-command-and-response str (execute str)))
(endwin)
(sb-ext:exit :abort t))
(handler-case
(with-output-to-string (*standard-output*)
(clnl:run-commands str))
- (error (e) (format nil "Ok, something went wrong: ~A" e))))
+ (error (e) (format nil "Ok, something went wrong: ~A~%Try :help" e))))
; for ui, we need to do at a minimum:
; - cli, first pass, read things in, bottom of the screen,
implementation of NetLogo.
You can enter in various netlogo commands below,
- or use q to quit the program.
+ or use :q to quit the program.
See http://github.com/frankduncan/clnl for more
information about CLNL and to keep apprised of