File: pp.ml

package info (click to toggle)
ocaml-cstruct 6.2.0-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 968 kB
  • sloc: ml: 3,676; ansic: 56; javascript: 21; makefile: 18
file content (11 lines) | stat: -rw-r--r-- 346 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
 
(* 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 () = Clflags.(color := Some Never)
let () = Ppxlib.Driver.standalone ()