src/HOL/Codegenerator_Test/Generate_Pretty.thy
author blanchet
Mon, 20 Dec 2010 14:17:49 +0100
changeset 41317 fc48faccd77b
parent 40711 81bc73585eec
child 42842 6ef538f6a8ab
permissions -rw-r--r--
disable feature that was enabled by mistake
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
31378
d1cbf6393964 tuned code generator test theories
haftmann
parents: 29933
diff changeset
     1
d1cbf6393964 tuned code generator test theories
haftmann
parents: 29933
diff changeset
     2
(* Author: Florian Haftmann, TU Muenchen *)
24195
haftmann
parents:
diff changeset
     3
31378
d1cbf6393964 tuned code generator test theories
haftmann
parents: 29933
diff changeset
     4
header {* Pervasive test of code generator using pretty literals *}
24195
haftmann
parents:
diff changeset
     5
37695
71e84a203c19 introduced distinct session HOL-Codegenerator_Test
haftmann
parents: 37475
diff changeset
     6
theory Generate_Pretty
71e84a203c19 introduced distinct session HOL-Codegenerator_Test
haftmann
parents: 37475
diff changeset
     7
imports Candidates_Pretty
24195
haftmann
parents:
diff changeset
     8
begin
haftmann
parents:
diff changeset
     9
37695
71e84a203c19 introduced distinct session HOL-Codegenerator_Test
haftmann
parents: 37475
diff changeset
    10
lemma [code, code del]: "nat_of_char = nat_of_char" ..
71e84a203c19 introduced distinct session HOL-Codegenerator_Test
haftmann
parents: 37475
diff changeset
    11
lemma [code, code del]: "char_of_nat = char_of_nat" ..
71e84a203c19 introduced distinct session HOL-Codegenerator_Test
haftmann
parents: 37475
diff changeset
    12
lemma [code, code del]: "(less_eq :: char \<Rightarrow> _) = less_eq" ..
71e84a203c19 introduced distinct session HOL-Codegenerator_Test
haftmann
parents: 37475
diff changeset
    13
lemma [code, code del]: "(less :: char \<Rightarrow> _) = less" ..
71e84a203c19 introduced distinct session HOL-Codegenerator_Test
haftmann
parents: 37475
diff changeset
    14
37745
6315b6426200 checking generated code for various target languages
haftmann
parents: 37695
diff changeset
    15
subsection {* Check whether generated code compiles *}
6315b6426200 checking generated code for various target languages
haftmann
parents: 37695
diff changeset
    16
6315b6426200 checking generated code for various target languages
haftmann
parents: 37695
diff changeset
    17
text {*
37824
365e37fe93f3 added Isar syntax for code checking
haftmann
parents: 37819
diff changeset
    18
  If any of the checks fails, inspect the code generated
365e37fe93f3 added Isar syntax for code checking
haftmann
parents: 37819
diff changeset
    19
  by a corresponding @{text export_code} command.
37745
6315b6426200 checking generated code for various target languages
haftmann
parents: 37695
diff changeset
    20
*}
6315b6426200 checking generated code for various target languages
haftmann
parents: 37695
diff changeset
    21
40711
81bc73585eec globbing constant expressions use more idiomatic underscore rather than star
haftmann
parents: 37825
diff changeset
    22
export_code _ checking SML OCaml? Haskell? Scala?
25616
28d373f1482a added div/mod examples
haftmann
parents: 24530
diff changeset
    23
24195
haftmann
parents:
diff changeset
    24
end