code cleanup
ci/woodpecker/push/build Pipeline was successful
Details
ci/woodpecker/push/build Pipeline was successful
Details
This commit is contained in:
parent
63c2acfece
commit
0834f938a9
|
@ -26,8 +26,7 @@ keywords "text-" "text-latex" :: document_body
|
||||||
|
|
||||||
begin
|
begin
|
||||||
|
|
||||||
section\<open>Testing Commands (exec-catch-verify - versions of std commands)\<close>
|
section\<open>Testing Commands (exec-catch-verify - versions of DOF commands)\<close>
|
||||||
|
|
||||||
|
|
||||||
ML\<open>
|
ML\<open>
|
||||||
|
|
||||||
|
@ -102,15 +101,14 @@ fun output_document2 state markdown txt =
|
||||||
in Document_Output.output_document ctxt markdown txt end;
|
in Document_Output.output_document ctxt markdown txt end;
|
||||||
|
|
||||||
fun document_command2 markdown (loc, txt) =
|
fun document_command2 markdown (loc, txt) =
|
||||||
Toplevel.keep (fn state =>
|
let fun doc2 state = (case loc of
|
||||||
(case loc of
|
|
||||||
NONE => ignore (output_document2 state markdown txt)
|
NONE => ignore (output_document2 state markdown txt)
|
||||||
| SOME (_, pos) =>(ISA_core.err
|
| SOME (_, pos) =>(ISA_core.err
|
||||||
"Illegal target specification -- not a theory context"
|
"Illegal target specification -- not a theory context"
|
||||||
pos)))
|
pos))
|
||||||
o
|
fun out2 state = output_document2 state markdown txt
|
||||||
Toplevel.present_local_theory loc (fn state => (output_document2 state markdown txt));
|
in Toplevel.keep doc2 o Toplevel.present_local_theory loc out2
|
||||||
|
end
|
||||||
|
|
||||||
fun gen_enriched_document_command3 assert name body trans at md (margs, src_list) thy
|
fun gen_enriched_document_command3 assert name body trans at md (margs, src_list) thy
|
||||||
= (gen_enriched_document_command2 name body trans at md (margs, src_list) thy)
|
= (gen_enriched_document_command2 name body trans at md (margs, src_list) thy)
|
||||||
|
@ -155,13 +153,6 @@ val _ =
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
(* fun pass_trans_to_value_cmd args ((name, modes), t) trans =
|
|
||||||
let val pos = Toplevel.pos_of trans
|
|
||||||
in
|
|
||||||
trans |> Toplevel.theory (value_cmd {assert=false} args name modes t @{here})
|
|
||||||
end
|
|
||||||
*)
|
|
||||||
|
|
||||||
val _ =
|
val _ =
|
||||||
let fun pass_trans_to_value_cmd (args, (((name, modes), t),src)) trans =
|
let fun pass_trans_to_value_cmd (args, (((name, modes), t),src)) trans =
|
||||||
(Value_Command.value_cmd {assert=false} args name modes t @{here} trans
|
(Value_Command.value_cmd {assert=false} args name modes t @{here} trans
|
||||||
|
@ -184,10 +175,9 @@ val _ =
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
\<close>
|
\<close>
|
||||||
|
|
||||||
(* auto-tests *)
|
(* a little auto-test *)
|
||||||
text-latex\<open>dfg\<close>
|
text-latex\<open>dfg\<close>
|
||||||
|
|
||||||
text-assert-error[aaaa::A]\<open> @{A \<open>sdf\<close>}\<close>\<open>reference ontologically inconsistent\<close>
|
text-assert-error[aaaa::A]\<open> @{A \<open>sdf\<close>}\<close>\<open>reference ontologically inconsistent\<close>
|
||||||
|
|
Loading…
Reference in New Issue