1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
type config = unit
let has_cairo = false
let get_config ~filename:_ ~dirs:_ = ()
let dump_svg ~svg_output:_ _ ~index:_ _ ~config:_ =
Logs.warn
UtilsLib.PPUtils.(
fun m -> m
"The@ %a@ command@ sets@ a@ svg@ output@ \
file@, but@ this@
function@ is@ not@ yet@ implemented@ in@ this@ program."
fun_pp
"realize")