src/Pure/PIDE/markup.ML
changeset 68090 7c8ed28dd40a
parent 68089 d934bbfeac32
child 68101 0699a0bacc50
equal deleted inserted replaced
68089:d934bbfeac32 68090:7c8ed28dd40a
   201   val ML_statistics: Properties.entry
   201   val ML_statistics: Properties.entry
   202   val task_statistics: Properties.entry
   202   val task_statistics: Properties.entry
   203   val command_timing: Properties.entry
   203   val command_timing: Properties.entry
   204   val theory_timing: Properties.entry
   204   val theory_timing: Properties.entry
   205   val exportN: string
   205   val exportN: string
   206   type export_args = {id: string option, theory_name: string, path: string, compress: bool}
   206   type export_args = {id: string option, theory_name: string, name: string, compress: bool}
   207   val export: export_args -> Properties.T
   207   val export: export_args -> Properties.T
   208   val loading_theory: string -> Properties.T
   208   val loading_theory: string -> Properties.T
   209   val dest_loading_theory: Properties.T -> string option
   209   val dest_loading_theory: Properties.T -> string option
   210   val build_session_finished: Properties.T
   210   val build_session_finished: Properties.T
   211   val print_operationsN: string
   211   val print_operationsN: string
   640 val command_timing = (functionN, "command_timing");
   640 val command_timing = (functionN, "command_timing");
   641 
   641 
   642 val theory_timing = (functionN, "theory_timing");
   642 val theory_timing = (functionN, "theory_timing");
   643 
   643 
   644 val exportN = "export";
   644 val exportN = "export";
   645 type export_args = {id: string option, theory_name: string, path: string, compress: bool}
   645 type export_args = {id: string option, theory_name: string, name: string, compress: bool}
   646 fun export ({id, theory_name, path, compress}: export_args) =
   646 fun export ({id, theory_name, name, compress}: export_args) =
   647   [(functionN, exportN), ("id", the_default "" id),
   647   [(functionN, exportN), (idN, the_default "" id),
   648     ("theory_name", theory_name), ("path", path), ("compress", Value.print_bool compress)];
   648     ("theory_name", theory_name), (nameN, name), ("compress", Value.print_bool compress)];
   649 
   649 
   650 fun loading_theory name = [("function", "loading_theory"), ("name", name)];
   650 fun loading_theory name = [("function", "loading_theory"), ("name", name)];
   651 
   651 
   652 fun dest_loading_theory [("function", "loading_theory"), ("name", name)] = SOME name
   652 fun dest_loading_theory [("function", "loading_theory"), ("name", name)] = SOME name
   653   | dest_loading_theory _ = NONE;
   653   | dest_loading_theory _ = NONE;