tiny_httpd/src/core/gen/mkshims.ml

let atomic_before_412 =
  {|
  type 'a t = {mutable x: 'a}
  let[@inline] make x = {x}
  let[@inline] get {x} = x
  let[@inline] set r x = r.x <- x
  let[@inline] exchange r x =
    let y = r.x in
    r.x <- x;
    y

  let[@inline] compare_and_set r seen v =
    if r.x == seen then (
      r.x <- v;
      true
    ) else false

  let[@inline] fetch_and_add r x =
    let v = r.x in
    r.x <- x + r.x;
    v

  let[@inline] incr r = r.x <- 1 + r.x
  let[@inline] decr r = r.x <- r.x - 1
  |}

let atomic_after_412 = {|include Atomic|}

let write_file file s =
  let oc = open_out file in
  output_string oc s;
  close_out oc

let () =
  let version = Scanf.sscanf Sys.ocaml_version "%d.%d.%s" (fun x y _ -> x, y) in
  print_endline
    (if version >= (4, 12) then
      atomic_after_412
    else
      atomic_before_412);
  ()