topic Re: Run multiple lisp with one command. in Visual LISP, AutoLISP and General Customization Forum

Run multiple lisp with one command.

DOODLEANU — Mon, 14 Oct 2024 06:46:07 GMT

I have three Lisp programs:

By Entering a cmd a single cmd "ALL3"

I want to run all these programs sequentially.

C : Foo

C : wow

C : QPR

If any error occurs during execution, it should skip the current program and move on to the next one.

If all programs complete successfully, display the message: "Routine successful."

If some programs are skipped due to errors, display the message: "Completed with errors."

Re: Run multiple lisp with one command.

Moshe-A — Mon, 14 Oct 2024 09:25:30 GMT

@DOODLEANU hi,

in order to do this, each program (e.g the last running function) must be well designed and return a value for it's success or fail otherwise the next program will not run. it is programmer responsibility to do that.

if we do not know what is:

(C:Foo)

(C:wow)

(C:QPR)

how can we help?

post an example of these 3 programs

Moshe

Re: Run multiple lisp with one command.

ec-cad — Mon, 14 Oct 2024 18:35:03 GMT

When running a Lisp, Acad does so in a data space session (single space to do it's thing).

When an error occurs, it ends the session and gives you an error message of some kind.

So, if you have a single session that calls other loaded functions, when any one fails,

it stops. You can trap that error, if you have *error* set to some local error handler.

But, it (will not) just 'skip' it, and resume the calling program.

You could find out if all ran with something like this.

(defun C:ALL3 () (defun C:CheckALL3 () (if (= Flag 1)(alert "Routine successful.")) ); function CheckALL3 ;; Run all 3 programs (setq Flag nil) (C:Foo) (C:wow) (C:QPR) (setq Flag 1) (C:CheckALL3) ); function ALL3

But it will (not) just continue with an error.

You could also do a script with:

(C:Foo)
(C:wow)
(C:QPR)

And in each called program, put in an error trap with (command "_resume")

as an experiment.

ECCAD

Re: Run multiple lisp with one command.

MrJSmith — Mon, 14 Oct 2024 22:31:24 GMT

@DOODLEANU You can do this with vl-catch-all-apply function. Here is function that you can pass multiple functions too and catch their errors.

(defun attemptFunctions (function-list / errorList i) (foreach func function-list (if (vl-catch-all-error-p (vl-catch-all-apply (quote (eval func)) nil)) (setq errorList (cons 1 errorList)) (setq errorList (cons nil errorList)) ) ) (setq i 0) (foreach err (reverse errorList) (if err (progn (princ "\nFunction " ) (princ (nth i function-list)) (princ " failed to complete successfully!\n") ) ) (setq i (+ i 1)) ) )

Here is a test procedure to see how it could work for you.

(defun c:t1 () (print "Test 1") ) (defun c:t2 () (print "Test 2") (itoa p) ) (defun c:t3 () (print (strcat "Hi" 3)) ) (defun c:testall () (attemptFunctions '(c:t1 c:t2 c:t3)) (print "Done") (princ) )

When you run the "testall" function, you should get the following results.

"Test 1" "Test 2" Function C:T2 failed to complete successfully! Function C:T3 failed to complete successfully! "Done"