equal
deleted
inserted
replaced
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) >> |