Program termination: Difference between revisions

=={{header|APL}}==

APL is an interpreted language and does not allow conditionals inside REPL (immediate) expressions, so this must be run within a script.

<lang apl>

#!/usr/local/bin/apl --script --

⍝⍝ GNU APL script

⍝⍝ Usage: errout.apl <code>

⍝⍝

⍝⍝ $ echo $? ## to see exit code

⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝

args ← 2↓⎕ARG~'--script' '--' ⍝⍝ strip off script args we don't need

err ← ⍎⊃args[1]

∇main

→(0=err)/ok

error:

'Error! exiting.'

⍎')off 1' ⍝⍝ NOTE: exit code arg was added to )OFF in SVN r1499 Nov 2021

ok:

'No error, continuing...'

⍎')off'

∇

main

</lang>

{{out}}

<pre>

~/GNUAPL$ workspaces/errout.apl 0

No error, continuing...

~/GNUAPL$ echo $?

0

~/GNUAPL$ workspaces/errout.apl 1

Error! exiting.

~/GNUAPL$ echo $?

1

</pre>