pierre.derathe
/
Isabelle_DOF
Archived
forked from Isabelle_DOF/Isabelle_DOF
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Initial update of used API to Isabelle 2019.

This commit is contained in:
Achim D. Brucker 2019-06-18 09:12:13 +01:00
parent 39afa24591
commit 1a9ed995f5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
patches/thy_output.ML
View File

@ -153,7 +153,7 @@ fun check_comments ctxt =
val pos = #1 (Symbol_Pos.range syms); val pos = #1 (Symbol_Pos.range syms);
val _ = val _ =
comment |> Option.app (fn kind => comment |> Option.app (fn kind =>
Context_Position.reports ctxt (map (pair pos) (Markup.cartouche :: Comment.markups kind))); Context_Position.reports ctxt (map (pair pos) (Markup.cartouche :: Comment.kind_markups kind)));
val _ = output_comment_symbols ctxt {antiq = false} (comment, syms); val _ = output_comment_symbols ctxt {antiq = false} (comment, syms);
in if comment = SOME Comment.Comment then check_comments ctxt syms else () end); in if comment = SOME Comment.Comment then check_comments ctxt syms else () end);
@ -360,7 +360,7 @@ val ignore =
(if d = 0 then Scan.fail_with (K (fn () => "Bad nesting of meta-comments")) else opt_newline) (if d = 0 then Scan.fail_with (K (fn () => "Bad nesting of meta-comments")) else opt_newline)
>> pair (d - 1)); >> pair (d - 1));
val tag = (improper -- Parse.$$$ "%" -- improper) |-- Parse.!!! (Parse.tag_name --| blank_end); val tag = (improper -- Parse.$$$ "%" -- improper) |-- Parse.!!! (Document_Source.tag_name --| blank_end);
val locale = val locale =
Scan.option ((Parse.$$$ "(" -- improper -- Parse.$$$ "in") |-- Scan.option ((Parse.$$$ "(" -- improper -- Parse.$$$ "in") |--
@ -477,7 +477,7 @@ fun present_thy options thy (segments: segment list) =
in in
if length command_results = length spans then if length command_results = length spans then
((NONE, []), NONE, true, [], (I, I)) ((NONE, []), NONE, true, [], (I, I))
|> present Toplevel.toplevel (spans ~~ command_results) |> present (Toplevel.init_toplevel ()) (spans ~~ command_results)
|> present_trailer |> present_trailer
|> rev |> rev
else error "Messed-up outer syntax for presentation" else error "Messed-up outer syntax for presentation"