1.1 --- a/src/HOL/Imperative_HOL/Imperative_HOL_ex.thy Thu Jul 29 09:56:59 2010 +0200
1.2 +++ b/src/HOL/Imperative_HOL/Imperative_HOL_ex.thy Thu Jul 29 09:56:59 2010 +0200
1.3 @@ -14,6 +14,6 @@
1.4 Array.upd, Array.map_entry, Array.swap, Array.freeze,
1.5 ref, Ref.lookup, Ref.update, Ref.change)"
1.6
1.7 -export_code everything checking SML SML_imp OCaml? OCaml_imp? Haskell? Scala?
1.8 +export_code everything checking SML SML_imp OCaml? OCaml_imp? Haskell? Scala? Scala_imp?
1.9
1.10 end
2.1 --- a/src/HOL/Imperative_HOL/ex/Imperative_Quicksort.thy Thu Jul 29 09:56:59 2010 +0200
2.2 +++ b/src/HOL/Imperative_HOL/ex/Imperative_Quicksort.thy Thu Jul 29 09:56:59 2010 +0200
2.3 @@ -655,6 +655,6 @@
2.4
2.5 ML {* @{code qsort} (Array.fromList [42, 2, 3, 5, 0, 1705, 8, 3, 15]) () *}
2.6
2.7 -export_code qsort checking SML SML_imp OCaml? OCaml_imp? Haskell? Scala?
2.8 +export_code qsort checking SML SML_imp OCaml? OCaml_imp? Haskell? Scala? Scala_imp?
2.9
2.10 end
3.1 --- a/src/HOL/Imperative_HOL/ex/Imperative_Reverse.thy Thu Jul 29 09:56:59 2010 +0200
3.2 +++ b/src/HOL/Imperative_HOL/ex/Imperative_Reverse.thy Thu Jul 29 09:56:59 2010 +0200
3.3 @@ -110,6 +110,8 @@
3.4 subarray_def sublist'_all rev.simps[where j=0] elim!: crel_elims)
3.5 (drule sym[of "List.length (Array.get h a)"], simp)
3.6
3.7 -export_code rev checking SML SML_imp OCaml? OCaml_imp? Haskell? Scala?
3.8 +definition "example = (Array.of_list [1::nat, 2, 3, 4, 5, 6, 7, 8, 9, 10] \<guillemotright>= (\<lambda>a. rev a 0 9))"
3.9 +
3.10 +export_code example checking SML SML_imp OCaml? OCaml_imp? Haskell? Scala? Scala_imp?
3.11
3.12 end
4.1 --- a/src/HOL/Imperative_HOL/ex/Linked_Lists.thy Thu Jul 29 09:56:59 2010 +0200
4.2 +++ b/src/HOL/Imperative_HOL/ex/Linked_Lists.thy Thu Jul 29 09:56:59 2010 +0200
4.3 @@ -1014,6 +1014,6 @@
4.4 ML {* @{code test_2} () *}
4.5 ML {* @{code test_3} () *}
4.6
4.7 -export_code test_1 test_2 test_3 checking SML SML_imp OCaml? OCaml_imp? Haskell? Scala?
4.8 +export_code test_1 test_2 test_3 checking SML SML_imp OCaml? OCaml_imp? Haskell? Scala? (*Scala_imp?*)
4.9
4.10 end