Artifact 5a4515ba82414f18d45ccb4df530545eb5aec406:

• File canvas-draw/racket/printer.rkt — part of check-in [ed10f826ff] at 2011-01-30 17:39:09 on branch trunk — Re-ran configure in ffcall and imported canvas-draw source (user: matt, size: 383) [annotate] [blame] [check-ins using]

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

(define libcd-native
  (case (system-type 'os)
    [(unix macosx)
     (ffi-lib "libcdx11")]
    [(windows)
     (ffi-lib "cd")]
    [else
     (ffi-lib "libcd")]))

;; {{{ Context types

(define context:printer
  ((get-ffi-obj "cdContextPrinter" libcd-native (_fun -> [context : _context]))))

(provide
 context:printer)

;; }}}