60 lines
1.5 KiB
OCaml
60 lines
1.5 KiB
OCaml
|
open! Stdune
|
||
|
|
|
||
|
|
let pwd = Sys.getcwd ()
|
||
|
|
|
||
|
|
let valid_ocaml_config =
|
||
|
|
Printf.sprintf
|
||
|
|
{|version: 4.02.3
|
||
|
|
standard_library_default: %s
|
||
|
|
standard_library: %s
|
||
|
|
standard_runtime: /usr/bin/ocamlrun
|
||
|
|
ccomp_type: cc
|
||
|
|
bytecomp_c_compiler: gcc -O -fno-defer-pop -Wall -D_FILE_OFFSET_BITS=64 -D_REENTRANT -O -fPIC
|
||
|
|
bytecomp_c_libraries: -lm -ldl -lcurses -lpthread
|
||
|
|
native_c_compiler: gcc -O -Wall -D_FILE_OFFSET_BITS=64 -D_REENTRANT
|
||
|
|
native_c_libraries: -lm -ldl
|
||
|
|
native_pack_linker: ld -r -o
|
||
|
|
ranlib: ranlib
|
||
|
|
cc_profile: -pg
|
||
|
|
architecture: none
|
||
|
|
model: default
|
||
|
|
system: unknown
|
||
|
|
asm:
|
||
|
|
asm_cfi_supported: false
|
||
|
|
with_frame_pointers: false
|
||
|
|
ext_obj: .o
|
||
|
|
ext_asm: .s
|
||
|
|
ext_lib: .a
|
||
|
|
ext_dll: .so
|
||
|
|
os_type: Unix
|
||
|
|
default_executable_name: a.out
|
||
|
|
systhread_supported: true
|
||
|
|
host: mips-unknown-linux-gnu
|
||
|
|
target: mips-unknown-linux-gnu
|
||
|
|
exec_magic_number: Caml1999X011
|
||
|
|
cmi_magic_number: Caml1999I017
|
||
|
|
cmo_magic_number: Caml1999O010
|
||
|
|
cma_magic_number: Caml1999A011
|
||
|
|
cmx_magic_number: Caml1999Y014
|
||
|
|
cmxa_magic_number: Caml1999Z013
|
||
|
|
ast_impl_magic_number: Caml1999M016
|
||
|
|
ast_intf_magic_number: Caml1999N015
|
||
|
|
cmxs_magic_number: Caml2007D002
|
||
|
|
cmt_magic_number: Caml2012T004|}
|
||
|
|
pwd
|
||
|
|
pwd
|
||
|
|
;;
|
||
|
|
|
||
|
|
let () =
|
||
|
|
match
|
||
|
|
match valid_ocaml_config |> String.split_lines |> Ocaml_config.Vars.of_lines with
|
||
|
|
| Ok x -> Ocaml_config.make x
|
||
|
|
| Error msg -> Error (Ocamlc_config, msg)
|
||
|
|
with
|
||
|
|
| Error (_, e) -> failwith e
|
||
|
|
| Ok c ->
|
||
|
|
(* Check that [Ocaml_config.to_list] and [Ocaml_config.by_name] agree *)
|
||
|
|
List.iter (Ocaml_config.to_list c) ~f:(fun (name, v) ->
|
||
|
|
assert (Ocaml_config.by_name c name = Some v))
|
||
|
|
;;
|