package ppx_orakuda

  1. Overview
  2. Docs
exception Error of int * int * string
val errorf : Lexing.lexbuf -> ('a, unit, string, 'b) Pervasives.format4 -> 'a
val errorf_at : int -> int -> ('a, unit, string, 'b) Pervasives.format4 -> 'a
type ctype =
  1. | Cd
  2. | Cu
  3. | Cx
  4. | CX
  5. | Co
  6. | Cs
  7. | CS
  8. | Cc
  9. | CC
  10. | Cf
  11. | CF
  12. | Ce
  13. | CE
  14. | Cg
  15. | CG
  16. | CB
  17. | Cld
  18. | Clu
  19. | Clx
  20. | ClX
  21. | Clo
  22. | Cnd
  23. | Cnu
  24. | Cnx
  25. | CnX
  26. | Cno
  27. | CLd
  28. | CLu
  29. | CLx
  30. | CLX
  31. | CLo
  32. | Ca
  33. | Ct
  34. | Cformat of t
  35. | Cformat_subst of t
  36. | Cflush
  37. | Cpercent
and flag =
  1. | Fminus
  2. | Fzero
  3. | Fplus
  4. | Fspace
  5. | Fsharp
and width_precision =
  1. | WPint of int
  2. | WPstar
and inlined_arg =
  1. | Arg_expr of string
  2. | Arg_var of string
  3. | Arg_rex_ref of char
and conversion = {
  1. flags : flag list;
  2. width : width_precision option;
  3. precision : width_precision option option;
    (*

    Some (Some _) : ".1", ".*" Some None : "." None : ""

    *)
  4. ctype : ctype;
  5. inlined_arg : (inlined_arg * int) option;
}
and token =
  1. | String of string
  2. | Char of char
  3. | Conv of conversion
  4. | Escaped of char
and t = token list
val conversion_to_string : conversion -> string
val compile_conversion : conversion -> [ `String of string | `Star ] list
val from_string : char list -> string -> t * string option

Tokens and remains if stopped at special chars. Lexing stops when it finds a non-escaped special char

val from_string_to_classic : char list -> string -> t * (int list * [ `Applied of inlined_arg * int | `Var of int ] list) * string * string option

remains