author | wenzelm |
Sun, 04 Sep 2011 15:49:59 +0200 | |
changeset 44699 | 5199ee17c7d7 |
parent 44158 | fe6d1ae7a065 |
child 45667 | 546d78f0d81f |
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 |
{ |
|
44158 | 12 |
/* exceptions as values */ |
34136 | 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 |
} |
|
44158 | 27 |
|
28 |
||
29 |
/* message */ |
|
30 |
||
31 |
private val runtime_exception = Class.forName("java.lang.RuntimeException") |
|
32 |
||
33 |
def message(exn: Throwable): String = |
|
34 |
if (exn.getClass == runtime_exception) { |
|
35 |
val msg = exn.getMessage |
|
36 |
if (msg == null) "Error" else msg |
|
37 |
} |
|
38 |
else exn.toString |
|
34136 | 39 |
} |
40 |