src/Tools/Code/code_scala.ML
changeset 34888 460ec1a99aa2
parent 34308 394fc3cce915
child 34900 9b12b0824bfe
equal deleted inserted replaced
34887:31209fb24176 34888:460ec1a99aa2
   407 in Literals {
   407 in Literals {
   408   literal_char = Library.enclose "'" "'" o char_scala,
   408   literal_char = Library.enclose "'" "'" o char_scala,
   409   literal_string = quote o translate_string char_scala,
   409   literal_string = quote o translate_string char_scala,
   410   literal_numeral = fn unbounded => fn k => if k >= 0 then string_of_int k
   410   literal_numeral = fn unbounded => fn k => if k >= 0 then string_of_int k
   411     else Library.enclose "(" ")" (signed_string_of_int k),
   411     else Library.enclose "(" ")" (signed_string_of_int k),
   412   literal_list = fn ps => Pretty.block [str "List", enum "," "(" ")" ps],
   412   literal_list = fn [] => str "Nil" | ps => Pretty.block [str "List", enum "," "(" ")" ps],
   413   infix_cons = (6, "::")
   413   infix_cons = (6, "::")
   414 } end;
   414 } end;
   415 
   415 
   416 
   416 
   417 (** Isar setup **)
   417 (** Isar setup **)
   434       "match", "new", "null", "object", "override", "package", "private", "protected",
   434       "match", "new", "null", "object", "override", "package", "private", "protected",
   435       "requires", "return", "sealed", "super", "this", "throw", "trait", "try",
   435       "requires", "return", "sealed", "super", "this", "throw", "trait", "try",
   436       "true", "type", "val", "var", "while", "with"
   436       "true", "type", "val", "var", "while", "with"
   437     ]
   437     ]
   438   #> fold (Code_Target.add_reserved target) [
   438   #> fold (Code_Target.add_reserved target) [
   439       "error", "apply", "List"
   439       "error", "apply", "List", "Nil"
   440     ];
   440     ];
   441 
   441 
   442 end; (*struct*)
   442 end; (*struct*)