File canvas-draw/racket/pdf.rkt artifact 75e477e6d1 part of check-in 8ca036fa3c

#lang racket/base
(require
 ffi/unsafe
 "base.rkt")

(define libcd-pdf
  (case (system-type 'os)
    [(windows)
     (ffi-lib "cdpdf")]
    [else
     (ffi-lib "libcdpdf")]))

;; {{{ Context types

(define context:pdf
  ((get-ffi-obj "cdContextPDF" libcd-pdf (_fun -> [context : _context]))))

(provide
 context:pdf)

;; }}}