Changeset 25741 in project for release


Ignore:
Timestamp:
12/25/11 03:47:34 (10 years ago)
Author:
Thomas Chust
Message:

[canvas-draw] Simplified build logic, combined libraries

Location:
release/4/canvas-draw/trunk
Files:
23 edited

Legend:

Unmodified
Added
Removed
  • release/4/canvas-draw/trunk/canvas-draw-base.scm

    r23242 r25741  
    1 (require-library lolevel data-structures srfi-1 srfi-4 srfi-13)
    2 
    3 (module canvas-draw-base
    4         (canvas? canvas->pointer pointer->canvas
    5          context? context->pointer pointer->context
    6          state? state->pointer pointer->state
    7          context-capabilities
    8          use-context+ make-canvas call-with-canvas
    9          canvas-context
    10          canvas-simulate!
    11          canvas-attribute canvas-attribute-set!
    12          canvas-state canvas-state-set!
    13          canvas-clear! canvas-flush
    14          canvas-size
    15          canvas-mm->px canvas-px->mm
    16          canvas-origin canvas-origin-set!
    17          canvas-transform canvas-transform-set!
    18          canvas-transform-compose!
    19          canvas-transform-translate!
    20          canvas-transform-scale!
    21          canvas-transform-rotate!
    22          canvas-foreground canvas-foreground-set!
    23          canvas-background canvas-background-set!
    24          canvas-write-mode canvas-write-mode-set!
    25          canvas-clip-mode canvas-clip-mode-set!
    26          canvas-clip-area canvas-clip-area-set!)
    27         (import
    28                 scheme chicken foreign
    29                 lolevel data-structures srfi-1 srfi-4 srfi-13)
     1;; -*- mode: Scheme; tab-width: 2; -*- ;;
    302
    313;; {{{ Data types
     
    551523
    552524;; }}}
    553 
    554 )
  • release/4/canvas-draw/trunk/canvas-draw-cgm.scm

    r23242 r25741  
    1 (require-library canvas-draw-base)
    2 
    3 (module canvas-draw-cgm
    4         (context:cgm)
    5         (import scheme chicken foreign canvas-draw-base)
     1;; -*- mode: Scheme; tab-width: 2; -*- ;;
    62
    73;; {{{ Data types
     
    2117
    2218;; }}}
    23 
    24 )
  • release/4/canvas-draw/trunk/canvas-draw-client.scm

    r23242 r25741  
    1 (require-library canvas-draw-base)
    2 
    3 (module canvas-draw-client
    4         (context:image context:double-buffer
    5          canvas-image/rgb canvas-image-put/rgb! canvas-image-put/rgba!)
    6         (import scheme chicken foreign canvas-draw-base)
     1;; -*- mode: Scheme; tab-width: 2; -*- ;;
    72
    83;; {{{ Data types
     
    106101
    107102;; }}}
    108 
    109 )
  • release/4/canvas-draw/trunk/canvas-draw-clipboard.scm

    r23242 r25741  
    1 (require-library canvas-draw-base)
    2 
    3 (module canvas-draw-clipboard
    4         (context:clipboard)
    5         (import scheme chicken foreign canvas-draw-base)
     1;; -*- mode: Scheme; tab-width: 2; -*- ;;
    62
    73;; {{{ Data types
     
    2117
    2218;; }}}
    23 
    24 )
  • release/4/canvas-draw/trunk/canvas-draw-debug.scm

    r23242 r25741  
    1 (require-library canvas-draw-base)
    2 
    3 (module canvas-draw-debug
    4         (context:debug)
    5         (import scheme chicken foreign canvas-draw-base)
     1;; -*- mode: Scheme; tab-width: 2; -*- ;;
    62
    73;; {{{ Data types
     
    2117
    2218;; }}}
    23 
    24 )
  • release/4/canvas-draw/trunk/canvas-draw-dgn.scm

    r23242 r25741  
    1 (require-library canvas-draw-base)
    2 
    3 (module canvas-draw-dgn
    4         (context:dgn)
    5         (import scheme chicken foreign canvas-draw-base)
     1;; -*- mode: Scheme; tab-width: 2; -*- ;;
    62
    73;; {{{ Data types
     
    2117
    2218;; }}}
    23 
    24 )
  • release/4/canvas-draw/trunk/canvas-draw-dxf.scm

    r23242 r25741  
    1 (require-library canvas-draw-base)
    2 
    3 (module canvas-draw-dxf
    4         (context:dxf)
    5         (import scheme chicken foreign canvas-draw-base)
     1;; -*- mode: Scheme; tab-width: 2; -*- ;;
    62
    73;; {{{ Data types
     
    2117
    2218;; }}}
    23 
    24 )
  • release/4/canvas-draw/trunk/canvas-draw-emf.scm

    r23242 r25741  
    1 (require-library canvas-draw-base)
    2 
    3 (module canvas-draw-emf
    4         (context:emf)
    5         (import scheme chicken foreign canvas-draw-base)
     1;; -*- mode: Scheme; tab-width: 2; -*- ;;
    62
    73;; {{{ Data types
     
    2117
    2218;; }}}
    23 
    24 )
  • release/4/canvas-draw/trunk/canvas-draw-gl.scm

    r23242 r25741  
    1 (require-library canvas-draw-base)
    2 
    3 (module canvas-draw-gl
    4         (context:gl)
    5         (import scheme chicken foreign canvas-draw-base)
     1;; -*- mode: Scheme; tab-width: 2; -*- ;;
    62
    73;; {{{ Data types
     
    2117
    2218;; }}}
    23 
    24 )
  • release/4/canvas-draw/trunk/canvas-draw-iup.scm

    r23242 r25741  
    1 (require-library canvas-draw-base)
    2 
    3 (module canvas-draw-iup
    4         (context:iup make-canvas-action make-cells-draw-cb)
    5         (import scheme chicken foreign canvas-draw-base)
     1;; -*- mode: Scheme; tab-width: 2; -*- ;;
    62
    73;; {{{ Data types
     
    3632
    3733;; }}}
    38 
    39 )
  • release/4/canvas-draw/trunk/canvas-draw-metafile.scm

    r23242 r25741  
    1 (require-library canvas-draw-base)
    2 
    3 (module canvas-draw-metafile
    4         (context:metafile)
    5         (import scheme chicken foreign canvas-draw-base)
     1;; -*- mode: Scheme; tab-width: 2; -*- ;;
    62
    73;; {{{ Data types
     
    2117
    2218;; }}}
    23 
    24 )
  • release/4/canvas-draw/trunk/canvas-draw-native.scm

    r23242 r25741  
    1 (require-library canvas-draw-base)
    2 
    3 (module canvas-draw-native
    4         (context:native-window
    5          screen-size)
    6         (import scheme chicken foreign canvas-draw-base)
     1;; -*- mode: Scheme; tab-width: 2; -*- ;;
    72
    83;; {{{ Data types
     
    4439
    4540;; }}}
    46 
    47 )
  • release/4/canvas-draw/trunk/canvas-draw-pdf.scm

    r23242 r25741  
    1 (require-library canvas-draw-base)
    2 
    3 (module canvas-draw-pdf
    4         (context:pdf)
    5         (import scheme chicken foreign canvas-draw-base)
     1;; -*- mode: Scheme; tab-width: 2; -*- ;;
    62
    73;; {{{ Data types
     
    2117
    2218;; }}}
    23 
    24 )
  • release/4/canvas-draw/trunk/canvas-draw-picture.scm

    r23242 r25741  
    1 (require-library canvas-draw-base)
    2 
    3 (module canvas-draw-picture
    4         (context:picture)
    5         (import scheme chicken foreign canvas-draw-base)
     1;; -*- mode: Scheme; tab-width: 2; -*- ;;
    62
    73;; {{{ Data types
     
    2117
    2218;; }}}
    23 
    24 )
  • release/4/canvas-draw/trunk/canvas-draw-play.scm

    r23242 r25741  
    1 (require-library canvas-draw-base)
    2 
    3 (module canvas-draw-play
    4         (canvas-play!)
    5         (import scheme chicken foreign canvas-draw-base)
     1;; -*- mode: Scheme; tab-width: 2; -*- ;;
    62
    73;; {{{ Data types
     
    2824
    2925;; }}}
    30 
    31 )
  • release/4/canvas-draw/trunk/canvas-draw-primitives.scm

    r23242 r25741  
    1 (require-library data-structures srfi-4 canvas-draw-base)
    2 
    3 (module canvas-draw-primitives
    4         (canvas-pixel!
    5          canvas-mark!
    6          canvas-mark-type canvas-mark-type-set!
    7          canvas-mark-size canvas-mark-size-set!
    8          canvas-line! canvas-rectangle! canvas-arc!
    9          canvas-line-style canvas-line-style-set!
    10          canvas-line-width canvas-line-width-set!
    11          canvas-line-join canvas-line-join-set!
    12          canvas-line-cap canvas-line-cap-set!
    13          canvas-box! canvas-sector! canvas-chord!
    14          canvas-background-opacity canvas-background-opacity-set!
    15          canvas-fill-mode canvas-fill-mode-set!
    16          canvas-interior-style canvas-interior-style-set!
    17          canvas-text!
    18          canvas-font canvas-font-set!
    19          canvas-text-alignment canvas-text-alignment-set!
    20          canvas-text-orientation canvas-text-orientation-set!
    21          canvas-font-dimensions canvas-text-size canvas-text-box
    22          call-with-canvas-in-mode canvas-path-set!
    23          canvas-vertex!)
    24         (import scheme chicken foreign data-structures srfi-4 canvas-draw-base)
     1;; -*- mode: Scheme; tab-width: 2; -*- ;;
    252
    263;; {{{ Data types
     
    735712
    736713;; }}}
    737 
    738 )
  • release/4/canvas-draw/trunk/canvas-draw-printer.scm

    r23242 r25741  
    1 (require-library canvas-draw-base)
    2 
    3 (module canvas-draw-printer
    4         (context:printer)
    5         (import scheme chicken foreign canvas-draw-base)
     1;; -*- mode: Scheme; tab-width: 2; -*- ;;
    62
    73;; {{{ Data types
     
    2117
    2218;; }}}
    23 
    24 )
  • release/4/canvas-draw/trunk/canvas-draw-ps.scm

    r23242 r25741  
    1 (require-library canvas-draw-base)
    2 
    3 (module canvas-draw-ps
    4         (context:ps)
    5         (import scheme chicken foreign canvas-draw-base)
     1;; -*- mode: Scheme; tab-width: 2; -*- ;;
    62
    73;; {{{ Data types
     
    2117
    2218;; }}}
    23 
    24 )
  • release/4/canvas-draw/trunk/canvas-draw-server.scm

    r23242 r25741  
    1 (require-library canvas-draw-base)
    2 
    3 (module canvas-draw-server
    4         (context:image context:double-buffer)
    5         (import scheme chicken foreign canvas-draw-base)
     1;; -*- mode: Scheme; tab-width: 2; -*- ;;
    62
    73;; {{{ Data types
     
    2521
    2622;; }}}
    27 
    28 )
  • release/4/canvas-draw/trunk/canvas-draw-svg.scm

    r23242 r25741  
    1 (require-library canvas-draw-base)
    2 
    3 (module canvas-draw-svg
    4         (context:svg)
    5         (import scheme chicken foreign canvas-draw-base)
     1;; -*- mode: Scheme; tab-width: 2; -*- ;;
    62
    73;; {{{ Data types
     
    2117
    2218;; }}}
    23 
    24 )
  • release/4/canvas-draw/trunk/canvas-draw-wmf.scm

    r23242 r25741  
    1 (require-library canvas-draw-base)
    2 
    3 (module canvas-draw-wmf
    4         (context:wmf)
    5         (import scheme chicken foreign canvas-draw-base)
     1;; -*- mode: Scheme; tab-width: 2; -*- ;;
    62
    73;; {{{ Data types
     
    2117
    2218;; }}}
    23 
    24 )
  • release/4/canvas-draw/trunk/canvas-draw.scm

    r23242 r25741  
    1 (require-library
    2         canvas-draw-base canvas-draw-primitives canvas-draw-play)
     1;; -*- mode: Scheme; tab-width: 2; -*- ;;
     2
     3(require-library lolevel data-structures srfi-1 srfi-4 srfi-13)
     4
     5(module canvas-draw-base
     6        (canvas? canvas->pointer pointer->canvas
     7         context? context->pointer pointer->context
     8         state? state->pointer pointer->state
     9         context-capabilities
     10         use-context+ make-canvas call-with-canvas
     11         canvas-context
     12         canvas-simulate!
     13         canvas-attribute canvas-attribute-set!
     14         canvas-state canvas-state-set!
     15         canvas-clear! canvas-flush
     16         canvas-size
     17         canvas-mm->px canvas-px->mm
     18         canvas-origin canvas-origin-set!
     19         canvas-transform canvas-transform-set!
     20         canvas-transform-compose!
     21         canvas-transform-translate!
     22         canvas-transform-scale!
     23         canvas-transform-rotate!
     24         canvas-foreground canvas-foreground-set!
     25         canvas-background canvas-background-set!
     26         canvas-write-mode canvas-write-mode-set!
     27         canvas-clip-mode canvas-clip-mode-set!
     28         canvas-clip-area canvas-clip-area-set!)
     29        (import
     30                scheme chicken foreign
     31                lolevel data-structures srfi-1 srfi-4 srfi-13)
     32        (include "canvas-draw-base.scm"))
     33
     34(module canvas-draw-primitives
     35        (canvas-pixel!
     36         canvas-mark!
     37         canvas-mark-type canvas-mark-type-set!
     38         canvas-mark-size canvas-mark-size-set!
     39         canvas-line! canvas-rectangle! canvas-arc!
     40         canvas-line-style canvas-line-style-set!
     41         canvas-line-width canvas-line-width-set!
     42         canvas-line-join canvas-line-join-set!
     43         canvas-line-cap canvas-line-cap-set!
     44         canvas-box! canvas-sector! canvas-chord!
     45         canvas-background-opacity canvas-background-opacity-set!
     46         canvas-fill-mode canvas-fill-mode-set!
     47         canvas-interior-style canvas-interior-style-set!
     48         canvas-text!
     49         canvas-font canvas-font-set!
     50         canvas-text-alignment canvas-text-alignment-set!
     51         canvas-text-orientation canvas-text-orientation-set!
     52         canvas-font-dimensions canvas-text-size canvas-text-box
     53         call-with-canvas-in-mode canvas-path-set!
     54         canvas-vertex!)
     55        (import scheme chicken foreign data-structures srfi-4 canvas-draw-base)
     56        (include "canvas-draw-primitives.scm"))
     57
     58(module canvas-draw-play
     59        (canvas-play!)
     60        (import scheme chicken foreign canvas-draw-base)
     61        (include "canvas-draw-play.scm"))
     62
     63(module canvas-draw-picture
     64        (context:picture)
     65        (import scheme chicken foreign canvas-draw-base)
     66        (include "canvas-draw-picture.scm"))
     67
     68(module canvas-draw-client
     69        (context:image context:double-buffer
     70         canvas-image/rgb canvas-image-put/rgb! canvas-image-put/rgba!)
     71        (import scheme chicken foreign canvas-draw-base)
     72        (include "canvas-draw-client.scm"))
     73
     74(module canvas-draw-ps
     75        (context:ps)
     76        (import scheme chicken foreign canvas-draw-base)
     77        (include "canvas-draw-ps.scm"))
     78
     79(module canvas-draw-svg
     80        (context:svg)
     81        (import scheme chicken foreign canvas-draw-base)
     82        (include "canvas-draw-svg.scm"))
     83
     84(module canvas-draw-metafile
     85        (context:metafile)
     86        (import scheme chicken foreign canvas-draw-base)
     87        (include "canvas-draw-metafile.scm"))
     88
     89(module canvas-draw-cgm
     90        (context:cgm)
     91        (import scheme chicken foreign canvas-draw-base)
     92        (include "canvas-draw-cgm.scm"))
     93
     94(module canvas-draw-dgn
     95        (context:dgn)
     96        (import scheme chicken foreign canvas-draw-base)
     97        (include "canvas-draw-dgn.scm"))
     98
     99(module canvas-draw-dxf
     100        (context:dxf)
     101        (import scheme chicken foreign canvas-draw-base)
     102        (include "canvas-draw-dxf.scm"))
     103
     104(module canvas-draw-emf
     105        (context:emf)
     106        (import scheme chicken foreign canvas-draw-base)
     107        (include "canvas-draw-emf.scm"))
     108
     109(module canvas-draw-wmf
     110        (context:wmf)
     111        (import scheme chicken foreign canvas-draw-base)
     112        (include "canvas-draw-wmf.scm"))
     113
     114(cond-expand
     115 [disable-canvas-draw-iup]
     116 [else
     117        (module canvas-draw-iup
     118                (context:iup make-canvas-action make-cells-draw-cb)
     119                (import scheme chicken foreign canvas-draw-base)
     120                (include "canvas-draw-iup.scm"))])
     121
     122(cond-expand
     123 [disable-canvas-draw-gl]
     124 [else
     125        (module canvas-draw-gl
     126                (context:gl)
     127                (import scheme chicken foreign canvas-draw-base)
     128                (include "canvas-draw-gl.scm"))])
     129
     130(cond-expand
     131 [disable-canvas-draw-native]
     132 [else
     133        (module canvas-draw-native
     134                (context:native-window
     135                 screen-size)
     136                (import scheme chicken foreign canvas-draw-base)
     137                (include "canvas-draw-native.scm"))
     138        (module canvas-draw-server
     139                (context:image context:double-buffer)
     140                (import scheme chicken foreign canvas-draw-base)
     141                (include "canvas-draw-server.scm"))
     142        (module canvas-draw-clipboard
     143                (context:clipboard)
     144                (import scheme chicken foreign canvas-draw-base)
     145                (include "canvas-draw-clipboard.scm"))
     146        (module canvas-draw-printer
     147                (context:printer)
     148                (import scheme chicken foreign canvas-draw-base)
     149                (include "canvas-draw-printer.scm"))])
     150
     151(cond-expand
     152 [disable-canvas-draw-pdf]
     153 [else
     154        (module canvas-draw-pdf
     155                (context:pdf)
     156                (import scheme chicken foreign canvas-draw-base)
     157                (include "canvas-draw-pdf.scm"))])
     158
     159(cond-expand
     160 [enable-canvas-draw-debug
     161        (module canvas-draw-debug
     162                (context:debug)
     163                (import scheme chicken foreign canvas-draw-base)
     164                (include "canvas-draw-debug.scm"))]
     165 [else])
    3166
    4167(module canvas-draw
  • release/4/canvas-draw/trunk/canvas-draw.setup

    r23242 r25741  
    11;; -*- mode: Scheme; tab-width: 2; -*- ;;
     2
     3(define modules
     4        `(-j canvas-draw
     5                -j canvas-draw-base -j canvas-draw-primitives -j canvas-draw-play
     6                -j canvas-draw-picture -j canvas-draw-client
     7                -j canvas-draw-ps -j canvas-draw-svg -j canvas-draw-metafile
     8                -j canvas-draw-cgm -j canvas-draw-dgn -j canvas-draw-dxf
     9                -j canvas-draw-emf -j canvas-draw-wmf
     10                ,@(cond-expand
     11                         [disable-canvas-draw-iup
     12                                '()]
     13                         [else
     14                                '(-j canvas-draw-iup)])
     15                ,@(cond-expand
     16                         [disable-canvas-draw-gl
     17                                '()]
     18                         [else
     19                                '(-j canvas-draw-gl)])
     20                ,@(cond-expand
     21                         [disable-canvas-draw-native
     22                                '()]
     23                         [else
     24                                '(-j canvas-draw-native -j canvas-draw-server
     25                                        -j canvas-draw-clipboard -j canvas-draw-printer)])
     26                ,@(cond-expand
     27                         [disable-canvas-draw-pdf
     28                                '()]
     29                         [else
     30                                '(-j canvas-draw-pdf)])
     31                ,@(cond-expand
     32                         [enable-canvas-draw-debug
     33                                '(-j canvas-draw-debug)]
     34                         [else
     35                                '()])))
     36
     37(define import-libraries
     38        `("canvas-draw.import.scm"
     39                "canvas-draw-base.import.scm" "canvas-draw-primitives.import.scm" "canvas-draw-play.import.scm"
     40                "canvas-draw-picture.import.scm" "canvas-draw-client.import.scm"
     41                "canvas-draw-ps.import.scm" "canvas-draw-svg.import.scm" "canvas-draw-metafile.import.scm"
     42                "canvas-draw-cgm.import.scm" "canvas-draw-dgn.import.scm" "canvas-draw-dxf.import.scm"
     43                "canvas-draw-emf.import.scm" "canvas-draw-wmf.import.scm"
     44                ,@(cond-expand
     45                         [disable-canvas-draw-iup
     46                                '()]
     47                         [else
     48                                '("canvas-draw-iup.import.scm")])
     49                ,@(cond-expand
     50                         [disable-canvas-draw-gl
     51                                '()]
     52                         [else
     53                                '("canvas-draw-gl.import.scm")])
     54                ,@(cond-expand
     55                         [disable-canvas-draw-native
     56                                '()]
     57                         [else
     58                                '("canvas-draw-native.import.scm" "canvas-draw-server.import.scm"
     59                                        "canvas-draw-clipboard.import.scm" "canvas-draw-printer.import.scm")])
     60                ,@(cond-expand
     61                         [disable-canvas-draw-pdf
     62                                '()]
     63                         [else
     64                                '("canvas-draw-pdf.import.scm")])
     65                ,@(cond-expand
     66                         [enable-canvas-draw-debug
     67                                '("canvas-draw-debug.import.scm")]
     68                         [else
     69                                '()])))
     70
     71(define native-libraries
     72        `("-lcd"
     73                ,@(cond-expand
     74                         [disable-canvas-draw-iup
     75                                '()]
     76                         [else
     77                                '("-liupcd")])
     78                ,@(cond-expand
     79                         [disable-canvas-draw-gl
     80                                '()]
     81                         [else
     82                                '("-lcdgl")])
     83                ,@(cond-expand
     84                         [disable-canvas-draw-native
     85                                '()]
     86                         [else
     87                                (append
     88                                 (if (find-library "cdx11" "cdContextNativeWindow")
     89                                                 '("-lcdx11") '())
     90                                 (if (find-library "cdcontextplus" "cdInitContextPlus")
     91                                                 '("-lcdcontextplus") '()))])
     92                ,@(cond-expand
     93                         [disable-canvas-draw-pdf
     94                                '()]
     95                         [else
     96                                '("-lcdpdf")])))
     97
     98(compile -s -O2 -d1 "canvas-draw.scm" ,@modules ,@native-libraries)
     99(compile -c -O2 -d1 "canvas-draw.scm" -unit canvas-draw)
     100(compile -s -O2 -d0 "canvas-draw.import.scm")
     101(compile -s -O2 -d0 "canvas-draw-base.import.scm")
     102(compile -s -O2 -d0 "canvas-draw-primitives.import.scm")
     103(compile -s -O2 -d0 "canvas-draw-play.import.scm")
     104(compile -s -O2 -d0 "canvas-draw-picture.import.scm")
     105(compile -s -O2 -d0 "canvas-draw-client.import.scm")
     106(compile -s -O2 -d0 "canvas-draw-ps.import.scm")
     107(compile -s -O2 -d0 "canvas-draw-svg.import.scm")
     108(compile -s -O2 -d0 "canvas-draw-metafile.import.scm")
     109(compile -s -O2 -d0 "canvas-draw-cgm.import.scm")
     110(compile -s -O2 -d0 "canvas-draw-dgn.import.scm")
     111(compile -s -O2 -d0 "canvas-draw-dxf.import.scm")
     112(compile -s -O2 -d0 "canvas-draw-emf.import.scm")
     113(compile -s -O2 -d0 "canvas-draw-wmf.import.scm")
     114
    2115(cond-expand
    3  [no-library-checks
    4         (define-syntax check-libraries
    5                 (syntax-rules ()
    6                         [(check-libraries #f [lib fun] ...)
    7                          #f]
    8                         [(check-libraries [lib fun] ...)
    9                          #t]))]
     116 [disable-canvas-draw-iup]
    10117 [else
    11         (define-syntax check-libraries
    12                 (syntax-rules ()
    13                         [(check-libraries #f [lib fun] ...)
    14                          (and (find-library lib fun) ...)]
    15                         [(check-libraries [lib fun] ...)
    16                          (and (find-library lib fun) ...)]))])
     118        (compile -s -O2 -d0 "canvas-draw-iup.import.scm")])
     119(cond-expand
     120 [disable-canvas-draw-gl]
     121 [else
     122        (compile -s -O2 -d0 "canvas-draw-gl.import.scm")])
     123(cond-expand
     124 [disable-canvas-draw-native]
     125 [else
     126        (compile -s -O2 -d0 "canvas-draw-native.import.scm")
     127        (compile -s -O2 -d0 "canvas-draw-server.import.scm")
     128        (compile -s -O2 -d0 "canvas-draw-clipboard.import.scm")
     129        (compile -s -O2 -d0 "canvas-draw-printer.import.scm")])
     130(cond-expand
     131 [disable-canvas-draw-pdf]
     132 [else
     133        (compile -s -O2 -d0 "canvas-draw-pdf.import.scm")])
     134(cond-expand
     135 [enable-canvas-draw-debug
     136        (compile -s -O2 -d0 "canvas-draw-debug.import.scm")]
     137 [else])
    17138
    18 (if (check-libraries ["cd" "cdCreateCanvas"])
    19         (begin
    20                 (compile -s -O2 -d1 "canvas-draw-base.scm" -j canvas-draw-base "-lcd")
    21                 (compile -c -O2 -d1 "canvas-draw-base.scm" -j canvas-draw-base -unit canvas-draw-base)
    22                 (compile -s -O2 -d0 "canvas-draw-base.import.scm")
    23                
    24                 (install-extension
    25                  'canvas-draw-base
    26                  '("canvas-draw-base.so" "canvas-draw-base.o" "canvas-draw-base.import.so" "canvas-draw-types.scm")
    27                  '((version 1.0.0)
    28                          (static "canvas-draw-base.o")
    29                          (static-options "-lcd")))
    30                
    31                 (compile -s -O2 -d1 "canvas-draw-primitives.scm" -j canvas-draw-primitives "-lcd")
    32                 (compile -c -O2 -d1 "canvas-draw-primitives.scm" -j canvas-draw-primitives -unit canvas-draw-primitives)
    33                 (compile -s -O2 -d0 "canvas-draw-primitives.import.scm")
    34                
    35                 (install-extension
    36                  'canvas-draw-primitives
    37                  '("canvas-draw-primitives.so" "canvas-draw-primitives.o" "canvas-draw-primitives.import.so" "canvas-draw-types.scm")
    38                  '((version 1.0.0)
    39                          (static "canvas-draw-primitives.o")
    40                          (static-options "-lcd")))
    41                
    42                 (compile -s -O2 -d1 "canvas-draw-play.scm" -j canvas-draw-play "-lcd")
    43                 (compile -c -O2 -d1 "canvas-draw-play.scm" -j canvas-draw-play -unit canvas-draw-play)
    44                 (compile -s -O2 -d0 "canvas-draw-play.import.scm")
    45                
    46                 (install-extension
    47                  'canvas-draw-play
    48                  '("canvas-draw-play.so" "canvas-draw-play.o" "canvas-draw-play.import.so" "canvas-draw-types.scm")
    49                  '((version 1.0.0)
    50                          (static "canvas-draw-play.o")
    51                          (static-options "-lcd")))
    52                
    53                 (if (check-libraries ["iupcd" "cdContextIup"])
    54                         (begin
    55                                 (compile -s -O2 -d1 "canvas-draw-iup.scm" -j canvas-draw-iup "-liupcd")
    56                                 (compile -c -O2 -d1 "canvas-draw-iup.scm" -j canvas-draw-iup -unit canvas-draw-iup)
    57                                 (compile -s -O2 -d0 "canvas-draw-iup.import.scm")
    58                                
    59                                 (install-extension
    60                                  'canvas-draw-iup
    61                                  '("canvas-draw-iup.so" "canvas-draw-iup.o" "canvas-draw-iup.import.so")
    62                                  '((version 1.0.0)
    63                                          (static "canvas-draw-iup.o")
    64                                          (static-options "-liupcd"))))
    65                         (warning "CD IUP driver not found, some bindings cannot be compiled"))
    66                
    67                 (cond
    68                         [(check-libraries
    69                                 #f
    70                                 ["cdx11" "cdContextNativeWindow"]
    71                                 ["cdcontextplus" "cdInitContextPlus"])
    72                          (compile -s -O2 -d1 "canvas-draw-native.scm" -j canvas-draw-native "-lcdx11 -lcdcontextplus")
    73                          (compile -c -O2 -d1 "canvas-draw-native.scm" -j canvas-draw-native -unit canvas-draw-native)
    74                          (compile -s -O2 -d0 "canvas-draw-native.import.scm")
    75                          
    76                          (install-extension
    77                                 'canvas-draw-native
    78                                 '("canvas-draw-native.so" "canvas-draw-native.o" "canvas-draw-native.import.so")
    79                                 '((version 1.0.0)
    80                                         (static "canvas-draw-native.o")
    81                                         (static-options "-lcdx11 -lcdcontextplus")))]
    82                         [(check-libraries
    83                                 #f
    84                                 ["cd" "cdContextNativeWindow"]
    85                                 ["cdcontextplus" "cdInitContextPlus"])
    86                          (compile -s -O2 -d1 "canvas-draw-native.scm" -j canvas-draw-native "-lcd -lcdcontextplus")
    87                          (compile -c -O2 -d1 "canvas-draw-native.scm" -j canvas-draw-native -unit canvas-draw-native)
    88                          (compile -s -O2 -d0 "canvas-draw-native.import.scm")
    89                          
    90                          (install-extension
    91                                 'canvas-draw-native
    92                                 '("canvas-draw-native.so" "canvas-draw-native.o" "canvas-draw-native.import.so")
    93                                 '((version 1.0.0)
    94                                         (static "canvas-draw-native.o")
    95                                         (static-options "-lcd -lcdcontextplus")))]
    96                         [else
    97                          (warning "CD native window driver not found, some bindings cannot be compiled")])
    98                
    99                 (if (check-libraries ["cdgl" "cdContextGL"])
    100                         (begin
    101                                 (compile -s -O2 -d1 "canvas-draw-gl.scm" -j canvas-draw-gl "-lcdgl")
    102                                 (compile -c -O2 -d1 "canvas-draw-gl.scm" -j canvas-draw-gl -unit canvas-draw-gl)
    103                                 (compile -s -O2 -d0 "canvas-draw-gl.import.scm")
    104                                
    105                                 (install-extension
    106                                  'canvas-draw-gl
    107                                  '("canvas-draw-gl.so" "canvas-draw-gl.o" "canvas-draw-gl.import.so")
    108                                  '((version 1.0.0)
    109                                          (static "canvas-draw-gl.o")
    110                                          (static-options "-lcdgl"))))
    111                         (warning "CD OpenGL driver not found, some bindings cannot be compiled"))
    112                
    113                 (cond
    114                         [(check-libraries #f ["cdx11" "cdContextClipboard"])
    115                          (compile -s -O2 -d1 "canvas-draw-clipboard.scm" -j canvas-draw-clipboard "-lcdx11")
    116                          (compile -c -O2 -d1 "canvas-draw-clipboard.scm" -j canvas-draw-clipboard -unit canvas-draw-clipboard)
    117                          (compile -s -O2 -d0 "canvas-draw-clipboard.import.scm")
    118                          
    119                          (install-extension
    120                                 'canvas-draw-clipboard
    121                                 '("canvas-draw-clipboard.so" "canvas-draw-clipboard.o" "canvas-draw-clipboard.import.so")
    122                                 '((version 1.0.0)
    123                                         (static "canvas-draw-clipboard.o")
    124                                         (static-options "-lcdx11")))]
    125                         [(check-libraries ["cd" "cdContextClipboard"])
    126                          (compile -s -O2 -d1 "canvas-draw-clipboard.scm" -j canvas-draw-clipboard "-lcd")
    127                          (compile -c -O2 -d1 "canvas-draw-clipboard.scm" -j canvas-draw-clipboard -unit canvas-draw-clipboard)
    128                          (compile -s -O2 -d0 "canvas-draw-clipboard.import.scm")
    129                          
    130                          (install-extension
    131                                 'canvas-draw-clipboard
    132                                 '("canvas-draw-clipboard.so" "canvas-draw-clipboard.o" "canvas-draw-clipboard.import.so")
    133                                 '((version 1.0.0)
    134                                         (static "canvas-draw-clipboard.o")
    135                                         (static-options "-lcd")))]
    136                         [else
    137                          (warning "CD clipboard driver not found, some bindings cannot be compiled")])
    138                
    139                 (cond
    140                         [(check-libraries #f ["cdx11" "cdContextPrinter"])
    141                          (compile -s -O2 -d1 "canvas-draw-printer.scm" -j canvas-draw-printer "-lcdx11")
    142                          (compile -c -O2 -d1 "canvas-draw-printer.scm" -j canvas-draw-printer -unit canvas-draw-printer)
    143                          (compile -s -O2 -d0 "canvas-draw-printer.import.scm")
    144                          
    145                          (install-extension
    146                                 'canvas-draw-printer
    147                                 '("canvas-draw-printer.so" "canvas-draw-printer.o" "canvas-draw-printer.import.so")
    148                                 '((version 1.0.0)
    149                                         (static "canvas-draw-printer.o")
    150                                         (static-options "-lcdx11")))]
    151                         [(check-libraries ["cd" "cdContextPrinter"])
    152                          (compile -s -O2 -d1 "canvas-draw-printer.scm" -j canvas-draw-printer "-lcd")
    153                          (compile -c -O2 -d1 "canvas-draw-printer.scm" -j canvas-draw-printer -unit canvas-draw-printer)
    154                          (compile -s -O2 -d0 "canvas-draw-printer.import.scm")
    155                          
    156                          (install-extension
    157                                 'canvas-draw-printer
    158                                 '("canvas-draw-printer.so" "canvas-draw-printer.o" "canvas-draw-printer.import.so")
    159                                 '((version 1.0.0)
    160                                         (static "canvas-draw-printer.o")
    161                                         (static-options "-lcd")))]
    162                         [else
    163                          (warning "CD printer driver not found, some bindings cannot be compiled")])
    164                
    165                 (if (check-libraries ["cd" "cdContextPicture"])
    166                         (begin
    167                                 (compile -s -O2 -d1 "canvas-draw-picture.scm" -j canvas-draw-picture "-lcd")
    168                                 (compile -c -O2 -d1 "canvas-draw-picture.scm" -j canvas-draw-picture -unit canvas-draw-picture)
    169                                 (compile -s -O2 -d0 "canvas-draw-picture.import.scm")
    170                                
    171                                 (install-extension
    172                                  'canvas-draw-picture
    173                                  '("canvas-draw-picture.so" "canvas-draw-picture.o" "canvas-draw-picture.import.so")
    174                                  '((version 1.0.0)
    175                                    (static "canvas-draw-picture.o")
    176                                    (static-options "-lcd"))))
    177                         (warning "CD picture driver not found, some bindings cannot be compiled"))
    178                
    179                 (cond
    180                         [(check-libraries #f ["cdx11" "cdContextImage"])
    181                          (compile -s -O2 -d1 "canvas-draw-server.scm" -j canvas-draw-server "-lcdx11")
    182                          (compile -c -O2 -d1 "canvas-draw-server.scm" -j canvas-draw-server -unit canvas-draw-server)
    183                          (compile -s -O2 -d0 "canvas-draw-server.import.scm")
    184                          
    185                          (install-extension
    186                                 'canvas-draw-server
    187                                 '("canvas-draw-server.so" "canvas-draw-server.o" "canvas-draw-server.import.so")
    188                                 '((version 1.0.0)
    189                                         (static "canvas-draw-server.o")
    190                                         (static-options "-lcdx11")))]
    191                         [(check-libraries ["cd" "cdContextImage"])
    192                          (compile -s -O2 -d1 "canvas-draw-server.scm" -j canvas-draw-server "-lcd")
    193                          (compile -c -O2 -d1 "canvas-draw-server.scm" -j canvas-draw-server -unit canvas-draw-server)
    194                          (compile -s -O2 -d0 "canvas-draw-server.import.scm")
    195                          
    196                          (install-extension
    197                                 'canvas-draw-server
    198                                 '("canvas-draw-server.so" "canvas-draw-server.o" "canvas-draw-server.import.so")
    199                                 '((version 1.0.0)
    200                                         (static "canvas-draw-server.o")
    201                                         (static-options "-lcd")))]
    202                         [else
    203                          (warning "CD server image driver not found, some bindings cannot be compiled")])
    204                
    205                 (if (check-libraries ["cd" "cdContextImageRGB"])
    206                         (begin
    207                                 (compile -s -O2 -d1 "canvas-draw-client.scm" -j canvas-draw-client "-lcd")
    208                                 (compile -c -O2 -d1 "canvas-draw-client.scm" -j canvas-draw-client -unit canvas-draw-client)
    209                                 (compile -s -O2 -d0 "canvas-draw-client.import.scm")
    210                                
    211                                 (install-extension
    212                                  'canvas-draw-client
    213                                  '("canvas-draw-client.so" "canvas-draw-client.o" "canvas-draw-client.import.so")
    214                                  '((version 1.0.0)
    215                                    (static "canvas-draw-client.o")
    216                                    (static-options "-lcd"))))
    217                         (warning "CD client image driver not found, some bindings cannot be compiled"))
    218                
    219                 (if (check-libraries ["cdpdf" "cdContextPDF"])
    220                         (begin
    221                                 (compile -s -O2 -d1 "canvas-draw-pdf.scm" -j canvas-draw-pdf "-lcdpdf")
    222                                 (compile -c -O2 -d1 "canvas-draw-pdf.scm" -j canvas-draw-pdf -unit canvas-draw-pdf)
    223                                 (compile -s -O2 -d0 "canvas-draw-pdf.import.scm")
    224                                
    225                                 (install-extension
    226                                  'canvas-draw-pdf
    227                                  '("canvas-draw-pdf.so" "canvas-draw-pdf.o" "canvas-draw-pdf.import.so")
    228                                  '((version 1.0.0)
    229                                    (static "canvas-draw-pdf.o")
    230                                    (static-options "-lcdpdf"))))
    231                         (warning "CD PDF driver not found, some bindings cannot be compiled"))
    232                
    233                 (if (check-libraries ["cd" "cdContextPS"])
    234                         (begin
    235                                 (compile -s -O2 -d1 "canvas-draw-ps.scm" -j canvas-draw-ps "-lcd")
    236                                 (compile -c -O2 -d1 "canvas-draw-ps.scm" -j canvas-draw-ps -unit canvas-draw-ps)
    237                                 (compile -s -O2 -d0 "canvas-draw-ps.import.scm")
    238                                
    239                                 (install-extension
    240                                  'canvas-draw-ps
    241                                  '("canvas-draw-ps.so" "canvas-draw-ps.o" "canvas-draw-ps.import.so")
    242                                  '((version 1.0.0)
    243                                    (static "canvas-draw-ps.o")
    244                                    (static-options "-lcd"))))
    245                         (warning "CD PostScript driver not found, some bindings cannot be compiled"))
    246                
    247                 (if (check-libraries ["cd" "cdContextSVG"])
    248                         (begin
    249                                 (compile -s -O2 -d1 "canvas-draw-svg.scm" -j canvas-draw-svg "-lcd")
    250                                 (compile -c -O2 -d1 "canvas-draw-svg.scm" -j canvas-draw-svg -unit canvas-draw-svg)
    251                                 (compile -s -O2 -d0 "canvas-draw-svg.import.scm")
    252                                
    253                                 (install-extension
    254                                  'canvas-draw-svg
    255                                  '("canvas-draw-svg.so" "canvas-draw-svg.o" "canvas-draw-svg.import.so")
    256                                  '((version 1.0.0)
    257                                    (static "canvas-draw-svg.o")
    258                                    (static-options "-lcd"))))
    259                         (warning "CD SVG driver not found, some bindings cannot be compiled"))
    260                
    261                 (if (check-libraries ["cd" "cdContextMetafile"])
    262                         (begin
    263                                 (compile -s -O2 -d1 "canvas-draw-metafile.scm" -j canvas-draw-metafile "-lcd")
    264                                 (compile -c -O2 -d1 "canvas-draw-metafile.scm" -j canvas-draw-metafile -unit canvas-draw-metafile)
    265                                 (compile -s -O2 -d0 "canvas-draw-metafile.import.scm")
    266                                
    267                                 (install-extension
    268                                  'canvas-draw-metafile
    269                                  '("canvas-draw-metafile.so" "canvas-draw-metafile.o" "canvas-draw-metafile.import.so")
    270                                  '((version 1.0.0)
    271                                    (static "canvas-draw-metafile.o")
    272                                    (static-options "-lcd"))))
    273                         (warning "CD metafile driver not found, some bindings cannot be compiled"))
    274                
    275                 (if (check-libraries ["cd" "cdContextDebug"])
    276                         (begin
    277                                 (compile -s -O2 -d1 "canvas-draw-debug.scm" -j canvas-draw-debug "-lcd")
    278                                 (compile -c -O2 -d1 "canvas-draw-debug.scm" -j canvas-draw-debug -unit canvas-draw-debug)
    279                                 (compile -s -O2 -d0 "canvas-draw-debug.import.scm")
    280                                
    281                                 (install-extension
    282                                  'canvas-draw-debug
    283                                  '("canvas-draw-debug.so" "canvas-draw-debug.o" "canvas-draw-debug.import.so")
    284                                  '((version 1.0.0)
    285                                    (static "canvas-draw-debug.o")
    286                                    (static-options "-lcd"))))
    287                         (warning "CD debug driver not found, some bindings cannot be compiled"))
    288                
    289                 (if (check-libraries ["cd" "cdContextCGM"])
    290                         (begin
    291                                 (compile -s -O2 -d1 "canvas-draw-cgm.scm" -j canvas-draw-cgm "-lcd")
    292                                 (compile -c -O2 -d1 "canvas-draw-cgm.scm" -j canvas-draw-cgm -unit canvas-draw-cgm)
    293                                 (compile -s -O2 -d0 "canvas-draw-cgm.import.scm")
    294                                
    295                                 (install-extension
    296                                  'canvas-draw-cgm
    297                                  '("canvas-draw-cgm.so" "canvas-draw-cgm.o" "canvas-draw-cgm.import.so")
    298                                  '((version 1.0.0)
    299                                    (static "canvas-draw-cgm.o")
    300                                    (static-options "-lcd"))))
    301                         (warning "CD CGM driver not found, some bindings cannot be compiled"))
    302                
    303                 (if (check-libraries ["cd" "cdContextDGN"])
    304                         (begin
    305                                 (compile -s -O2 -d1 "canvas-draw-dgn.scm" -j canvas-draw-dgn "-lcd")
    306                                 (compile -c -O2 -d1 "canvas-draw-dgn.scm" -j canvas-draw-dgn -unit canvas-draw-dgn)
    307                                 (compile -s -O2 -d0 "canvas-draw-dgn.import.scm")
    308                                
    309                                 (install-extension
    310                                  'canvas-draw-dgn
    311                                  '("canvas-draw-dgn.so" "canvas-draw-dgn.o" "canvas-draw-dgn.import.so")
    312                                  '((version 1.0.0)
    313                                    (static "canvas-draw-dgn.o")
    314                                    (static-options "-lcd"))))
    315                         (warning "CD DGN driver not found, some bindings cannot be compiled"))
    316                
    317                 (if (check-libraries ["cd" "cdContextDXF"])
    318                         (begin
    319                                 (compile -s -O2 -d1 "canvas-draw-dxf.scm" -j canvas-draw-dxf "-lcd")
    320                                 (compile -c -O2 -d1 "canvas-draw-dxf.scm" -j canvas-draw-dxf -unit canvas-draw-dxf)
    321                                 (compile -s -O2 -d0 "canvas-draw-dxf.import.scm")
    322                                
    323                                 (install-extension
    324                                  'canvas-draw-dxf
    325                                  '("canvas-draw-dxf.so" "canvas-draw-dxf.o" "canvas-draw-dxf.import.so")
    326                                  '((version 1.0.0)
    327                                    (static "canvas-draw-dxf.o")
    328                                    (static-options "-lcd"))))
    329                         (warning "CD DXF driver not found, some bindings cannot be compiled"))
    330                
    331                 (if (check-libraries ["cd" "cdContextEMF"])
    332                         (begin
    333                                 (compile -s -O2 -d1 "canvas-draw-emf.scm" -j canvas-draw-emf "-lcd")
    334                                 (compile -c -O2 -d1 "canvas-draw-emf.scm" -j canvas-draw-emf -unit canvas-draw-emf)
    335                                 (compile -s -O2 -d0 "canvas-draw-emf.import.scm")
    336                                
    337                                 (install-extension
    338                                  'canvas-draw-emf
    339                                  '("canvas-draw-emf.so" "canvas-draw-emf.o" "canvas-draw-emf.import.so")
    340                                  '((version 1.0.0)
    341                                    (static "canvas-draw-emf.o")
    342                                    (static-options "-lcd"))))
    343                         (warning "CD EMF driver not found, some bindings cannot be compiled"))
    344                
    345                 (if (check-libraries ["cd" "cdContextWMF"])
    346                         (begin
    347                                 (compile -s -O2 -d1 "canvas-draw-wmf.scm" -j canvas-draw-wmf "-lcd")
    348                                 (compile -c -O2 -d1 "canvas-draw-wmf.scm" -j canvas-draw-wmf -unit canvas-draw-wmf)
    349                                 (compile -s -O2 -d0 "canvas-draw-wmf.import.scm")
    350                                
    351                                 (install-extension
    352                                  'canvas-draw-wmf
    353                                  '("canvas-draw-wmf.so" "canvas-draw-wmf.o" "canvas-draw-wmf.import.so")
    354                                  '((version 1.0.0)
    355                                    (static "canvas-draw-wmf.o")
    356                                    (static-options "-lcd"))))
    357                         (warning "CD WMF driver not found, some bindings cannot be compiled"))
    358                
    359                 (compile -s -O2 -d1 "canvas-draw.scm" -j canvas-draw)
    360                 (compile -c -O2 -d1 "canvas-draw.scm" -j canvas-draw -unit canvas-draw)
    361                 (compile -s -O2 -d0 "canvas-draw.import.scm")
    362                
    363                 (install-extension
    364                  'canvas-draw
    365                  '("canvas-draw.so" "canvas-draw.o" "canvas-draw.import.so")
    366                  '((version 1.0.0)
    367                          (static "canvas-draw.o"))))
    368         (error "CD not found, none of the bindings can be compiled"))
     139(install-extension
     140 'canvas-draw
     141 `("canvas-draw.so" "canvas-draw.o" "canvas-draw-types.scm" ,@import-libraries)
     142 `((version 1.1.0)
     143         (static "canvas-draw-base.o")
     144         (static-options ,(string-intersperse native-libraries))))
Note: See TracChangeset for help on using the changeset viewer.