ite-fit_or_vertical_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