exit value in delivered programs

Hello,
How can I tell LW to return an exit code on a delivered image ?
I tried to return an integer from the main function but it does not
work. 
I'm using LW 4.2.6 on Linux.

Thanks.

Thibault Langlois

(defun foo ()
  (cond ((equal (read-line) "a") 
              (format t "You pressed a~%") 0)
            (t (format t "something else.~%") 1)))

(compile 'foo)

(deliver 'foo "myapp" 5 :keep-eval t)
(quit)

kino$ myapp
a
You pressed a
kino$ echo $?
0
kino$ myapp
bbb
something else.
kino$ echo $?
0
kino$

-- 
Thibault Langlois <tl@di.fc.ul.pt>
FCUL / DI

Re: exit value in delivered programs

I'm answering myself because .... I found the answer :-)

I have to use (quit :status <some-value>)
I did not find the answer in the doc but asking for the arguments of the quit
function.

Thibault Langlois


Quoting Thibault Langlois <tl@di.fc.ul.pt>:

| Hello,
| How can I tell LW to return an exit code on a delivered image ?
| I tried to return an integer from the main function but it does not
| work. 
| I'm using LW 4.2.6 on Linux.
| 
| Thanks.
| 
| Thibault Langlois
| 
| (defun foo ()
|   (cond ((equal (read-line) "a") 
|               (format t "You pressed a~%") 0)
|             (t (format t "something else.~%") 1)))
| 
| (compile 'foo)
| 
| (deliver 'foo "myapp" 5 :keep-eval t)
| (quit)
| 
| kino$ myapp
| a
| You pressed a
| kino$ echo $?
| 0
| kino$ myapp
| bbb
| something else.
| kino$ echo $?
| 0
| kino$
| 
| -- 
| Thibault Langlois <tl@di.fc.ul.pt>
| FCUL / DI
| 


-- 
Thibault Langlois
FCUL / DI

Re: exit value in delivered programs

Unable to parse email body. Email id is 2168