ite-kw_first_closing.ml.ref

let _ =
  if b
  then e
  else (
    e1;
    e2
  )

let _ =
  if b
  then e
  else (
    something loooooooooooooooooooooooooooooooong enough to_trigger a break;
    this is more
  )

let _ =
  if b
  then (
    e1;
    e2
  )
  else (
    something loooooooooooooooooooooooooooooooong enough to_trigger a break;
    this is more
  )

let _ =
  if b
  then (
    something loooooooooooooooooooooooooooooooong enough to_trigger a break;
    this is more
  )
  else if b1
  then (
    something loooooooooooooooooooooooooooooooong enough to_trigger a break;
    this is more
  )
  else e
;;

f
  ( if loooooooooooooooooooooooooooooooooooooooooooooooooooooooooong
    then ()
    else ()
  )
;;

f
  ( if loooooooooooooooooooooooooooooooooooooooooooooooooooooooooonger
    then ()
    else ()
  )
;;

f
  ( if even loooooooooooooooooooooooooooooooooooooooooooooooooooooooooonger
    then ()
    else ()
  )
;;

f
  ( if and_ even loooooooooooooooooooooooooooooooooooooooooooooooooooooooooonger
    then ()
    else ()
  )
;;

let () =
  f
    ( if a___________________________________________________________________
      then b_________________________________________________________________
      else c_________________________________________________________________
    )

let () = if[@test] true then () else if[@other] true then ()

let foo = if cond1 then arm1 else if cond2 then arm2 else arm3

let _ =
  if condition
  then (
    let a = 1 in
    let b = 2 in
    a + b
  )
  else if other_condition
  then 12
  else 0

let _ =
  if foo
  then (
    let a = 1 in
    let b = 2 in
    a + b
  )
  else if foo
  then 12
  else 0

let foo =
  if is_sugared_list e2
  then Some (Semi, Non)
  else Some (ColonColon, if exp == e2 then Right else Left)

let foo =
  if is_sugared_list e2
  then Some (Semi, Non)
  else
    Some
      ( ColonColon,
        if exp == e2
        then Right
        else Left foooooo, foooo, fooo, foooooo, fooooooo, foooooooo
      )

let foo =
  if cond1
  then (
    arm1;
    foooooooooooooo;
    fooooooooooooooooooo fooooooooooooooo foooooooooooo;
    List.foo ~fooooooo:foooooooooooooooo ~foo:(fun fooooooooo -> fooooooooooooo)
  )
  else if cond2
  then (
    arm2;
    foooooooooooooo;
    fooooooooooooooooooo fooooooooooooooo foooooooooooo;
    List.foo ~fooooooo:foooooooooooooooo ~foo:(fun fooooooooo -> fooooooooooooo)
  )
  else (
    arm3;
    foooooooooooooo;
    fooooooooooooooooooo fooooooooooooooo foooooooooooo;
    List.foo ~fooooooo:foooooooooooooooo ~foo:(fun fooooooooo -> fooooooooooooo)
  )

let foo =
  if some condition
  then if some nested condition then some action else some other action
  else some default action

let foo =
  if some condition
  then
    if some nested condition
    then some action + foooo + foooo + foooooooo + foooo + foooooo
    else some other action
  else some default action

let foo = if cmp < 0 then (* foo *) a + b else (* foo *) a - b
let foo =
  if cmp < 0
  then (* foo *)
    a + b
  else (* foo *)
    a - b

let foo =
  if cmp < 0
  then (* ast higher precedence than context: no parens *)
    false
  else if cmp > 0
  then (* context higher prec than ast: add parens *)
    true
  else if Poly.(assoc_of_prec prec_ast = which_child && which_child <> Non)
  then foo

let _ =
  if fooo
  then ( + )
  else if bar
  then ( * ) [@attr]
  else if foobar
  then ( / )
  else ( - )

let _ =
  if x
  then
    fun xxxxxxxxxxxxxxxxx yyyyyyyyyyyyyyyyyyyy zzzzzzzzzzz ->
      xxxxxxxxx yyyyyyyyyy zzzzzzzzzzzz
  else
    fun xxxxxxxxxxxxxxxxx yyyyyyyyyyyyyyyyyyyy zzzzzzzzzzz ->
      xxxxxxxxx yyyyyyyyyy zzzzzzzzzzzz

let _ =
  if
    (* foooooooooooooooooooooooooooooooooooooooooo *)
    foooooooooooooooooooooooooooooooooooooooooo
  then foooooooooooooooooooooooooooooooooooooooooo
  else foooooooooooooooooooooooooooooooooooooooooo

let _ =
  if
    (* foo *)
    foo
  then 0
  else if
    (* bar *)
    bar
  then 1
  else 2

let compare s1 s2 =
  if String.equal s1 s2
  then (* this simplifies the next two cases *)
    0
  else if String.equal s1 Cmdliner.Manpage.s_options
  then
    (* ensure OPTIONS section is last (hence first in the manual) *)
    1
  else if String.equal s2 Cmdliner.Manpage.s_options
  then (* same as above *)
    -1
  else (* reverse order *)
    String.compare s2 s1

let _ = if x then 42 (* dummy *) else y
let _ = if x then 42 (* dummy *) else if y then z else w

let () =
  if true
  then (* a *)
  begin
    ()
  end
  else ()

(* Long condition with comment after then keyword *)
let test =
  if long_function_name_to_force_break a b c d e f g h i j k l m n o p q r s t
  then
    (* comment *)
    1
  else 2