Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Simplified build logic, combined libraries |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk | v1.1.0 |
Files: | files | file ages | folders |
SHA1: |
53ca1af25dfdd3bad74ac36e6f432f2a |
User & Date: | murphy 2011-12-25 02:43:03.258 |
Context
2011-12-25
| ||
02:45 | Updated CHICKEN release information file check-in: 48e70fb1d1 user: murphy tags: trunk | |
02:43 | Simplified build logic, combined libraries check-in: 53ca1af25d user: murphy tags: trunk, v1.1.0 | |
2011-04-22
| ||
15:47 | Added .release-info file check-in: 05124adbf1 user: murphy tags: trunk | |
Changes
Changes to chicken/canvas-draw-base.scm.
|
| < | < < < < < < < < < < < < < < < < < < < < < < < < < < < | 1 2 3 4 5 6 7 8 | ;; -*- mode: Scheme; tab-width: 2; -*- ;; ;; {{{ Data types (foreign-declare "#include <cd.h>\n") (define *canvas-tag* "cdCanvas") |
︙ | ︙ | |||
546 547 548 549 550 551 552 | (letrec ([canvas-clip-area/raw (foreign-lambda void "cdfCanvasGetClipArea" nonnull-canvas (c-pointer double) (c-pointer double) (c-pointer double) (c-pointer double))]) (lambda (canvas) (let-location ([x0 double 0] [x1 double 0] [y0 double 0] [y1 double 0]) (canvas-clip-area/raw canvas (location x0) (location x1) (location y0) (location y1)) (values x0 x1 y0 y1))))) ;; }}} | < < | 518 519 520 521 522 523 524 | (letrec ([canvas-clip-area/raw (foreign-lambda void "cdfCanvasGetClipArea" nonnull-canvas (c-pointer double) (c-pointer double) (c-pointer double) (c-pointer double))]) (lambda (canvas) (let-location ([x0 double 0] [x1 double 0] [y0 double 0] [y1 double 0]) (canvas-clip-area/raw canvas (location x0) (location x1) (location y0) (location y1)) (values x0 x1 y0 y1))))) ;; }}} |
Changes to chicken/canvas-draw-cgm.scm.
|
| < | < < < < < | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | ;; -*- mode: Scheme; tab-width: 2; -*- ;; ;; {{{ Data types (foreign-declare "#include <cd.h>\n" "#include <cdcgm.h>\n") (include "canvas-draw-types.scm") ;; }}} ;; {{{ Context types (define context:cgm (foreign-value "CD_CGM" nonnull-context)) ;; }}} |
Changes to chicken/canvas-draw-client.scm.
|
| < | < < < < | 1 2 3 4 5 6 7 8 | ;; -*- mode: Scheme; tab-width: 2; -*- ;; ;; {{{ Data types (foreign-declare "#include <cd.h>\n" "#include <cdirgb.h>\n") |
︙ | ︙ | |||
101 102 103 104 105 106 107 | (lambda (canvas x y width height) (let ([data (make-blob (* 3 width height))]) (canvas-image/rgb/raw canvas x y width height data) data))) canvas-image-put/rgb!)) ;; }}} | < < | 96 97 98 99 100 101 102 | (lambda (canvas x y width height) (let ([data (make-blob (* 3 width height))]) (canvas-image/rgb/raw canvas x y width height data) data))) canvas-image-put/rgb!)) ;; }}} |
Changes to chicken/canvas-draw-clipboard.scm.
|
| < | < < < < < | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | ;; -*- mode: Scheme; tab-width: 2; -*- ;; ;; {{{ Data types (foreign-declare "#include <cd.h>\n" "#include <cdclipbd.h>\n") (include "canvas-draw-types.scm") ;; }}} ;; {{{ Context types (define context:clipboard (foreign-value "CD_CLIPBOARD" nonnull-context)) ;; }}} |
Changes to chicken/canvas-draw-debug.scm.
|
| < | < < < < < | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | ;; -*- mode: Scheme; tab-width: 2; -*- ;; ;; {{{ Data types (foreign-declare "#include <cd.h>\n" "#include <cddebug.h>\n") (include "canvas-draw-types.scm") ;; }}} ;; {{{ Context types (define context:debug (foreign-value "CD_DEBUG" nonnull-context)) ;; }}} |
Changes to chicken/canvas-draw-dgn.scm.
|
| < | < < < < < | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | ;; -*- mode: Scheme; tab-width: 2; -*- ;; ;; {{{ Data types (foreign-declare "#include <cd.h>\n" "#include <cddgn.h>\n") (include "canvas-draw-types.scm") ;; }}} ;; {{{ Context types (define context:dgn (foreign-value "CD_DGN" nonnull-context)) ;; }}} |
Changes to chicken/canvas-draw-dxf.scm.
|
| < | < < < < < | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | ;; -*- mode: Scheme; tab-width: 2; -*- ;; ;; {{{ Data types (foreign-declare "#include <cd.h>\n" "#include <cddxf.h>\n") (include "canvas-draw-types.scm") ;; }}} ;; {{{ Context types (define context:dxf (foreign-value "CD_DXF" nonnull-context)) ;; }}} |
Changes to chicken/canvas-draw-emf.scm.
|
| < | < < < < < | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | ;; -*- mode: Scheme; tab-width: 2; -*- ;; ;; {{{ Data types (foreign-declare "#include <cd.h>\n" "#include <cdemf.h>\n") (include "canvas-draw-types.scm") ;; }}} ;; {{{ Context types (define context:emf (foreign-value "CD_EMF" nonnull-context)) ;; }}} |
Changes to chicken/canvas-draw-gl.scm.
|
| < | < < < < < | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | ;; -*- mode: Scheme; tab-width: 2; -*- ;; ;; {{{ Data types (foreign-declare "#include <cd.h>\n" "#include <cdgl.h>\n") (include "canvas-draw-types.scm") ;; }}} ;; {{{ Context types (define context:gl (foreign-value "CD_GL" nonnull-context)) ;; }}} |
Changes to chicken/canvas-draw-iup.scm.
|
| < | < < < | 1 2 3 4 5 6 7 8 | ;; -*- mode: Scheme; tab-width: 2; -*- ;; ;; {{{ Data types (foreign-declare "#include <cd.h>\n" "#include <cdiup.h>\n") |
︙ | ︙ | |||
31 32 33 34 35 36 37 | (define (make-cells-draw-cb proc) (let ([wrap (pointer->canvas #t)]) (lambda (handle i j x-min x-max y-min y-max canvas) (call-with-canvas (wrap canvas) (cut proc handle i j x-min x-max y-min y-max <>))))) ;; }}} | < < | 27 28 29 30 31 32 33 | (define (make-cells-draw-cb proc) (let ([wrap (pointer->canvas #t)]) (lambda (handle i j x-min x-max y-min y-max canvas) (call-with-canvas (wrap canvas) (cut proc handle i j x-min x-max y-min y-max <>))))) ;; }}} |
Changes to chicken/canvas-draw-metafile.scm.
|
| < | < < < < < | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | ;; -*- mode: Scheme; tab-width: 2; -*- ;; ;; {{{ Data types (foreign-declare "#include <cd.h>\n" "#include <cdmf.h>\n") (include "canvas-draw-types.scm") ;; }}} ;; {{{ Context types (define context:metafile (foreign-value "CD_METAFILE" nonnull-context)) ;; }}} |
Changes to chicken/canvas-draw-native.scm.
|
| < | < < < < | 1 2 3 4 5 6 7 8 | ;; -*- mode: Scheme; tab-width: 2; -*- ;; ;; {{{ Data types (foreign-declare "#include <cd.h>\n" "#include <cdnative.h>\n") |
︙ | ︙ | |||
39 40 41 42 43 44 45 | ;; }}} ;; {{{ Library initialization (foreign-code "cdInitContextPlus();") ;; }}} | < < | 34 35 36 37 38 39 40 | ;; }}} ;; {{{ Library initialization (foreign-code "cdInitContextPlus();") ;; }}} |
Changes to chicken/canvas-draw-pdf.scm.
|
| < | < < < < < | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | ;; -*- mode: Scheme; tab-width: 2; -*- ;; ;; {{{ Data types (foreign-declare "#include <cd.h>\n" "#include <cdpdf.h>\n") (include "canvas-draw-types.scm") ;; }}} ;; {{{ Context types (define context:pdf (foreign-value "CD_PDF" nonnull-context)) ;; }}} |
Changes to chicken/canvas-draw-picture.scm.
|
| < | < < < < < | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | ;; -*- mode: Scheme; tab-width: 2; -*- ;; ;; {{{ Data types (foreign-declare "#include <cd.h>\n" "#include <cdpicture.h>\n") (include "canvas-draw-types.scm") ;; }}} ;; {{{ Context types (define context:picture (foreign-value "CD_PICTURE" nonnull-context)) ;; }}} |
Changes to chicken/canvas-draw-play.scm.
|
| < | < < < | 1 2 3 4 5 6 7 8 | ;; -*- mode: Scheme; tab-width: 2; -*- ;; ;; {{{ Data types (foreign-declare "#include <cd.h>\n") (include "canvas-draw-types.scm") |
︙ | ︙ | |||
23 24 25 26 27 28 29 | (define (canvas-play! canvas context x0 x1 y0 y1 data) (let ([canvas-play/data! (if (string? data) canvas-play/string! canvas-play/ptr!)]) (unless (zero? (canvas-play/data! canvas context x0 x1 y0 y1 data)) (error 'canvas-play! "failed to replay graphics")))) ;; }}} | < < | 19 20 21 22 23 24 25 | (define (canvas-play! canvas context x0 x1 y0 y1 data) (let ([canvas-play/data! (if (string? data) canvas-play/string! canvas-play/ptr!)]) (unless (zero? (canvas-play/data! canvas context x0 x1 y0 y1 data)) (error 'canvas-play! "failed to replay graphics")))) ;; }}} |
Changes to chicken/canvas-draw-primitives.scm.
|
| < | < < < < < < < < < < < < < < < < < < < < < < | 1 2 3 4 5 6 7 8 | ;; -*- mode: Scheme; tab-width: 2; -*- ;; ;; {{{ Data types (foreign-declare "#include <cd.h>\n") (include "canvas-draw-types.scm") |
︙ | ︙ | |||
730 731 732 733 734 735 736 | [(assq path-action path-actions) => cdr] [else (error 'canvas-path-set! "unknown path action" path-action)]))))) (define canvas-vertex! (foreign-lambda void "cdfCanvasVertex" nonnull-canvas double double)) ;; }}} | < < | 707 708 709 710 711 712 713 | [(assq path-action path-actions) => cdr] [else (error 'canvas-path-set! "unknown path action" path-action)]))))) (define canvas-vertex! (foreign-lambda void "cdfCanvasVertex" nonnull-canvas double double)) ;; }}} |
Changes to chicken/canvas-draw-printer.scm.
|
| < | < < < < < | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | ;; -*- mode: Scheme; tab-width: 2; -*- ;; ;; {{{ Data types (foreign-declare "#include <cd.h>\n" "#include <cdprint.h>\n") (include "canvas-draw-types.scm") ;; }}} ;; {{{ Context types (define context:printer (foreign-value "CD_PRINTER" nonnull-context)) ;; }}} |
Changes to chicken/canvas-draw-ps.scm.
|
| < | < < < < < | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | ;; -*- mode: Scheme; tab-width: 2; -*- ;; ;; {{{ Data types (foreign-declare "#include <cd.h>\n" "#include <cdps.h>\n") (include "canvas-draw-types.scm") ;; }}} ;; {{{ Context types (define context:ps (foreign-value "CD_PS" nonnull-context)) ;; }}} |
Changes to chicken/canvas-draw-server.scm.
|
| < | < < < | 1 2 3 4 5 6 7 8 | ;; -*- mode: Scheme; tab-width: 2; -*- ;; ;; {{{ Data types (foreign-declare "#include <cd.h>\n" "#include <cdimage.h>\n" "#include <cddbuf.h>\n") |
︙ | ︙ | |||
20 21 22 23 24 25 26 | (define context:image (foreign-value "CD_IMAGE" nonnull-context)) (define context:double-buffer (foreign-value "CD_DBUFFER" nonnull-context)) ;; }}} | < < | 16 17 18 19 20 21 22 | (define context:image (foreign-value "CD_IMAGE" nonnull-context)) (define context:double-buffer (foreign-value "CD_DBUFFER" nonnull-context)) ;; }}} |
Changes to chicken/canvas-draw-svg.scm.
|
| < | < < < < < | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | ;; -*- mode: Scheme; tab-width: 2; -*- ;; ;; {{{ Data types (foreign-declare "#include <cd.h>\n" "#include <cdsvg.h>\n") (include "canvas-draw-types.scm") ;; }}} ;; {{{ Context types (define context:svg (foreign-value "CD_SVG" nonnull-context)) ;; }}} |
Changes to chicken/canvas-draw-wmf.scm.
|
| < | < < < < < | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | ;; -*- mode: Scheme; tab-width: 2; -*- ;; ;; {{{ Data types (foreign-declare "#include <cd.h>\n" "#include <cdwmf.h>\n") (include "canvas-draw-types.scm") ;; }}} ;; {{{ Context types (define context:wmf (foreign-value "CD_WMF" nonnull-context)) ;; }}} |
Changes to chicken/canvas-draw.scm.
|
| > > | > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 | ;; -*- mode: Scheme; tab-width: 2; -*- ;; (require-library lolevel data-structures srfi-1 srfi-4 srfi-13) (module canvas-draw-base (canvas? canvas->pointer pointer->canvas context? context->pointer pointer->context state? state->pointer pointer->state context-capabilities use-context+ make-canvas call-with-canvas canvas-context canvas-simulate! canvas-attribute canvas-attribute-set! canvas-state canvas-state-set! canvas-clear! canvas-flush canvas-size canvas-mm->px canvas-px->mm canvas-origin canvas-origin-set! canvas-transform canvas-transform-set! canvas-transform-compose! canvas-transform-translate! canvas-transform-scale! canvas-transform-rotate! canvas-foreground canvas-foreground-set! canvas-background canvas-background-set! canvas-write-mode canvas-write-mode-set! canvas-clip-mode canvas-clip-mode-set! canvas-clip-area canvas-clip-area-set!) (import scheme chicken foreign lolevel data-structures srfi-1 srfi-4 srfi-13) (include "canvas-draw-base.scm")) (module canvas-draw-primitives (canvas-pixel! canvas-mark! canvas-mark-type canvas-mark-type-set! canvas-mark-size canvas-mark-size-set! canvas-line! canvas-rectangle! canvas-arc! canvas-line-style canvas-line-style-set! canvas-line-width canvas-line-width-set! canvas-line-join canvas-line-join-set! canvas-line-cap canvas-line-cap-set! canvas-box! canvas-sector! canvas-chord! canvas-background-opacity canvas-background-opacity-set! canvas-fill-mode canvas-fill-mode-set! canvas-interior-style canvas-interior-style-set! canvas-text! canvas-font canvas-font-set! canvas-text-alignment canvas-text-alignment-set! canvas-text-orientation canvas-text-orientation-set! canvas-font-dimensions canvas-text-size canvas-text-box call-with-canvas-in-mode canvas-path-set! canvas-vertex!) (import scheme chicken foreign data-structures srfi-4 canvas-draw-base) (include "canvas-draw-primitives.scm")) (module canvas-draw-play (canvas-play!) (import scheme chicken foreign canvas-draw-base) (include "canvas-draw-play.scm")) (module canvas-draw-picture (context:picture) (import scheme chicken foreign canvas-draw-base) (include "canvas-draw-picture.scm")) (module canvas-draw-client (context:image context:double-buffer canvas-image/rgb canvas-image-put/rgb! canvas-image-put/rgba!) (import scheme chicken foreign canvas-draw-base) (include "canvas-draw-client.scm")) (module canvas-draw-ps (context:ps) (import scheme chicken foreign canvas-draw-base) (include "canvas-draw-ps.scm")) (module canvas-draw-svg (context:svg) (import scheme chicken foreign canvas-draw-base) (include "canvas-draw-svg.scm")) (module canvas-draw-metafile (context:metafile) (import scheme chicken foreign canvas-draw-base) (include "canvas-draw-metafile.scm")) (module canvas-draw-cgm (context:cgm) (import scheme chicken foreign canvas-draw-base) (include "canvas-draw-cgm.scm")) (module canvas-draw-dgn (context:dgn) (import scheme chicken foreign canvas-draw-base) (include "canvas-draw-dgn.scm")) (module canvas-draw-dxf (context:dxf) (import scheme chicken foreign canvas-draw-base) (include "canvas-draw-dxf.scm")) (module canvas-draw-emf (context:emf) (import scheme chicken foreign canvas-draw-base) (include "canvas-draw-emf.scm")) (module canvas-draw-wmf (context:wmf) (import scheme chicken foreign canvas-draw-base) (include "canvas-draw-wmf.scm")) (cond-expand [disable-canvas-draw-iup] [else (module canvas-draw-iup (context:iup make-canvas-action make-cells-draw-cb) (import scheme chicken foreign canvas-draw-base) (include "canvas-draw-iup.scm"))]) (cond-expand [disable-canvas-draw-gl] [else (module canvas-draw-gl (context:gl) (import scheme chicken foreign canvas-draw-base) (include "canvas-draw-gl.scm"))]) (cond-expand [disable-canvas-draw-native] [else (module canvas-draw-native (context:native-window screen-size) (import scheme chicken foreign canvas-draw-base) (include "canvas-draw-native.scm")) (module canvas-draw-server (context:image context:double-buffer) (import scheme chicken foreign canvas-draw-base) (include "canvas-draw-server.scm")) (module canvas-draw-clipboard (context:clipboard) (import scheme chicken foreign canvas-draw-base) (include "canvas-draw-clipboard.scm")) (module canvas-draw-printer (context:printer) (import scheme chicken foreign canvas-draw-base) (include "canvas-draw-printer.scm"))]) (cond-expand [disable-canvas-draw-pdf] [else (module canvas-draw-pdf (context:pdf) (import scheme chicken foreign canvas-draw-base) (include "canvas-draw-pdf.scm"))]) (cond-expand [enable-canvas-draw-debug (module canvas-draw-debug (context:debug) (import scheme chicken foreign canvas-draw-base) (include "canvas-draw-debug.scm"))] [else]) (module canvas-draw () (import scheme chicken) (reexport (except canvas-draw-base canvas->pointer pointer->canvas |
︙ | ︙ |
Changes to chicken/canvas-draw.setup.
1 | ;; -*- mode: Scheme; tab-width: 2; -*- ;; | < < < < < < < < < < < < < < < < | | | | | < | | | | < | < < < | < | < | | < | < < < | < | < | | < | < | | < | | < | < | > | < < < | < < < < < < < < < | < < | < < < < < < < < | < < < > < < < < < | | < < < | | < | | < | < < | | < < < < < < | < | > | < < < < < | < | < | < < | < | | < < < < < < | < | > | < < < < | | < | < | < < | < | < < < < < | < | < < | < < | < < < < < | | | | | | | | < < < | | | < | < < | < | < | < < | | > | | < < < | < | < < < < < | | | < | < > | < | < < | | | | < | < < | < < < < < < < | < < | < < < < < < < < < < | < < < < < < < < < < < < < | | < | < < | < < < < < < < | < < | < < | < < | < > > | | > | > | | < | > | < | | | | | | | > | | > | | | < < < < < | < < < < < < < < < | | | < < < < < < < < < < < < < < < < < < < < < < < < < < | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 | ;; -*- mode: Scheme; tab-width: 2; -*- ;; (define modules `(-j canvas-draw -j canvas-draw-base -j canvas-draw-primitives -j canvas-draw-play -j canvas-draw-picture -j canvas-draw-client -j canvas-draw-ps -j canvas-draw-svg -j canvas-draw-metafile -j canvas-draw-cgm -j canvas-draw-dgn -j canvas-draw-dxf -j canvas-draw-emf -j canvas-draw-wmf ,@(cond-expand [disable-canvas-draw-iup '()] [else '(-j canvas-draw-iup)]) ,@(cond-expand [disable-canvas-draw-gl '()] [else '(-j canvas-draw-gl)]) ,@(cond-expand [disable-canvas-draw-native '()] [else '(-j canvas-draw-native -j canvas-draw-server -j canvas-draw-clipboard -j canvas-draw-printer)]) ,@(cond-expand [disable-canvas-draw-pdf '()] [else '(-j canvas-draw-pdf)]) ,@(cond-expand [enable-canvas-draw-debug '(-j canvas-draw-debug)] [else '()]))) (define import-libraries `("canvas-draw.import.scm" "canvas-draw-base.import.scm" "canvas-draw-primitives.import.scm" "canvas-draw-play.import.scm" "canvas-draw-picture.import.scm" "canvas-draw-client.import.scm" "canvas-draw-ps.import.scm" "canvas-draw-svg.import.scm" "canvas-draw-metafile.import.scm" "canvas-draw-cgm.import.scm" "canvas-draw-dgn.import.scm" "canvas-draw-dxf.import.scm" "canvas-draw-emf.import.scm" "canvas-draw-wmf.import.scm" ,@(cond-expand [disable-canvas-draw-iup '()] [else '("canvas-draw-iup.import.scm")]) ,@(cond-expand [disable-canvas-draw-gl '()] [else '("canvas-draw-gl.import.scm")]) ,@(cond-expand [disable-canvas-draw-native '()] [else '("canvas-draw-native.import.scm" "canvas-draw-server.import.scm" "canvas-draw-clipboard.import.scm" "canvas-draw-printer.import.scm")]) ,@(cond-expand [disable-canvas-draw-pdf '()] [else '("canvas-draw-pdf.import.scm")]) ,@(cond-expand [enable-canvas-draw-debug '("canvas-draw-debug.import.scm")] [else '()]))) (define native-libraries `("-lcd" ,@(cond-expand [disable-canvas-draw-iup '()] [else '("-liupcd")]) ,@(cond-expand [disable-canvas-draw-gl '()] [else '("-lcdgl")]) ,@(cond-expand [disable-canvas-draw-native '()] [else (append (if (find-library "cdx11" "cdContextNativeWindow") '("-lcdx11") '()) (if (find-library "cdcontextplus" "cdInitContextPlus") '("-lcdcontextplus") '()))]) ,@(cond-expand [disable-canvas-draw-pdf '()] [else '("-lcdpdf")]))) (compile -s -O2 -d1 "canvas-draw.scm" ,@modules ,@native-libraries) (compile -c -O2 -d1 "canvas-draw.scm" -unit canvas-draw) (compile -s -O2 -d0 "canvas-draw.import.scm") (compile -s -O2 -d0 "canvas-draw-base.import.scm") (compile -s -O2 -d0 "canvas-draw-primitives.import.scm") (compile -s -O2 -d0 "canvas-draw-play.import.scm") (compile -s -O2 -d0 "canvas-draw-picture.import.scm") (compile -s -O2 -d0 "canvas-draw-client.import.scm") (compile -s -O2 -d0 "canvas-draw-ps.import.scm") (compile -s -O2 -d0 "canvas-draw-svg.import.scm") (compile -s -O2 -d0 "canvas-draw-metafile.import.scm") (compile -s -O2 -d0 "canvas-draw-cgm.import.scm") (compile -s -O2 -d0 "canvas-draw-dgn.import.scm") (compile -s -O2 -d0 "canvas-draw-dxf.import.scm") (compile -s -O2 -d0 "canvas-draw-emf.import.scm") (compile -s -O2 -d0 "canvas-draw-wmf.import.scm") (cond-expand [disable-canvas-draw-iup] [else (compile -s -O2 -d0 "canvas-draw-iup.import.scm")]) (cond-expand [disable-canvas-draw-gl] [else (compile -s -O2 -d0 "canvas-draw-gl.import.scm")]) (cond-expand [disable-canvas-draw-native] [else (compile -s -O2 -d0 "canvas-draw-native.import.scm") (compile -s -O2 -d0 "canvas-draw-server.import.scm") (compile -s -O2 -d0 "canvas-draw-clipboard.import.scm") (compile -s -O2 -d0 "canvas-draw-printer.import.scm")]) (cond-expand [disable-canvas-draw-pdf] [else (compile -s -O2 -d0 "canvas-draw-pdf.import.scm")]) (cond-expand [enable-canvas-draw-debug (compile -s -O2 -d0 "canvas-draw-debug.import.scm")] [else]) (install-extension 'canvas-draw `("canvas-draw.so" "canvas-draw.o" "canvas-draw-types.scm" ,@import-libraries) `((version 1.1.0) (static "canvas-draw-base.o") (static-options ,(string-intersperse native-libraries)))) |