mock watch command (because OS X's original watch command can't display Japanese chars...)

watch.ros

#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros -Q -- $0 "$@"
|#

;; $ watch -n 10 date
;; $ ./watch.ros 10 date

(ql:quickload '(:cl-charms :external-program) :silent t)

(defun main (&rest argv)
  (declare (ignorable argv))
  (charms:with-curses ()
    (multiple-value-bind (width height)
	(charms:window-dimensions charms:*standard-window*)
      (declare (ignorable width height))
      (charms:clear-window charms:*standard-window*)
      (let ((n    (read-from-string (car argv)))
	    (cmd  (cadr argv))
	    (args (cddr argv)))
	(handler-case
	    (loop
	       (charms:move-cursor charms:*standard-window* 0 0)
	       (charms:write-string-at-cursor charms:*standard-window*
					      (format nil "~A, ~A ~:A~%" n cmd args))
	       (loop with proc = (external-program:start cmd args :output :stream)
		  with s = (external-program:process-output-stream proc)
		  for l = (read-line s nil nil)
		  for y from 1
		  while (and (or l
				 (eq (external-program:process-status proc) :running))
			     (< y height))
		  do
		    (progn (ignore-errors
			     (charms:write-string-at-cursor charms:*standard-window*
							    (format nil "~A~%" l)))))
	       (charms:refresh-window charms:*standard-window*)
	       (sleep n))
	  (sb-sys:interactive-interrupt ()))))))