File canvas-draw/racket/pdf.rkt artifact 75e477e6d1 part of check-in b1dcd0ebc6
#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) ;; }}}