package ocamlformat-lib

  1. Overview
  2. Docs
OCaml Code Formatter

Install 

dune-project
 Dependency

github.com Readme Changelog Edit opam file Versions (6)

Authors

  1. J
    Josh Berdine <jjb@fb.com>
  2. H
    Hugo Heuzard <hugo.heuzard@gmail.com>
  3. E
    Etienne Millon <etienne@tarides.com>
  4. G
    Guillaume Petiot <guillaume@tarides.com>
  5. J
    Jules Aguillon <jules@j3s.fr>

Maintainers

  1. G
    Guillaume Petiot <guillaume@tarides.com>
  2. J
    Jules Aguillon <jules@j3s.fr>
  3. E
    Emile Trotignon <emile@tarides.com>

Sources

ocamlformat-0.26.1.tbz
sha256=da006e427f15b9ec612fb808d446599bd9b7c3ee25abeb3d555747a70d74c6d7
sha512=b7413f8dc47ba3a2372e89d59cae54f9a602ab81e31cd14ed986a831111080b79a5a3cc45dac04d8ffae5054c35bf29fe9559f145c76c87a30e191ed5400942a

doc/src/ocamlformat-lib.ocamlformat_stdlib/string_ext.ml.html

Source file string_ext.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
include Base
include String

let starts_with_whitespace s = (not (is_empty s)) && Char.is_whitespace s.[0]

let ends_with_whitespace s =
  (not (is_empty s)) && Char.is_whitespace s.[length s - 1]

let rec _indent_of_line s i end_ =
    if Int.equal i end_ then None
    else
      match s.[i] with
      | ' ' | '\t' -> _indent_of_line s (i + 1) end_
      | '\n' | '\r' -> None
      | _ -> Some i

let indent_of_line s = _indent_of_line s 0 (String.length s)