File: gen.ml

package info (click to toggle)
ocaml-ctypes 0.24.0-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 2,180 kB
  • sloc: ml: 13,406; ansic: 3,316; makefile: 72
file content (9 lines) | stat: -rw-r--r-- 263 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
 
let () =
  let ocaml_version_str = Sys.ocaml_version in
  let ocaml_version =
    Scanf.sscanf ocaml_version_str "%u.%u" (fun a b -> (a, b))
  in
  if ocaml_version >= (4, 6) then
    print_endline ":standard"
  else
    print_endline "(:standard -ccopt -Wl,-E)"