author | wenzelm |
Wed, 27 May 2020 15:51:10 +0200 | |
changeset 71905 | 1ca5623888bb |
parent 71900 | f08cf9d8f90b |
child 71906 | a63072d875d1 |
permissions | -rw-r--r-- |
71888 | 1 |
(* Title: Pure/System/scala_compiler.ML |
71881 | 2 |
Author: Makarius |
3 |
||
71888 | 4 |
Scala compiler operations. |
71881 | 5 |
*) |
6 |
||
71888 | 7 |
signature SCALA_COMPILER = |
71881 | 8 |
sig |
71888 | 9 |
val toplevel: string -> unit |
71890
3b35b0fd7fe8
clarified static_check: avoid accidental evaluation;
wenzelm
parents:
71888
diff
changeset
|
10 |
val static_check: string -> unit |
71881 | 11 |
end; |
12 |
||
71888 | 13 |
structure Scala_Compiler: SCALA_COMPILER = |
71881 | 14 |
struct |
15 |
||
71887 | 16 |
(* check declaration *) |
17 |
||
71888 | 18 |
fun toplevel source = |
71881 | 19 |
let val errors = |
71888 | 20 |
\<^scala>\<open>scala_toplevel\<close> source |
71881 | 21 |
|> YXML.parse_body |
22 |
|> let open XML.Decode in list string end |
|
23 |
in if null errors then () else error (cat_lines errors) end; |
|
24 |
||
71890
3b35b0fd7fe8
clarified static_check: avoid accidental evaluation;
wenzelm
parents:
71888
diff
changeset
|
25 |
fun static_check source = |
3b35b0fd7fe8
clarified static_check: avoid accidental evaluation;
wenzelm
parents:
71888
diff
changeset
|
26 |
toplevel ("package test\nclass __Dummy__ { __dummy__ => " ^ source ^ " }"); |
71888 | 27 |
|
71887 | 28 |
|
29 |
(* antiquotations *) |
|
30 |
||
31 |
local |
|
32 |
||
33 |
fun make_list bg en = space_implode "," #> enclose bg en; |
|
34 |
||
35 |
fun print_args [] = "" |
|
36 |
| print_args xs = make_list "(" ")" xs; |
|
37 |
||
38 |
fun print_types [] = "" |
|
39 |
| print_types Ts = make_list "[" "]" Ts; |
|
40 |
||
41 |
fun print_class (c, Ts) = c ^ print_types Ts; |
|
42 |
||
43 |
val types = |
|
44 |
Scan.optional (Parse.$$$ "[" |-- Parse.list1 Parse.name --| Parse.$$$ "]") []; |
|
45 |
||
71905 | 46 |
val class = |
47 |
Scan.option |
|
48 |
(Parse.$$$ "(" |-- Parse.!!! (Parse.$$$ "in" |-- Parse.name -- types --| Parse.$$$ ")")); |
|
71887 | 49 |
|
50 |
val arguments = |
|
51 |
(Parse.nat >> (fn n => replicate n "_") || |
|
71905 | 52 |
Parse.list (Parse.underscore || Parse.name >> (fn T => "_ : " ^ T))) >> print_args; |
71887 | 53 |
|
71905 | 54 |
val args = Scan.optional (Parse.$$$ "(" |-- arguments --| Parse.$$$ ")") " _"; |
71887 | 55 |
|
71900 | 56 |
fun scala_name name = |
57 |
let val latex = Latex.string (Latex.output_ascii_breakable "." name) |
|
58 |
in Latex.enclose_block "\\isatt{" "}" [latex] end; |
|
59 |
||
71887 | 60 |
in |
61 |
||
62 |
val _ = |
|
63 |
Theory.setup |
|
71891 | 64 |
(Thy_Output.antiquotation_verbatim_embedded \<^binding>\<open>scala\<close> |
65 |
(Scan.lift Parse.embedded) (fn _ => tap static_check) #> |
|
66 |
||
71900 | 67 |
Thy_Output.antiquotation_raw_embedded \<^binding>\<open>scala_type\<close> |
71887 | 68 |
(Scan.lift (Parse.embedded -- (types >> print_types))) |
69 |
(fn _ => fn (t, type_args) => |
|
71900 | 70 |
(static_check ("type _Test_" ^ type_args ^ " = " ^ t ^ type_args); |
71 |
scala_name (t ^ type_args))) #> |
|
71887 | 72 |
|
71900 | 73 |
Thy_Output.antiquotation_raw_embedded \<^binding>\<open>scala_object\<close> |
71887 | 74 |
(Scan.lift Parse.embedded) |
71900 | 75 |
(fn _ => fn object => (static_check ("val _test_ = " ^ object); scala_name object)) #> |
71887 | 76 |
|
71900 | 77 |
Thy_Output.antiquotation_raw_embedded \<^binding>\<open>scala_method\<close> |
71905 | 78 |
(Scan.lift (class -- Parse.embedded -- types -- args)) |
79 |
(fn _ => fn (((class_context, method), method_types), method_args) => |
|
71887 | 80 |
let |
71905 | 81 |
val class_types = (case class_context of SOME (_, Ts) => Ts | NONE => []); |
71887 | 82 |
val def = "def _test_" ^ print_types (merge (op =) (method_types, class_types)); |
83 |
val def_context = |
|
71905 | 84 |
(case class_context of |
71887 | 85 |
NONE => def ^ " = " |
86 |
| SOME c => def ^ "(_this_ : " ^ print_class c ^ ") = _this_."); |
|
87 |
val source = def_context ^ method ^ method_args; |
|
71890
3b35b0fd7fe8
clarified static_check: avoid accidental evaluation;
wenzelm
parents:
71888
diff
changeset
|
88 |
val _ = static_check source; |
71905 | 89 |
val text = (case class_context of NONE => method | SOME c => print_class c ^ "." ^ method); |
90 |
in scala_name text end)); |
|
71887 | 91 |
|
71881 | 92 |
end; |
71887 | 93 |
|
94 |
end; |