diff options
author | Kartik Agaram <vc@akkartik.com> | 2019-07-27 16:01:55 -0700 |
---|---|---|
committer | Kartik Agaram <vc@akkartik.com> | 2019-07-27 17:47:59 -0700 |
commit | 6e1eeeebfb453fa7c871869c19375ce60fbd7413 (patch) | |
tree | 539c4a3fdf1756ae79770d5c4aaf6366f1d1525e /archive/2.vm/exception1.mu | |
parent | 8846a7f85cc04b77b2fe8a67b6d317723437b00c (diff) | |
download | mu-6e1eeeebfb453fa7c871869c19375ce60fbd7413.tar.gz |
5485 - promote SubX to top-level
Diffstat (limited to 'archive/2.vm/exception1.mu')
-rw-r--r-- | archive/2.vm/exception1.mu | 61 |
1 files changed, 61 insertions, 0 deletions
diff --git a/archive/2.vm/exception1.mu b/archive/2.vm/exception1.mu new file mode 100644 index 00000000..df4754e5 --- /dev/null +++ b/archive/2.vm/exception1.mu @@ -0,0 +1,61 @@ +# Example program showing exceptions built out of delimited continuations. + +# Since Mu is statically typed, we can't build an all-purpose higher-order +# function called 'try'; it wouldn't know how many arguments the function +# passed to it needs to take, what their types are, etc. Instead, until Mu +# gets macros we'll directly use the continuation primitives. + +def main [ + local-scope + foo false/no-exception + foo true/raise-exception +] + +# example showing exception handling +def foo raise-exception?:bool [ + local-scope + load-inputs + # To run an instruction of the form: + # try f ... + # write this: + # call-with-continuation-mark 999/exception-tag, f, ... + # By convention we reserve tag 999 for exceptions. + # + # 'f' above may terminate at either a regular 'return' or a 'return-with-continuation-mark'. + # We never re-call the continuation returned in the latter case; + # its existence merely signals that an exception was raised. + # So just treat it as a boolean. + # The other inputs and outputs to 'call-with-continuation-mark' depend on + # the function it is called with. + exception-raised?:bool, err:text, result:num <- call-with-continuation-mark 999/exception-tag, f, raise-exception? + { + break-if exception-raised? + $print [normal exit; result ] result 10/newline + } + { + break-unless exception-raised? + $print [error caught: ] err 10/newline + } +] + +# A callee function that can raise an exception has some weird constraints at +# the moment. +# +# The caller's 'call-with-continuation-mark' instruction may return with +# either a regular 'return' or a 'return-continuation-until-mark'. +# To handle both cases, regular 'return' instructions in the callee must +# prepend an extra 0 result, in place of the continuation that may have been +# returned. +# This change to number of outputs violates our type system, so the call has +# to be dynamically typed. The callee can't have a header. +def f [ + local-scope + raise-exception?:bool <- next-input + { + break-unless raise-exception? + # throw/raise: 2 results + implicit continuation (ignoring the continuation tag) + return-continuation-until-mark 999/exception-tag, [error will robinson!], 0/unused + } + # normal return: 3 results including 0 continuation placeholder at start + return 0/continuation-placeholder, null/no-error, 34/regular-result +] |