src/HOL/Library/Code_Char.thy
author wenzelm
Wed, 08 Mar 2017 10:50:59 +0100
changeset 65151 a7394aa4d21c
parent 62597 b3f2b8c906a6
child 65884 d76937b773d9
permissions -rw-r--r--
tuned proofs;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
24999
haftmann
parents:
diff changeset
     1
(*  Title:      HOL/Library/Code_Char.thy
haftmann
parents:
diff changeset
     2
    Author:     Florian Haftmann
haftmann
parents:
diff changeset
     3
*)
haftmann
parents:
diff changeset
     4
60500
903bb1495239 isabelle update_cartouches;
wenzelm
parents: 58881
diff changeset
     5
section \<open>Code generation of pretty characters (and strings)\<close>
24999
haftmann
parents:
diff changeset
     6
haftmann
parents:
diff changeset
     7
theory Code_Char
51542
738598beeb26 tuned imports;
wenzelm
parents: 51160
diff changeset
     8
imports Main Char_ord
24999
haftmann
parents:
diff changeset
     9
begin
haftmann
parents:
diff changeset
    10
52435
6646bb548c6b migration from code_(const|type|class|instance) to code_printing and from code_module to code_identifier
haftmann
parents: 51542
diff changeset
    11
code_printing
6646bb548c6b migration from code_(const|type|class|instance) to code_printing and from code_module to code_identifier
haftmann
parents: 51542
diff changeset
    12
  type_constructor char \<rightharpoonup>
6646bb548c6b migration from code_(const|type|class|instance) to code_printing and from code_module to code_identifier
haftmann
parents: 51542
diff changeset
    13
    (SML) "char"
6646bb548c6b migration from code_(const|type|class|instance) to code_printing and from code_module to code_identifier
haftmann
parents: 51542
diff changeset
    14
    and (OCaml) "char"
6646bb548c6b migration from code_(const|type|class|instance) to code_printing and from code_module to code_identifier
haftmann
parents: 51542
diff changeset
    15
    and (Haskell) "Prelude.Char"
6646bb548c6b migration from code_(const|type|class|instance) to code_printing and from code_module to code_identifier
haftmann
parents: 51542
diff changeset
    16
    and (Scala) "Char"
24999
haftmann
parents:
diff changeset
    17
60500
903bb1495239 isabelle update_cartouches;
wenzelm
parents: 58881
diff changeset
    18
setup \<open>
37222
4d984bc33c66 added Scala code setup
haftmann
parents: 33234
diff changeset
    19
  fold String_Code.add_literal_char ["SML", "OCaml", "Haskell", "Scala"] 
31053
b7e1c065b6e4 confine term setup to Eval serialiser
haftmann
parents: 31046
diff changeset
    20
  #> String_Code.add_literal_list_string "Haskell"
60500
903bb1495239 isabelle update_cartouches;
wenzelm
parents: 58881
diff changeset
    21
\<close>
24999
haftmann
parents:
diff changeset
    22
52435
6646bb548c6b migration from code_(const|type|class|instance) to code_printing and from code_module to code_identifier
haftmann
parents: 51542
diff changeset
    23
code_printing
62597
b3f2b8c906a6 model characters directly as range 0..255
haftmann
parents: 62364
diff changeset
    24
  constant integer_of_char \<rightharpoonup>
b3f2b8c906a6 model characters directly as range 0..255
haftmann
parents: 62364
diff changeset
    25
    (SML) "!(IntInf.fromInt o Char.ord)"
b3f2b8c906a6 model characters directly as range 0..255
haftmann
parents: 62364
diff changeset
    26
    and (OCaml) "Big'_int.big'_int'_of'_int (Char.code _)"
b3f2b8c906a6 model characters directly as range 0..255
haftmann
parents: 62364
diff changeset
    27
    and (Haskell) "Prelude.toInteger (Prelude.fromEnum (_ :: Prelude.Char))"
b3f2b8c906a6 model characters directly as range 0..255
haftmann
parents: 62364
diff changeset
    28
    and (Scala) "BigInt(_.toInt)"
b3f2b8c906a6 model characters directly as range 0..255
haftmann
parents: 62364
diff changeset
    29
| constant char_of_integer \<rightharpoonup>
b3f2b8c906a6 model characters directly as range 0..255
haftmann
parents: 62364
diff changeset
    30
    (SML) "!(Char.chr o IntInf.toInt)"
b3f2b8c906a6 model characters directly as range 0..255
haftmann
parents: 62364
diff changeset
    31
    and (OCaml) "Char.chr (Big'_int.int'_of'_big'_int _)"
b3f2b8c906a6 model characters directly as range 0..255
haftmann
parents: 62364
diff changeset
    32
    and (Haskell) "!(let chr k | (0 <= k && k < 256) = Prelude.toEnum k :: Prelude.Char in chr . Prelude.fromInteger)"
b3f2b8c906a6 model characters directly as range 0..255
haftmann
parents: 62364
diff changeset
    33
    and (Scala) "!((k: BigInt) => if (BigInt(0) <= k && k < BigInt(256)) k.charValue else error(\"character value out of range\"))"
b3f2b8c906a6 model characters directly as range 0..255
haftmann
parents: 62364
diff changeset
    34
| class_instance char :: equal \<rightharpoonup>
52435
6646bb548c6b migration from code_(const|type|class|instance) to code_printing and from code_module to code_identifier
haftmann
parents: 51542
diff changeset
    35
    (Haskell) -
6646bb548c6b migration from code_(const|type|class|instance) to code_printing and from code_module to code_identifier
haftmann
parents: 51542
diff changeset
    36
| constant "HOL.equal :: char \<Rightarrow> char \<Rightarrow> bool" \<rightharpoonup>
6646bb548c6b migration from code_(const|type|class|instance) to code_printing and from code_module to code_identifier
haftmann
parents: 51542
diff changeset
    37
    (SML) "!((_ : char) = _)"
6646bb548c6b migration from code_(const|type|class|instance) to code_printing and from code_module to code_identifier
haftmann
parents: 51542
diff changeset
    38
    and (OCaml) "!((_ : char) = _)"
6646bb548c6b migration from code_(const|type|class|instance) to code_printing and from code_module to code_identifier
haftmann
parents: 51542
diff changeset
    39
    and (Haskell) infix 4 "=="
6646bb548c6b migration from code_(const|type|class|instance) to code_printing and from code_module to code_identifier
haftmann
parents: 51542
diff changeset
    40
    and (Scala) infixl 5 "=="
61076
bdc1e2f0a86a eliminated \<Colon>;
wenzelm
parents: 60500
diff changeset
    41
| constant "Code_Evaluation.term_of :: char \<Rightarrow> term" \<rightharpoonup>
52435
6646bb548c6b migration from code_(const|type|class|instance) to code_printing and from code_module to code_identifier
haftmann
parents: 51542
diff changeset
    42
    (Eval) "HOLogic.mk'_char/ (IntInf.fromInt/ (Char.ord/ _))"
24999
haftmann
parents:
diff changeset
    43
haftmann
parents:
diff changeset
    44
code_reserved SML
haftmann
parents:
diff changeset
    45
  char
haftmann
parents:
diff changeset
    46
haftmann
parents:
diff changeset
    47
code_reserved OCaml
haftmann
parents:
diff changeset
    48
  char
haftmann
parents:
diff changeset
    49
37222
4d984bc33c66 added Scala code setup
haftmann
parents: 33234
diff changeset
    50
code_reserved Scala
4d984bc33c66 added Scala code setup
haftmann
parents: 33234
diff changeset
    51
  char
4d984bc33c66 added Scala code setup
haftmann
parents: 33234
diff changeset
    52
33234
a5eba0447559 added implode and explode
haftmann
parents: 32657
diff changeset
    53
code_reserved SML String
a5eba0447559 added implode and explode
haftmann
parents: 32657
diff changeset
    54
52435
6646bb548c6b migration from code_(const|type|class|instance) to code_printing and from code_module to code_identifier
haftmann
parents: 51542
diff changeset
    55
code_printing
57437
0baf08c075b9 qualified String.explode and String.implode
haftmann
parents: 55427
diff changeset
    56
  constant String.implode \<rightharpoonup>
52435
6646bb548c6b migration from code_(const|type|class|instance) to code_printing and from code_module to code_identifier
haftmann
parents: 51542
diff changeset
    57
    (SML) "String.implode"
6646bb548c6b migration from code_(const|type|class|instance) to code_printing and from code_module to code_identifier
haftmann
parents: 51542
diff changeset
    58
    and (OCaml) "!(let l = _ in let res = String.create (List.length l) in let rec imp i = function | [] -> res | c :: l -> String.set res i c; imp (i + 1) l in imp 0 l)"
6646bb548c6b migration from code_(const|type|class|instance) to code_printing and from code_module to code_identifier
haftmann
parents: 51542
diff changeset
    59
    and (Haskell) "_"
6646bb548c6b migration from code_(const|type|class|instance) to code_printing and from code_module to code_identifier
haftmann
parents: 51542
diff changeset
    60
    and (Scala) "!(\"\" ++/ _)"
57437
0baf08c075b9 qualified String.explode and String.implode
haftmann
parents: 55427
diff changeset
    61
| constant String.explode \<rightharpoonup>
52435
6646bb548c6b migration from code_(const|type|class|instance) to code_printing and from code_module to code_identifier
haftmann
parents: 51542
diff changeset
    62
    (SML) "String.explode"
6646bb548c6b migration from code_(const|type|class|instance) to code_printing and from code_module to code_identifier
haftmann
parents: 51542
diff changeset
    63
    and (OCaml) "!(let s = _ in let rec exp i l = if i < 0 then l else exp (i - 1) (String.get s i :: l) in exp (String.length s - 1) [])"
6646bb548c6b migration from code_(const|type|class|instance) to code_printing and from code_module to code_identifier
haftmann
parents: 51542
diff changeset
    64
    and (Haskell) "_"
6646bb548c6b migration from code_(const|type|class|instance) to code_printing and from code_module to code_identifier
haftmann
parents: 51542
diff changeset
    65
    and (Scala) "!(_.toList)"
33234
a5eba0447559 added implode and explode
haftmann
parents: 32657
diff changeset
    66
52435
6646bb548c6b migration from code_(const|type|class|instance) to code_printing and from code_module to code_identifier
haftmann
parents: 51542
diff changeset
    67
code_printing
62597
b3f2b8c906a6 model characters directly as range 0..255
haftmann
parents: 62364
diff changeset
    68
  constant "Orderings.less_eq :: char \<Rightarrow> char \<Rightarrow> bool" \<rightharpoonup>
52435
6646bb548c6b migration from code_(const|type|class|instance) to code_printing and from code_module to code_identifier
haftmann
parents: 51542
diff changeset
    69
    (SML) "!((_ : char) <= _)"
6646bb548c6b migration from code_(const|type|class|instance) to code_printing and from code_module to code_identifier
haftmann
parents: 51542
diff changeset
    70
    and (OCaml) "!((_ : char) <= _)"
6646bb548c6b migration from code_(const|type|class|instance) to code_printing and from code_module to code_identifier
haftmann
parents: 51542
diff changeset
    71
    and (Haskell) infix 4 "<="
6646bb548c6b migration from code_(const|type|class|instance) to code_printing and from code_module to code_identifier
haftmann
parents: 51542
diff changeset
    72
    and (Scala) infixl 4 "<="
6646bb548c6b migration from code_(const|type|class|instance) to code_printing and from code_module to code_identifier
haftmann
parents: 51542
diff changeset
    73
    and (Eval) infixl 6 "<="
6646bb548c6b migration from code_(const|type|class|instance) to code_printing and from code_module to code_identifier
haftmann
parents: 51542
diff changeset
    74
| constant "Orderings.less :: char \<Rightarrow> char \<Rightarrow> bool" \<rightharpoonup>
6646bb548c6b migration from code_(const|type|class|instance) to code_printing and from code_module to code_identifier
haftmann
parents: 51542
diff changeset
    75
    (SML) "!((_ : char) < _)"
6646bb548c6b migration from code_(const|type|class|instance) to code_printing and from code_module to code_identifier
haftmann
parents: 51542
diff changeset
    76
    and (OCaml) "!((_ : char) < _)"
6646bb548c6b migration from code_(const|type|class|instance) to code_printing and from code_module to code_identifier
haftmann
parents: 51542
diff changeset
    77
    and (Haskell) infix 4 "<"
6646bb548c6b migration from code_(const|type|class|instance) to code_printing and from code_module to code_identifier
haftmann
parents: 51542
diff changeset
    78
    and (Scala) infixl 4 "<"
6646bb548c6b migration from code_(const|type|class|instance) to code_printing and from code_module to code_identifier
haftmann
parents: 51542
diff changeset
    79
    and (Eval) infixl 6 "<"
54596
368c70ee1f46 implement comparisons on String.literal by target-language comparisons
Andreas Lochbihler
parents: 52435
diff changeset
    80
|  constant "Orderings.less_eq :: String.literal \<Rightarrow> String.literal \<Rightarrow> bool" \<rightharpoonup>
368c70ee1f46 implement comparisons on String.literal by target-language comparisons
Andreas Lochbihler
parents: 52435
diff changeset
    81
    (SML) "!((_ : string) <= _)"
368c70ee1f46 implement comparisons on String.literal by target-language comparisons
Andreas Lochbihler
parents: 52435
diff changeset
    82
    and (OCaml) "!((_ : string) <= _)"
61585
a9599d3d7610 isabelle update_cartouches -c -t;
wenzelm
parents: 61076
diff changeset
    83
    \<comment> \<open>Order operations for @{typ String.literal} work in Haskell only 
54599
17d76426c7da revert 4af7c82463d3 and document type class problem in Haskell
Andreas Lochbihler
parents: 54596
diff changeset
    84
          if no type class instance needs to be generated, because String = [Char] in Haskell
60500
903bb1495239 isabelle update_cartouches;
wenzelm
parents: 58881
diff changeset
    85
          and @{typ "char list"} need not have the same order as @{typ String.literal}.\<close>
54596
368c70ee1f46 implement comparisons on String.literal by target-language comparisons
Andreas Lochbihler
parents: 52435
diff changeset
    86
    and (Haskell) infix 4 "<="
368c70ee1f46 implement comparisons on String.literal by target-language comparisons
Andreas Lochbihler
parents: 52435
diff changeset
    87
    and (Scala) infixl 4 "<="
368c70ee1f46 implement comparisons on String.literal by target-language comparisons
Andreas Lochbihler
parents: 52435
diff changeset
    88
    and (Eval) infixl 6 "<="
368c70ee1f46 implement comparisons on String.literal by target-language comparisons
Andreas Lochbihler
parents: 52435
diff changeset
    89
| constant "Orderings.less :: String.literal \<Rightarrow> String.literal \<Rightarrow> bool" \<rightharpoonup>
368c70ee1f46 implement comparisons on String.literal by target-language comparisons
Andreas Lochbihler
parents: 52435
diff changeset
    90
    (SML) "!((_ : string) < _)"
368c70ee1f46 implement comparisons on String.literal by target-language comparisons
Andreas Lochbihler
parents: 52435
diff changeset
    91
    and (OCaml) "!((_ : string) < _)"
368c70ee1f46 implement comparisons on String.literal by target-language comparisons
Andreas Lochbihler
parents: 52435
diff changeset
    92
    and (Haskell) infix 4 "<"
368c70ee1f46 implement comparisons on String.literal by target-language comparisons
Andreas Lochbihler
parents: 52435
diff changeset
    93
    and (Scala) infixl 4 "<"
368c70ee1f46 implement comparisons on String.literal by target-language comparisons
Andreas Lochbihler
parents: 52435
diff changeset
    94
    and (Eval) infixl 6 "<"
51160
599ff65b85e2 systematic conversions between nat and nibble/char;
haftmann
parents: 48431
diff changeset
    95
24999
haftmann
parents:
diff changeset
    96
end