# HG changeset patch # User haftmann # Date 1278602585 -7200 # Node ID 82e0fe8b07ebea37fa43fdd290046a02b5824f40 # Parent c7e15d59c58d656ad53b89c112dd81c58fec4349 dropped ancient in-place compilation of SML; more tests diff -r c7e15d59c58d -r 82e0fe8b07eb src/HOL/Imperative_HOL/ex/Imperative_Quicksort.thy --- a/src/HOL/Imperative_HOL/ex/Imperative_Quicksort.thy Thu Jul 08 16:48:33 2010 +0200 +++ b/src/HOL/Imperative_HOL/ex/Imperative_Quicksort.thy Thu Jul 08 17:23:05 2010 +0200 @@ -637,7 +637,7 @@ ML {* @{code qsort} (Array.fromList [42, 2, 3, 5, 0, 1705, 8, 3, 15]) () *} -export_code qsort in SML_imp module_name QSort +export_code qsort in SML_imp module_name QSort file - export_code qsort in OCaml module_name QSort file - export_code qsort in OCaml_imp module_name QSort file - export_code qsort in Haskell module_name QSort file - diff -r c7e15d59c58d -r 82e0fe8b07eb src/HOL/Imperative_HOL/ex/Linked_Lists.thy --- a/src/HOL/Imperative_HOL/ex/Linked_Lists.thy Thu Jul 08 16:48:33 2010 +0200 +++ b/src/HOL/Imperative_HOL/ex/Linked_Lists.thy Thu Jul 08 17:23:05 2010 +0200 @@ -999,4 +999,9 @@ ML {* @{code test_2} () *} ML {* @{code test_3} () *} +export_code test_1 test_2 test_3 in SML_imp module_name QSort file - +export_code test_1 test_2 test_3 in OCaml module_name QSort file - +export_code test_1 test_2 test_3 in OCaml_imp module_name QSort file - +export_code test_1 test_2 test_3 in Haskell module_name QSort file - + end