author | wenzelm |
Wed, 03 Apr 2019 21:50:00 +0200 | |
changeset 70047 | 96fe857a7a6f |
parent 70015 | c8e08d8ffb93 |
child 70049 | c1226e4c273e |
permissions | -rw-r--r-- |
69383 | 1 |
(* Title: Pure/Tools/generated_files.ML |
69381
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
2 |
Author: Makarius |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
3 |
|
69383 | 4 |
Generated source files for other languages: with antiquotations, without Isabelle symbols. |
69381
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
5 |
*) |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
6 |
|
69383 | 7 |
signature GENERATED_FILES = |
69381
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
8 |
sig |
70015
c8e08d8ffb93
clarified signature: more explicit type Path.binding;
wenzelm
parents:
70013
diff
changeset
|
9 |
val add_files: Path.binding * string -> theory -> theory |
70047
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
10 |
type file = {path: Path.T, pos: Position.T, content: string} |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
11 |
val file_binding: file -> Path.binding |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
12 |
val print_file: file -> string |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
13 |
val get_files: theory -> file list |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
14 |
val get_file: theory -> Path.binding -> file |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
15 |
val get_files_in: Path.binding list * theory -> file list |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
16 |
val check_files_in: Proof.context -> |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
17 |
(string * Position.T) list * (string * Position.T) option -> Path.binding list * theory |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
18 |
val write_file: Path.T -> file -> unit |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
19 |
val export_file: theory -> file -> unit |
69381
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
20 |
type file_type = |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
21 |
{name: string, ext: string, make_comment: string -> string, make_string: string -> string} |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
22 |
val file_type: |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
23 |
binding -> {ext: string, make_comment: string -> string, make_string: string -> string} -> |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
24 |
theory -> theory |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
25 |
val antiquotation: binding -> 'a Token.context_parser -> |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
26 |
({context: Proof.context, source: Token.src, file_type: file_type, argument: 'a} -> string) -> |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
27 |
theory -> theory |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
28 |
val set_string: string -> Proof.context -> Proof.context |
70047
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
29 |
val generate_file: Path.binding * Input.source -> Proof.context -> local_theory |
69381
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
30 |
val generate_file_cmd: (string * Position.T) * Input.source -> local_theory -> local_theory |
70047
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
31 |
val export_generated_files: Proof.context -> (Path.binding list * theory) list -> unit |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
32 |
val export_generated_files_cmd: Proof.context -> |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
33 |
((string * Position.T) list * (string * Position.T) option) list -> unit |
69381
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
34 |
end; |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
35 |
|
69383 | 36 |
structure Generated_Files: GENERATED_FILES = |
69381
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
37 |
struct |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
38 |
|
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
39 |
(** context data **) |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
40 |
|
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
41 |
type file_type = |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
42 |
{name: string, ext: string, make_comment: string -> string, make_string: string -> string}; |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
43 |
|
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
44 |
type antiquotation = Token.src -> Proof.context -> file_type -> string; |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
45 |
|
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
46 |
structure Data = Theory_Data |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
47 |
( |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
48 |
type T = |
69385
be9f187dcd50
clarified signature: allow to add_files/get_files by other tools;
wenzelm
parents:
69383
diff
changeset
|
49 |
(Path.T * (Position.T * string)) list * (*files for current theory*) |
69381
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
50 |
file_type Name_Space.table * (*file types*) |
69385
be9f187dcd50
clarified signature: allow to add_files/get_files by other tools;
wenzelm
parents:
69383
diff
changeset
|
51 |
antiquotation Name_Space.table; (*antiquotations*) |
69381
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
52 |
val empty = |
69385
be9f187dcd50
clarified signature: allow to add_files/get_files by other tools;
wenzelm
parents:
69383
diff
changeset
|
53 |
([], |
be9f187dcd50
clarified signature: allow to add_files/get_files by other tools;
wenzelm
parents:
69383
diff
changeset
|
54 |
Name_Space.empty_table Markup.file_typeN, |
be9f187dcd50
clarified signature: allow to add_files/get_files by other tools;
wenzelm
parents:
69383
diff
changeset
|
55 |
Name_Space.empty_table Markup.antiquotationN); |
be9f187dcd50
clarified signature: allow to add_files/get_files by other tools;
wenzelm
parents:
69383
diff
changeset
|
56 |
val extend = @{apply 3(1)} (K []); |
be9f187dcd50
clarified signature: allow to add_files/get_files by other tools;
wenzelm
parents:
69383
diff
changeset
|
57 |
fun merge ((_, types1, antiqs1), (_, types2, antiqs2)) = |
be9f187dcd50
clarified signature: allow to add_files/get_files by other tools;
wenzelm
parents:
69383
diff
changeset
|
58 |
([], |
be9f187dcd50
clarified signature: allow to add_files/get_files by other tools;
wenzelm
parents:
69383
diff
changeset
|
59 |
Name_Space.merge_tables (types1, types2), |
be9f187dcd50
clarified signature: allow to add_files/get_files by other tools;
wenzelm
parents:
69383
diff
changeset
|
60 |
Name_Space.merge_tables (antiqs1, antiqs2)); |
69381
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
61 |
); |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
62 |
|
70015
c8e08d8ffb93
clarified signature: more explicit type Path.binding;
wenzelm
parents:
70013
diff
changeset
|
63 |
fun add_files (binding, content) = |
c8e08d8ffb93
clarified signature: more explicit type Path.binding;
wenzelm
parents:
70013
diff
changeset
|
64 |
let val (path, pos) = Path.dest_binding binding in |
69385
be9f187dcd50
clarified signature: allow to add_files/get_files by other tools;
wenzelm
parents:
69383
diff
changeset
|
65 |
(Data.map o @{apply 3(1)}) (fn files => |
be9f187dcd50
clarified signature: allow to add_files/get_files by other tools;
wenzelm
parents:
69383
diff
changeset
|
66 |
(case AList.lookup (op =) files path of |
70015
c8e08d8ffb93
clarified signature: more explicit type Path.binding;
wenzelm
parents:
70013
diff
changeset
|
67 |
SOME (pos', _) => |
c8e08d8ffb93
clarified signature: more explicit type Path.binding;
wenzelm
parents:
70013
diff
changeset
|
68 |
error ("Duplicate generated file: " ^ Path.print path ^ Position.here_list [pos, pos']) |
70012 | 69 |
| NONE => (path, (pos, content)) :: files)) |
69385
be9f187dcd50
clarified signature: allow to add_files/get_files by other tools;
wenzelm
parents:
69383
diff
changeset
|
70 |
end; |
be9f187dcd50
clarified signature: allow to add_files/get_files by other tools;
wenzelm
parents:
69383
diff
changeset
|
71 |
|
70047
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
72 |
|
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
73 |
(* get files *) |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
74 |
|
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
75 |
type file = {path: Path.T, pos: Position.T, content: string}; |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
76 |
|
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
77 |
fun file_binding (file: file) = Path.binding (#path file, #pos file); |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
78 |
|
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
79 |
fun print_file (file: file) = |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
80 |
quote (Path.implode (#path file)) |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
81 |
|> Markup.markup (Markup.entityN, Position.def_properties_of (#pos file)); |
69385
be9f187dcd50
clarified signature: allow to add_files/get_files by other tools;
wenzelm
parents:
69383
diff
changeset
|
82 |
|
70047
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
83 |
fun get_files thy = |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
84 |
Data.get thy |> #1 |> rev |> map (fn (path, (pos, content)) => |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
85 |
{path = path, pos = pos, content = content}: file); |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
86 |
|
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
87 |
fun get_file thy binding = |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
88 |
let val (path, pos) = Path.dest_binding binding in |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
89 |
(case find_first (fn file => #path file = path) (get_files thy) of |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
90 |
SOME file => file |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
91 |
| NONE => |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
92 |
error ("Missing generated file " ^ Path.print path ^ |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
93 |
" in theory " ^ quote (Context.theory_long_name thy) ^ Position.here pos)) |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
94 |
end; |
69381
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
95 |
|
70047
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
96 |
fun get_files_in ([], thy) = get_files thy |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
97 |
| get_files_in (files, thy) = map (get_file thy) files; |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
98 |
|
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
99 |
|
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
100 |
(* check and output files *) |
69628 | 101 |
|
70047
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
102 |
fun check_files_in ctxt (files, opt_thy) = |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
103 |
let |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
104 |
val thy = |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
105 |
(case opt_thy of |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
106 |
SOME name => Theory.check {long = false} ctxt name |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
107 |
| NONE => Proof_Context.theory_of ctxt); |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
108 |
in (map Path.explode_binding files, thy) end; |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
109 |
|
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
110 |
fun write_file dir (file: file) = |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
111 |
let |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
112 |
val path = Path.expand (Path.append dir (#path file)); |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
113 |
val _ = Isabelle_System.mkdirs (Path.dir path); |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
114 |
val _ = File.generate path (#content file); |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
115 |
in () end; |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
116 |
|
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
117 |
fun export_file thy (file: file) = |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
118 |
Export.export thy (file_binding file) [#content file]; |
70013 | 119 |
|
69381
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
120 |
|
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
121 |
(* file types *) |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
122 |
|
70047
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
123 |
fun get_file_type thy ext = |
69381
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
124 |
if ext = "" then error "Bad file extension" |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
125 |
else |
69385
be9f187dcd50
clarified signature: allow to add_files/get_files by other tools;
wenzelm
parents:
69383
diff
changeset
|
126 |
(#2 (Data.get thy), NONE) |-> Name_Space.fold_table |
69381
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
127 |
(fn (_, file_type) => fn res => |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
128 |
if #ext file_type = ext then SOME file_type else res) |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
129 |
|> (fn SOME file_type => file_type |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
130 |
| NONE => error ("Unknown file type for extension " ^ quote ext)); |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
131 |
|
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
132 |
fun file_type binding {ext, make_comment, make_string} thy = |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
133 |
let |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
134 |
val name = Binding.name_of binding; |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
135 |
val pos = Binding.pos_of binding; |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
136 |
val file_type = {name = name, ext = ext, make_comment = make_comment, make_string = make_string}; |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
137 |
|
69385
be9f187dcd50
clarified signature: allow to add_files/get_files by other tools;
wenzelm
parents:
69383
diff
changeset
|
138 |
val table = #2 (Data.get thy); |
69381
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
139 |
val space = Name_Space.space_of_table table; |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
140 |
val context = Context.Theory thy |> Name_Space.map_naming (K Name_Space.global_naming); |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
141 |
val (_, data') = table |> Name_Space.define context true (Binding.make (name, pos), file_type); |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
142 |
|
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
143 |
val _ = |
70047
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
144 |
(case try (#name o get_file_type thy) ext of |
69381
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
145 |
NONE => () |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
146 |
| SOME name' => |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
147 |
error ("Extension " ^ quote ext ^ " already registered for file type " ^ |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
148 |
quote (Markup.markup (Name_Space.markup space name') name') ^ Position.here pos)); |
69385
be9f187dcd50
clarified signature: allow to add_files/get_files by other tools;
wenzelm
parents:
69383
diff
changeset
|
149 |
in thy |> (Data.map o @{apply 3(2)}) (K data') end; |
69381
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
150 |
|
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
151 |
|
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
152 |
(* antiquotations *) |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
153 |
|
69385
be9f187dcd50
clarified signature: allow to add_files/get_files by other tools;
wenzelm
parents:
69383
diff
changeset
|
154 |
val get_antiquotations = #3 o Data.get o Proof_Context.theory_of; |
69381
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
155 |
|
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
156 |
fun antiquotation name scan body thy = |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
157 |
let |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
158 |
fun ant src ctxt file_type : string = |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
159 |
let val (x, ctxt') = Token.syntax scan src ctxt |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
160 |
in body {context = ctxt', source = src, file_type = file_type, argument = x} end; |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
161 |
in |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
162 |
thy |
69385
be9f187dcd50
clarified signature: allow to add_files/get_files by other tools;
wenzelm
parents:
69383
diff
changeset
|
163 |
|> (Data.map o @{apply 3(3)}) (Name_Space.define (Context.Theory thy) true (name, ant) #> #2) |
69381
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
164 |
end; |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
165 |
|
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
166 |
val scan_antiq = |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
167 |
Antiquote.scan_control >> Antiquote.Control || |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
168 |
Scan.one (Symbol.not_eof o Symbol_Pos.symbol) >> (Antiquote.Text o Symbol_Pos.symbol); |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
169 |
|
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
170 |
fun read_source ctxt (file_type: file_type) source = |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
171 |
let |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
172 |
val _ = |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
173 |
Context_Position.report ctxt (Input.pos_of source) |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
174 |
(Markup.language |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
175 |
{name = #name file_type, symbols = false, antiquotes = true, |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
176 |
delimited = Input.is_delimited source}); |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
177 |
|
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
178 |
val (input, _) = |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
179 |
Input.source_explode source |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
180 |
|> Scan.error (Scan.finite Symbol_Pos.stopper (Scan.repeat scan_antiq)); |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
181 |
|
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
182 |
val _ = Context_Position.reports ctxt (Antiquote.antiq_reports input); |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
183 |
|
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
184 |
fun expand antiq = |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
185 |
(case antiq of |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
186 |
Antiquote.Text s => s |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
187 |
| Antiquote.Control {name, body, ...} => |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
188 |
let |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
189 |
val src = Token.make_src name (if null body then [] else [Token.read_cartouche body]); |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
190 |
val (src', ant) = Token.check_src ctxt get_antiquotations src; |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
191 |
in ant src' ctxt file_type end |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
192 |
| Antiquote.Antiq antiq => error ("Bad antiquotation " ^ Position.here (#1 (#range antiq)))); |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
193 |
in implode (map expand input) end; |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
194 |
|
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
195 |
|
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
196 |
|
70047
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
197 |
(** Isar commands **) |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
198 |
|
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
199 |
fun generate_file (binding, source) lthy = |
69381
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
200 |
let |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
201 |
val thy = Proof_Context.theory_of lthy; |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
202 |
|
70047
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
203 |
val (path, pos) = Path.dest_binding binding; |
69381
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
204 |
val file_type = |
70047
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
205 |
get_file_type thy (#2 (Path.split_ext path)) |
69381
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
206 |
handle ERROR msg => error (msg ^ Position.here pos); |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
207 |
|
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
208 |
val header = #make_comment file_type " generated by Isabelle "; |
70012 | 209 |
val content = header ^ "\n" ^ read_source lthy file_type source; |
70015
c8e08d8ffb93
clarified signature: more explicit type Path.binding;
wenzelm
parents:
70013
diff
changeset
|
210 |
in lthy |> (Local_Theory.background_theory o add_files) (binding, content) end; |
69381
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
211 |
|
70047
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
212 |
fun generate_file_cmd (file, source) lthy = |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
213 |
generate_file (Path.explode_binding file, source) lthy; |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
214 |
|
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
215 |
fun export_generated_files ctxt args = |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
216 |
let val thy = Proof_Context.theory_of ctxt in |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
217 |
(case maps get_files_in args of |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
218 |
[] => () |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
219 |
| files => |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
220 |
(List.app (export_file thy) files; |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
221 |
writeln (Export.message thy Path.current); |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
222 |
writeln (cat_lines (map (prefix " " o print_file) files)))) |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
223 |
end; |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
224 |
|
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
225 |
fun export_generated_files_cmd ctxt args = |
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
226 |
export_generated_files ctxt (map (check_files_in ctxt) args); |
69383 | 227 |
|
69381
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
228 |
|
70047
96fe857a7a6f
clarified signature: more explicit operations for corresponding Isar commands;
wenzelm
parents:
70015
diff
changeset
|
229 |
|
69381
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
230 |
(** concrete file types **) |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
231 |
|
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
232 |
val _ = |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
233 |
Theory.setup |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
234 |
(file_type \<^binding>\<open>Haskell\<close> |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
235 |
{ext = "hs", |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
236 |
make_comment = enclose "{-" "-}", |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
237 |
make_string = GHC.print_string}); |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
238 |
|
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
239 |
|
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
240 |
|
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
241 |
(** concrete antiquotations **) |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
242 |
|
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
243 |
(* ML expression as string literal *) |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
244 |
|
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
245 |
structure Local_Data = Proof_Data |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
246 |
( |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
247 |
type T = string option; |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
248 |
fun init _ = NONE; |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
249 |
); |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
250 |
|
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
251 |
val set_string = Local_Data.put o SOME; |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
252 |
|
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
253 |
fun the_string ctxt = |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
254 |
(case Local_Data.get ctxt of |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
255 |
SOME s => s |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
256 |
| NONE => raise Fail "No result string"); |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
257 |
|
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
258 |
val _ = |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
259 |
Theory.setup |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
260 |
(antiquotation \<^binding>\<open>cartouche\<close> (Scan.lift Args.cartouche_input) |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
261 |
(fn {context = ctxt, file_type, argument, ...} => |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
262 |
ctxt |> Context.proof_map |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
263 |
(ML_Context.expression (Input.pos_of argument) |
69383 | 264 |
(ML_Lex.read "Theory.local_setup (Generated_Files.set_string (" @ |
69381
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
265 |
ML_Lex.read_source argument @ ML_Lex.read "))")) |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
266 |
|> the_string |> #make_string file_type)); |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
267 |
|
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
268 |
|
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
269 |
(* file-system paths *) |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
270 |
|
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
271 |
fun path_antiquotation binding check = |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
272 |
antiquotation binding |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
273 |
(Args.context -- Scan.lift (Parse.position Parse.path) >> |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
274 |
(fn (ctxt, (name, pos)) => (check ctxt Path.current (name, pos) |> Path.implode))) |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
275 |
(fn {file_type, argument, ...} => #make_string file_type argument); |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
276 |
|
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
277 |
val _ = |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
278 |
Theory.setup |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
279 |
(path_antiquotation \<^binding>\<open>path\<close> Resources.check_path #> |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
280 |
path_antiquotation \<^binding>\<open>file\<close> Resources.check_file #> |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
281 |
path_antiquotation \<^binding>\<open>dir\<close> Resources.check_dir); |
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
282 |
|
4c9b4e2c5460
more general command 'generate_file' for registered file types, notably Haskell;
wenzelm
parents:
diff
changeset
|
283 |
end; |