Artifact
91a54c44e27d5975c03368e59dfa63f8d34cb98e:
0000: 3b 3b 20 2d 2a 2d 20 6d 6f 64 65 3a 20 53 63 68 ;; -*- mode: Sch
0010: 65 6d 65 3b 20 74 61 62 2d 77 69 64 74 68 3a 20 eme; tab-width:
0020: 32 3b 20 2d 2a 2d 20 3b 3b 0a 0a 28 63 6f 6e 64 2; -*- ;;..(cond
0030: 2d 65 78 70 61 6e 64 0a 20 5b 6e 6f 2d 6c 69 62 -expand. [no-lib
0040: 72 61 72 79 2d 63 68 65 63 6b 73 0a 09 28 64 65 rary-checks..(de
0050: 66 69 6e 65 2d 73 79 6e 74 61 78 20 63 68 65 63 fine-syntax chec
0060: 6b 2d 6c 69 62 72 61 72 69 65 73 0a 09 09 28 73 k-libraries...(s
0070: 79 6e 74 61 78 2d 72 75 6c 65 73 20 28 29 0a 09 yntax-rules ()..
0080: 09 09 5b 28 63 68 65 63 6b 2d 6c 69 62 72 61 72 ..[(check-librar
0090: 69 65 73 20 5b 6c 69 62 20 66 75 6e 5d 20 2e 2e ies [lib fun] ..
00a0: 2e 29 0a 09 09 09 20 23 74 5d 29 29 5d 0a 20 5b .).... #t]))]. [
00b0: 65 6c 73 65 0a 09 28 64 65 66 69 6e 65 2d 73 79 else..(define-sy
00c0: 6e 74 61 78 20 63 68 65 63 6b 2d 6c 69 62 72 61 ntax check-libra
00d0: 72 69 65 73 0a 09 09 28 73 79 6e 74 61 78 2d 72 ries...(syntax-r
00e0: 75 6c 65 73 20 28 29 0a 09 09 09 5b 28 63 68 65 ules ()....[(che
00f0: 63 6b 2d 6c 69 62 72 61 72 69 65 73 20 5b 6c 69 ck-libraries [li
0100: 62 20 66 75 6e 5d 20 2e 2e 2e 29 0a 09 09 09 20 b fun] ...)....
0110: 28 61 6e 64 20 28 66 69 6e 64 2d 6c 69 62 72 61 (and (find-libra
0120: 72 79 20 6c 69 62 20 66 75 6e 29 20 2e 2e 2e 29 ry lib fun) ...)
0130: 5d 29 29 5d 29 0a 0a 28 69 66 20 28 63 68 65 63 ]))])..(if (chec
0140: 6b 2d 6c 69 62 72 61 72 69 65 73 20 5b 20 22 63 k-libraries [ "c
0150: 64 22 20 22 63 64 43 72 65 61 74 65 43 61 6e 76 d" "cdCreateCanv
0160: 61 73 22 20 5d 20 29 0a 09 28 62 65 67 69 6e 0a as" ] )..(begin.
0170: 09 09 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f ..(compile -s -O
0180: 32 20 2d 64 31 20 22 63 61 6e 76 61 73 2d 64 72 2 -d1 "canvas-dr
0190: 61 77 2d 62 61 73 65 2e 73 63 6d 22 20 2d 6a 20 aw-base.scm" -j
01a0: 63 61 6e 76 61 73 2d 64 72 61 77 2d 62 61 73 65 canvas-draw-base
01b0: 20 22 2d 6c 63 64 22 29 0a 09 09 28 63 6f 6d 70 "-lcd")...(comp
01c0: 69 6c 65 20 2d 63 20 2d 4f 32 20 2d 64 31 20 22 ile -c -O2 -d1 "
01d0: 63 61 6e 76 61 73 2d 64 72 61 77 2d 62 61 73 65 canvas-draw-base
01e0: 2e 73 63 6d 22 20 2d 6a 20 63 61 6e 76 61 73 2d .scm" -j canvas-
01f0: 64 72 61 77 2d 62 61 73 65 20 2d 75 6e 69 74 20 draw-base -unit
0200: 63 61 6e 76 61 73 2d 64 72 61 77 2d 62 61 73 65 canvas-draw-base
0210: 29 0a 09 09 28 63 6f 6d 70 69 6c 65 20 2d 73 20 )...(compile -s
0220: 2d 4f 32 20 2d 64 30 20 22 63 61 6e 76 61 73 2d -O2 -d0 "canvas-
0230: 64 72 61 77 2d 62 61 73 65 2e 69 6d 70 6f 72 74 draw-base.import
0240: 2e 73 63 6d 22 29 0a 09 09 0a 09 09 28 69 6e 73 .scm")......(ins
0250: 74 61 6c 6c 2d 65 78 74 65 6e 73 69 6f 6e 0a 09 tall-extension..
0260: 09 20 27 63 61 6e 76 61 73 2d 64 72 61 77 2d 62 . 'canvas-draw-b
0270: 61 73 65 0a 09 09 20 27 28 22 63 61 6e 76 61 73 ase... '("canvas
0280: 2d 64 72 61 77 2d 62 61 73 65 2e 73 6f 22 20 22 -draw-base.so" "
0290: 63 61 6e 76 61 73 2d 64 72 61 77 2d 62 61 73 65 canvas-draw-base
02a0: 2e 6f 22 20 22 63 61 6e 76 61 73 2d 64 72 61 77 .o" "canvas-draw
02b0: 2d 62 61 73 65 2e 69 6d 70 6f 72 74 2e 73 6f 22 -base.import.so"
02c0: 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 74 79 "canvas-draw-ty
02d0: 70 65 73 2e 73 63 6d 22 29 0a 09 09 20 27 28 28 pes.scm")... '((
02e0: 76 65 72 73 69 6f 6e 20 31 2e 30 2e 30 29 0a 09 version 1.0.0)..
02f0: 09 09 20 28 73 74 61 74 69 63 20 22 63 61 6e 76 .. (static "canv
0300: 61 73 2d 64 72 61 77 2d 62 61 73 65 2e 6f 22 29 as-draw-base.o")
0310: 0a 09 09 09 20 28 73 74 61 74 69 63 2d 6f 70 74 .... (static-opt
0320: 69 6f 6e 73 20 22 2d 6c 63 64 22 29 29 29 0a 09 ions "-lcd")))..
0330: 09 0a 09 09 28 63 6f 6d 70 69 6c 65 20 2d 73 20 ....(compile -s
0340: 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 61 73 2d -O2 -d1 "canvas-
0350: 64 72 61 77 2d 70 72 69 6d 69 74 69 76 65 73 2e draw-primitives.
0360: 73 63 6d 22 20 2d 6a 20 63 61 6e 76 61 73 2d 64 scm" -j canvas-d
0370: 72 61 77 2d 70 72 69 6d 69 74 69 76 65 73 20 22 raw-primitives "
0380: 2d 6c 63 64 22 29 0a 09 09 28 63 6f 6d 70 69 6c -lcd")...(compil
0390: 65 20 2d 63 20 2d 4f 32 20 2d 64 31 20 22 63 61 e -c -O2 -d1 "ca
03a0: 6e 76 61 73 2d 64 72 61 77 2d 70 72 69 6d 69 74 nvas-draw-primit
03b0: 69 76 65 73 2e 73 63 6d 22 20 2d 6a 20 63 61 6e ives.scm" -j can
03c0: 76 61 73 2d 64 72 61 77 2d 70 72 69 6d 69 74 69 vas-draw-primiti
03d0: 76 65 73 20 2d 75 6e 69 74 20 63 61 6e 76 61 73 ves -unit canvas
03e0: 2d 64 72 61 77 2d 70 72 69 6d 69 74 69 76 65 73 -draw-primitives
03f0: 29 0a 09 09 28 63 6f 6d 70 69 6c 65 20 2d 73 20 )...(compile -s
0400: 2d 4f 32 20 2d 64 30 20 22 63 61 6e 76 61 73 2d -O2 -d0 "canvas-
0410: 64 72 61 77 2d 70 72 69 6d 69 74 69 76 65 73 2e draw-primitives.
0420: 69 6d 70 6f 72 74 2e 73 63 6d 22 29 0a 09 09 0a import.scm")....
0430: 09 09 28 69 6e 73 74 61 6c 6c 2d 65 78 74 65 6e ..(install-exten
0440: 73 69 6f 6e 0a 09 09 20 27 63 61 6e 76 61 73 2d sion... 'canvas-
0450: 64 72 61 77 2d 70 72 69 6d 69 74 69 76 65 73 0a draw-primitives.
0460: 09 09 20 27 28 22 63 61 6e 76 61 73 2d 64 72 61 .. '("canvas-dra
0470: 77 2d 70 72 69 6d 69 74 69 76 65 73 2e 73 6f 22 w-primitives.so"
0480: 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 72 "canvas-draw-pr
0490: 69 6d 69 74 69 76 65 73 2e 6f 22 20 22 63 61 6e imitives.o" "can
04a0: 76 61 73 2d 64 72 61 77 2d 70 72 69 6d 69 74 69 vas-draw-primiti
04b0: 76 65 73 2e 69 6d 70 6f 72 74 2e 73 6f 22 20 22 ves.import.so" "
04c0: 63 61 6e 76 61 73 2d 64 72 61 77 2d 74 79 70 65 canvas-draw-type
04d0: 73 2e 73 63 6d 22 29 0a 09 09 20 27 28 28 76 65 s.scm")... '((ve
04e0: 72 73 69 6f 6e 20 31 2e 30 2e 30 29 0a 09 09 09 rsion 1.0.0)....
04f0: 20 28 73 74 61 74 69 63 20 22 63 61 6e 76 61 73 (static "canvas
0500: 2d 64 72 61 77 2d 70 72 69 6d 69 74 69 76 65 73 -draw-primitives
0510: 2e 6f 22 29 0a 09 09 09 20 28 73 74 61 74 69 63 .o").... (static
0520: 2d 6f 70 74 69 6f 6e 73 20 22 2d 6c 63 64 22 29 -options "-lcd")
0530: 29 29 0a 09 09 0a 09 09 28 63 6f 6d 70 69 6c 65 ))......(compile
0540: 20 2d 73 20 2d 4f 32 20 2d 64 31 20 22 63 61 6e -s -O2 -d1 "can
0550: 76 61 73 2d 64 72 61 77 2d 70 6c 61 79 2e 73 63 vas-draw-play.sc
0560: 6d 22 20 2d 6a 20 63 61 6e 76 61 73 2d 64 72 61 m" -j canvas-dra
0570: 77 2d 70 6c 61 79 20 22 2d 6c 63 64 22 29 0a 09 w-play "-lcd")..
0580: 09 28 63 6f 6d 70 69 6c 65 20 2d 63 20 2d 4f 32 .(compile -c -O2
0590: 20 2d 64 31 20 22 63 61 6e 76 61 73 2d 64 72 61 -d1 "canvas-dra
05a0: 77 2d 70 6c 61 79 2e 73 63 6d 22 20 2d 6a 20 63 w-play.scm" -j c
05b0: 61 6e 76 61 73 2d 64 72 61 77 2d 70 6c 61 79 20 anvas-draw-play
05c0: 2d 75 6e 69 74 20 63 61 6e 76 61 73 2d 64 72 61 -unit canvas-dra
05d0: 77 2d 70 6c 61 79 29 0a 09 09 28 63 6f 6d 70 69 w-play)...(compi
05e0: 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 30 20 22 63 le -s -O2 -d0 "c
05f0: 61 6e 76 61 73 2d 64 72 61 77 2d 70 6c 61 79 2e anvas-draw-play.
0600: 69 6d 70 6f 72 74 2e 73 63 6d 22 29 0a 09 09 0a import.scm")....
0610: 09 09 28 69 6e 73 74 61 6c 6c 2d 65 78 74 65 6e ..(install-exten
0620: 73 69 6f 6e 0a 09 09 20 27 63 61 6e 76 61 73 2d sion... 'canvas-
0630: 64 72 61 77 2d 70 6c 61 79 0a 09 09 20 27 28 22 draw-play... '("
0640: 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 6c 61 79 canvas-draw-play
0650: 2e 73 6f 22 20 22 63 61 6e 76 61 73 2d 64 72 61 .so" "canvas-dra
0660: 77 2d 70 6c 61 79 2e 6f 22 20 22 63 61 6e 76 61 w-play.o" "canva
0670: 73 2d 64 72 61 77 2d 70 6c 61 79 2e 69 6d 70 6f s-draw-play.impo
0680: 72 74 2e 73 6f 22 20 22 63 61 6e 76 61 73 2d 64 rt.so" "canvas-d
0690: 72 61 77 2d 74 79 70 65 73 2e 73 63 6d 22 29 0a raw-types.scm").
06a0: 09 09 20 27 28 28 76 65 72 73 69 6f 6e 20 31 2e .. '((version 1.
06b0: 30 2e 30 29 0a 09 09 09 20 28 73 74 61 74 69 63 0.0).... (static
06c0: 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 6c "canvas-draw-pl
06d0: 61 79 2e 6f 22 29 0a 09 09 09 20 28 73 74 61 74 ay.o").... (stat
06e0: 69 63 2d 6f 70 74 69 6f 6e 73 20 22 2d 6c 63 64 ic-options "-lcd
06f0: 22 29 29 29 0a 09 09 0a 09 09 28 69 66 20 28 63 ")))......(if (c
0700: 68 65 63 6b 2d 6c 69 62 72 61 72 69 65 73 20 5b heck-libraries [
0710: 20 22 69 75 70 63 64 22 20 22 63 64 43 6f 6e 74 "iupcd" "cdCont
0720: 65 78 74 49 75 70 22 20 5d 20 29 0a 09 09 09 28 extIup" ] )....(
0730: 62 65 67 69 6e 0a 09 09 09 09 28 63 6f 6d 70 69 begin.....(compi
0740: 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 31 20 22 63 le -s -O2 -d1 "c
0750: 61 6e 76 61 73 2d 64 72 61 77 2d 69 75 70 2e 73 anvas-draw-iup.s
0760: 63 6d 22 20 2d 6a 20 63 61 6e 76 61 73 2d 64 72 cm" -j canvas-dr
0770: 61 77 2d 69 75 70 20 22 2d 6c 69 75 70 63 64 22 aw-iup "-liupcd"
0780: 29 0a 09 09 09 09 28 63 6f 6d 70 69 6c 65 20 2d ).....(compile -
0790: 63 20 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 61 c -O2 -d1 "canva
07a0: 73 2d 64 72 61 77 2d 69 75 70 2e 73 63 6d 22 20 s-draw-iup.scm"
07b0: 2d 6a 20 63 61 6e 76 61 73 2d 64 72 61 77 2d 69 -j canvas-draw-i
07c0: 75 70 20 2d 75 6e 69 74 20 63 61 6e 76 61 73 2d up -unit canvas-
07d0: 64 72 61 77 2d 69 75 70 29 0a 09 09 09 09 28 63 draw-iup).....(c
07e0: 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 ompile -s -O2 -d
07f0: 30 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 69 0 "canvas-draw-i
0800: 75 70 2e 69 6d 70 6f 72 74 2e 73 63 6d 22 29 0a up.import.scm").
0810: 09 09 09 09 0a 09 09 09 09 28 69 6e 73 74 61 6c .........(instal
0820: 6c 2d 65 78 74 65 6e 73 69 6f 6e 0a 09 09 09 09 l-extension.....
0830: 20 27 63 61 6e 76 61 73 2d 64 72 61 77 2d 69 75 'canvas-draw-iu
0840: 70 0a 09 09 09 09 20 27 28 22 63 61 6e 76 61 73 p..... '("canvas
0850: 2d 64 72 61 77 2d 69 75 70 2e 73 6f 22 20 22 63 -draw-iup.so" "c
0860: 61 6e 76 61 73 2d 64 72 61 77 2d 69 75 70 2e 6f anvas-draw-iup.o
0870: 22 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 69 " "canvas-draw-i
0880: 75 70 2e 69 6d 70 6f 72 74 2e 73 6f 22 29 0a 09 up.import.so")..
0890: 09 09 09 20 27 28 28 76 65 72 73 69 6f 6e 20 31 ... '((version 1
08a0: 2e 30 2e 30 29 0a 09 09 09 09 09 20 28 73 74 61 .0.0)...... (sta
08b0: 74 69 63 20 22 63 61 6e 76 61 73 2d 64 72 61 77 tic "canvas-draw
08c0: 2d 69 75 70 2e 6f 22 29 0a 09 09 09 09 09 20 28 -iup.o")...... (
08d0: 73 74 61 74 69 63 2d 6f 70 74 69 6f 6e 73 20 22 static-options "
08e0: 2d 6c 69 75 70 63 64 22 29 29 29 29 0a 09 09 09 -liupcd"))))....
08f0: 28 77 61 72 6e 69 6e 67 20 22 43 44 20 49 55 50 (warning "CD IUP
0900: 20 64 72 69 76 65 72 20 6e 6f 74 20 66 6f 75 6e driver not foun
0910: 64 2c 20 73 6f 6d 65 20 62 69 6e 64 69 6e 67 73 d, some bindings
0920: 20 63 61 6e 6e 6f 74 20 62 65 20 63 6f 6d 70 69 cannot be compi
0930: 6c 65 64 22 29 29 0a 09 09 0a 09 09 28 63 6f 6e led"))......(con
0940: 64 0a 09 09 09 5b 23 66 20 3b 3b 20 28 63 68 65 d....[#f ;; (che
0950: 63 6b 2d 6c 69 62 72 61 72 69 65 73 20 5b 20 22 ck-libraries [ "
0960: 63 64 78 31 31 22 20 22 63 64 43 6f 6e 74 65 78 cdx11" "cdContex
0970: 74 4e 61 74 69 76 65 57 69 6e 64 6f 77 22 20 5d tNativeWindow" ]
0980: 20 29 0a 09 09 09 20 28 63 6f 6d 70 69 6c 65 20 ).... (compile
0990: 2d 73 20 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 -s -O2 -d1 "canv
09a0: 61 73 2d 64 72 61 77 2d 6e 61 74 69 76 65 2e 73 as-draw-native.s
09b0: 63 6d 22 20 2d 6a 20 63 61 6e 76 61 73 2d 64 72 cm" -j canvas-dr
09c0: 61 77 2d 6e 61 74 69 76 65 20 22 2d 6c 63 64 78 aw-native "-lcdx
09d0: 31 31 20 2d 6c 63 64 63 6f 6e 74 65 78 74 70 6c 11 -lcdcontextpl
09e0: 75 73 22 29 0a 09 09 09 20 28 63 6f 6d 70 69 6c us").... (compil
09f0: 65 20 2d 63 20 2d 4f 32 20 2d 64 31 20 22 63 61 e -c -O2 -d1 "ca
0a00: 6e 76 61 73 2d 64 72 61 77 2d 6e 61 74 69 76 65 nvas-draw-native
0a10: 2e 73 63 6d 22 20 2d 6a 20 63 61 6e 76 61 73 2d .scm" -j canvas-
0a20: 64 72 61 77 2d 6e 61 74 69 76 65 20 2d 75 6e 69 draw-native -uni
0a30: 74 20 63 61 6e 76 61 73 2d 64 72 61 77 2d 6e 61 t canvas-draw-na
0a40: 74 69 76 65 29 0a 09 09 09 20 28 63 6f 6d 70 69 tive).... (compi
0a50: 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 30 20 22 63 le -s -O2 -d0 "c
0a60: 61 6e 76 61 73 2d 64 72 61 77 2d 6e 61 74 69 76 anvas-draw-nativ
0a70: 65 2e 69 6d 70 6f 72 74 2e 73 63 6d 22 29 0a 09 e.import.scm")..
0a80: 09 09 20 0a 09 09 09 20 28 69 6e 73 74 61 6c 6c .. .... (install
0a90: 2d 65 78 74 65 6e 73 69 6f 6e 0a 09 09 09 09 27 -extension.....'
0aa0: 63 61 6e 76 61 73 2d 64 72 61 77 2d 6e 61 74 69 canvas-draw-nati
0ab0: 76 65 0a 09 09 09 09 27 28 22 63 61 6e 76 61 73 ve.....'("canvas
0ac0: 2d 64 72 61 77 2d 6e 61 74 69 76 65 2e 73 6f 22 -draw-native.so"
0ad0: 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 6e 61 "canvas-draw-na
0ae0: 74 69 76 65 2e 6f 22 20 22 63 61 6e 76 61 73 2d tive.o" "canvas-
0af0: 64 72 61 77 2d 6e 61 74 69 76 65 2e 69 6d 70 6f draw-native.impo
0b00: 72 74 2e 73 6f 22 29 0a 09 09 09 09 27 28 28 76 rt.so").....'((v
0b10: 65 72 73 69 6f 6e 20 31 2e 30 2e 30 29 0a 09 09 ersion 1.0.0)...
0b20: 09 09 09 28 73 74 61 74 69 63 20 22 63 61 6e 76 ...(static "canv
0b30: 61 73 2d 64 72 61 77 2d 6e 61 74 69 76 65 2e 6f as-draw-native.o
0b40: 22 29 0a 09 09 09 09 09 28 73 74 61 74 69 63 2d ")......(static-
0b50: 6f 70 74 69 6f 6e 73 20 22 2d 6c 63 64 78 31 31 options "-lcdx11
0b60: 20 2d 6c 63 64 63 6f 6e 74 65 78 74 70 6c 75 73 -lcdcontextplus
0b70: 22 29 29 29 5d 0a 09 09 09 5b 23 66 20 3b 3b 20 ")))]....[#f ;;
0b80: 28 63 68 65 63 6b 2d 6c 69 62 72 61 72 69 65 73 (check-libraries
0b90: 20 5b 20 22 63 64 22 20 22 63 64 43 6f 6e 74 65 [ "cd" "cdConte
0ba0: 78 74 4e 61 74 69 76 65 57 69 6e 64 6f 77 22 20 xtNativeWindow"
0bb0: 5d 20 29 0a 09 09 09 20 28 63 6f 6d 70 69 6c 65 ] ).... (compile
0bc0: 20 2d 73 20 2d 4f 32 20 2d 64 31 20 22 63 61 6e -s -O2 -d1 "can
0bd0: 76 61 73 2d 64 72 61 77 2d 6e 61 74 69 76 65 2e vas-draw-native.
0be0: 73 63 6d 22 20 2d 6a 20 63 61 6e 76 61 73 2d 64 scm" -j canvas-d
0bf0: 72 61 77 2d 6e 61 74 69 76 65 20 22 2d 6c 63 64 raw-native "-lcd
0c00: 20 2d 6c 63 64 63 6f 6e 74 65 78 74 70 6c 75 73 -lcdcontextplus
0c10: 22 29 0a 09 09 09 20 28 63 6f 6d 70 69 6c 65 20 ").... (compile
0c20: 2d 63 20 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 -c -O2 -d1 "canv
0c30: 61 73 2d 64 72 61 77 2d 6e 61 74 69 76 65 2e 73 as-draw-native.s
0c40: 63 6d 22 20 2d 6a 20 63 61 6e 76 61 73 2d 64 72 cm" -j canvas-dr
0c50: 61 77 2d 6e 61 74 69 76 65 20 2d 75 6e 69 74 20 aw-native -unit
0c60: 63 61 6e 76 61 73 2d 64 72 61 77 2d 6e 61 74 69 canvas-draw-nati
0c70: 76 65 29 0a 09 09 09 20 28 63 6f 6d 70 69 6c 65 ve).... (compile
0c80: 20 2d 73 20 2d 4f 32 20 2d 64 30 20 22 63 61 6e -s -O2 -d0 "can
0c90: 76 61 73 2d 64 72 61 77 2d 6e 61 74 69 76 65 2e vas-draw-native.
0ca0: 69 6d 70 6f 72 74 2e 73 63 6d 22 29 0a 09 09 09 import.scm")....
0cb0: 20 0a 09 09 09 20 28 69 6e 73 74 61 6c 6c 2d 65 .... (install-e
0cc0: 78 74 65 6e 73 69 6f 6e 0a 09 09 09 09 27 63 61 xtension.....'ca
0cd0: 6e 76 61 73 2d 64 72 61 77 2d 6e 61 74 69 76 65 nvas-draw-native
0ce0: 0a 09 09 09 09 27 28 22 63 61 6e 76 61 73 2d 64 .....'("canvas-d
0cf0: 72 61 77 2d 6e 61 74 69 76 65 2e 73 6f 22 20 22 raw-native.so" "
0d00: 63 61 6e 76 61 73 2d 64 72 61 77 2d 6e 61 74 69 canvas-draw-nati
0d10: 76 65 2e 6f 22 20 22 63 61 6e 76 61 73 2d 64 72 ve.o" "canvas-dr
0d20: 61 77 2d 6e 61 74 69 76 65 2e 69 6d 70 6f 72 74 aw-native.import
0d30: 2e 73 6f 22 29 0a 09 09 09 09 27 28 28 76 65 72 .so").....'((ver
0d40: 73 69 6f 6e 20 31 2e 30 2e 30 29 0a 09 09 09 09 sion 1.0.0).....
0d50: 09 28 73 74 61 74 69 63 20 22 63 61 6e 76 61 73 .(static "canvas
0d60: 2d 64 72 61 77 2d 6e 61 74 69 76 65 2e 6f 22 29 -draw-native.o")
0d70: 0a 09 09 09 09 09 28 73 74 61 74 69 63 2d 6f 70 ......(static-op
0d80: 74 69 6f 6e 73 20 22 2d 6c 63 64 20 2d 6c 63 64 tions "-lcd -lcd
0d90: 63 6f 6e 74 65 78 74 70 6c 75 73 22 29 29 29 5d contextplus")))]
0da0: 0a 09 09 09 5b 65 6c 73 65 0a 09 09 09 20 28 77 ....[else.... (w
0db0: 61 72 6e 69 6e 67 20 22 43 44 20 6e 61 74 69 76 arning "CD nativ
0dc0: 65 20 77 69 6e 64 6f 77 20 64 72 69 76 65 72 20 e window driver
0dd0: 6e 6f 74 20 66 6f 75 6e 64 2c 20 73 6f 6d 65 20 not found, some
0de0: 62 69 6e 64 69 6e 67 73 20 63 61 6e 6e 6f 74 20 bindings cannot
0df0: 62 65 20 63 6f 6d 70 69 6c 65 64 22 29 5d 29 0a be compiled")]).
0e00: 09 09 0a 09 09 28 69 66 20 28 63 68 65 63 6b 2d .....(if (check-
0e10: 6c 69 62 72 61 72 69 65 73 20 5b 20 22 63 64 67 libraries [ "cdg
0e20: 6c 22 20 22 63 64 43 6f 6e 74 65 78 74 47 4c 22 l" "cdContextGL"
0e30: 20 5d 20 29 0a 09 09 09 28 62 65 67 69 6e 0a 09 ] )....(begin..
0e40: 09 09 09 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d ...(compile -s -
0e50: 4f 32 20 2d 64 31 20 22 63 61 6e 76 61 73 2d 64 O2 -d1 "canvas-d
0e60: 72 61 77 2d 67 6c 2e 73 63 6d 22 20 2d 6a 20 63 raw-gl.scm" -j c
0e70: 61 6e 76 61 73 2d 64 72 61 77 2d 67 6c 20 22 2d anvas-draw-gl "-
0e80: 6c 63 64 67 6c 22 29 0a 09 09 09 09 28 63 6f 6d lcdgl").....(com
0e90: 70 69 6c 65 20 2d 63 20 2d 4f 32 20 2d 64 31 20 pile -c -O2 -d1
0ea0: 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 67 6c 2e "canvas-draw-gl.
0eb0: 73 63 6d 22 20 2d 6a 20 63 61 6e 76 61 73 2d 64 scm" -j canvas-d
0ec0: 72 61 77 2d 67 6c 20 2d 75 6e 69 74 20 63 61 6e raw-gl -unit can
0ed0: 76 61 73 2d 64 72 61 77 2d 67 6c 29 0a 09 09 09 vas-draw-gl)....
0ee0: 09 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 .(compile -s -O2
0ef0: 20 2d 64 30 20 22 63 61 6e 76 61 73 2d 64 72 61 -d0 "canvas-dra
0f00: 77 2d 67 6c 2e 69 6d 70 6f 72 74 2e 73 63 6d 22 w-gl.import.scm"
0f10: 29 0a 09 09 09 09 0a 09 09 09 09 28 69 6e 73 74 )..........(inst
0f20: 61 6c 6c 2d 65 78 74 65 6e 73 69 6f 6e 0a 09 09 all-extension...
0f30: 09 09 20 27 63 61 6e 76 61 73 2d 64 72 61 77 2d .. 'canvas-draw-
0f40: 67 6c 0a 09 09 09 09 20 27 28 22 63 61 6e 76 61 gl..... '("canva
0f50: 73 2d 64 72 61 77 2d 67 6c 2e 73 6f 22 20 22 63 s-draw-gl.so" "c
0f60: 61 6e 76 61 73 2d 64 72 61 77 2d 67 6c 2e 6f 22 anvas-draw-gl.o"
0f70: 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 67 6c "canvas-draw-gl
0f80: 2e 69 6d 70 6f 72 74 2e 73 6f 22 29 0a 09 09 09 .import.so")....
0f90: 09 20 27 28 28 76 65 72 73 69 6f 6e 20 31 2e 30 . '((version 1.0
0fa0: 2e 30 29 0a 09 09 09 09 09 20 28 73 74 61 74 69 .0)...... (stati
0fb0: 63 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 67 c "canvas-draw-g
0fc0: 6c 2e 6f 22 29 0a 09 09 09 09 09 20 28 73 74 61 l.o")...... (sta
0fd0: 74 69 63 2d 6f 70 74 69 6f 6e 73 20 22 2d 6c 63 tic-options "-lc
0fe0: 64 67 6c 22 29 29 29 29 0a 09 09 09 28 77 61 72 dgl"))))....(war
0ff0: 6e 69 6e 67 20 22 43 44 20 4f 70 65 6e 47 4c 20 ning "CD OpenGL
1000: 64 72 69 76 65 72 20 6e 6f 74 20 66 6f 75 6e 64 driver not found
1010: 2c 20 73 6f 6d 65 20 62 69 6e 64 69 6e 67 73 20 , some bindings
1020: 63 61 6e 6e 6f 74 20 62 65 20 63 6f 6d 70 69 6c cannot be compil
1030: 65 64 22 29 29 0a 09 09 0a 09 09 28 63 6f 6e 64 ed"))......(cond
1040: 0a 09 09 09 5b 23 66 20 3b 3b 20 28 63 68 65 63 ....[#f ;; (chec
1050: 6b 2d 6c 69 62 72 61 72 69 65 73 20 5b 20 22 63 k-libraries [ "c
1060: 64 78 31 31 22 20 22 63 64 43 6f 6e 74 65 78 74 dx11" "cdContext
1070: 43 6c 69 70 62 6f 61 72 64 22 20 5d 20 29 0a 09 Clipboard" ] )..
1080: 09 09 20 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d .. (compile -s -
1090: 4f 32 20 2d 64 31 20 22 63 61 6e 76 61 73 2d 64 O2 -d1 "canvas-d
10a0: 72 61 77 2d 63 6c 69 70 62 6f 61 72 64 2e 73 63 raw-clipboard.sc
10b0: 6d 22 20 2d 6a 20 63 61 6e 76 61 73 2d 64 72 61 m" -j canvas-dra
10c0: 77 2d 63 6c 69 70 62 6f 61 72 64 20 22 2d 6c 63 w-clipboard "-lc
10d0: 64 78 31 31 22 29 0a 09 09 09 20 28 63 6f 6d 70 dx11").... (comp
10e0: 69 6c 65 20 2d 63 20 2d 4f 32 20 2d 64 31 20 22 ile -c -O2 -d1 "
10f0: 63 61 6e 76 61 73 2d 64 72 61 77 2d 63 6c 69 70 canvas-draw-clip
1100: 62 6f 61 72 64 2e 73 63 6d 22 20 2d 6a 20 63 61 board.scm" -j ca
1110: 6e 76 61 73 2d 64 72 61 77 2d 63 6c 69 70 62 6f nvas-draw-clipbo
1120: 61 72 64 20 2d 75 6e 69 74 20 63 61 6e 76 61 73 ard -unit canvas
1130: 2d 64 72 61 77 2d 63 6c 69 70 62 6f 61 72 64 29 -draw-clipboard)
1140: 0a 09 09 09 20 28 63 6f 6d 70 69 6c 65 20 2d 73 .... (compile -s
1150: 20 2d 4f 32 20 2d 64 30 20 22 63 61 6e 76 61 73 -O2 -d0 "canvas
1160: 2d 64 72 61 77 2d 63 6c 69 70 62 6f 61 72 64 2e -draw-clipboard.
1170: 69 6d 70 6f 72 74 2e 73 63 6d 22 29 0a 09 09 09 import.scm")....
1180: 20 0a 09 09 09 20 28 69 6e 73 74 61 6c 6c 2d 65 .... (install-e
1190: 78 74 65 6e 73 69 6f 6e 0a 09 09 09 09 27 63 61 xtension.....'ca
11a0: 6e 76 61 73 2d 64 72 61 77 2d 63 6c 69 70 62 6f nvas-draw-clipbo
11b0: 61 72 64 0a 09 09 09 09 27 28 22 63 61 6e 76 61 ard.....'("canva
11c0: 73 2d 64 72 61 77 2d 63 6c 69 70 62 6f 61 72 64 s-draw-clipboard
11d0: 2e 73 6f 22 20 22 63 61 6e 76 61 73 2d 64 72 61 .so" "canvas-dra
11e0: 77 2d 63 6c 69 70 62 6f 61 72 64 2e 6f 22 20 22 w-clipboard.o" "
11f0: 63 61 6e 76 61 73 2d 64 72 61 77 2d 63 6c 69 70 canvas-draw-clip
1200: 62 6f 61 72 64 2e 69 6d 70 6f 72 74 2e 73 6f 22 board.import.so"
1210: 29 0a 09 09 09 09 27 28 28 76 65 72 73 69 6f 6e ).....'((version
1220: 20 31 2e 30 2e 30 29 0a 09 09 09 09 09 28 73 74 1.0.0)......(st
1230: 61 74 69 63 20 22 63 61 6e 76 61 73 2d 64 72 61 atic "canvas-dra
1240: 77 2d 63 6c 69 70 62 6f 61 72 64 2e 6f 22 29 0a w-clipboard.o").
1250: 09 09 09 09 09 28 73 74 61 74 69 63 2d 6f 70 74 .....(static-opt
1260: 69 6f 6e 73 20 22 2d 6c 63 64 78 31 31 22 29 29 ions "-lcdx11"))
1270: 29 5d 0a 09 09 09 5b 28 63 68 65 63 6b 2d 6c 69 )]....[(check-li
1280: 62 72 61 72 69 65 73 20 5b 20 22 63 64 22 20 22 braries [ "cd" "
1290: 63 64 43 6f 6e 74 65 78 74 43 6c 69 70 62 6f 61 cdContextClipboa
12a0: 72 64 22 20 5d 20 29 0a 09 09 09 20 28 63 6f 6d rd" ] ).... (com
12b0: 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 31 20 pile -s -O2 -d1
12c0: 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 63 6c 69 "canvas-draw-cli
12d0: 70 62 6f 61 72 64 2e 73 63 6d 22 20 2d 6a 20 63 pboard.scm" -j c
12e0: 61 6e 76 61 73 2d 64 72 61 77 2d 63 6c 69 70 62 anvas-draw-clipb
12f0: 6f 61 72 64 20 22 2d 6c 63 64 22 29 0a 09 09 09 oard "-lcd")....
1300: 20 28 63 6f 6d 70 69 6c 65 20 2d 63 20 2d 4f 32 (compile -c -O2
1310: 20 2d 64 31 20 22 63 61 6e 76 61 73 2d 64 72 61 -d1 "canvas-dra
1320: 77 2d 63 6c 69 70 62 6f 61 72 64 2e 73 63 6d 22 w-clipboard.scm"
1330: 20 2d 6a 20 63 61 6e 76 61 73 2d 64 72 61 77 2d -j canvas-draw-
1340: 63 6c 69 70 62 6f 61 72 64 20 2d 75 6e 69 74 20 clipboard -unit
1350: 63 61 6e 76 61 73 2d 64 72 61 77 2d 63 6c 69 70 canvas-draw-clip
1360: 62 6f 61 72 64 29 0a 09 09 09 20 28 63 6f 6d 70 board).... (comp
1370: 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 30 20 22 ile -s -O2 -d0 "
1380: 63 61 6e 76 61 73 2d 64 72 61 77 2d 63 6c 69 70 canvas-draw-clip
1390: 62 6f 61 72 64 2e 69 6d 70 6f 72 74 2e 73 63 6d board.import.scm
13a0: 22 29 0a 09 09 09 20 0a 09 09 09 20 28 69 6e 73 ").... .... (ins
13b0: 74 61 6c 6c 2d 65 78 74 65 6e 73 69 6f 6e 0a 09 tall-extension..
13c0: 09 09 09 27 63 61 6e 76 61 73 2d 64 72 61 77 2d ...'canvas-draw-
13d0: 63 6c 69 70 62 6f 61 72 64 0a 09 09 09 09 27 28 clipboard.....'(
13e0: 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 63 6c 69 "canvas-draw-cli
13f0: 70 62 6f 61 72 64 2e 73 6f 22 20 22 63 61 6e 76 pboard.so" "canv
1400: 61 73 2d 64 72 61 77 2d 63 6c 69 70 62 6f 61 72 as-draw-clipboar
1410: 64 2e 6f 22 20 22 63 61 6e 76 61 73 2d 64 72 61 d.o" "canvas-dra
1420: 77 2d 63 6c 69 70 62 6f 61 72 64 2e 69 6d 70 6f w-clipboard.impo
1430: 72 74 2e 73 6f 22 29 0a 09 09 09 09 27 28 28 76 rt.so").....'((v
1440: 65 72 73 69 6f 6e 20 31 2e 30 2e 30 29 0a 09 09 ersion 1.0.0)...
1450: 09 09 09 28 73 74 61 74 69 63 20 22 63 61 6e 76 ...(static "canv
1460: 61 73 2d 64 72 61 77 2d 63 6c 69 70 62 6f 61 72 as-draw-clipboar
1470: 64 2e 6f 22 29 0a 09 09 09 09 09 28 73 74 61 74 d.o")......(stat
1480: 69 63 2d 6f 70 74 69 6f 6e 73 20 22 2d 6c 63 64 ic-options "-lcd
1490: 22 29 29 29 5d 0a 09 09 09 5b 65 6c 73 65 0a 09 ")))]....[else..
14a0: 09 09 20 28 77 61 72 6e 69 6e 67 20 22 43 44 20 .. (warning "CD
14b0: 63 6c 69 70 62 6f 61 72 64 20 64 72 69 76 65 72 clipboard driver
14c0: 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 73 6f 6d 65 not found, some
14d0: 20 62 69 6e 64 69 6e 67 73 20 63 61 6e 6e 6f 74 bindings cannot
14e0: 20 62 65 20 63 6f 6d 70 69 6c 65 64 22 29 5d 29 be compiled")])
14f0: 0a 09 09 0a 09 09 28 63 6f 6e 64 0a 09 09 09 5b ......(cond....[
1500: 23 66 20 3b 3b 20 28 63 68 65 63 6b 2d 6c 69 62 #f ;; (check-lib
1510: 72 61 72 69 65 73 20 5b 20 22 63 64 78 31 31 22 raries [ "cdx11"
1520: 20 22 63 64 43 6f 6e 74 65 78 74 50 72 69 6e 74 "cdContextPrint
1530: 65 72 22 20 5d 20 29 0a 09 09 09 20 28 63 6f 6d er" ] ).... (com
1540: 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 31 20 pile -s -O2 -d1
1550: 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 72 69 "canvas-draw-pri
1560: 6e 74 65 72 2e 73 63 6d 22 20 2d 6a 20 63 61 6e nter.scm" -j can
1570: 76 61 73 2d 64 72 61 77 2d 70 72 69 6e 74 65 72 vas-draw-printer
1580: 20 22 2d 6c 63 64 78 31 31 22 29 0a 09 09 09 20 "-lcdx11")....
1590: 28 63 6f 6d 70 69 6c 65 20 2d 63 20 2d 4f 32 20 (compile -c -O2
15a0: 2d 64 31 20 22 63 61 6e 76 61 73 2d 64 72 61 77 -d1 "canvas-draw
15b0: 2d 70 72 69 6e 74 65 72 2e 73 63 6d 22 20 2d 6a -printer.scm" -j
15c0: 20 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 72 69 canvas-draw-pri
15d0: 6e 74 65 72 20 2d 75 6e 69 74 20 63 61 6e 76 61 nter -unit canva
15e0: 73 2d 64 72 61 77 2d 70 72 69 6e 74 65 72 29 0a s-draw-printer).
15f0: 09 09 09 20 28 63 6f 6d 70 69 6c 65 20 2d 73 20 ... (compile -s
1600: 2d 4f 32 20 2d 64 30 20 22 63 61 6e 76 61 73 2d -O2 -d0 "canvas-
1610: 64 72 61 77 2d 70 72 69 6e 74 65 72 2e 69 6d 70 draw-printer.imp
1620: 6f 72 74 2e 73 63 6d 22 29 0a 09 09 09 20 0a 09 ort.scm").... ..
1630: 09 09 20 28 69 6e 73 74 61 6c 6c 2d 65 78 74 65 .. (install-exte
1640: 6e 73 69 6f 6e 0a 09 09 09 09 27 63 61 6e 76 61 nsion.....'canva
1650: 73 2d 64 72 61 77 2d 70 72 69 6e 74 65 72 0a 09 s-draw-printer..
1660: 09 09 09 27 28 22 63 61 6e 76 61 73 2d 64 72 61 ...'("canvas-dra
1670: 77 2d 70 72 69 6e 74 65 72 2e 73 6f 22 20 22 63 w-printer.so" "c
1680: 61 6e 76 61 73 2d 64 72 61 77 2d 70 72 69 6e 74 anvas-draw-print
1690: 65 72 2e 6f 22 20 22 63 61 6e 76 61 73 2d 64 72 er.o" "canvas-dr
16a0: 61 77 2d 70 72 69 6e 74 65 72 2e 69 6d 70 6f 72 aw-printer.impor
16b0: 74 2e 73 6f 22 29 0a 09 09 09 09 27 28 28 76 65 t.so").....'((ve
16c0: 72 73 69 6f 6e 20 31 2e 30 2e 30 29 0a 09 09 09 rsion 1.0.0)....
16d0: 09 09 28 73 74 61 74 69 63 20 22 63 61 6e 76 61 ..(static "canva
16e0: 73 2d 64 72 61 77 2d 70 72 69 6e 74 65 72 2e 6f s-draw-printer.o
16f0: 22 29 0a 09 09 09 09 09 28 73 74 61 74 69 63 2d ")......(static-
1700: 6f 70 74 69 6f 6e 73 20 22 2d 6c 63 64 78 31 31 options "-lcdx11
1710: 22 29 29 29 5d 0a 09 09 09 5b 28 63 68 65 63 6b ")))]....[(check
1720: 2d 6c 69 62 72 61 72 69 65 73 20 5b 20 22 63 64 -libraries [ "cd
1730: 22 20 22 63 64 43 6f 6e 74 65 78 74 50 72 69 6e " "cdContextPrin
1740: 74 65 72 22 20 5d 20 29 0a 09 09 09 20 28 63 6f ter" ] ).... (co
1750: 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 31 mpile -s -O2 -d1
1760: 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 72 "canvas-draw-pr
1770: 69 6e 74 65 72 2e 73 63 6d 22 20 2d 6a 20 63 61 inter.scm" -j ca
1780: 6e 76 61 73 2d 64 72 61 77 2d 70 72 69 6e 74 65 nvas-draw-printe
1790: 72 20 22 2d 6c 63 64 22 29 0a 09 09 09 20 28 63 r "-lcd").... (c
17a0: 6f 6d 70 69 6c 65 20 2d 63 20 2d 4f 32 20 2d 64 ompile -c -O2 -d
17b0: 31 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 1 "canvas-draw-p
17c0: 72 69 6e 74 65 72 2e 73 63 6d 22 20 2d 6a 20 63 rinter.scm" -j c
17d0: 61 6e 76 61 73 2d 64 72 61 77 2d 70 72 69 6e 74 anvas-draw-print
17e0: 65 72 20 2d 75 6e 69 74 20 63 61 6e 76 61 73 2d er -unit canvas-
17f0: 64 72 61 77 2d 70 72 69 6e 74 65 72 29 0a 09 09 draw-printer)...
1800: 09 20 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f . (compile -s -O
1810: 32 20 2d 64 30 20 22 63 61 6e 76 61 73 2d 64 72 2 -d0 "canvas-dr
1820: 61 77 2d 70 72 69 6e 74 65 72 2e 69 6d 70 6f 72 aw-printer.impor
1830: 74 2e 73 63 6d 22 29 0a 09 09 09 20 0a 09 09 09 t.scm").... ....
1840: 20 28 69 6e 73 74 61 6c 6c 2d 65 78 74 65 6e 73 (install-extens
1850: 69 6f 6e 0a 09 09 09 09 27 63 61 6e 76 61 73 2d ion.....'canvas-
1860: 64 72 61 77 2d 70 72 69 6e 74 65 72 0a 09 09 09 draw-printer....
1870: 09 27 28 22 63 61 6e 76 61 73 2d 64 72 61 77 2d .'("canvas-draw-
1880: 70 72 69 6e 74 65 72 2e 73 6f 22 20 22 63 61 6e printer.so" "can
1890: 76 61 73 2d 64 72 61 77 2d 70 72 69 6e 74 65 72 vas-draw-printer
18a0: 2e 6f 22 20 22 63 61 6e 76 61 73 2d 64 72 61 77 .o" "canvas-draw
18b0: 2d 70 72 69 6e 74 65 72 2e 69 6d 70 6f 72 74 2e -printer.import.
18c0: 73 6f 22 29 0a 09 09 09 09 27 28 28 76 65 72 73 so").....'((vers
18d0: 69 6f 6e 20 31 2e 30 2e 30 29 0a 09 09 09 09 09 ion 1.0.0)......
18e0: 28 73 74 61 74 69 63 20 22 63 61 6e 76 61 73 2d (static "canvas-
18f0: 64 72 61 77 2d 70 72 69 6e 74 65 72 2e 6f 22 29 draw-printer.o")
1900: 0a 09 09 09 09 09 28 73 74 61 74 69 63 2d 6f 70 ......(static-op
1910: 74 69 6f 6e 73 20 22 2d 6c 63 64 22 29 29 29 5d tions "-lcd")))]
1920: 0a 09 09 09 5b 65 6c 73 65 0a 09 09 09 20 28 77 ....[else.... (w
1930: 61 72 6e 69 6e 67 20 22 43 44 20 70 72 69 6e 74 arning "CD print
1940: 65 72 20 64 72 69 76 65 72 20 6e 6f 74 20 66 6f er driver not fo
1950: 75 6e 64 2c 20 73 6f 6d 65 20 62 69 6e 64 69 6e und, some bindin
1960: 67 73 20 63 61 6e 6e 6f 74 20 62 65 20 63 6f 6d gs cannot be com
1970: 70 69 6c 65 64 22 29 5d 29 0a 09 09 0a 09 09 28 piled")])......(
1980: 69 66 20 28 63 68 65 63 6b 2d 6c 69 62 72 61 72 if (check-librar
1990: 69 65 73 20 5b 20 22 63 64 22 20 22 63 64 43 6f ies [ "cd" "cdCo
19a0: 6e 74 65 78 74 50 69 63 74 75 72 65 22 20 5d 20 ntextPicture" ]
19b0: 29 0a 09 09 09 28 62 65 67 69 6e 0a 09 09 09 09 )....(begin.....
19c0: 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20 (compile -s -O2
19d0: 2d 64 31 20 22 63 61 6e 76 61 73 2d 64 72 61 77 -d1 "canvas-draw
19e0: 2d 70 69 63 74 75 72 65 2e 73 63 6d 22 20 2d 6a -picture.scm" -j
19f0: 20 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 69 63 canvas-draw-pic
1a00: 74 75 72 65 20 22 2d 6c 63 64 22 29 0a 09 09 09 ture "-lcd")....
1a10: 09 28 63 6f 6d 70 69 6c 65 20 2d 63 20 2d 4f 32 .(compile -c -O2
1a20: 20 2d 64 31 20 22 63 61 6e 76 61 73 2d 64 72 61 -d1 "canvas-dra
1a30: 77 2d 70 69 63 74 75 72 65 2e 73 63 6d 22 20 2d w-picture.scm" -
1a40: 6a 20 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 69 j canvas-draw-pi
1a50: 63 74 75 72 65 20 2d 75 6e 69 74 20 63 61 6e 76 cture -unit canv
1a60: 61 73 2d 64 72 61 77 2d 70 69 63 74 75 72 65 29 as-draw-picture)
1a70: 0a 09 09 09 09 28 63 6f 6d 70 69 6c 65 20 2d 73 .....(compile -s
1a80: 20 2d 4f 32 20 2d 64 30 20 22 63 61 6e 76 61 73 -O2 -d0 "canvas
1a90: 2d 64 72 61 77 2d 70 69 63 74 75 72 65 2e 69 6d -draw-picture.im
1aa0: 70 6f 72 74 2e 73 63 6d 22 29 0a 09 09 09 09 0a port.scm")......
1ab0: 09 09 09 09 28 69 6e 73 74 61 6c 6c 2d 65 78 74 ....(install-ext
1ac0: 65 6e 73 69 6f 6e 0a 09 09 09 09 20 27 63 61 6e ension..... 'can
1ad0: 76 61 73 2d 64 72 61 77 2d 70 69 63 74 75 72 65 vas-draw-picture
1ae0: 0a 09 09 09 09 20 27 28 22 63 61 6e 76 61 73 2d ..... '("canvas-
1af0: 64 72 61 77 2d 70 69 63 74 75 72 65 2e 73 6f 22 draw-picture.so"
1b00: 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 69 "canvas-draw-pi
1b10: 63 74 75 72 65 2e 6f 22 20 22 63 61 6e 76 61 73 cture.o" "canvas
1b20: 2d 64 72 61 77 2d 70 69 63 74 75 72 65 2e 69 6d -draw-picture.im
1b30: 70 6f 72 74 2e 73 6f 22 29 0a 09 09 09 09 20 27 port.so")..... '
1b40: 28 28 76 65 72 73 69 6f 6e 20 31 2e 30 2e 30 29 ((version 1.0.0)
1b50: 0a 09 09 09 09 20 20 20 28 73 74 61 74 69 63 20 ..... (static
1b60: 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 69 63 "canvas-draw-pic
1b70: 74 75 72 65 2e 6f 22 29 0a 09 09 09 09 20 20 20 ture.o").....
1b80: 28 73 74 61 74 69 63 2d 6f 70 74 69 6f 6e 73 20 (static-options
1b90: 22 2d 6c 63 64 22 29 29 29 29 0a 09 09 09 28 77 "-lcd"))))....(w
1ba0: 61 72 6e 69 6e 67 20 22 43 44 20 70 69 63 74 75 arning "CD pictu
1bb0: 72 65 20 64 72 69 76 65 72 20 6e 6f 74 20 66 6f re driver not fo
1bc0: 75 6e 64 2c 20 73 6f 6d 65 20 62 69 6e 64 69 6e und, some bindin
1bd0: 67 73 20 63 61 6e 6e 6f 74 20 62 65 20 63 6f 6d gs cannot be com
1be0: 70 69 6c 65 64 22 29 29 0a 09 09 0a 09 09 28 63 piled"))......(c
1bf0: 6f 6e 64 0a 09 09 09 5b 23 66 20 3b 3b 20 28 63 ond....[#f ;; (c
1c00: 68 65 63 6b 2d 6c 69 62 72 61 72 69 65 73 20 5b heck-libraries [
1c10: 20 22 63 64 78 31 31 22 20 22 63 64 43 6f 6e 74 "cdx11" "cdCont
1c20: 65 78 74 49 6d 61 67 65 22 20 5d 20 29 0a 09 09 extImage" ] )...
1c30: 09 20 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f . (compile -s -O
1c40: 32 20 2d 64 31 20 22 63 61 6e 76 61 73 2d 64 72 2 -d1 "canvas-dr
1c50: 61 77 2d 73 65 72 76 65 72 2e 73 63 6d 22 20 2d aw-server.scm" -
1c60: 6a 20 63 61 6e 76 61 73 2d 64 72 61 77 2d 73 65 j canvas-draw-se
1c70: 72 76 65 72 20 22 2d 6c 63 64 78 31 31 22 29 0a rver "-lcdx11").
1c80: 09 09 09 20 28 63 6f 6d 70 69 6c 65 20 2d 63 20 ... (compile -c
1c90: 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 61 73 2d -O2 -d1 "canvas-
1ca0: 64 72 61 77 2d 73 65 72 76 65 72 2e 73 63 6d 22 draw-server.scm"
1cb0: 20 2d 6a 20 63 61 6e 76 61 73 2d 64 72 61 77 2d -j canvas-draw-
1cc0: 73 65 72 76 65 72 20 2d 75 6e 69 74 20 63 61 6e server -unit can
1cd0: 76 61 73 2d 64 72 61 77 2d 73 65 72 76 65 72 29 vas-draw-server)
1ce0: 0a 09 09 09 20 28 63 6f 6d 70 69 6c 65 20 2d 73 .... (compile -s
1cf0: 20 2d 4f 32 20 2d 64 30 20 22 63 61 6e 76 61 73 -O2 -d0 "canvas
1d00: 2d 64 72 61 77 2d 73 65 72 76 65 72 2e 69 6d 70 -draw-server.imp
1d10: 6f 72 74 2e 73 63 6d 22 29 0a 09 09 09 20 0a 09 ort.scm").... ..
1d20: 09 09 20 28 69 6e 73 74 61 6c 6c 2d 65 78 74 65 .. (install-exte
1d30: 6e 73 69 6f 6e 0a 09 09 09 09 27 63 61 6e 76 61 nsion.....'canva
1d40: 73 2d 64 72 61 77 2d 73 65 72 76 65 72 0a 09 09 s-draw-server...
1d50: 09 09 27 28 22 63 61 6e 76 61 73 2d 64 72 61 77 ..'("canvas-draw
1d60: 2d 73 65 72 76 65 72 2e 73 6f 22 20 22 63 61 6e -server.so" "can
1d70: 76 61 73 2d 64 72 61 77 2d 73 65 72 76 65 72 2e vas-draw-server.
1d80: 6f 22 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d o" "canvas-draw-
1d90: 73 65 72 76 65 72 2e 69 6d 70 6f 72 74 2e 73 6f server.import.so
1da0: 22 29 0a 09 09 09 09 27 28 28 76 65 72 73 69 6f ").....'((versio
1db0: 6e 20 31 2e 30 2e 30 29 0a 09 09 09 09 09 28 73 n 1.0.0)......(s
1dc0: 74 61 74 69 63 20 22 63 61 6e 76 61 73 2d 64 72 tatic "canvas-dr
1dd0: 61 77 2d 73 65 72 76 65 72 2e 6f 22 29 0a 09 09 aw-server.o")...
1de0: 09 09 09 28 73 74 61 74 69 63 2d 6f 70 74 69 6f ...(static-optio
1df0: 6e 73 20 22 2d 6c 63 64 78 31 31 22 29 29 29 5d ns "-lcdx11")))]
1e00: 0a 09 09 09 5b 28 63 68 65 63 6b 2d 6c 69 62 72 ....[(check-libr
1e10: 61 72 69 65 73 20 5b 20 22 63 64 22 20 22 63 64 aries [ "cd" "cd
1e20: 43 6f 6e 74 65 78 74 49 6d 61 67 65 22 20 5d 20 ContextImage" ]
1e30: 29 20 0a 09 09 09 20 28 63 6f 6d 70 69 6c 65 20 ) .... (compile
1e40: 2d 73 20 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 -s -O2 -d1 "canv
1e50: 61 73 2d 64 72 61 77 2d 73 65 72 76 65 72 2e 73 as-draw-server.s
1e60: 63 6d 22 20 2d 6a 20 63 61 6e 76 61 73 2d 64 72 cm" -j canvas-dr
1e70: 61 77 2d 73 65 72 76 65 72 20 22 2d 6c 63 64 22 aw-server "-lcd"
1e80: 29 0a 09 09 09 20 28 63 6f 6d 70 69 6c 65 20 2d ).... (compile -
1e90: 63 20 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 61 c -O2 -d1 "canva
1ea0: 73 2d 64 72 61 77 2d 73 65 72 76 65 72 2e 73 63 s-draw-server.sc
1eb0: 6d 22 20 2d 6a 20 63 61 6e 76 61 73 2d 64 72 61 m" -j canvas-dra
1ec0: 77 2d 73 65 72 76 65 72 20 2d 75 6e 69 74 20 63 w-server -unit c
1ed0: 61 6e 76 61 73 2d 64 72 61 77 2d 73 65 72 76 65 anvas-draw-serve
1ee0: 72 29 0a 09 09 09 20 28 63 6f 6d 70 69 6c 65 20 r).... (compile
1ef0: 2d 73 20 2d 4f 32 20 2d 64 30 20 22 63 61 6e 76 -s -O2 -d0 "canv
1f00: 61 73 2d 64 72 61 77 2d 73 65 72 76 65 72 2e 69 as-draw-server.i
1f10: 6d 70 6f 72 74 2e 73 63 6d 22 29 0a 09 09 09 20 mport.scm")....
1f20: 0a 09 09 09 20 28 69 6e 73 74 61 6c 6c 2d 65 78 .... (install-ex
1f30: 74 65 6e 73 69 6f 6e 0a 09 09 09 09 27 63 61 6e tension.....'can
1f40: 76 61 73 2d 64 72 61 77 2d 73 65 72 76 65 72 0a vas-draw-server.
1f50: 09 09 09 09 27 28 22 63 61 6e 76 61 73 2d 64 72 ....'("canvas-dr
1f60: 61 77 2d 73 65 72 76 65 72 2e 73 6f 22 20 22 63 aw-server.so" "c
1f70: 61 6e 76 61 73 2d 64 72 61 77 2d 73 65 72 76 65 anvas-draw-serve
1f80: 72 2e 6f 22 20 22 63 61 6e 76 61 73 2d 64 72 61 r.o" "canvas-dra
1f90: 77 2d 73 65 72 76 65 72 2e 69 6d 70 6f 72 74 2e w-server.import.
1fa0: 73 6f 22 29 0a 09 09 09 09 27 28 28 76 65 72 73 so").....'((vers
1fb0: 69 6f 6e 20 31 2e 30 2e 30 29 0a 09 09 09 09 09 ion 1.0.0)......
1fc0: 28 73 74 61 74 69 63 20 22 63 61 6e 76 61 73 2d (static "canvas-
1fd0: 64 72 61 77 2d 73 65 72 76 65 72 2e 6f 22 29 0a draw-server.o").
1fe0: 09 09 09 09 09 28 73 74 61 74 69 63 2d 6f 70 74 .....(static-opt
1ff0: 69 6f 6e 73 20 22 2d 6c 63 64 22 29 29 29 5d 0a ions "-lcd")))].
2000: 09 09 09 5b 65 6c 73 65 0a 09 09 09 20 28 77 61 ...[else.... (wa
2010: 72 6e 69 6e 67 20 22 43 44 20 73 65 72 76 65 72 rning "CD server
2020: 20 69 6d 61 67 65 20 64 72 69 76 65 72 20 6e 6f image driver no
2030: 74 20 66 6f 75 6e 64 2c 20 73 6f 6d 65 20 62 69 t found, some bi
2040: 6e 64 69 6e 67 73 20 63 61 6e 6e 6f 74 20 62 65 ndings cannot be
2050: 20 63 6f 6d 70 69 6c 65 64 22 29 5d 29 0a 09 09 compiled")])...
2060: 0a 09 09 28 69 66 20 28 63 68 65 63 6b 2d 6c 69 ...(if (check-li
2070: 62 72 61 72 69 65 73 20 5b 20 22 63 64 22 20 22 braries [ "cd" "
2080: 63 64 43 6f 6e 74 65 78 74 49 6d 61 67 65 52 47 cdContextImageRG
2090: 42 22 20 5d 20 29 0a 09 09 09 28 62 65 67 69 6e B" ] )....(begin
20a0: 0a 09 09 09 09 28 63 6f 6d 70 69 6c 65 20 2d 73 .....(compile -s
20b0: 20 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 61 73 -O2 -d1 "canvas
20c0: 2d 64 72 61 77 2d 63 6c 69 65 6e 74 2e 73 63 6d -draw-client.scm
20d0: 22 20 2d 6a 20 63 61 6e 76 61 73 2d 64 72 61 77 " -j canvas-draw
20e0: 2d 63 6c 69 65 6e 74 20 22 2d 6c 63 64 22 29 0a -client "-lcd").
20f0: 09 09 09 09 28 63 6f 6d 70 69 6c 65 20 2d 63 20 ....(compile -c
2100: 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 61 73 2d -O2 -d1 "canvas-
2110: 64 72 61 77 2d 63 6c 69 65 6e 74 2e 73 63 6d 22 draw-client.scm"
2120: 20 2d 6a 20 63 61 6e 76 61 73 2d 64 72 61 77 2d -j canvas-draw-
2130: 63 6c 69 65 6e 74 20 2d 75 6e 69 74 20 63 61 6e client -unit can
2140: 76 61 73 2d 64 72 61 77 2d 63 6c 69 65 6e 74 29 vas-draw-client)
2150: 0a 09 09 09 09 28 63 6f 6d 70 69 6c 65 20 2d 73 .....(compile -s
2160: 20 2d 4f 32 20 2d 64 30 20 22 63 61 6e 76 61 73 -O2 -d0 "canvas
2170: 2d 64 72 61 77 2d 63 6c 69 65 6e 74 2e 69 6d 70 -draw-client.imp
2180: 6f 72 74 2e 73 63 6d 22 29 0a 09 09 09 09 0a 09 ort.scm").......
2190: 09 09 09 28 69 6e 73 74 61 6c 6c 2d 65 78 74 65 ...(install-exte
21a0: 6e 73 69 6f 6e 0a 09 09 09 09 20 27 63 61 6e 76 nsion..... 'canv
21b0: 61 73 2d 64 72 61 77 2d 63 6c 69 65 6e 74 0a 09 as-draw-client..
21c0: 09 09 09 20 27 28 22 63 61 6e 76 61 73 2d 64 72 ... '("canvas-dr
21d0: 61 77 2d 63 6c 69 65 6e 74 2e 73 6f 22 20 22 63 aw-client.so" "c
21e0: 61 6e 76 61 73 2d 64 72 61 77 2d 63 6c 69 65 6e anvas-draw-clien
21f0: 74 2e 6f 22 20 22 63 61 6e 76 61 73 2d 64 72 61 t.o" "canvas-dra
2200: 77 2d 63 6c 69 65 6e 74 2e 69 6d 70 6f 72 74 2e w-client.import.
2210: 73 6f 22 29 0a 09 09 09 09 20 27 28 28 76 65 72 so")..... '((ver
2220: 73 69 6f 6e 20 31 2e 30 2e 30 29 0a 09 09 09 09 sion 1.0.0).....
2230: 20 20 20 28 73 74 61 74 69 63 20 22 63 61 6e 76 (static "canv
2240: 61 73 2d 64 72 61 77 2d 63 6c 69 65 6e 74 2e 6f as-draw-client.o
2250: 22 29 0a 09 09 09 09 20 20 20 28 73 74 61 74 69 ")..... (stati
2260: 63 2d 6f 70 74 69 6f 6e 73 20 22 2d 6c 63 64 22 c-options "-lcd"
2270: 29 29 29 29 0a 09 09 09 28 77 61 72 6e 69 6e 67 ))))....(warning
2280: 20 22 43 44 20 63 6c 69 65 6e 74 20 69 6d 61 67 "CD client imag
2290: 65 20 64 72 69 76 65 72 20 6e 6f 74 20 66 6f 75 e driver not fou
22a0: 6e 64 2c 20 73 6f 6d 65 20 62 69 6e 64 69 6e 67 nd, some binding
22b0: 73 20 63 61 6e 6e 6f 74 20 62 65 20 63 6f 6d 70 s cannot be comp
22c0: 69 6c 65 64 22 29 29 0a 09 09 0a 09 09 28 69 66 iled"))......(if
22d0: 20 28 63 68 65 63 6b 2d 6c 69 62 72 61 72 69 65 (check-librarie
22e0: 73 20 5b 20 22 63 64 70 64 66 22 20 22 63 64 43 s [ "cdpdf" "cdC
22f0: 6f 6e 74 65 78 74 50 44 46 22 20 5d 20 29 0a 09 ontextPDF" ] )..
2300: 09 09 28 62 65 67 69 6e 0a 09 09 09 09 28 63 6f ..(begin.....(co
2310: 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 31 mpile -s -O2 -d1
2320: 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 64 "canvas-draw-pd
2330: 66 2e 73 63 6d 22 20 2d 6a 20 63 61 6e 76 61 73 f.scm" -j canvas
2340: 2d 64 72 61 77 2d 70 64 66 20 22 2d 6c 63 64 70 -draw-pdf "-lcdp
2350: 64 66 22 29 0a 09 09 09 09 28 63 6f 6d 70 69 6c df").....(compil
2360: 65 20 2d 63 20 2d 4f 32 20 2d 64 31 20 22 63 61 e -c -O2 -d1 "ca
2370: 6e 76 61 73 2d 64 72 61 77 2d 70 64 66 2e 73 63 nvas-draw-pdf.sc
2380: 6d 22 20 2d 6a 20 63 61 6e 76 61 73 2d 64 72 61 m" -j canvas-dra
2390: 77 2d 70 64 66 20 2d 75 6e 69 74 20 63 61 6e 76 w-pdf -unit canv
23a0: 61 73 2d 64 72 61 77 2d 70 64 66 29 0a 09 09 09 as-draw-pdf)....
23b0: 09 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 .(compile -s -O2
23c0: 20 2d 64 30 20 22 63 61 6e 76 61 73 2d 64 72 61 -d0 "canvas-dra
23d0: 77 2d 70 64 66 2e 69 6d 70 6f 72 74 2e 73 63 6d w-pdf.import.scm
23e0: 22 29 0a 09 09 09 09 0a 09 09 09 09 28 69 6e 73 ")..........(ins
23f0: 74 61 6c 6c 2d 65 78 74 65 6e 73 69 6f 6e 0a 09 tall-extension..
2400: 09 09 09 20 27 63 61 6e 76 61 73 2d 64 72 61 77 ... 'canvas-draw
2410: 2d 70 64 66 0a 09 09 09 09 20 27 28 22 63 61 6e -pdf..... '("can
2420: 76 61 73 2d 64 72 61 77 2d 70 64 66 2e 73 6f 22 vas-draw-pdf.so"
2430: 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 64 "canvas-draw-pd
2440: 66 2e 6f 22 20 22 63 61 6e 76 61 73 2d 64 72 61 f.o" "canvas-dra
2450: 77 2d 70 64 66 2e 69 6d 70 6f 72 74 2e 73 6f 22 w-pdf.import.so"
2460: 29 0a 09 09 09 09 20 27 28 28 76 65 72 73 69 6f )..... '((versio
2470: 6e 20 31 2e 30 2e 30 29 0a 09 09 09 09 20 20 20 n 1.0.0).....
2480: 28 73 74 61 74 69 63 20 22 63 61 6e 76 61 73 2d (static "canvas-
2490: 64 72 61 77 2d 70 64 66 2e 6f 22 29 0a 09 09 09 draw-pdf.o")....
24a0: 09 20 20 20 28 73 74 61 74 69 63 2d 6f 70 74 69 . (static-opti
24b0: 6f 6e 73 20 22 2d 6c 63 64 70 64 66 22 29 29 29 ons "-lcdpdf")))
24c0: 29 0a 09 09 09 28 77 61 72 6e 69 6e 67 20 22 43 )....(warning "C
24d0: 44 20 50 44 46 20 64 72 69 76 65 72 20 6e 6f 74 D PDF driver not
24e0: 20 66 6f 75 6e 64 2c 20 73 6f 6d 65 20 62 69 6e found, some bin
24f0: 64 69 6e 67 73 20 63 61 6e 6e 6f 74 20 62 65 20 dings cannot be
2500: 63 6f 6d 70 69 6c 65 64 22 29 29 0a 09 09 0a 09 compiled")).....
2510: 09 28 69 66 20 28 63 68 65 63 6b 2d 6c 69 62 72 .(if (check-libr
2520: 61 72 69 65 73 20 5b 20 22 63 64 22 20 22 63 64 aries [ "cd" "cd
2530: 43 6f 6e 74 65 78 74 50 53 22 20 5d 20 29 0a 09 ContextPS" ] )..
2540: 09 09 28 62 65 67 69 6e 0a 09 09 09 09 28 63 6f ..(begin.....(co
2550: 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 31 mpile -s -O2 -d1
2560: 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 73 "canvas-draw-ps
2570: 2e 73 63 6d 22 20 2d 6a 20 63 61 6e 76 61 73 2d .scm" -j canvas-
2580: 64 72 61 77 2d 70 73 20 22 2d 6c 63 64 22 29 0a draw-ps "-lcd").
2590: 09 09 09 09 28 63 6f 6d 70 69 6c 65 20 2d 63 20 ....(compile -c
25a0: 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 61 73 2d -O2 -d1 "canvas-
25b0: 64 72 61 77 2d 70 73 2e 73 63 6d 22 20 2d 6a 20 draw-ps.scm" -j
25c0: 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 73 20 2d canvas-draw-ps -
25d0: 75 6e 69 74 20 63 61 6e 76 61 73 2d 64 72 61 77 unit canvas-draw
25e0: 2d 70 73 29 0a 09 09 09 09 28 63 6f 6d 70 69 6c -ps).....(compil
25f0: 65 20 2d 73 20 2d 4f 32 20 2d 64 30 20 22 63 61 e -s -O2 -d0 "ca
2600: 6e 76 61 73 2d 64 72 61 77 2d 70 73 2e 69 6d 70 nvas-draw-ps.imp
2610: 6f 72 74 2e 73 63 6d 22 29 0a 09 09 09 09 0a 09 ort.scm").......
2620: 09 09 09 28 69 6e 73 74 61 6c 6c 2d 65 78 74 65 ...(install-exte
2630: 6e 73 69 6f 6e 0a 09 09 09 09 20 27 63 61 6e 76 nsion..... 'canv
2640: 61 73 2d 64 72 61 77 2d 70 73 0a 09 09 09 09 20 as-draw-ps.....
2650: 27 28 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 70 '("canvas-draw-p
2660: 73 2e 73 6f 22 20 22 63 61 6e 76 61 73 2d 64 72 s.so" "canvas-dr
2670: 61 77 2d 70 73 2e 6f 22 20 22 63 61 6e 76 61 73 aw-ps.o" "canvas
2680: 2d 64 72 61 77 2d 70 73 2e 69 6d 70 6f 72 74 2e -draw-ps.import.
2690: 73 6f 22 29 0a 09 09 09 09 20 27 28 28 76 65 72 so")..... '((ver
26a0: 73 69 6f 6e 20 31 2e 30 2e 30 29 0a 09 09 09 09 sion 1.0.0).....
26b0: 20 20 20 28 73 74 61 74 69 63 20 22 63 61 6e 76 (static "canv
26c0: 61 73 2d 64 72 61 77 2d 70 73 2e 6f 22 29 0a 09 as-draw-ps.o")..
26d0: 09 09 09 20 20 20 28 73 74 61 74 69 63 2d 6f 70 ... (static-op
26e0: 74 69 6f 6e 73 20 22 2d 6c 63 64 22 29 29 29 29 tions "-lcd"))))
26f0: 0a 09 09 09 28 77 61 72 6e 69 6e 67 20 22 43 44 ....(warning "CD
2700: 20 50 6f 73 74 53 63 72 69 70 74 20 64 72 69 76 PostScript driv
2710: 65 72 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 73 6f er not found, so
2720: 6d 65 20 62 69 6e 64 69 6e 67 73 20 63 61 6e 6e me bindings cann
2730: 6f 74 20 62 65 20 63 6f 6d 70 69 6c 65 64 22 29 ot be compiled")
2740: 29 0a 09 09 0a 09 09 28 69 66 20 28 63 68 65 63 )......(if (chec
2750: 6b 2d 6c 69 62 72 61 72 69 65 73 20 5b 20 22 63 k-libraries [ "c
2760: 64 22 20 22 63 64 43 6f 6e 74 65 78 74 53 56 47 d" "cdContextSVG
2770: 22 20 5d 20 29 0a 09 09 09 28 62 65 67 69 6e 0a " ] )....(begin.
2780: 09 09 09 09 28 63 6f 6d 70 69 6c 65 20 2d 73 20 ....(compile -s
2790: 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 61 73 2d -O2 -d1 "canvas-
27a0: 64 72 61 77 2d 73 76 67 2e 73 63 6d 22 20 2d 6a draw-svg.scm" -j
27b0: 20 63 61 6e 76 61 73 2d 64 72 61 77 2d 73 76 67 canvas-draw-svg
27c0: 20 22 2d 6c 63 64 22 29 0a 09 09 09 09 28 63 6f "-lcd").....(co
27d0: 6d 70 69 6c 65 20 2d 63 20 2d 4f 32 20 2d 64 31 mpile -c -O2 -d1
27e0: 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 73 76 "canvas-draw-sv
27f0: 67 2e 73 63 6d 22 20 2d 6a 20 63 61 6e 76 61 73 g.scm" -j canvas
2800: 2d 64 72 61 77 2d 73 76 67 20 2d 75 6e 69 74 20 -draw-svg -unit
2810: 63 61 6e 76 61 73 2d 64 72 61 77 2d 73 76 67 29 canvas-draw-svg)
2820: 0a 09 09 09 09 28 63 6f 6d 70 69 6c 65 20 2d 73 .....(compile -s
2830: 20 2d 4f 32 20 2d 64 30 20 22 63 61 6e 76 61 73 -O2 -d0 "canvas
2840: 2d 64 72 61 77 2d 73 76 67 2e 69 6d 70 6f 72 74 -draw-svg.import
2850: 2e 73 63 6d 22 29 0a 09 09 09 09 0a 09 09 09 09 .scm")..........
2860: 28 69 6e 73 74 61 6c 6c 2d 65 78 74 65 6e 73 69 (install-extensi
2870: 6f 6e 0a 09 09 09 09 20 27 63 61 6e 76 61 73 2d on..... 'canvas-
2880: 64 72 61 77 2d 73 76 67 0a 09 09 09 09 20 27 28 draw-svg..... '(
2890: 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 73 76 67 "canvas-draw-svg
28a0: 2e 73 6f 22 20 22 63 61 6e 76 61 73 2d 64 72 61 .so" "canvas-dra
28b0: 77 2d 73 76 67 2e 6f 22 20 22 63 61 6e 76 61 73 w-svg.o" "canvas
28c0: 2d 64 72 61 77 2d 73 76 67 2e 69 6d 70 6f 72 74 -draw-svg.import
28d0: 2e 73 6f 22 29 0a 09 09 09 09 20 27 28 28 76 65 .so")..... '((ve
28e0: 72 73 69 6f 6e 20 31 2e 30 2e 30 29 0a 09 09 09 rsion 1.0.0)....
28f0: 09 20 20 20 28 73 74 61 74 69 63 20 22 63 61 6e . (static "can
2900: 76 61 73 2d 64 72 61 77 2d 73 76 67 2e 6f 22 29 vas-draw-svg.o")
2910: 0a 09 09 09 09 20 20 20 28 73 74 61 74 69 63 2d ..... (static-
2920: 6f 70 74 69 6f 6e 73 20 22 2d 6c 63 64 22 29 29 options "-lcd"))
2930: 29 29 0a 09 09 09 28 77 61 72 6e 69 6e 67 20 22 ))....(warning "
2940: 43 44 20 53 56 47 20 64 72 69 76 65 72 20 6e 6f CD SVG driver no
2950: 74 20 66 6f 75 6e 64 2c 20 73 6f 6d 65 20 62 69 t found, some bi
2960: 6e 64 69 6e 67 73 20 63 61 6e 6e 6f 74 20 62 65 ndings cannot be
2970: 20 63 6f 6d 70 69 6c 65 64 22 29 29 0a 09 09 0a compiled"))....
2980: 09 09 28 69 66 20 28 63 68 65 63 6b 2d 6c 69 62 ..(if (check-lib
2990: 72 61 72 69 65 73 20 5b 20 22 63 64 22 20 22 63 raries [ "cd" "c
29a0: 64 43 6f 6e 74 65 78 74 4d 65 74 61 66 69 6c 65 dContextMetafile
29b0: 22 20 5d 20 29 0a 09 09 09 28 62 65 67 69 6e 0a " ] )....(begin.
29c0: 09 09 09 09 28 63 6f 6d 70 69 6c 65 20 2d 73 20 ....(compile -s
29d0: 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 61 73 2d -O2 -d1 "canvas-
29e0: 64 72 61 77 2d 6d 65 74 61 66 69 6c 65 2e 73 63 draw-metafile.sc
29f0: 6d 22 20 2d 6a 20 63 61 6e 76 61 73 2d 64 72 61 m" -j canvas-dra
2a00: 77 2d 6d 65 74 61 66 69 6c 65 20 22 2d 6c 63 64 w-metafile "-lcd
2a10: 22 29 0a 09 09 09 09 28 63 6f 6d 70 69 6c 65 20 ").....(compile
2a20: 2d 63 20 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 -c -O2 -d1 "canv
2a30: 61 73 2d 64 72 61 77 2d 6d 65 74 61 66 69 6c 65 as-draw-metafile
2a40: 2e 73 63 6d 22 20 2d 6a 20 63 61 6e 76 61 73 2d .scm" -j canvas-
2a50: 64 72 61 77 2d 6d 65 74 61 66 69 6c 65 20 2d 75 draw-metafile -u
2a60: 6e 69 74 20 63 61 6e 76 61 73 2d 64 72 61 77 2d nit canvas-draw-
2a70: 6d 65 74 61 66 69 6c 65 29 0a 09 09 09 09 28 63 metafile).....(c
2a80: 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 ompile -s -O2 -d
2a90: 30 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 6d 0 "canvas-draw-m
2aa0: 65 74 61 66 69 6c 65 2e 69 6d 70 6f 72 74 2e 73 etafile.import.s
2ab0: 63 6d 22 29 0a 09 09 09 09 0a 09 09 09 09 28 69 cm")..........(i
2ac0: 6e 73 74 61 6c 6c 2d 65 78 74 65 6e 73 69 6f 6e nstall-extension
2ad0: 0a 09 09 09 09 20 27 63 61 6e 76 61 73 2d 64 72 ..... 'canvas-dr
2ae0: 61 77 2d 6d 65 74 61 66 69 6c 65 0a 09 09 09 09 aw-metafile.....
2af0: 20 27 28 22 63 61 6e 76 61 73 2d 64 72 61 77 2d '("canvas-draw-
2b00: 6d 65 74 61 66 69 6c 65 2e 73 6f 22 20 22 63 61 metafile.so" "ca
2b10: 6e 76 61 73 2d 64 72 61 77 2d 6d 65 74 61 66 69 nvas-draw-metafi
2b20: 6c 65 2e 6f 22 20 22 63 61 6e 76 61 73 2d 64 72 le.o" "canvas-dr
2b30: 61 77 2d 6d 65 74 61 66 69 6c 65 2e 69 6d 70 6f aw-metafile.impo
2b40: 72 74 2e 73 6f 22 29 0a 09 09 09 09 20 27 28 28 rt.so")..... '((
2b50: 76 65 72 73 69 6f 6e 20 31 2e 30 2e 30 29 0a 09 version 1.0.0)..
2b60: 09 09 09 20 20 20 28 73 74 61 74 69 63 20 22 63 ... (static "c
2b70: 61 6e 76 61 73 2d 64 72 61 77 2d 6d 65 74 61 66 anvas-draw-metaf
2b80: 69 6c 65 2e 6f 22 29 0a 09 09 09 09 20 20 20 28 ile.o")..... (
2b90: 73 74 61 74 69 63 2d 6f 70 74 69 6f 6e 73 20 22 static-options "
2ba0: 2d 6c 63 64 22 29 29 29 29 0a 09 09 09 28 77 61 -lcd"))))....(wa
2bb0: 72 6e 69 6e 67 20 22 43 44 20 6d 65 74 61 66 69 rning "CD metafi
2bc0: 6c 65 20 64 72 69 76 65 72 20 6e 6f 74 20 66 6f le driver not fo
2bd0: 75 6e 64 2c 20 73 6f 6d 65 20 62 69 6e 64 69 6e und, some bindin
2be0: 67 73 20 63 61 6e 6e 6f 74 20 62 65 20 63 6f 6d gs cannot be com
2bf0: 70 69 6c 65 64 22 29 29 0a 09 09 0a 09 09 28 69 piled"))......(i
2c00: 66 20 28 63 68 65 63 6b 2d 6c 69 62 72 61 72 69 f (check-librari
2c10: 65 73 20 5b 20 22 63 64 22 20 22 63 64 43 6f 6e es [ "cd" "cdCon
2c20: 74 65 78 74 44 65 62 75 67 22 20 5d 20 29 0a 09 textDebug" ] )..
2c30: 09 09 28 62 65 67 69 6e 0a 09 09 09 09 28 63 6f ..(begin.....(co
2c40: 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 31 mpile -s -O2 -d1
2c50: 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 64 65 "canvas-draw-de
2c60: 62 75 67 2e 73 63 6d 22 20 2d 6a 20 63 61 6e 76 bug.scm" -j canv
2c70: 61 73 2d 64 72 61 77 2d 64 65 62 75 67 20 22 2d as-draw-debug "-
2c80: 6c 63 64 22 29 0a 09 09 09 09 28 63 6f 6d 70 69 lcd").....(compi
2c90: 6c 65 20 2d 63 20 2d 4f 32 20 2d 64 31 20 22 63 le -c -O2 -d1 "c
2ca0: 61 6e 76 61 73 2d 64 72 61 77 2d 64 65 62 75 67 anvas-draw-debug
2cb0: 2e 73 63 6d 22 20 2d 6a 20 63 61 6e 76 61 73 2d .scm" -j canvas-
2cc0: 64 72 61 77 2d 64 65 62 75 67 20 2d 75 6e 69 74 draw-debug -unit
2cd0: 20 63 61 6e 76 61 73 2d 64 72 61 77 2d 64 65 62 canvas-draw-deb
2ce0: 75 67 29 0a 09 09 09 09 28 63 6f 6d 70 69 6c 65 ug).....(compile
2cf0: 20 2d 73 20 2d 4f 32 20 2d 64 30 20 22 63 61 6e -s -O2 -d0 "can
2d00: 76 61 73 2d 64 72 61 77 2d 64 65 62 75 67 2e 69 vas-draw-debug.i
2d10: 6d 70 6f 72 74 2e 73 63 6d 22 29 0a 09 09 09 09 mport.scm").....
2d20: 0a 09 09 09 09 28 69 6e 73 74 61 6c 6c 2d 65 78 .....(install-ex
2d30: 74 65 6e 73 69 6f 6e 0a 09 09 09 09 20 27 63 61 tension..... 'ca
2d40: 6e 76 61 73 2d 64 72 61 77 2d 64 65 62 75 67 0a nvas-draw-debug.
2d50: 09 09 09 09 20 27 28 22 63 61 6e 76 61 73 2d 64 .... '("canvas-d
2d60: 72 61 77 2d 64 65 62 75 67 2e 73 6f 22 20 22 63 raw-debug.so" "c
2d70: 61 6e 76 61 73 2d 64 72 61 77 2d 64 65 62 75 67 anvas-draw-debug
2d80: 2e 6f 22 20 22 63 61 6e 76 61 73 2d 64 72 61 77 .o" "canvas-draw
2d90: 2d 64 65 62 75 67 2e 69 6d 70 6f 72 74 2e 73 6f -debug.import.so
2da0: 22 29 0a 09 09 09 09 20 27 28 28 76 65 72 73 69 ")..... '((versi
2db0: 6f 6e 20 31 2e 30 2e 30 29 0a 09 09 09 09 20 20 on 1.0.0).....
2dc0: 20 28 73 74 61 74 69 63 20 22 63 61 6e 76 61 73 (static "canvas
2dd0: 2d 64 72 61 77 2d 64 65 62 75 67 2e 6f 22 29 0a -draw-debug.o").
2de0: 09 09 09 09 20 20 20 28 73 74 61 74 69 63 2d 6f .... (static-o
2df0: 70 74 69 6f 6e 73 20 22 2d 6c 63 64 22 29 29 29 ptions "-lcd")))
2e00: 29 0a 09 09 09 28 77 61 72 6e 69 6e 67 20 22 43 )....(warning "C
2e10: 44 20 64 65 62 75 67 20 64 72 69 76 65 72 20 6e D debug driver n
2e20: 6f 74 20 66 6f 75 6e 64 2c 20 73 6f 6d 65 20 62 ot found, some b
2e30: 69 6e 64 69 6e 67 73 20 63 61 6e 6e 6f 74 20 62 indings cannot b
2e40: 65 20 63 6f 6d 70 69 6c 65 64 22 29 29 0a 09 09 e compiled"))...
2e50: 0a 09 09 28 69 66 20 28 63 68 65 63 6b 2d 6c 69 ...(if (check-li
2e60: 62 72 61 72 69 65 73 20 5b 20 22 63 64 22 20 22 braries [ "cd" "
2e70: 63 64 43 6f 6e 74 65 78 74 43 47 4d 22 20 5d 20 cdContextCGM" ]
2e80: 29 0a 09 09 09 28 62 65 67 69 6e 0a 09 09 09 09 )....(begin.....
2e90: 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20 (compile -s -O2
2ea0: 2d 64 31 20 22 63 61 6e 76 61 73 2d 64 72 61 77 -d1 "canvas-draw
2eb0: 2d 63 67 6d 2e 73 63 6d 22 20 2d 6a 20 63 61 6e -cgm.scm" -j can
2ec0: 76 61 73 2d 64 72 61 77 2d 63 67 6d 20 22 2d 6c vas-draw-cgm "-l
2ed0: 63 64 22 29 0a 09 09 09 09 28 63 6f 6d 70 69 6c cd").....(compil
2ee0: 65 20 2d 63 20 2d 4f 32 20 2d 64 31 20 22 63 61 e -c -O2 -d1 "ca
2ef0: 6e 76 61 73 2d 64 72 61 77 2d 63 67 6d 2e 73 63 nvas-draw-cgm.sc
2f00: 6d 22 20 2d 6a 20 63 61 6e 76 61 73 2d 64 72 61 m" -j canvas-dra
2f10: 77 2d 63 67 6d 20 2d 75 6e 69 74 20 63 61 6e 76 w-cgm -unit canv
2f20: 61 73 2d 64 72 61 77 2d 63 67 6d 29 0a 09 09 09 as-draw-cgm)....
2f30: 09 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 .(compile -s -O2
2f40: 20 2d 64 30 20 22 63 61 6e 76 61 73 2d 64 72 61 -d0 "canvas-dra
2f50: 77 2d 63 67 6d 2e 69 6d 70 6f 72 74 2e 73 63 6d w-cgm.import.scm
2f60: 22 29 0a 09 09 09 09 0a 09 09 09 09 28 69 6e 73 ")..........(ins
2f70: 74 61 6c 6c 2d 65 78 74 65 6e 73 69 6f 6e 0a 09 tall-extension..
2f80: 09 09 09 20 27 63 61 6e 76 61 73 2d 64 72 61 77 ... 'canvas-draw
2f90: 2d 63 67 6d 0a 09 09 09 09 20 27 28 22 63 61 6e -cgm..... '("can
2fa0: 76 61 73 2d 64 72 61 77 2d 63 67 6d 2e 73 6f 22 vas-draw-cgm.so"
2fb0: 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 63 67 "canvas-draw-cg
2fc0: 6d 2e 6f 22 20 22 63 61 6e 76 61 73 2d 64 72 61 m.o" "canvas-dra
2fd0: 77 2d 63 67 6d 2e 69 6d 70 6f 72 74 2e 73 6f 22 w-cgm.import.so"
2fe0: 29 0a 09 09 09 09 20 27 28 28 76 65 72 73 69 6f )..... '((versio
2ff0: 6e 20 31 2e 30 2e 30 29 0a 09 09 09 09 20 20 20 n 1.0.0).....
3000: 28 73 74 61 74 69 63 20 22 63 61 6e 76 61 73 2d (static "canvas-
3010: 64 72 61 77 2d 63 67 6d 2e 6f 22 29 0a 09 09 09 draw-cgm.o")....
3020: 09 20 20 20 28 73 74 61 74 69 63 2d 6f 70 74 69 . (static-opti
3030: 6f 6e 73 20 22 2d 6c 63 64 22 29 29 29 29 0a 09 ons "-lcd"))))..
3040: 09 09 28 77 61 72 6e 69 6e 67 20 22 43 44 20 43 ..(warning "CD C
3050: 47 4d 20 64 72 69 76 65 72 20 6e 6f 74 20 66 6f GM driver not fo
3060: 75 6e 64 2c 20 73 6f 6d 65 20 62 69 6e 64 69 6e und, some bindin
3070: 67 73 20 63 61 6e 6e 6f 74 20 62 65 20 63 6f 6d gs cannot be com
3080: 70 69 6c 65 64 22 29 29 0a 09 09 0a 09 09 28 69 piled"))......(i
3090: 66 20 28 63 68 65 63 6b 2d 6c 69 62 72 61 72 69 f (check-librari
30a0: 65 73 20 5b 20 22 63 64 22 20 22 63 64 43 6f 6e es [ "cd" "cdCon
30b0: 74 65 78 74 44 47 4e 22 20 5d 20 29 0a 09 09 09 textDGN" ] )....
30c0: 28 62 65 67 69 6e 0a 09 09 09 09 28 63 6f 6d 70 (begin.....(comp
30d0: 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 31 20 22 ile -s -O2 -d1 "
30e0: 63 61 6e 76 61 73 2d 64 72 61 77 2d 64 67 6e 2e canvas-draw-dgn.
30f0: 73 63 6d 22 20 2d 6a 20 63 61 6e 76 61 73 2d 64 scm" -j canvas-d
3100: 72 61 77 2d 64 67 6e 20 22 2d 6c 63 64 22 29 0a raw-dgn "-lcd").
3110: 09 09 09 09 28 63 6f 6d 70 69 6c 65 20 2d 63 20 ....(compile -c
3120: 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 61 73 2d -O2 -d1 "canvas-
3130: 64 72 61 77 2d 64 67 6e 2e 73 63 6d 22 20 2d 6a draw-dgn.scm" -j
3140: 20 63 61 6e 76 61 73 2d 64 72 61 77 2d 64 67 6e canvas-draw-dgn
3150: 20 2d 75 6e 69 74 20 63 61 6e 76 61 73 2d 64 72 -unit canvas-dr
3160: 61 77 2d 64 67 6e 29 0a 09 09 09 09 28 63 6f 6d aw-dgn).....(com
3170: 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 30 20 pile -s -O2 -d0
3180: 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 64 67 6e "canvas-draw-dgn
3190: 2e 69 6d 70 6f 72 74 2e 73 63 6d 22 29 0a 09 09 .import.scm")...
31a0: 09 09 0a 09 09 09 09 28 69 6e 73 74 61 6c 6c 2d .......(install-
31b0: 65 78 74 65 6e 73 69 6f 6e 0a 09 09 09 09 20 27 extension..... '
31c0: 63 61 6e 76 61 73 2d 64 72 61 77 2d 64 67 6e 0a canvas-draw-dgn.
31d0: 09 09 09 09 20 27 28 22 63 61 6e 76 61 73 2d 64 .... '("canvas-d
31e0: 72 61 77 2d 64 67 6e 2e 73 6f 22 20 22 63 61 6e raw-dgn.so" "can
31f0: 76 61 73 2d 64 72 61 77 2d 64 67 6e 2e 6f 22 20 vas-draw-dgn.o"
3200: 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 64 67 6e "canvas-draw-dgn
3210: 2e 69 6d 70 6f 72 74 2e 73 6f 22 29 0a 09 09 09 .import.so")....
3220: 09 20 27 28 28 76 65 72 73 69 6f 6e 20 31 2e 30 . '((version 1.0
3230: 2e 30 29 0a 09 09 09 09 20 20 20 28 73 74 61 74 .0)..... (stat
3240: 69 63 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d ic "canvas-draw-
3250: 64 67 6e 2e 6f 22 29 0a 09 09 09 09 20 20 20 28 dgn.o")..... (
3260: 73 74 61 74 69 63 2d 6f 70 74 69 6f 6e 73 20 22 static-options "
3270: 2d 6c 63 64 22 29 29 29 29 0a 09 09 09 28 77 61 -lcd"))))....(wa
3280: 72 6e 69 6e 67 20 22 43 44 20 44 47 4e 20 64 72 rning "CD DGN dr
3290: 69 76 65 72 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 iver not found,
32a0: 73 6f 6d 65 20 62 69 6e 64 69 6e 67 73 20 63 61 some bindings ca
32b0: 6e 6e 6f 74 20 62 65 20 63 6f 6d 70 69 6c 65 64 nnot be compiled
32c0: 22 29 29 0a 09 09 0a 09 09 28 69 66 20 28 63 68 "))......(if (ch
32d0: 65 63 6b 2d 6c 69 62 72 61 72 69 65 73 20 5b 20 eck-libraries [
32e0: 22 63 64 22 20 22 63 64 43 6f 6e 74 65 78 74 44 "cd" "cdContextD
32f0: 58 46 22 20 5d 20 29 0a 09 09 09 28 62 65 67 69 XF" ] )....(begi
3300: 6e 0a 09 09 09 09 28 63 6f 6d 70 69 6c 65 20 2d n.....(compile -
3310: 73 20 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 61 s -O2 -d1 "canva
3320: 73 2d 64 72 61 77 2d 64 78 66 2e 73 63 6d 22 20 s-draw-dxf.scm"
3330: 2d 6a 20 63 61 6e 76 61 73 2d 64 72 61 77 2d 64 -j canvas-draw-d
3340: 78 66 20 22 2d 6c 63 64 22 29 0a 09 09 09 09 28 xf "-lcd").....(
3350: 63 6f 6d 70 69 6c 65 20 2d 63 20 2d 4f 32 20 2d compile -c -O2 -
3360: 64 31 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d d1 "canvas-draw-
3370: 64 78 66 2e 73 63 6d 22 20 2d 6a 20 63 61 6e 76 dxf.scm" -j canv
3380: 61 73 2d 64 72 61 77 2d 64 78 66 20 2d 75 6e 69 as-draw-dxf -uni
3390: 74 20 63 61 6e 76 61 73 2d 64 72 61 77 2d 64 78 t canvas-draw-dx
33a0: 66 29 0a 09 09 09 09 28 63 6f 6d 70 69 6c 65 20 f).....(compile
33b0: 2d 73 20 2d 4f 32 20 2d 64 30 20 22 63 61 6e 76 -s -O2 -d0 "canv
33c0: 61 73 2d 64 72 61 77 2d 64 78 66 2e 69 6d 70 6f as-draw-dxf.impo
33d0: 72 74 2e 73 63 6d 22 29 0a 09 09 09 09 0a 09 09 rt.scm")........
33e0: 09 09 28 69 6e 73 74 61 6c 6c 2d 65 78 74 65 6e ..(install-exten
33f0: 73 69 6f 6e 0a 09 09 09 09 20 27 63 61 6e 76 61 sion..... 'canva
3400: 73 2d 64 72 61 77 2d 64 78 66 0a 09 09 09 09 20 s-draw-dxf.....
3410: 27 28 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 64 '("canvas-draw-d
3420: 78 66 2e 73 6f 22 20 22 63 61 6e 76 61 73 2d 64 xf.so" "canvas-d
3430: 72 61 77 2d 64 78 66 2e 6f 22 20 22 63 61 6e 76 raw-dxf.o" "canv
3440: 61 73 2d 64 72 61 77 2d 64 78 66 2e 69 6d 70 6f as-draw-dxf.impo
3450: 72 74 2e 73 6f 22 29 0a 09 09 09 09 20 27 28 28 rt.so")..... '((
3460: 76 65 72 73 69 6f 6e 20 31 2e 30 2e 30 29 0a 09 version 1.0.0)..
3470: 09 09 09 20 20 20 28 73 74 61 74 69 63 20 22 63 ... (static "c
3480: 61 6e 76 61 73 2d 64 72 61 77 2d 64 78 66 2e 6f anvas-draw-dxf.o
3490: 22 29 0a 09 09 09 09 20 20 20 28 73 74 61 74 69 ")..... (stati
34a0: 63 2d 6f 70 74 69 6f 6e 73 20 22 2d 6c 63 64 22 c-options "-lcd"
34b0: 29 29 29 29 0a 09 09 09 28 77 61 72 6e 69 6e 67 ))))....(warning
34c0: 20 22 43 44 20 44 58 46 20 64 72 69 76 65 72 20 "CD DXF driver
34d0: 6e 6f 74 20 66 6f 75 6e 64 2c 20 73 6f 6d 65 20 not found, some
34e0: 62 69 6e 64 69 6e 67 73 20 63 61 6e 6e 6f 74 20 bindings cannot
34f0: 62 65 20 63 6f 6d 70 69 6c 65 64 22 29 29 0a 09 be compiled"))..
3500: 09 0a 09 09 28 69 66 20 28 63 68 65 63 6b 2d 6c ....(if (check-l
3510: 69 62 72 61 72 69 65 73 20 5b 20 22 63 64 22 20 ibraries [ "cd"
3520: 22 63 64 43 6f 6e 74 65 78 74 45 4d 46 22 20 5d "cdContextEMF" ]
3530: 20 29 0a 09 09 09 28 62 65 67 69 6e 0a 09 09 09 )....(begin....
3540: 09 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 .(compile -s -O2
3550: 20 2d 64 31 20 22 63 61 6e 76 61 73 2d 64 72 61 -d1 "canvas-dra
3560: 77 2d 65 6d 66 2e 73 63 6d 22 20 2d 6a 20 63 61 w-emf.scm" -j ca
3570: 6e 76 61 73 2d 64 72 61 77 2d 65 6d 66 20 22 2d nvas-draw-emf "-
3580: 6c 63 64 22 29 0a 09 09 09 09 28 63 6f 6d 70 69 lcd").....(compi
3590: 6c 65 20 2d 63 20 2d 4f 32 20 2d 64 31 20 22 63 le -c -O2 -d1 "c
35a0: 61 6e 76 61 73 2d 64 72 61 77 2d 65 6d 66 2e 73 anvas-draw-emf.s
35b0: 63 6d 22 20 2d 6a 20 63 61 6e 76 61 73 2d 64 72 cm" -j canvas-dr
35c0: 61 77 2d 65 6d 66 20 2d 75 6e 69 74 20 63 61 6e aw-emf -unit can
35d0: 76 61 73 2d 64 72 61 77 2d 65 6d 66 29 0a 09 09 vas-draw-emf)...
35e0: 09 09 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f ..(compile -s -O
35f0: 32 20 2d 64 30 20 22 63 61 6e 76 61 73 2d 64 72 2 -d0 "canvas-dr
3600: 61 77 2d 65 6d 66 2e 69 6d 70 6f 72 74 2e 73 63 aw-emf.import.sc
3610: 6d 22 29 0a 09 09 09 09 0a 09 09 09 09 28 69 6e m")..........(in
3620: 73 74 61 6c 6c 2d 65 78 74 65 6e 73 69 6f 6e 0a stall-extension.
3630: 09 09 09 09 20 27 63 61 6e 76 61 73 2d 64 72 61 .... 'canvas-dra
3640: 77 2d 65 6d 66 0a 09 09 09 09 20 27 28 22 63 61 w-emf..... '("ca
3650: 6e 76 61 73 2d 64 72 61 77 2d 65 6d 66 2e 73 6f nvas-draw-emf.so
3660: 22 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 65 " "canvas-draw-e
3670: 6d 66 2e 6f 22 20 22 63 61 6e 76 61 73 2d 64 72 mf.o" "canvas-dr
3680: 61 77 2d 65 6d 66 2e 69 6d 70 6f 72 74 2e 73 6f aw-emf.import.so
3690: 22 29 0a 09 09 09 09 20 27 28 28 76 65 72 73 69 ")..... '((versi
36a0: 6f 6e 20 31 2e 30 2e 30 29 0a 09 09 09 09 20 20 on 1.0.0).....
36b0: 20 28 73 74 61 74 69 63 20 22 63 61 6e 76 61 73 (static "canvas
36c0: 2d 64 72 61 77 2d 65 6d 66 2e 6f 22 29 0a 09 09 -draw-emf.o")...
36d0: 09 09 20 20 20 28 73 74 61 74 69 63 2d 6f 70 74 .. (static-opt
36e0: 69 6f 6e 73 20 22 2d 6c 63 64 22 29 29 29 29 0a ions "-lcd")))).
36f0: 09 09 09 28 77 61 72 6e 69 6e 67 20 22 43 44 20 ...(warning "CD
3700: 45 4d 46 20 64 72 69 76 65 72 20 6e 6f 74 20 66 EMF driver not f
3710: 6f 75 6e 64 2c 20 73 6f 6d 65 20 62 69 6e 64 69 ound, some bindi
3720: 6e 67 73 20 63 61 6e 6e 6f 74 20 62 65 20 63 6f ngs cannot be co
3730: 6d 70 69 6c 65 64 22 29 29 0a 09 09 0a 09 09 28 mpiled"))......(
3740: 69 66 20 28 63 68 65 63 6b 2d 6c 69 62 72 61 72 if (check-librar
3750: 69 65 73 20 5b 20 22 63 64 22 20 22 63 64 43 6f ies [ "cd" "cdCo
3760: 6e 74 65 78 74 57 4d 46 22 5d 20 29 0a 09 09 09 ntextWMF"] )....
3770: 28 62 65 67 69 6e 0a 09 09 09 09 28 63 6f 6d 70 (begin.....(comp
3780: 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 31 20 22 ile -s -O2 -d1 "
3790: 63 61 6e 76 61 73 2d 64 72 61 77 2d 77 6d 66 2e canvas-draw-wmf.
37a0: 73 63 6d 22 20 2d 6a 20 63 61 6e 76 61 73 2d 64 scm" -j canvas-d
37b0: 72 61 77 2d 77 6d 66 20 22 2d 6c 63 64 22 29 0a raw-wmf "-lcd").
37c0: 09 09 09 09 28 63 6f 6d 70 69 6c 65 20 2d 63 20 ....(compile -c
37d0: 2d 4f 32 20 2d 64 31 20 22 63 61 6e 76 61 73 2d -O2 -d1 "canvas-
37e0: 64 72 61 77 2d 77 6d 66 2e 73 63 6d 22 20 2d 6a draw-wmf.scm" -j
37f0: 20 63 61 6e 76 61 73 2d 64 72 61 77 2d 77 6d 66 canvas-draw-wmf
3800: 20 2d 75 6e 69 74 20 63 61 6e 76 61 73 2d 64 72 -unit canvas-dr
3810: 61 77 2d 77 6d 66 29 0a 09 09 09 09 28 63 6f 6d aw-wmf).....(com
3820: 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 30 20 pile -s -O2 -d0
3830: 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 77 6d 66 "canvas-draw-wmf
3840: 2e 69 6d 70 6f 72 74 2e 73 63 6d 22 29 0a 09 09 .import.scm")...
3850: 09 09 0a 09 09 09 09 28 69 6e 73 74 61 6c 6c 2d .......(install-
3860: 65 78 74 65 6e 73 69 6f 6e 0a 09 09 09 09 20 27 extension..... '
3870: 63 61 6e 76 61 73 2d 64 72 61 77 2d 77 6d 66 0a canvas-draw-wmf.
3880: 09 09 09 09 20 27 28 22 63 61 6e 76 61 73 2d 64 .... '("canvas-d
3890: 72 61 77 2d 77 6d 66 2e 73 6f 22 20 22 63 61 6e raw-wmf.so" "can
38a0: 76 61 73 2d 64 72 61 77 2d 77 6d 66 2e 6f 22 20 vas-draw-wmf.o"
38b0: 22 63 61 6e 76 61 73 2d 64 72 61 77 2d 77 6d 66 "canvas-draw-wmf
38c0: 2e 69 6d 70 6f 72 74 2e 73 6f 22 29 0a 09 09 09 .import.so")....
38d0: 09 20 27 28 28 76 65 72 73 69 6f 6e 20 31 2e 30 . '((version 1.0
38e0: 2e 30 29 0a 09 09 09 09 20 20 20 28 73 74 61 74 .0)..... (stat
38f0: 69 63 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2d ic "canvas-draw-
3900: 77 6d 66 2e 6f 22 29 0a 09 09 09 09 20 20 20 28 wmf.o")..... (
3910: 73 74 61 74 69 63 2d 6f 70 74 69 6f 6e 73 20 22 static-options "
3920: 2d 6c 63 64 22 29 29 29 29 0a 09 09 09 28 77 61 -lcd"))))....(wa
3930: 72 6e 69 6e 67 20 22 43 44 20 57 4d 46 20 64 72 rning "CD WMF dr
3940: 69 76 65 72 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 iver not found,
3950: 73 6f 6d 65 20 62 69 6e 64 69 6e 67 73 20 63 61 some bindings ca
3960: 6e 6e 6f 74 20 62 65 20 63 6f 6d 70 69 6c 65 64 nnot be compiled
3970: 22 29 29 0a 09 09 0a 09 09 28 63 6f 6d 70 69 6c "))......(compil
3980: 65 20 2d 73 20 2d 4f 32 20 2d 64 31 20 22 63 61 e -s -O2 -d1 "ca
3990: 6e 76 61 73 2d 64 72 61 77 2e 73 63 6d 22 20 2d nvas-draw.scm" -
39a0: 6a 20 63 61 6e 76 61 73 2d 64 72 61 77 29 0a 09 j canvas-draw)..
39b0: 09 28 63 6f 6d 70 69 6c 65 20 2d 63 20 2d 4f 32 .(compile -c -O2
39c0: 20 2d 64 31 20 22 63 61 6e 76 61 73 2d 64 72 61 -d1 "canvas-dra
39d0: 77 2e 73 63 6d 22 20 2d 6a 20 63 61 6e 76 61 73 w.scm" -j canvas
39e0: 2d 64 72 61 77 20 2d 75 6e 69 74 20 63 61 6e 76 -draw -unit canv
39f0: 61 73 2d 64 72 61 77 29 0a 09 09 28 63 6f 6d 70 as-draw)...(comp
3a00: 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 30 20 22 ile -s -O2 -d0 "
3a10: 63 61 6e 76 61 73 2d 64 72 61 77 2e 69 6d 70 6f canvas-draw.impo
3a20: 72 74 2e 73 63 6d 22 29 0a 09 09 0a 09 09 28 69 rt.scm")......(i
3a30: 6e 73 74 61 6c 6c 2d 65 78 74 65 6e 73 69 6f 6e nstall-extension
3a40: 0a 09 09 20 27 63 61 6e 76 61 73 2d 64 72 61 77 ... 'canvas-draw
3a50: 0a 09 09 20 27 28 22 63 61 6e 76 61 73 2d 64 72 ... '("canvas-dr
3a60: 61 77 2e 73 6f 22 20 22 63 61 6e 76 61 73 2d 64 aw.so" "canvas-d
3a70: 72 61 77 2e 6f 22 20 22 63 61 6e 76 61 73 2d 64 raw.o" "canvas-d
3a80: 72 61 77 2e 69 6d 70 6f 72 74 2e 73 6f 22 29 0a raw.import.so").
3a90: 09 09 20 27 28 28 76 65 72 73 69 6f 6e 20 31 2e .. '((version 1.
3aa0: 30 2e 30 29 0a 09 09 09 20 28 73 74 61 74 69 63 0.0).... (static
3ab0: 20 22 63 61 6e 76 61 73 2d 64 72 61 77 2e 6f 22 "canvas-draw.o"
3ac0: 29 29 29 29 0a 09 28 65 72 72 6f 72 20 22 43 44 ))))..(error "CD
3ad0: 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 6e 6f 6e 65 not found, none
3ae0: 20 6f 66 20 74 68 65 20 62 69 6e 64 69 6e 67 73 of the bindings
3af0: 20 63 61 6e 20 62 65 20 63 6f 6d 70 69 6c 65 64 can be compiled
3b00: 22 29 29 0a ")).