src/Pure/PIDE/protocol.ML
changeset 65532 febfd9f78bd4
parent 65478 7c40477e0a87
child 66370 de9c6560c221
equal deleted inserted replaced
65531:24544e3f183d 65532:febfd9f78bd4
    17       (Options.set_default (Options.decode (YXML.parse_body options_yxml));
    17       (Options.set_default (Options.decode (YXML.parse_body options_yxml));
    18        Isabelle_Process.init_options_interactive ()));
    18        Isabelle_Process.init_options_interactive ()));
    19 
    19 
    20 val _ =
    20 val _ =
    21   Isabelle_Process.protocol_command "Prover.session_base"
    21   Isabelle_Process.protocol_command "Prover.session_base"
    22     (fn [default_qualifier, global_theories_yxml, loaded_theories_yxml, known_theories_yxml] =>
    22     (fn [global_theories_yxml, loaded_theories_yxml, known_theories_yxml] =>
    23       let
    23       let
    24         val decode_table = YXML.parse_body #> let open XML.Decode in list (pair string string) end;
    24         val decode_table = YXML.parse_body #> let open XML.Decode in list (pair string string) end;
    25       in
    25       in
    26         Resources.init_session_base
    26         Resources.init_session_base
    27           {default_qualifier = default_qualifier,
    27           {global_theories = decode_table global_theories_yxml,
    28            global_theories = decode_table global_theories_yxml,
       
    29            loaded_theories = decode_table loaded_theories_yxml,
    28            loaded_theories = decode_table loaded_theories_yxml,
    30            known_theories = decode_table known_theories_yxml}
    29            known_theories = decode_table known_theories_yxml}
    31       end);
    30       end);
    32 
    31 
    33 val _ =
    32 val _ =