src/Pure/PIDE/session.ML
changeset 71611 fb6953e77000
parent 62944 3ee643c5ed00
child 72098 8c547eac8381
equal deleted inserted replaced
71610:5730eb952208 71611:fb6953e77000
     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