author | wenzelm |
Sat, 05 Feb 2011 18:09:57 +0100 | |
changeset 41710 | 11ae688e4e30 |
parent 29564 | src/Pure/ML-Systems/time_limit.ML@f8b933a62151 |
permissions | -rw-r--r-- |
41710 | 1 |
(* Title: Pure/Concurrent/time_limit_dummy.ML |
24688
a5754ca5c510
replaced interrupt_timeout by TimeLimit.timeLimit (available on SML/NJ and Poly/ML 5.1);
wenzelm
parents:
diff
changeset
|
2 |
Author: Makarius |
a5754ca5c510
replaced interrupt_timeout by TimeLimit.timeLimit (available on SML/NJ and Poly/ML 5.1);
wenzelm
parents:
diff
changeset
|
3 |
|
41710 | 4 |
Execution with time limit -- dummy version. |
24688
a5754ca5c510
replaced interrupt_timeout by TimeLimit.timeLimit (available on SML/NJ and Poly/ML 5.1);
wenzelm
parents:
diff
changeset
|
5 |
*) |
a5754ca5c510
replaced interrupt_timeout by TimeLimit.timeLimit (available on SML/NJ and Poly/ML 5.1);
wenzelm
parents:
diff
changeset
|
6 |
|
a5754ca5c510
replaced interrupt_timeout by TimeLimit.timeLimit (available on SML/NJ and Poly/ML 5.1);
wenzelm
parents:
diff
changeset
|
7 |
structure TimeLimit: TIME_LIMIT = |
a5754ca5c510
replaced interrupt_timeout by TimeLimit.timeLimit (available on SML/NJ and Poly/ML 5.1);
wenzelm
parents:
diff
changeset
|
8 |
struct |
a5754ca5c510
replaced interrupt_timeout by TimeLimit.timeLimit (available on SML/NJ and Poly/ML 5.1);
wenzelm
parents:
diff
changeset
|
9 |
|
a5754ca5c510
replaced interrupt_timeout by TimeLimit.timeLimit (available on SML/NJ and Poly/ML 5.1);
wenzelm
parents:
diff
changeset
|
10 |
exception TimeOut; |
41710 | 11 |
|
12 |
fun timeLimit _ f x = (warning "No timeout support on this ML platform"; f x); |
|
24688
a5754ca5c510
replaced interrupt_timeout by TimeLimit.timeLimit (available on SML/NJ and Poly/ML 5.1);
wenzelm
parents:
diff
changeset
|
13 |
|
a5754ca5c510
replaced interrupt_timeout by TimeLimit.timeLimit (available on SML/NJ and Poly/ML 5.1);
wenzelm
parents:
diff
changeset
|
14 |
end; |
a5754ca5c510
replaced interrupt_timeout by TimeLimit.timeLimit (available on SML/NJ and Poly/ML 5.1);
wenzelm
parents:
diff
changeset
|
15 |