equal
deleted
inserted
replaced
34 val provide_parse_files: string -> (theory -> Token.file list * theory) parser |
34 val provide_parse_files: string -> (theory -> Token.file list * theory) parser |
35 val loaded_files_current: theory -> bool |
35 val loaded_files_current: theory -> bool |
36 val check_path: Proof.context -> Path.T -> string * Position.T -> Path.T |
36 val check_path: Proof.context -> Path.T -> string * Position.T -> Path.T |
37 val check_file: Proof.context -> Path.T -> string * Position.T -> Path.T |
37 val check_file: Proof.context -> Path.T -> string * Position.T -> Path.T |
38 val check_dir: Proof.context -> Path.T -> string * Position.T -> Path.T |
38 val check_dir: Proof.context -> Path.T -> string * Position.T -> Path.T |
39 val export_message: Markup.export_args -> Output.output list -> unit |
|
40 val export: theory -> string -> Output.output -> unit |
|
41 end; |
39 end; |
42 |
40 |
43 structure Resources: RESOURCES = |
41 structure Resources: RESOURCES = |
44 struct |
42 struct |
45 |
43 |
295 ML_Antiquotation.value \<^binding>\<open>dir\<close> |
293 ML_Antiquotation.value \<^binding>\<open>dir\<close> |
296 (Args.context -- Scan.lift (Parse.position Parse.path) >> uncurry (ML_antiq check_dir))); |
294 (Args.context -- Scan.lift (Parse.position Parse.path) >> uncurry (ML_antiq check_dir))); |
297 |
295 |
298 end; |
296 end; |
299 |
297 |
300 |
|
301 (* export *) |
|
302 |
|
303 val export_message = Output.try_protocol_message o Markup.export; |
|
304 |
|
305 fun export thy path output = |
|
306 export_message |
|
307 {id = Position.get_id (Position.thread_data ()), |
|
308 theory_name = Context.theory_long_name thy, |
|
309 path = path, |
|
310 compress = true} [output]; |
|
311 |
|
312 end; |
298 end; |