package ocp-indent

  1. Overview
  2. Docs
A simple tool to indent OCaml programs

Install 

dune-project
 Dependency

www.typerex.org Readme Changelog Edit opam file Versions (6)

Authors

  1. L
    Louis Gesbert <louis.gesbert@ocamlpro.com>
  2. T
    Thomas Gazagnaire <thomas@gazagnaire.org>
  3. J
    Jun Furuse

Maintainers

  1. C
    contact@ocamlpro.com

Sources

ocp-indent-1.10.0.tbz
sha256=e47c8476554f792ddcb9e73de9e86461266a56674e489d744498be610556c1b7
sha512=8c3e6a05f0692772a14aa533aa436d15100ea28be6592f51174811689ce8c3b717c78803189e450574ae982ab4a062b01251e1e57b971ce95dbd3f41265515f2

doc/src/ocp-indent.lib/indentWarning.ml.html

Source file indentWarning.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
(**************************************************************************)
(*                                                                        *)
(*    Copyright 2026 OCamlPro                                             *)
(*                                                                        *)
(*  All rights reserved. This file is distributed under the terms of the  *)
(*  GNU Lesser General Public License version 2.1, with the special       *)
(*  exception on linking described in the file LICENSE.                   *)
(*                                                                        *)
(*  ocp-indent is distributed in the hope that it will be useful,         *)
(*  but WITHOUT ANY WARRANTY; without even the implied warranty of        *)
(*  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *)
(*  Lesser GNU General Public License for more details.                   *)
(*                                                                        *)
(**************************************************************************)

exception Fatal of string

let fatal msg = raise (Fatal msg)

let strict = ref false

let emit fmt =
  Format.kasprintf
    (fun msg ->
       if !strict then
         fatal msg
       else
         Format.eprintf "ocp-indent warning: %s\n%!" msg)
    fmt

let set_strict_mode bool = strict := bool