Raise an error when 'exec' is used with non-ros commands.

cli.lisp

@@ -9,7 +9,8 @@
   (:import-from #:qlot/utils/cli
                 #:exec
                 #:which
-                #:command-line-arguments)
+                #:command-line-arguments
+                #:ros-script-p)
   (:import-from #:qlot/utils
                 #:starts-with
                 #:generate-random-string)
@@ -380,6 +381,11 @@ OPTIONS:
 
                (let ((command (or (which (first argv))
                                   (first argv))))
+                 (unless (or (member (file-namestring command)
+                                     '("ros")
+                                     :test 'equal)
+                             (ros-script-p command))
+                   (qlot/errors:ros-command-error "exec must be followed by 'ros' or a Roswell script"))
                  (exec (cons command (rest argv)))))
               ((equal "add" $1)
                (unless argv

utils/cli.lisp

@@ -2,7 +2,8 @@
   (:use #:cl)
   (:export #:exec
            #:which
-           #:command-line-arguments))
+           #:command-line-arguments
+           #:ros-script-p))
 (in-package #:qlot/utils/cli)
 
 (defun command-line-arguments ()
@@ -55,3 +56,12 @@
                                              :output s)))
     (uiop/run-program:subprocess-error ()
       nil)))
+
+(defun ros-script-p (file)
+  (and (uiop:file-exists-p file)
+       (ignore-errors
+         (with-open-file (in file
+                             :direction :input
+                             :element-type 'character)
+           (and (equal (read-line in) "#!/bin/sh")
+                (equal (read-line in) "#|-*- mode:lisp -*-|#"))))))