package ocamlformat-lib

  1. Overview
  2. Docs
OCaml Code Formatter

Install 

dune-project
 Dependency

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

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.29.0.tbz
sha256=dac77f0a957ae782bb4b869b07b9803a872a34f8c1eae8901b42d21b623c9db5
sha512=b4ae6fda3c28e91dc12411b577df7b216e9b1afe5887bcb9e89c158e1313dc92183c29ffb256f47f5c9384af3ac8c505ec76849b26ae950b82c9b4c21a460819

doc/src/ocamlformat-lib.format_/camlinternalFormatBasics_.ml.html

Source file camlinternalFormatBasics_.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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
include CamlinternalFormatBasics

type neutral_concat =
  { f:
      'a 'b 'c 'd 'e 'f. [`String of string | `Char of char ] ->
      ('a,'b,'c,'d,'e,'f) fmt -> ('a,'b,'c,'d,'e,'f) fmt
  }

let rec string_concat_map: type a b c d e f.
   neutral_concat -> (a,b,c,d,e,f) fmt -> (a,b,c,d,e,f) fmt =
  fun f -> function
  | String (pad, rest) -> String (pad, string_concat_map f rest)
  | Caml_string (pad, rest) -> Caml_string (pad, string_concat_map f rest)

  | Int (iconv, pad, prec, rest) ->
    Int (iconv, pad, prec,  string_concat_map f rest)
  | Int32 (iconv, pad, prec, rest) ->
    Int32 (iconv, pad, prec,  string_concat_map f rest)
  | Nativeint (iconv, pad, prec, rest) ->
    Nativeint (iconv, pad, prec,  string_concat_map f rest)
  | Int64 (iconv, pad, prec, rest) ->
    Int64 (iconv, pad, prec,  string_concat_map f rest)
  | Float (fconv, pad, prec, rest) ->
    Float (fconv, pad, prec,  string_concat_map f rest)

  | Char (rest) -> Char (string_concat_map f rest)
  | Caml_char rest ->
    Caml_char ( string_concat_map f rest)
  | Bool (pad, rest) -> Bool (pad,  string_concat_map f rest)
  | Alpha rest -> Alpha (string_concat_map f rest)
  | Theta rest -> Theta (string_concat_map f rest)
  | Custom (arity, fc, rest) ->
    Custom (arity, fc,  string_concat_map f rest)
  | Reader rest -> Reader (string_concat_map f rest)
  | Flush rest -> Flush (string_concat_map f rest)

  | String_literal (str, rest) -> f.f (`String str) (string_concat_map f rest)
  | Char_literal (chr, rest) ->
      f.f (`Char chr) (string_concat_map f rest)
  | Format_arg (pad, fmtty, rest) ->
    Format_arg   (pad, fmtty, string_concat_map f rest)
  | Format_subst (pad, fmtty, rest) ->
    Format_subst (pad, fmtty, string_concat_map f rest)

  | Scan_char_set (width_opt, char_set, rest) ->
    Scan_char_set (width_opt, char_set, string_concat_map f rest)
  | Scan_get_counter (counter, rest) ->
    Scan_get_counter (counter,string_concat_map f rest)
  | Scan_next_char (rest) ->
    Scan_next_char (string_concat_map f rest)
  | Ignored_param (ign, rest) ->
    Ignored_param (ign, string_concat_map f rest)

  | Formatting_lit (fmting_lit, rest) ->
    Formatting_lit (fmting_lit, string_concat_map f rest)
  | Formatting_gen (fmting_gen, rest) ->
    Formatting_gen (fmting_gen, string_concat_map f rest)

  | End_of_format -> End_of_format