package cppo

  1. Overview
  2. Docs
Equivalent of the C preprocessor for OCaml programs

Install

Dune Dependency

Authors

Maintainers

Sources

v1.6.4.tar.gz
sha256=470a5225a5d3b06ced29581250562ef84b7a8bc6b9a632c96443391a443bab49
md5=f7a4a6a0e83b76562b45db3a93ffd204

Description

Published: 01 Mar 2018

README

README.md

Cppo: cpp for OCaml

Cppo is an equivalent of the C preprocessor for OCaml programs. It allows the definition of simple macros and file inclusion.

Cppo is:

  • more OCaml-friendly than cpp

  • easy to learn without consulting a manual

  • reasonably fast

  • simple to install and to maintain

User guide

Cppo is a preprocessor for programming languages that follow lexical rules compatible with OCaml including OCaml-style comments (* ... *). These include Ocamllex, Ocamlyacc, Menhir, and extensions of OCaml based on Camlp4, Camlp5, or ppx. Cppo should work with Bucklescript as well. It won't work so well with Reason code because Reason uses C-style comment delimiters /* and */.

Cppo supports a number of directives. A directive is a # sign placed at the beginning of a line, possibly preceded by some whitespace, and followed by a valid directive name or by a number:

BLANK* "#" BLANK* ("define"|"undef"
                  |"if"|"ifdef"|"ifndef"|"else"|"elif"|"endif"
                  |"include"
                  |"warning"|"error"
                  |"ext"|"endext") ...

Directives can be split into multiple lines by placing a backslash \ at the end of the line to be continued. In general, any special character can used as a normal character by preceding it with backslash.

File inclusion

#include "hello.ml"

This is how a source file hello.ml can be included. Relative paths are searched first in the directory of the current file and then in the search paths added on the command line using -I, if any.

Macros

This is a simple macro that doesn't take an argument ("object-like macro" in the cpp jargon):

#define Ms Mississippi

match state with
    Ms -> true
  | _ -> false

After preprocessing by cppo, the code above becomes:

match state with
    Mississippi -> true
  | _ -> false

If needed, defined macros can be undefined. This is required prior to redefining a macro:

#undef X

An important distinction with cpp is that only previously-defined macros are accessible. Defining, undefining or redefining a macro has no effect on how previous macros will expand.

Macros can take arguments ("function-like macro" in the cpp jargon). Both in the definition (#define) and in macro application the opening parenthesis must stick to the macro's identifier:

#define debug(args) if !debugging then Printf.eprintf args else ()

debug("Testing %i" (1 + 1))

is expanded into:

if !debugging then Printf.eprintf "Testing %i" (1 + 1) else ()

Here is a multiline macro definition. Newlines occurring between tokens must be protected by a backslash:

#define repeat_until(action,condition) \
  action; \
  while not (condition) do \
    action \
  done

All user-definable macros are constant. There are however two predefined variable macros: __FILE__ and __LINE__ which take the value of the position in the source file where the macro is being expanded.

#define loc (Printf.sprintf "File %S, line %i" __FILE__ __LINE__)

Macros can be defined on the command line as follows:

# preprocessing only
cppo -D 'VERSION 1.0' example.ml

# preprocessing and compiling
ocamlopt -c -pp "cppo -D 'VERSION 1.0'" example.ml

Conditionals

Here is a quick reference on conditionals available in cppo. If you are not familiar with #ifdef, #ifndef, #if, #else and #elif, please refer to the corresponding section in the cpp manual.

#ifndef VERSION
#warning "VERSION is undefined"
#define VERSION "n/a"
#endif
#ifndef VERSION
#error "VERSION is undefined"
#endif
#if OCAML_MAJOR >= 3 && OCAML_MINOR >= 10
...
#endif
#ifdef X
...
#elif defined Y
...
#else
...
#endif

The boolean expressions following #if and #elif may perform arithmetic operations and tests over 64-bit ints.

Boolean expressions:

  • defined ... followed by an identifier, returns true if such a macro exists

  • true

  • false

  • ( ... )

  • ... && ...

  • ... || ...

  • not ...

Arithmetic comparisons used in boolean expressions:

  • ... = ...

  • ... < ...

  • ... > ...

  • ... <> ...

  • ... <= ...

  • ... >= ...

Arithmetic operators over signed 64-bit ints:

  • ( ... )

  • ... + ...

  • ... - ...

  • ... * ...

  • ... / ...

  • ... mod ...

  • ... lsl ...

  • ... lsr ...

  • ... asr ...

  • ... land ...

  • ... lor ...

  • ... lxor ...

  • lnot ...

Macro identifiers can be used in place of ints as long as they expand to an int literal or a tuple of int literals, e.g.:

#define one 1

#if one + one <> 2
#error "Something's wrong."
#endif

#define VERSION (1, 0, 5)
#if VERSION <= (1, 0, 2)
#error "Version 1.0.2 or greater is required."
#endif

Version strings (http://semver.org/) can also be passed to cppo on the command line. This results in multiple variables being defined, all sharing the same prefix. See the output of cppo -help (copied at the bottom of this page).

$ cppo -V OCAML:`ocamlc -version`
#if OCAML_VERSION >= (4, 0, 0)
(* All is well. *)
#else
  #error "This version of OCaml is not supported."
#endif

Output:

# 2 "<stdin>"
(* All is well. *)

Source file location

Location directives are the same as in OCaml and are echoed in the output. They consist of a line number optionally followed by a file name:

# 123
# 456 "source"

Messages

Warnings and error messages can be produced by the preprocessor:

#ifndef X
  #warning "Assuming default value for X"
  #define X 1
#elif X = 0
  #error "X may not be null"
#endif

Calling an external processor

Cppo provides a mechanism for converting sections of a file using and external program. Such a section must be placed between #ext and #endext directives.

$ cat foo
ABC
#ext lowercase
DEF
#endext
GHI
#ext lowercase
KLM
NOP
#endext
QRS

$ cppo -x lowercase:'tr "[A-Z]" "[a-z]"' foo
# 1 "foo"
ABC
def
# 5 "foo"
GHI
klm
nop
# 10 "foo"
QRS

In the example above, lowercase is the name given on the command-line to external command 'tr "[A-Z]" "[a-z]"' that reads input from stdin and writes its output to stdout.

Escaping

The following characters can be escaped by a backslash when needed:

(
)
,
#

In OCaml # is used for method calls. It is usually not a problem because in order to be interpreted as a preprocessor directive, it must be the first non-blank character of a line and be a known directive. If an object has a define method and you want # to appear first on a line, you would have to use \# instead:

obj
  \#define

Line directives in the usual format supported by OCaml are correctly interpreted by cppo.

Comments and string literals constitute single tokens even when they span across multiple lines. Therefore newlines within string literals and comments should remain as-is (no preceding backslash) even in a macro body:

#define welcome \
"**********
*Welcome!*
**********
"

Concatenation

CONCAT() is a predefined macro that takes two arguments, removes any whitespace between and around them and fuses them into a single identifier. The result of the concatenation must be a valid identifier of the form [A-Za-z_][A-Za-z0-9_]+ or [A-Za-z], or empty.

For example,

#define x 123
CONCAT(z, x)

expands into:

z123

However the following is illegal:

#define x 123
CONCAT(x, z)

because 123z does not form a valid identifier.

CONCAT(a,b) is roughly equivalent to a##b in cpp syntax.

CAPITALIZE

CAPITALIZE() is a predefined macro that takes one argument, removes any leading and trailing whitespace, reduces each internal whitespace sequence to a single space character and produces a valid OCaml identifer with first character.

For example,

#define EVENT(n,ty) external CONCAT(on,CAPITALIZE(n)) : ty = STRINGIFY(n) [@@bs.val] 
EVENT(exit, unit -> unit)

is expanded into:

external  onExit  :  unit -> unit = "exit" [@@bs.val]

Stringification

STRINGIFY() is a predefined macro that takes one argument, removes any leading and trailing whitespace, reduces each internal whitespace sequence to a single space character and produces a valid OCaml string literal.

For example,

#define TRACE(f) Printf.printf ">>> %s\n" STRINGIFY(f); f
TRACE(print_endline) "Hello"

is expanded into:

Printf.printf ">>> %s\n" "print_endline"; print_endline "Hello"

STRINGIFY(x) is the equivalent of #x in cpp syntax.

Ocamlbuild plugin

An ocamlbuild plugin is available. To use it, you can call ocamlbuild with the argument -plugin-tag package(cppo_ocamlbuild) (only since ocaml 4.01 and cppo >= 0.9.4).

Starting from cppo >= 1.6.0, the cppo_ocamlbuild plugin is in a separate OPAM package (opam install cppo_ocamlbuild).

With Oasis :

OCamlVersion: >= 4.01
AlphaFeatures: ocamlbuild_more_args
XOCamlbuildPluginTags: package(cppo_ocamlbuild)

After that, you need to add in your myocamlbuild.ml :

let () =
  Ocamlbuild_plugin.dispatch
    (fun hook ->
      Ocamlbuild_cppo.dispatcher hook ;
    )

By default the plugin will apply cppo on all files ending in .cppo.ml cppo.mli, and cppo.mlpack, in order to produce .ml, .mli, and.mlpack files. The following tags are available:

  • cppo_D(X)-D X

  • cppo_U(X)-U X

  • cppo_q-q

  • cppo_s-s

  • cppo_n-n

  • cppo_x(NAME:CMD_TEMPLATE)-x NAME:CMD_TEMPLATE

  • The tag cppo_I(foo) can behave in two way:

    • If foo is a directory, it's equivalent to -I foo.

    • If foo is a file, it adds foo as a dependency and apply -I parent(foo).

  • cppo_V(NAME:VERSION)-V NAME:VERSION

  • cppo_V_OCAML-V OCAML:VERSION, where VERSION is the version of OCaml that ocamlbuild uses.

Detailed command-line usage and options

Usage: ./cppo [OPTIONS] [FILE1 [FILE2 ...]]
Options:
  -D DEF
          Equivalent of interpreting '#define DEF' before processing the
          input
  -U IDENT
          Equivalent of interpreting '#undef IDENT' before processing the
          input
  -I DIR
          Add directory DIR to the search path for included files
  -V VAR:MAJOR.MINOR.PATCH-OPTPRERELEASE+OPTBUILD
          Define the following variables extracted from a version string
          (following the Semantic Versioning syntax http://semver.org/):

            VAR_MAJOR           must be a non-negative int
            VAR_MINOR           must be a non-negative int
            VAR_PATCH           must be a non-negative int
            VAR_PRERELEASE      if the OPTPRERELEASE part exists
            VAR_BUILD           if the OPTBUILD part exists
            VAR_VERSION         is the tuple (MAJOR, MINOR, PATCH)
            VAR_VERSION_STRING  is the string MAJOR.MINOR.PATCH
            VAR_VERSION_FULL    is the original string

          Example: cppo -V OCAML:4.02.1

  -o FILE
          Output file
  -q
          Identify and preserve camlp4 quotations
  -s
          Output line directives pointing to the exact source location of
          each token, including those coming from the body of macro
          definitions.  This behavior is off by default.
  -n
          Do not output any line directive other than those found in the
          input (overrides -s).
  -version
          Print the version of the program and exit.
  -x NAME:CMD_TEMPLATE
          Define a custom preprocessor target section starting with:
            #ext "NAME"
          and ending with:
            #endext

          NAME must be a lowercase identifier of the form [a-z][A-Za-z0-9_]*

          CMD_TEMPLATE is a command template supporting the following
          special sequences:
            %F  file name (unescaped; beware of potential scripting attacks)
            %B  number of the first line
            %E  number of the last line
            %%  a single percent sign

          Filename, first line number and last line number are also
          available from the following environment variables:
          CPPO_FILE, CPPO_FIRST_LINE, CPPO_LAST_LINE.

          The command produced is expected to read the data lines from stdin
          and to write its output to stdout.
  -help  Display this list of options
  --help  Display this list of options

Contributing

See our contribution guidelines at https://github.com/mjambon/documents/blob/master/how-to-contribute.md

Dependencies (4)

  1. base-unix
  2. base-bytes
  3. jbuilder >= "1.0+beta17"
  4. ocaml < "5.2"

Dev Dependencies

None

  1. 0install >= "2.14" & < "2.15.1"
  2. arg-complete
  3. asak
  4. baby
  5. bisect_ppx = "1.2.0"
  6. bwrap
  7. bytearray
  8. camlimages >= "5.0.0"
  9. camomile < "1.0.0"
  10. caqti >= "1.2.0" & < "2.0.1"
  11. catala >= "0.5.0"
  12. cconv = "0.4"
  13. cconv-ppx
  14. clarity-lang
  15. commonjs_of_ocaml
  16. containers >= "0.5" & < "1.5"
  17. cppo_ocamlbuild < "1.6.6"
  18. curve-sampling
  19. decoders < "0.1.2"
  20. doc-ock
  21. dose >= "3.4.1"
  22. dose3 < "6.1"
  23. dryunit >= "0.4.0"
  24. extlib >= "1.7.0"
  25. extlib-compat >= "1.7.0"
  26. fftw3 >= "0.8"
  27. freetds >= "0.6"
  28. frenetic >= "5.0.0" & < "5.0.5"
  29. General
  30. gapi-ocaml >= "0.4.5"
  31. gdb
  32. genprint >= "0.2"
  33. gettext >= "0.4.2"
  34. goblint-cil >= "2.0.0"
  35. graphql_ppx >= "0.7.1" & < "1.2.2"
  36. hacl-star >= "0.1.1"
  37. hdf5 >= "0.1.2"
  38. hector
  39. integration1d >= "0.5.1"
  40. irmin-watcher < "0.3.0"
  41. js_of_ocaml >= "2.6" & < "3.0"
  42. js_of_ocaml-compiler < "3.5.0"
  43. jupyter < "2.0.0"
  44. lablqml < "0.6"
  45. lbfgs >= "0.9.3"
  46. lilis >= "0.2.1"
  47. lsp < "1.6.0"
  48. lwt >= "2.7.1"
  49. lwt_react >= "1.2.0"
  50. malfunction
  51. mdx >= "1.2.0"
  52. melange >= "0.3.0"
  53. meldep
  54. merlin-extend
  55. mindstorm >= "0.6"
  56. mindstorm-lwt
  57. monomorphic >= "2.1.0"
  58. notty >= "0.2.3"
  59. ocaml-top >= "1.2.0"
  60. ocamlmerlin-mlx
  61. ocp-browser >= "1.2.1"
  62. ocp-index >= "1.2.1"
  63. ocp-index-top
  64. ocplib-endian >= "0.8"
  65. odoc >= "1.3.0"
  66. oloop
  67. oml = "0.0.6"
  68. opam-core >= "2.0.0~rc" & < "2.2.0~alpha"
  69. opam-query
  70. opium = "0.14.0"
  71. override >= "0.2.0" & < "0.3.0"
  72. pa_ppx >= "0.12"
  73. pa_ppx_parsetree
  74. pa_ppx_q_ast = "0.09"
  75. phantom-algebra < "1.0.1"
  76. pla < "1.2"
  77. ppx_bigarray >= "0.0.1"
  78. ppx_cstruct >= "5.1.1"
  79. ppx_cstubs
  80. ppx_deriving >= "3.3"
  81. ppx_deriving_argparse
  82. ppx_deriving_cmdliner < "0.6.0"
  83. ppx_deriving_morphism = "0.4"
  84. ppx_deriving_protobuf >= "2.4"
  85. ppx_deriving_rpc < "6.0.0"
  86. ppx_deriving_yojson >= "3.0" & < "3.6.0"
  87. ppx_dryunit
  88. ppx_getenv = "1.2"
  89. ppx_import < "1.5-3-gbd627d5"
  90. ppx_include >= "1.1"
  91. ppx_interact >= "0.1.1"
  92. ppx_tools >= "6.3"
  93. reanalyze >= "2.16.0"
  94. reason >= "3.12.0"
  95. reed-solomon-erasure
  96. rotor
  97. rtop >= "3.12.0"
  98. sarek >= "20210823"
  99. sek
  100. setr
  101. shcaml >= "0.2.0"
  102. sibylfs
  103. slap
  104. spoc >= "20210823"
  105. sqlexpr >= "0.7.1" & < "0.9.0"
  106. stdcompat < "5"
  107. stdlib-random
  108. touist >= "3.1.0" & < "3.4.0"
  109. utop >= "1.16"
  110. uwt
  111. visitors >= "20170404" & < "20210127"
  112. websocket >= "2.8" & < "2.10"
  113. yojson < "2.2.0"

Conflicts

None

OCaml

Innovation. Community. Security.