author | wenzelm |
Fri, 07 Dec 2007 17:40:06 +0100 | |
changeset 25576 | ee11881606b7 |
parent 25565 | 33d30a53fae7 |
child 25631 | 9036ccd685b4 |
permissions | -rw-r--r-- |
25528
e67230c2b952
Isabelle process wrapper -- interaction via external program.
wenzelm
parents:
diff
changeset
|
1 |
(* Title: Pure/Tools/isabelle_process.ML |
e67230c2b952
Isabelle process wrapper -- interaction via external program.
wenzelm
parents:
diff
changeset
|
2 |
ID: $Id$ |
e67230c2b952
Isabelle process wrapper -- interaction via external program.
wenzelm
parents:
diff
changeset
|
3 |
Author: Makarius |
e67230c2b952
Isabelle process wrapper -- interaction via external program.
wenzelm
parents:
diff
changeset
|
4 |
|
e67230c2b952
Isabelle process wrapper -- interaction via external program.
wenzelm
parents:
diff
changeset
|
5 |
Isabelle process wrapper -- interaction via external program. |
e67230c2b952
Isabelle process wrapper -- interaction via external program.
wenzelm
parents:
diff
changeset
|
6 |
*) |
e67230c2b952
Isabelle process wrapper -- interaction via external program.
wenzelm
parents:
diff
changeset
|
7 |
|
e67230c2b952
Isabelle process wrapper -- interaction via external program.
wenzelm
parents:
diff
changeset
|
8 |
signature ISABELLE_PROCESS = |
e67230c2b952
Isabelle process wrapper -- interaction via external program.
wenzelm
parents:
diff
changeset
|
9 |
sig |
25554 | 10 |
val test_markupN: string |
11 |
val test_markup: Markup.T -> output * output |
|
25528
e67230c2b952
Isabelle process wrapper -- interaction via external program.
wenzelm
parents:
diff
changeset
|
12 |
val init: unit -> unit |
e67230c2b952
Isabelle process wrapper -- interaction via external program.
wenzelm
parents:
diff
changeset
|
13 |
end; |
e67230c2b952
Isabelle process wrapper -- interaction via external program.
wenzelm
parents:
diff
changeset
|
14 |
|
e67230c2b952
Isabelle process wrapper -- interaction via external program.
wenzelm
parents:
diff
changeset
|
15 |
structure IsabelleProcess: ISABELLE_PROCESS = |
e67230c2b952
Isabelle process wrapper -- interaction via external program.
wenzelm
parents:
diff
changeset
|
16 |
struct |
e67230c2b952
Isabelle process wrapper -- interaction via external program.
wenzelm
parents:
diff
changeset
|
17 |
|
25554 | 18 |
(* test markup *) |
19 |
||
20 |
val test_markupN = "test_markup"; |
|
21 |
||
22 |
fun test_markup (name, props) = |
|
23 |
(enclose "<" ">" (space_implode " " (name :: map XML.attribute props)), |
|
24 |
enclose "</" ">" name); |
|
25 |
||
26 |
val _ = Markup.add_mode test_markupN test_markup; |
|
27 |
||
28 |
||
29 |
(* channels *) |
|
30 |
||
31 |
local |
|
32 |
||
33 |
fun special c = chr 2 ^ c; |
|
25576 | 34 |
val special_end = special "."; |
25554 | 35 |
|
36 |
fun output c m s = |
|
37 |
Output.writeln_default (special c ^ Markup.enclose m s ^ special_end); |
|
38 |
||
39 |
in |
|
40 |
||
41 |
fun setup_channels () = |
|
42 |
(Output.writeln_fn := output "A" Markup.writeln; |
|
43 |
Output.priority_fn := output "B" Markup.priority; |
|
44 |
Output.tracing_fn := output "C" Markup.tracing; |
|
45 |
Output.warning_fn := output "D" Markup.warning; |
|
46 |
Output.error_fn := output "E" Markup.error; |
|
47 |
Output.debug_fn := output "F" Markup.debug); |
|
48 |
||
49 |
end; |
|
50 |
||
51 |
||
52 |
(* init *) |
|
53 |
||
25528
e67230c2b952
Isabelle process wrapper -- interaction via external program.
wenzelm
parents:
diff
changeset
|
54 |
fun init () = |
25565 | 55 |
(Output.writeln_default ("PID=" ^ string_of_pid (Posix.ProcEnv.getpid ())); |
25554 | 56 |
setup_channels (); |
25528
e67230c2b952
Isabelle process wrapper -- interaction via external program.
wenzelm
parents:
diff
changeset
|
57 |
Isar.secure_main ()); |
e67230c2b952
Isabelle process wrapper -- interaction via external program.
wenzelm
parents:
diff
changeset
|
58 |
|
e67230c2b952
Isabelle process wrapper -- interaction via external program.
wenzelm
parents:
diff
changeset
|
59 |
end; |
e67230c2b952
Isabelle process wrapper -- interaction via external program.
wenzelm
parents:
diff
changeset
|
60 |