equal
deleted
inserted
replaced
5 *) |
5 *) |
6 |
6 |
7 signature EXPORT = |
7 signature EXPORT = |
8 sig |
8 sig |
9 val export: theory -> string -> string -> unit |
9 val export: theory -> string -> string -> unit |
10 val export_raw: theory -> string -> string list -> unit |
10 val export_raw: theory -> string -> string -> unit |
11 end; |
11 end; |
12 |
12 |
13 structure Export: EXPORT = |
13 structure Export: EXPORT = |
14 struct |
14 struct |
15 |
15 |
29 (Output.try_protocol_message o Markup.export) |
29 (Output.try_protocol_message o Markup.export) |
30 {id = Position.get_id (Position.thread_data ()), |
30 {id = Position.get_id (Position.thread_data ()), |
31 serial = serial (), |
31 serial = serial (), |
32 theory_name = Context.theory_long_name thy, |
32 theory_name = Context.theory_long_name thy, |
33 name = check_name name, |
33 name = check_name name, |
34 compress = compress} body; |
34 compress = compress} [body]; |
35 |
35 |
36 fun export thy name body = gen_export (size body > 60) thy name [body]; |
36 fun export thy name body = gen_export (size body > 60) thy name body; |
37 fun export_raw thy name body = gen_export false thy name body; |
37 val export_raw = gen_export false; |
38 |
38 |
39 end; |
39 end; |