equal
deleted
inserted
replaced
1 (* Title: Pure/Thy/present.ML |
1 (* Title: Pure/Thy/present.ML |
2 ID: $Id$ |
2 ID: $Id$ |
3 Author: Markus Wenzel, TU Muenchen |
3 Author: Markus Wenzel, TU Muenchen |
4 |
4 |
5 Theory presentation. (* FIXME fake implementation *) |
5 Theory presentation abstract interface. |
|
6 |
|
7 TODO: |
|
8 - presentation_modes: AND (!?); |
6 *) |
9 *) |
7 |
10 |
8 signature BASIC_PRESENT = |
11 signature BASIC_PRESENT = |
9 sig |
12 sig |
10 val section: string -> unit |
13 include BASIC_BROWSER_INFO |
11 end; |
14 end; |
12 |
15 |
13 signature PRESENT = |
16 signature PRESENT = |
14 sig |
17 sig |
15 include BASIC_PRESENT |
18 include BROWSER_INFO |
16 val init: bool -> string list -> string list -> string -> string -> unit |
|
17 val finish: unit -> unit |
|
18 val theory_file: string -> string -> unit |
|
19 val thm: string -> thm -> unit |
|
20 end; |
19 end; |
21 |
20 |
22 structure Present: PRESENT = |
21 structure Present: PRESENT = BrowserInfo; (* FIXME *) |
23 struct |
|
24 |
|
25 fun init _ _ _ _ _ = (); |
|
26 fun finish _ = (); |
|
27 |
|
28 fun section _ = (); |
|
29 fun theory_file _ _ = (); |
|
30 fun thm _ _ = (); |
|
31 |
|
32 end; |
|
33 |
22 |
34 structure BasicPresent: BASIC_PRESENT = Present; |
23 structure BasicPresent: BASIC_PRESENT = Present; |
35 open BasicPresent; |
24 open BasicPresent; |