Source file svg.ml

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")