equal
deleted
inserted
replaced
40 val assert_target: theory -> string -> string |
40 val assert_target: theory -> string -> string |
41 val the_literals: theory -> string -> literals |
41 val the_literals: theory -> string -> literals |
42 type serialization |
42 type serialization |
43 val parse_args: 'a parser -> Token.T list -> 'a |
43 val parse_args: 'a parser -> Token.T list -> 'a |
44 val serialization: (int -> Path.T option -> 'a -> unit) |
44 val serialization: (int -> Path.T option -> 'a -> unit) |
45 -> (bool -> int -> 'a -> string * string option list) |
45 -> (string list -> int -> 'a -> string * string option list) |
46 -> 'a -> serialization |
46 -> 'a -> serialization |
47 val set_default_code_width: int -> theory -> theory |
47 val set_default_code_width: int -> theory -> theory |
48 |
48 |
49 val allow_abort: string -> theory -> theory |
49 val allow_abort: string -> theory -> theory |
50 type tyco_syntax = Code_Printer.tyco_syntax |
50 type tyco_syntax = Code_Printer.tyco_syntax |
74 |
74 |
75 fun stmt_names_of_destination (Present stmt_names) = stmt_names |
75 fun stmt_names_of_destination (Present stmt_names) = stmt_names |
76 | stmt_names_of_destination _ = []; |
76 | stmt_names_of_destination _ = []; |
77 |
77 |
78 fun serialization output _ content width (Export some_path) = (output width some_path content; NONE) |
78 fun serialization output _ content width (Export some_path) = (output width some_path content; NONE) |
79 | serialization _ string content width Produce = SOME (string false width content) |
79 | serialization _ string content width Produce = SOME (string [] width content) |
80 | serialization _ string content width (Present _) = SOME (string false width content); |
80 | serialization _ string content width (Present _) = SOME (string [] width content); |
81 |
81 |
82 fun export some_path f = (f (Export some_path); ()); |
82 fun export some_path f = (f (Export some_path); ()); |
83 fun produce f = the (f Produce); |
83 fun produce f = the (f Produce); |
84 fun present stmt_names f = fst (the (f (Present stmt_names))); |
84 fun present stmt_names f = fst (the (f (Present stmt_names))); |
85 |
85 |