equal
deleted
inserted
replaced
7 signature SESSION = |
7 signature SESSION = |
8 sig |
8 sig |
9 val get_name: unit -> string |
9 val get_name: unit -> string |
10 val welcome: unit -> string |
10 val welcome: unit -> string |
11 val get_keywords: unit -> Keyword.keywords |
11 val get_keywords: unit -> Keyword.keywords |
12 val init: HTML.symbols -> bool -> bool -> Path.T -> string -> string -> (string * string) list -> |
12 val init: HTML.symbols -> bool -> Path.T -> string -> string -> (string * string) list -> |
13 (Path.T * Path.T) list -> Path.T -> string -> string * string -> bool -> unit |
13 (Path.T * Path.T) list -> Path.T -> string -> string * string -> bool -> unit |
14 val shutdown: unit -> unit |
14 val shutdown: unit -> unit |
15 val finish: unit -> unit |
15 val finish: unit -> unit |
16 val protocol_handler: string -> unit |
16 val protocol_handler: string -> unit |
17 val init_protocol_handlers: unit -> unit |
17 val init_protocol_handlers: unit -> unit |
46 (Thy_Info.get_names ()) Keyword.empty_keywords)); |
46 (Thy_Info.get_names ()) Keyword.empty_keywords)); |
47 |
47 |
48 |
48 |
49 (* init *) |
49 (* init *) |
50 |
50 |
51 fun init symbols build info info_path doc doc_output doc_variants doc_files graph_file |
51 fun init symbols info info_path doc doc_output doc_variants doc_files graph_file |
52 parent (chapter, name) verbose = |
52 parent (chapter, name) verbose = |
53 (Synchronized.change session (fn ({name = parent_name, ...}, parent_finished) => |
53 (Synchronized.change session (fn ({name = parent_name, ...}, parent_finished) => |
54 if parent_name <> parent orelse not parent_finished then |
54 if parent_name <> parent orelse not parent_finished then |
55 error ("Unfinished parent session " ^ quote parent ^ " for " ^ quote name) |
55 error ("Unfinished parent session " ^ quote parent ^ " for " ^ quote name) |
56 else ({chapter = chapter, name = name}, false)); |
56 else ({chapter = chapter, name = name}, false)); |
57 Present.init symbols build info info_path (if doc = "false" then "" else doc) |
57 Present.init symbols info info_path (if doc = "false" then "" else doc) |
58 doc_output doc_variants doc_files graph_file (chapter, name) verbose); |
58 doc_output doc_variants doc_files graph_file (chapter, name) verbose); |
59 |
59 |
60 |
60 |
61 (* finish *) |
61 (* finish *) |
62 |
62 |