Scaffolding for loadttf

cpdfcommand.ml

@@ -1790,7 +1790,7 @@ let setfont f =
         begin match Pdftext.standard_font_of_name ("/" ^ f) with
         | Some x -> StandardFont x
         | None ->
-            if f <> "" && hd (explode f) <> '/' then error "Custom font names must begin with /";
+            if f <> "" && hd (explode f) <> '/' then error "Font not found";
             OtherFont (convert f)
         end;
       args.fontname <-

cpdfdrawcontrol.ml

@@ -11,6 +11,8 @@ let setfontsize = ref (fun _ -> Printf.printf "BAD ******\n%!"; ())
 
 let ttfs = null_hash ()
 
+let loadttf name filename = ()
+
 let fontpack_initialised = ref false
 
 let drawops = ref [("_MAIN", [])]

cpdfdrawcontrol.mli

@@ -5,6 +5,7 @@ val setfontname : (string -> unit) ref
 val setfontsize : (float -> unit) ref
 val setdrawing : (unit -> unit) ref
 val ttfs : (string, (string * Cpdfembed.cpdffont)) Hashtbl.t
+val loadttf : string -> string -> unit
 val fontpack_initialised : bool ref
 val drawops : (string * Cpdfdraw.drawops list) list ref
 val addop : Cpdfdraw.drawops -> unit