src/Pure/PIDE/resources.ML
changeset 68090 7c8ed28dd40a
parent 68089 d934bbfeac32
child 69238 d98cfb369cbd
equal deleted inserted replaced
68089:d934bbfeac32 68090:7c8ed28dd40a
    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;