Using Camlp4 for conditional compilation


so I have been wondering for quite some time: how to do conditional compilation in Ocaml as simple as in C?

As a reader of a library development log, you probably know that one would typically use preprocessing to modify a code before it gets compiled. There are a few cases in particular when one wishes to do so:

  1. When code on various platform would differ: a typical OCaml example would be the use of the Unix module which is not fully implemented in Win32 OSes. Hence we might want to have an alternative implementation on Win32 but keep the simpler or faster Unix implementation when relevant.
  2. When optimization is more important than genericity of code, in particular if we can use material specificities of the underlining architecture: for instance by having specialized 32 bits or 64 bits version, more generally direct access to a material interface, and so on.
  3. To create environment-specific behavior. This is mostly used during implementation where we might want to have a “debug mode” providing development information, disabling it for release without having to edit the code
  4. To provide options, in particular if this prevents from linking some non-mandatory or problematic library.

Unfortunately though C/C++ make it easy, Objective Caml preprocessing feature (Camlp4) wants us to make our own grammar! Actually the various documentation and tutorial found on the subject compares Camlp4 rather to lex/yacc (flex/bison in the Free Software world) lexer and parser, than to the C preprocessor.

Though it is most certainly nice and powerful (I admit, I didn’t read the whole Camlp4′s documentation), I only needed a very simple conditional compilation for my current use case.

I’ll discuss below how I did it for people needing this kind of feature as well as the limitation of this “simple” method.
Then I’ll discuss more generally on conditional compilation, why it can be a good idea; yet why we should be careful about this; and finally alternatives.

OCaml and simple conditional compilation

Documentation Flaws

Let’s admit, while OCaml is great, and has a good enough official documentation and a few great alternative ones out there, most of it is rather outdated, or very limited and imprecise. Camlp4 follows the rule. The official manual and tutorial both date from 2003, Ocaml version 3.07 (we are in 2011 and version 3.12 has been published for 7 months now!) and all other information I found were in similar state. Moreover documentation really focuses on extensive use of Camlp4, barely explaining how to use the easy pre-implemented grammars.

Default Preprocessing Grammar for Macros

There is indeed one grammar for macro support, written with Camlp4 and provided with the official OCaml release, which one can optionally load during compilation: pa_macro. That is what I got interested into. Sadly the best documentation to see how to use it and the full range of possibilities was… comments in the compiler source code.
Not to clutter this log anymore, I uploaded the relevant comment in a separate file for people to easily check on this.

What it can do

It allows to:

  1. define MACROs to be tested for existence or to be replaced by code;
  2. compile some code depending on the existence of macros.

And that’s basically all (nearly).

What it cannot do

In particular it cannot do these very basic uses of macros:

Test values of macros.
You cannot test the value of a macro and run some code depending on it. The only testable condition is existence/absence.
In my case for instance, I wanted to use a different type in a module depending whether I was on a 32 bits or a 64 bits platform. My first idea was to run:
ARCH=`uname -m`
in the Makefile, then add this as a macro and check value while preprocessing. That’s not possible.
Instead I had to make the test in the Makefile:
ifeq(`uname -m`,x86_64)
and depending on this condition, I set or not the ARCH_64 macro. Then I test its existence.
Replace macros with nothing
On C, you could have macros set to nothing so that would simply disappear when embedded in the code. This is impossible with pa_macro.
If I try DEFINE MY_MACRO=, it would raise a preprocessing error.
If I simply define the macro (without ‘=’), and try to use it in the code, it would not be replaced, hence this time, the compiler raises a constructor error.
There is a predefined macro called NOTHING but apparently it can be used only as a function argument that you want to erase (and I did not really understand the use case for it). I cannot set:

Hence my solution was this:

You could say: but why would I want this? In my code, I have a TO_INT macro. On a 32 bits architecture, I want it to be Int32.to_int whereas on 64 bits, I would use the int type, then TO_INT is the identity function (and if I can avoid a useless function call…).

Flawed check on constants
In the algorithm I implemented (SHA1), there are some constants. Some of them are very big and are over max_int on a 32 bits platform.
But as I said, in such a case, I use Int32, so all is fine. So I had this kind of test:


The problem I encountered was that camlp4o was raising an error while compiling on a 32 bits machine, telling me that 0x8F1BBCDC was bigger than max_int!
I don’t know why it tried to check the validity of the constant while this code was not going to be compiled. In my opinion, it should stick to its “syntax work”, then pass the result to the compiler. This one will check validity of constants and if I made an error (which I did not), it would tell me. No need to make this check twice, especially when the check is flawed! That’s a clear limitation in pa_macro that I could only work around by making this constant as a macro that I pass from my Makefile. That’s not clean, clearly, but I did not find a better solution.

“parser” is a keyword
I had a class called XML.parser. I had to rename it because — when using Camlp4 — parser becomes a keyword (used to filter streams) and cannot be used anymore to name entities. This is not an error, but just so that you know that camlp4o can cause this kind of issues. Yet it does not change the original syntax. On the other hand, camlp4r (‘r‘ as “revised”) does change the basic syntax. So use only camlp4o if you wish to continue using the original OCaml!

How it looks

So in the end, my file has this kind of code:

  DEFINE LOGAND=Int32.logand
  DEFINE LOGOR=Int32.logor
  DEFINE TO_INT=Int32.to_int
let rem = TO_INT (LOGAND div OCTET) in
  w.[i] <- Char.unsafe_chr rem;

How to compile this

And my Makefile contains such code:

# You remember the ugly workaround I told about because
# Camlp4 was forbidding me to write big integers? Here it is.

ifeq ($(shell uname -m),x86_64)
else ifeq ($(shell uname -m),ia64)

    ocamlopt -pp "camlp4o pa_macro.cmo $(PP_FLAGS)" sha1.mli

Here we simply tell the compiler to use camlp4o as a preprocessor (-pp) with the grammar pa_macro.cmo and we set (or unset) a few macros.

Conditional Compilation: when should it be used?

Here are a few examples of bad and good use of conditional compilation.

Creates parallel Code versions

In particular, it generate “logical” code versions (not the physical code, as I will show, when well done, it can in fact factorize it, which is good) which makes as though you had several different programs to maintain. Indeed in my example, I already have 2 versions of my code: 32 and 64 bits. What it means in particular is that my code compiling on a 32 bits architecture does not mean anymore it compiles on a 64 bits one (and reciprocally) because the compiler is not given anymore the whole code at once but a part which has been “dumped” by Camlp4 (hence “pre-processing”).

Here that’s still ok because I have only 2 versions. But when a software multiplies conditional compilations instead of writing generic code, it can easily end up with dozens of outputs depending on platforms or user options (and many software out there are this way).

Pass through files

Variables, constants… they all have limitations imposed by the language: they cannot get out of a file, a module, a class, etc. That’s good. That’s one reason why we use a strict language: to have better control of what we want in and out.

Macros on the other hand are not controlled by the language. They have their own syntax and are managed by the preprocessor. It means they usually pass files. As I could not find any documentation on this point for Camlp4, I made some tests and I can gladly say pa_macro hasn’t got this issue, but I will explain it as general information about macros.

Let’s suppose that I create a ZERO macro (which I did) to be worth either the integer 0 or the Int32 0l. In a further file, I might make some day another ZERO, which is actually not a macro, but some constructor and I completely forgot that I had this macro set. Then it is replaced at compilation time by the macro value and fails; or worse, for some reason the replacement is a correct or possible type, it compiles, but later it fails at runtime making it difficult to diagnose.

Fortunately pa_macro‘s macros do not get out of files (external files of macros must be explicitly INCLUDEd). But the issue can still occur from command-line macros.

So if some of them are supposed to be global with specific name (like ARCH_64), it is usually ok. But if ever you were passing macros on the command line with very generic names, that you wanted to be used only in a single module, it might become a problem.

Comparison to Runtime tests

Some people oppose the macro solution to in-code conditional tests.
But this has flaws too:

Code forbidden

I told it, sometimes some code is forbidden on some platform. For instance if my very big integer constant was to make it up to the compiler, it would fail to compile (and this time, with a good reason). In such cases, runtime tests are impossible.


Why I made a conditional compilation was because logical computation on int was faster than on Int32, but I could not use int on a 32 bits platform (Ocaml has 31 bits int on 32 bits). So even supposing it were possible to do runtime condition tests (but it’s not as I demonstrated in the previous point), doing so would impact performance for no reason while I was doing it for the opposite reason! Fully interpreted language have no other solutions, whereas we use a compiled language. So let’s make good use of the tools we are given.

Code clarity

Sometimes heavy use and/or bad use of macros can lead to very obscure code. But it can also lead to clearer code when well used.

For instance my example above avoids any code duplication with many conditional everywhere.
I think we will agree that having only this:
let rem = TO_INT (LOGAND div OCTET) in
is far nicer than something like this:

let rem =
  if arch_64
    div land 0xFFFFFFFF
    Int32.to_int (Int32.logand div 0xFFFFFFFFl)

The first code is factorized and the whole logics of conditional is hidden in the macros which are simply switched at compilation time. Moreover if I change my code, I need to change only one line instead of 2 (code duplication is a common source of bug when we fix something only at one place while the same code is copied over somewhere else).

Alternate Solutions

Other solutions exist to run different piece of code in different cases. Nearly none of them are all good or all bad, they may depend mostly on use case.

Again runtime tests

Yes it strikes again! Though I seem to have said a lot of bad things of it, it is still a pretty good solution in many cases.
In particular, if you want to be able to switch behavior as often as you wish, it is far better to make it runtime.

Debug for instance is a common feature which you can see either set as a compilation option or a runtime. Making it runtime allows you to never have debug but when you want it, you just switch a “-debug” option.
Note that if you have a lot of debug set in your program, it means there will be a lot of useless tests on the boolean value of some debug variable (if debug then). I told that’s a slight performance issue maybe not suitable for all use. A common solution is then to have debug both compilation AND runtime. At compilation, you can decide whether or not you have the “-debug” option, and if not, all tests won’t be compiled.


The Makefile can deal with selecting between 2 files which have a different implementation of a single feature. Then depending on the platform, it can compile against one or the other implementation.
The advantage is obvious: 2 files completely not encumbered with macros or conditional code of anysort (neither preprocessing code, nor runtime code). The drawback is that you may have code duplication (unless the 2 implementations are actually very different logics, which can happen).

Code generation

Another solution is code generation, which is often some kind of code completion. This is actually a logic close to the macro logic. A common tool is autoconf, which replaces variables on the fly. You can often see some code with @VERSION@ in it. These are usually variables replaced by autoconf before compilation (check for AC_SUBST and AC_CONFIG_FILES in autoconf documentation). Though this is a pretty useless example, this kind of behavior can be pretty well extended to generate conditional code depending on a platform in a way similar to what the macros did in my example.

To get the full power of autoconf, think of how it generates a full Makefile from some very basic template.


I described the easy way with Camlp4, which is using the existing pa_macro. But of course if that’s not enough for you, you can write your own macro grammar.


So we saw that conditional compilation can be good for several reason, among them optimization, or even portability when no common code exist to do a single action between 2 platforms.
But as all good things, it must be used parsimoniously. In particular:

  • Is optimization always necessary? My example was a cryptographic example, the kind of code which can be run thousands of time every seconds in some kind of software and where the gain of speed can be from 1 to 1000 depending on the implementation. Optimization can be critical on cryptography algorithms.
    On other kind of feature, when you have a piece of code that you will run only once in a while, it is unconditionally better to have a very readable code than a fast and complicated one, even more if the gain in time you would obtain with optimization is so small that none will make the difference when it is run once every hour.
  • When portability is the goal, aim rather for generic code than for conditional compilation. So your current code is platform specific? Before looking for the equivalent platform-specific code in that other platform you support, try to look if there does not exist a generic code which works on both.
  • So there is no generic code possible? Optimization is too critical here? Or else the generic code exists but makes thing more ugly/complicated or bring other issues? Fine, conditional compilation is for you. But try to encapsulate it in a single file. If this is for a function you’ll want to use in many places, then place this function in its own file and hide any conditional compilation there so that it is seen as a black box. Once done, you won’t have to worry a single bit anymore about how it actually works. Doing this makes the “parallel logical code” much less an issue.

It is sad Ocaml does not advertize better some “easy” solution for this kind of use case. But multiple solutions still exist and they are not that difficult, as long as there is some documentation.
So I hope my little ticket here will help other people to write great program in Ocaml (or whatever other language, as long as your program is great… and Free… as in Free Speech!).

Posted in Howto | Tagged , , | 11 Comments

<presence from=”jehan@tuxfamily/OX” id=”hello” to=”world” />

Hi all,

this is the first official development log for OX, alias Ocaml XMPP, a XMPP library (client only, for now at least) for the Objective Caml language in order to connect to and do various things with XMPP servers (also informally known as Jabber. XMPP is the Instant Messaging IETF standard*, used among others by Google, LiveJournal, Facebook (though this service is closed on itself), the well-known BBC radio, or even in-game (and out-game!) chat like in EveOnline, or the Quake Live gaming platform… And so many others!).

According to my own repository, the first code ever written was in 11th of July of 2008! But after some code which led only to a basic example (it was simply connecting in TLS + PLAIN), I left the project on the side, using my time for other parts of my life… until this very month!

I have indeed now been back on the horse for about the last 2 weeks! A lot of rewriting of the bases, plus a few additional features (like SASL SCRAM for authentication, I’ll talk about this soon!) has been done in these few weeks.

Don’t try to download the code yet if you are looking for a ready-to-use library. It is still ugly and not really usable in a real (even small) project, as I am in heavy work of putting everything up to date with a solid interface. It won’t get you anywhere right now.

I hope to be able to provide the version 0.1, the first official release very soon (hopefully in less than a month).
Until then, stay up to date!

* one would say, the IETF has actually 2 standards for Instant Messaging and Media over IP: XMPP and SIP. Work is in progress to make them interoperable.

Posted in Uncategorized | Leave a comment