| author | Walther Neuper <neuper@ist.tugraz.at> |
| Thu, 21 Nov 2013 11:17:42 +0100 | |
| changeset 55275 | f08422eeef24 |
| parent 52142 | e7febad0c988 |
| child 55448 | dd65e9fe85a7 |
| permissions | -rw-r--r-- |
| neuper@41905 | 1 |
(* Title: collect all defitions for the Frontend |
| neuper@41905 | 2 |
Author: Walther Neuper 110226 |
| neuper@41905 | 3 |
(c) due to copyright terms |
| neuper@41905 | 4 |
*) |
| neuper@41905 | 5 |
|
| neuper@52139 | 6 |
theory Frontend imports "~~/src/Tools/isac/xmlsrc/xmlsrc" |
| neuper@41905 | 7 |
begin |
| neuper@52142 | 8 |
ML {* val Rls {rules = rrr, ...} = assoc_rls' @{theory} "list_rls" *}
|
| neuper@52139 | 9 |
ML {* length rrr = 53 *}
|
| neuper@52139 | 10 |
ML {* AList.lookup op = (KEStore_Elems.get_rlss @{theory}) "list_rls" *}
|
| neuper@52139 | 11 |
ML {* val SOME (_, (Rls {rules = kkk, ...})) =
|
| neuper@52139 | 12 |
AList.lookup op = (KEStore_Elems.get_rlss @{theory}) "list_rls" *}
|
| neuper@52139 | 13 |
ML {* length kkk = 42 *}
|
| neuper@52139 | 14 |
|
| s1210629013@52131 | 15 |
ML_file "~~/src/Tools/isac/Frontend/messages.sml" |
| s1210629013@52131 | 16 |
ML_file "~~/src/Tools/isac/Frontend/states.sml" |
| s1210629013@52131 | 17 |
ML_file "~~/src/Tools/isac/Frontend/interface.sml" |
| neuper@41905 | 18 |
|
| neuper@55275 | 19 |
ML_file "~~/src/Tools/isac/print_exn_G.sml" |
| neuper@41905 | 20 |
end |