Topic: Quit without causing error

[mailmaverick]

I have a routine in which number of input datas are asked from the user before actual program execution starts.

All inputs are graphically through DCL. There are 5-6 DCL Windows which open one by one and the user has to select required data.

In case the user presses Cancel in any one of the DCL Window, the program execution must stop there itself.

As per DCL, I know how to know that the user has pressed Cancel. But problem is how to stop program execution ?

Till date, I know only of (quit). (quit) is also an error because when we do program debugging and Tick the option of Last Break Source, the program stops at every (quit) call. Thus, it means that (quit) is not a normal way of exiting program and is an error.

What is the normal way of exiting a LISP routine, without an error ?

[JohnK]

You need an error handler.

[mailmaverick]

Dear John

As I mentioned in my original post, if user presses Cancel, then it is not an error.

Program has to stop without an error.

If I use errorhandler routine, then in that also, I have to use (quit).

[ronjonp]

..
What is the normal way of exiting a LISP routine, without an error ?

Step through your code and check what throws errors. Then account for that.

Simple Example:

Code - Auto/Visual Lisp: [Select]

1. ;; Bombs if user presses enter or misses pick
2. (setq el (entget (car (entsel))))
3. ;; No error unless ESC
4. (if (setq e (car (entsel)))
5.   (setq el (entget e))
6. )

[MP]

You need to capture the cancel event, save said state to a variable and then have the various levels of your program gracefully exit based on said state (or any other appropriate state). I can't provide a code snip because I'm on my mobile. It's all do-able tho, I and others have done it. tl;dr: In before Lee.

[mailmaverick]

..
What is the normal way of exiting a LISP routine, without an error ?

Step through your code and check what throws errors. Then account for that.

Simple Example:

Code - Auto/Visual Lisp: [Select]

1. ;; Bombs if user presses enter or misses pick
2. (setq el (entget (car (entsel))))
3. ;; No error unless ESC
4. (if (setq e (car (entsel)))
5.   (setq el (entget e))
6. )

Dear Ron, as I mentioned earlier, there is no error.

I want to just quit the routine.

[JohnK]

Dear John

As I mentioned in my original post, if user presses Cancel, then it is not an error.

Program has to stop without an error.

If I use errorhandler routine, then in that also, I have to use (quit).

1. Read MPs post.
2. You need an error handler (many people have them the following is only a start and one version).
http://www.theswamp.org/index.php?topic=13730.msg167503#msg167503

[ronjonp]

..
What is the normal way of exiting a LISP routine, without an error ?

Step through your code and check what throws errors. Then account for that.

Simple Example:

Code - Auto/Visual Lisp: [Select]

1. ;; Bombs if user presses enter or misses pick
2. (setq el (entget (car (entsel))))
3. ;; No error unless ESC
4. (if (setq e (car (entsel)))
5.   (setq el (entget e))
6. )

Dear Ron, as I mentioned earlier, there is no error.

I want to just quit the routine.

In my mind (quit) is an error event. That's why you need an error event handler (*error*). You either use an error event handler or you tighten up your code.

[MP]

Pressing escape is not an error, it is an event. You don't need an error handler, you need an event handler. Semantically yours, MP.

[CAB]

In my mind (quit) is an error. That's why you need an error handler. You either use an error handler or you tighten up your code.

[ronjonp]

Pressing escape is not an error, it is an event. You don't need an error handler, you need an event handler. Semantically yours, MP.

  Edit above.

[MP]

C'mon you guys. Do I need to do this from my mobile? Put a button on the dialog. Call it btn_cancel. Caption it "Cancel". Set it's is_cancel property to true. Capture said event. Deal with it. 

[Lee Mac]

tl;dr: In before Lee.

 

[MP]

[JohnK]

Coffee does not laugh, especially out loud. Semantically speaking that is.