src/Pure/PIDE/resources.ML
changeset 73761 ef1a18e20ace
parent 73565 1aa92bc4d356
child 73780 466fae6bf22e
equal deleted inserted replaced
73760:f4be1b0d7a51 73761:ef1a18e20ace
   196         SOME (multi, _) => multi
   196         SOME (multi, _) => multi
   197       | NONE => false);
   197       | NONE => false);
   198   in (name, multi) end;
   198   in (name, multi) end;
   199 
   199 
   200 val _ = Theory.setup
   200 val _ = Theory.setup
   201  (Thy_Output.antiquotation_verbatim_embedded \<^binding>\<open>scala_function\<close>
   201  (Document_Output.antiquotation_verbatim_embedded \<^binding>\<open>scala_function\<close>
   202     (Scan.lift Parse.embedded_position) (#1 oo check_scala_function) #>
   202     (Scan.lift Parse.embedded_position) (#1 oo check_scala_function) #>
   203   ML_Antiquotation.inline_embedded \<^binding>\<open>scala_function\<close>
   203   ML_Antiquotation.inline_embedded \<^binding>\<open>scala_function\<close>
   204     (Args.context -- Scan.lift Parse.embedded_position
   204     (Args.context -- Scan.lift Parse.embedded_position
   205       >> (uncurry check_scala_function #> #1 #> ML_Syntax.print_string)) #>
   205       >> (uncurry check_scala_function #> #1 #> ML_Syntax.print_string)) #>
   206   ML_Antiquotation.value_embedded \<^binding>\<open>scala\<close>
   206   ML_Antiquotation.value_embedded \<^binding>\<open>scala\<close>
   422     check ctxt (SOME Path.current) source |> ML_Syntax.print_path);
   422     check ctxt (SOME Path.current) source |> ML_Syntax.print_path);
   423 
   423 
   424 in
   424 in
   425 
   425 
   426 val _ = Theory.setup
   426 val _ = Theory.setup
   427  (Thy_Output.antiquotation_verbatim_embedded \<^binding>\<open>session\<close>
   427  (Document_Output.antiquotation_verbatim_embedded \<^binding>\<open>session\<close>
   428     (Scan.lift Parse.embedded_position) check_session #>
   428     (Scan.lift Parse.embedded_position) check_session #>
   429   Thy_Output.antiquotation_raw_embedded \<^binding>\<open>path\<close> (document_antiq check_path) (K I) #>
   429   Document_Output.antiquotation_raw_embedded \<^binding>\<open>path\<close> (document_antiq check_path) (K I) #>
   430   Thy_Output.antiquotation_raw_embedded \<^binding>\<open>file\<close> (document_antiq check_file) (K I) #>
   430   Document_Output.antiquotation_raw_embedded \<^binding>\<open>file\<close> (document_antiq check_file) (K I) #>
   431   Thy_Output.antiquotation_raw_embedded \<^binding>\<open>dir\<close> (document_antiq check_dir) (K I) #>
   431   Document_Output.antiquotation_raw_embedded \<^binding>\<open>dir\<close> (document_antiq check_dir) (K I) #>
   432   ML_Antiquotation.value_embedded \<^binding>\<open>path\<close> (ML_antiq check_path) #>
   432   ML_Antiquotation.value_embedded \<^binding>\<open>path\<close> (ML_antiq check_path) #>
   433   ML_Antiquotation.value_embedded \<^binding>\<open>file\<close> (ML_antiq check_file) #>
   433   ML_Antiquotation.value_embedded \<^binding>\<open>file\<close> (ML_antiq check_file) #>
   434   ML_Antiquotation.value_embedded \<^binding>\<open>dir\<close> (ML_antiq check_dir) #>
   434   ML_Antiquotation.value_embedded \<^binding>\<open>dir\<close> (ML_antiq check_dir) #>
   435   ML_Antiquotation.value_embedded \<^binding>\<open>path_binding\<close>
   435   ML_Antiquotation.value_embedded \<^binding>\<open>path_binding\<close>
   436     (Scan.lift (Parse.position Parse.path) >>
   436     (Scan.lift (Parse.position Parse.path) >>