File: pp.ml

package info (click to toggle)
ocaml-cstruct 6.0.0-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 904 kB
  • sloc: ml: 3,578; ansic: 53; makefile: 28; javascript: 21
file content (10 lines) | stat: -rw-r--r-- 307 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
 
(* we can just use exit from 4.07 onwards, but 4.06
 * and earlier executed at_exit recursively *)
external sys_exit : int -> 'a = "caml_sys_exit"
let () = at_exit (fun () -> sys_exit 0)

#if OCAML_VERSION >= (4,8,0)
let () = Clflags.(error_style := Some Short)
#endif

let () = Ppxlib.Driver.standalone ()