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*) |