author | wenzelm |
Sat, 23 Jul 2011 16:37:17 +0200 | |
changeset 43947 | 9b00f09f7721 |
parent 43762 | 50ce6f602931 |
child 44158 | fe6d1ae7a065 |
permissions | -rw-r--r-- |
34136 | 1 |
/* Title: Pure/General/exn.scala |
2 |
Author: Makarius |
|
3 |
||
43761
e72ba84ae58f
tuned signature -- corresponding to Scala version;
wenzelm
parents:
34313
diff
changeset
|
4 |
Support for exceptions (arbitrary throwables). |
34136 | 5 |
*/ |
6 |
||
7 |
package isabelle |
|
8 |
||
9 |
||
10 |
object Exn |
|
11 |
{ |
|
12 |
/* runtime exceptions as values */ |
|
13 |
||
14 |
sealed abstract class Result[A] |
|
43762 | 15 |
case class Res[A](res: A) extends Result[A] |
16 |
case class Exn[A](exn: Throwable) extends Result[A] |
|
34136 | 17 |
|
18 |
def capture[A](e: => A): Result[A] = |
|
19 |
try { Res(e) } |
|
34313
2f890016afab
treat *all* JVM throwables as "exceptions", cf. ML version;
wenzelm
parents:
34300
diff
changeset
|
20 |
catch { case exn: Throwable => Exn[A](exn) } |
34136 | 21 |
|
22 |
def release[A](result: Result[A]): A = |
|
23 |
result match { |
|
24 |
case Res(x) => x |
|
25 |
case Exn(exn) => throw exn |
|
26 |
} |
|
27 |
} |
|
28 |