Artifact 359a7faf877077b2b29cac1d00aab2433d82c747:


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 28 63 6f 6e 64 2d  2; -*- ;;.(cond-
0030: 65 78 70 61 6e 64 0a 20 5b 6e 6f 2d 6c 69 62 72  expand. [no-libr
0040: 61 72 79 2d 63 68 65 63 6b 73 0a 09 28 64 65 66  ary-checks..(def
0050: 69 6e 65 2d 73 79 6e 74 61 78 20 63 68 65 63 6b  ine-syntax check
0060: 2d 6c 69 62 72 61 72 69 65 73 0a 09 09 28 73 79  -libraries...(sy
0070: 6e 74 61 78 2d 72 75 6c 65 73 20 28 29 0a 09 09  ntax-rules ()...
0080: 09 5b 28 63 68 65 63 6b 2d 6c 69 62 72 61 72 69  .[(check-librari
0090: 65 73 20 5b 6c 69 62 20 66 75 6e 5d 20 2e 2e 2e  es [lib fun] ...
00a0: 29 0a 09 09 09 20 23 74 5d 29 29 5d 0a 20 5b 65  ).... #t]))]. [e
00b0: 6c 73 65 0a 09 28 64 65 66 69 6e 65 2d 73 79 6e  lse..(define-syn
00c0: 74 61 78 20 63 68 65 63 6b 2d 6c 69 62 72 61 72  tax check-librar
00d0: 69 65 73 0a 09 09 28 73 79 6e 74 61 78 2d 72 75  ies...(syntax-ru
00e0: 6c 65 73 20 28 29 0a 09 09 09 5b 28 63 68 65 63  les ()....[(chec
00f0: 6b 2d 6c 69 62 72 61 72 69 65 73 20 5b 6c 69 62  k-libraries [lib
0100: 20 66 75 6e 5d 20 2e 2e 2e 29 0a 09 09 09 20 28   fun] ...).... (
0110: 61 6e 64 20 28 66 69 6e 64 2d 6c 69 62 72 61 72  and (find-librar
0120: 79 20 6c 69 62 20 66 75 6e 29 20 2e 2e 2e 29 5d  y lib fun) ...)]
0130: 29 29 5d 29 0a 0a 28 69 66 20 28 63 68 65 63 6b  ))])..(if (check
0140: 2d 6c 69 62 72 61 72 69 65 73 0a 09 09 20 20 5b  -libraries...  [
0150: 22 63 61 6c 6c 62 61 63 6b 22 20 22 61 6c 6c 6f  "callback" "allo
0160: 63 5f 74 72 61 6d 70 6f 6c 69 6e 65 5f 72 22 5d  c_trampoline_r"]
0170: 0a 09 09 09 5b 22 69 75 70 22 20 22 49 75 70 4f  ....["iup" "IupO
0180: 70 65 6e 22 5d 0a 09 09 09 5b 22 69 75 70 69 6d  pen"]....["iupim
0190: 22 20 22 49 75 70 4c 6f 61 64 49 6d 61 67 65 22  " "IupLoadImage"
01a0: 5d 0a 09 09 09 5b 22 69 75 70 69 6d 67 6c 69 62  ]....["iupimglib
01b0: 22 20 22 49 75 70 49 6d 61 67 65 4c 69 62 4f 70  " "IupImageLibOp
01c0: 65 6e 22 5d 29 0a 09 28 62 65 67 69 6e 0a 09 09  en"])..(begin...
01d0: 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20  (compile -s -O2 
01e0: 2d 64 31 20 22 69 75 70 2d 62 61 73 65 2e 73 63  -d1 "iup-base.sc
01f0: 6d 22 20 2d 6a 20 69 75 70 2d 62 61 73 65 20 22  m" -j iup-base "
0200: 2d 6c 63 61 6c 6c 62 61 63 6b 20 2d 6c 69 75 70  -lcallback -liup
0210: 20 2d 6c 69 75 70 69 6d 20 2d 6c 69 75 70 69 6d   -liupim -liupim
0220: 67 6c 69 62 22 29 0a 09 09 28 63 6f 6d 70 69 6c  glib")...(compil
0230: 65 20 2d 63 20 2d 4f 32 20 2d 64 31 20 22 69 75  e -c -O2 -d1 "iu
0240: 70 2d 62 61 73 65 2e 73 63 6d 22 20 2d 6a 20 69  p-base.scm" -j i
0250: 75 70 2d 62 61 73 65 20 2d 75 6e 69 74 20 69 75  up-base -unit iu
0260: 70 2d 62 61 73 65 29 0a 09 09 28 63 6f 6d 70 69  p-base)...(compi
0270: 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 30 20 22 69  le -s -O2 -d0 "i
0280: 75 70 2d 62 61 73 65 2e 69 6d 70 6f 72 74 2e 73  up-base.import.s
0290: 63 6d 22 29 0a 09 09 0a 09 09 28 69 6e 73 74 61  cm")......(insta
02a0: 6c 6c 2d 65 78 74 65 6e 73 69 6f 6e 0a 09 09 20  ll-extension... 
02b0: 27 69 75 70 2d 62 61 73 65 0a 09 09 20 27 28 22  'iup-base... '("
02c0: 69 75 70 2d 62 61 73 65 2e 73 6f 22 20 22 69 75  iup-base.so" "iu
02d0: 70 2d 62 61 73 65 2e 6f 22 20 22 69 75 70 2d 62  p-base.o" "iup-b
02e0: 61 73 65 2e 69 6d 70 6f 72 74 2e 73 6f 22 20 22  ase.import.so" "
02f0: 69 75 70 2d 74 79 70 65 73 2e 73 63 6d 22 29 0a  iup-types.scm").
0300: 09 09 20 27 28 28 76 65 72 73 69 6f 6e 20 31 2e  .. '((version 1.
0310: 30 2e 32 29 0a 09 09 09 20 28 73 74 61 74 69 63  0.2).... (static
0320: 20 22 69 75 70 2d 62 61 73 65 2e 6f 22 29 0a 09   "iup-base.o")..
0330: 09 09 20 28 73 74 61 74 69 63 2d 6f 70 74 69 6f  .. (static-optio
0340: 6e 73 20 22 2d 6c 63 61 6c 6c 62 61 63 6b 20 2d  ns "-lcallback -
0350: 6c 69 75 70 20 2d 6c 69 75 70 69 6d 20 2d 6c 69  liup -liupim -li
0360: 75 70 69 6d 67 6c 69 62 22 29 29 29 0a 09 09 0a  upimglib")))....
0370: 09 09 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f  ..(compile -s -O
0380: 32 20 2d 64 31 20 22 69 75 70 2d 63 6f 6e 74 72  2 -d1 "iup-contr
0390: 6f 6c 73 2e 73 63 6d 22 20 2d 6a 20 69 75 70 2d  ols.scm" -j iup-
03a0: 63 6f 6e 74 72 6f 6c 73 20 22 2d 6c 69 75 70 20  controls "-liup 
03b0: 2d 6c 69 75 70 63 6f 6e 74 72 6f 6c 73 22 29 0a  -liupcontrols").
03c0: 09 09 28 63 6f 6d 70 69 6c 65 20 2d 63 20 2d 4f  ..(compile -c -O
03d0: 32 20 2d 64 31 20 22 69 75 70 2d 63 6f 6e 74 72  2 -d1 "iup-contr
03e0: 6f 6c 73 2e 73 63 6d 22 20 2d 6a 20 69 75 70 2d  ols.scm" -j iup-
03f0: 63 6f 6e 74 72 6f 6c 73 20 2d 75 6e 69 74 20 69  controls -unit i
0400: 75 70 2d 63 6f 6e 74 72 6f 6c 73 29 0a 09 09 28  up-controls)...(
0410: 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d  compile -s -O2 -
0420: 64 30 20 22 69 75 70 2d 63 6f 6e 74 72 6f 6c 73  d0 "iup-controls
0430: 2e 69 6d 70 6f 72 74 2e 73 63 6d 22 29 0a 09 09  .import.scm")...
0440: 0a 09 09 28 69 6e 73 74 61 6c 6c 2d 65 78 74 65  ...(install-exte
0450: 6e 73 69 6f 6e 0a 09 09 20 27 69 75 70 2d 63 6f  nsion... 'iup-co
0460: 6e 74 72 6f 6c 73 0a 09 09 20 27 28 22 69 75 70  ntrols... '("iup
0470: 2d 63 6f 6e 74 72 6f 6c 73 2e 73 6f 22 20 22 69  -controls.so" "i
0480: 75 70 2d 63 6f 6e 74 72 6f 6c 73 2e 6f 22 20 22  up-controls.o" "
0490: 69 75 70 2d 63 6f 6e 74 72 6f 6c 73 2e 69 6d 70  iup-controls.imp
04a0: 6f 72 74 2e 73 6f 22 29 0a 09 09 20 27 28 28 76  ort.so")... '((v
04b0: 65 72 73 69 6f 6e 20 31 2e 30 2e 32 29 0a 09 09  ersion 1.0.2)...
04c0: 09 20 28 73 74 61 74 69 63 20 22 69 75 70 2d 63  . (static "iup-c
04d0: 6f 6e 74 72 6f 6c 73 2e 6f 22 29 0a 09 09 09 20  ontrols.o").... 
04e0: 28 73 74 61 74 69 63 2d 6f 70 74 69 6f 6e 73 20  (static-options 
04f0: 22 2d 6c 69 75 70 20 2d 6c 69 75 70 63 6f 6e 74  "-liup -liupcont
0500: 72 6f 6c 73 22 29 29 29 0a 09 09 0a 09 09 28 63  rols")))......(c
0510: 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64  ompile -s -O2 -d
0520: 31 20 22 69 75 70 2d 64 69 61 6c 6f 67 73 2e 73  1 "iup-dialogs.s
0530: 63 6d 22 20 2d 6a 20 69 75 70 2d 64 69 61 6c 6f  cm" -j iup-dialo
0540: 67 73 20 22 2d 6c 69 75 70 22 29 0a 09 09 28 63  gs "-liup")...(c
0550: 6f 6d 70 69 6c 65 20 2d 63 20 2d 4f 32 20 2d 64  ompile -c -O2 -d
0560: 31 20 22 69 75 70 2d 64 69 61 6c 6f 67 73 2e 73  1 "iup-dialogs.s
0570: 63 6d 22 20 2d 6a 20 69 75 70 2d 64 69 61 6c 6f  cm" -j iup-dialo
0580: 67 73 20 2d 75 6e 69 74 20 69 75 70 2d 64 69 61  gs -unit iup-dia
0590: 6c 6f 67 73 29 0a 09 09 28 63 6f 6d 70 69 6c 65  logs)...(compile
05a0: 20 2d 73 20 2d 4f 32 20 2d 64 30 20 22 69 75 70   -s -O2 -d0 "iup
05b0: 2d 64 69 61 6c 6f 67 73 2e 69 6d 70 6f 72 74 2e  -dialogs.import.
05c0: 73 63 6d 22 29 0a 09 09 0a 09 09 28 69 6e 73 74  scm")......(inst
05d0: 61 6c 6c 2d 65 78 74 65 6e 73 69 6f 6e 0a 09 09  all-extension...
05e0: 20 27 69 75 70 2d 64 69 61 6c 6f 67 73 0a 09 09   'iup-dialogs...
05f0: 20 27 28 22 69 75 70 2d 64 69 61 6c 6f 67 73 2e   '("iup-dialogs.
0600: 73 6f 22 20 22 69 75 70 2d 64 69 61 6c 6f 67 73  so" "iup-dialogs
0610: 2e 6f 22 20 22 69 75 70 2d 64 69 61 6c 6f 67 73  .o" "iup-dialogs
0620: 2e 69 6d 70 6f 72 74 2e 73 6f 22 29 0a 09 09 20  .import.so")... 
0630: 27 28 28 76 65 72 73 69 6f 6e 20 31 2e 30 2e 32  '((version 1.0.2
0640: 29 0a 09 09 09 20 28 73 74 61 74 69 63 20 22 69  ).... (static "i
0650: 75 70 2d 64 69 61 6c 6f 67 73 2e 6f 22 29 0a 09  up-dialogs.o")..
0660: 09 09 20 28 73 74 61 74 69 63 2d 6f 70 74 69 6f  .. (static-optio
0670: 6e 73 20 22 2d 6c 69 75 70 22 29 29 29 0a 09 09  ns "-liup")))...
0680: 0a 09 09 28 69 66 20 28 63 68 65 63 6b 2d 6c 69  ...(if (check-li
0690: 62 72 61 72 69 65 73 20 5b 22 69 75 70 67 6c 22  braries ["iupgl"
06a0: 20 22 49 75 70 47 4c 43 61 6e 76 61 73 4f 70 65   "IupGLCanvasOpe
06b0: 6e 22 5d 29 0a 09 09 09 28 62 65 67 69 6e 0a 09  n"])....(begin..
06c0: 09 09 09 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d  ...(compile -s -
06d0: 4f 32 20 2d 64 31 20 22 69 75 70 2d 67 6c 63 61  O2 -d1 "iup-glca
06e0: 6e 76 61 73 2e 73 63 6d 22 20 2d 6a 20 69 75 70  nvas.scm" -j iup
06f0: 2d 67 6c 63 61 6e 76 61 73 20 22 2d 6c 69 75 70  -glcanvas "-liup
0700: 20 2d 6c 69 75 70 67 6c 22 29 0a 09 09 09 09 28   -liupgl").....(
0710: 63 6f 6d 70 69 6c 65 20 2d 63 20 2d 4f 32 20 2d  compile -c -O2 -
0720: 64 31 20 22 69 75 70 2d 67 6c 63 61 6e 76 61 73  d1 "iup-glcanvas
0730: 2e 73 63 6d 22 20 2d 6a 20 69 75 70 2d 67 6c 63  .scm" -j iup-glc
0740: 61 6e 76 61 73 20 2d 75 6e 69 74 20 69 75 70 2d  anvas -unit iup-
0750: 67 6c 63 61 6e 76 61 73 29 0a 09 09 09 09 28 63  glcanvas).....(c
0760: 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d 64  ompile -s -O2 -d
0770: 30 20 22 69 75 70 2d 67 6c 63 61 6e 76 61 73 2e  0 "iup-glcanvas.
0780: 69 6d 70 6f 72 74 2e 73 63 6d 22 29 0a 09 09 09  import.scm")....
0790: 09 0a 09 09 09 09 28 69 6e 73 74 61 6c 6c 2d 65  ......(install-e
07a0: 78 74 65 6e 73 69 6f 6e 0a 09 09 09 09 20 27 69  xtension..... 'i
07b0: 75 70 2d 67 6c 63 61 6e 76 61 73 0a 09 09 09 09  up-glcanvas.....
07c0: 20 27 28 22 69 75 70 2d 67 6c 63 61 6e 76 61 73   '("iup-glcanvas
07d0: 2e 73 6f 22 20 22 69 75 70 2d 67 6c 63 61 6e 76  .so" "iup-glcanv
07e0: 61 73 2e 6f 22 20 22 69 75 70 2d 67 6c 63 61 6e  as.o" "iup-glcan
07f0: 76 61 73 2e 69 6d 70 6f 72 74 2e 73 6f 22 29 0a  vas.import.so").
0800: 09 09 09 09 20 27 28 28 76 65 72 73 69 6f 6e 20  .... '((version 
0810: 31 2e 30 2e 32 29 0a 09 09 09 09 09 20 28 73 74  1.0.2)...... (st
0820: 61 74 69 63 20 22 69 75 70 2d 67 6c 63 61 6e 76  atic "iup-glcanv
0830: 61 73 2e 6f 22 29 0a 09 09 09 09 09 20 28 73 74  as.o")...... (st
0840: 61 74 69 63 2d 6f 70 74 69 6f 6e 73 20 22 2d 6c  atic-options "-l
0850: 69 75 70 20 2d 6c 69 75 70 67 6c 22 29 29 29 29  iup -liupgl"))))
0860: 0a 09 09 09 28 77 61 72 6e 69 6e 67 20 22 49 55  ....(warning "IU
0870: 50 20 47 4c 43 61 6e 76 61 73 20 6e 6f 74 20 66  P GLCanvas not f
0880: 6f 75 6e 64 2c 20 73 6f 6d 65 20 62 69 6e 64 69  ound, some bindi
0890: 6e 67 73 20 63 61 6e 6e 6f 74 20 62 65 20 63 6f  ngs cannot be co
08a0: 6d 70 69 6c 65 64 22 29 29 0a 09 09 0a 09 09 28  mpiled"))......(
08b0: 69 66 20 28 63 68 65 63 6b 2d 6c 69 62 72 61 72  if (check-librar
08c0: 69 65 73 20 5b 22 69 75 70 5f 70 70 6c 6f 74 22  ies ["iup_pplot"
08d0: 20 22 49 75 70 50 50 6c 6f 74 4f 70 65 6e 22 5d   "IupPPlotOpen"]
08e0: 29 0a 09 09 09 28 62 65 67 69 6e 0a 09 09 09 09  )....(begin.....
08f0: 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20  (compile -s -O2 
0900: 2d 64 31 20 22 69 75 70 2d 70 70 6c 6f 74 2e 73  -d1 "iup-pplot.s
0910: 63 6d 22 20 2d 6a 20 69 75 70 2d 70 70 6c 6f 74  cm" -j iup-pplot
0920: 20 22 2d 6c 69 75 70 20 2d 6c 69 75 70 5f 70 70   "-liup -liup_pp
0930: 6c 6f 74 22 29 0a 09 09 09 09 28 63 6f 6d 70 69  lot").....(compi
0940: 6c 65 20 2d 63 20 2d 4f 32 20 2d 64 31 20 22 69  le -c -O2 -d1 "i
0950: 75 70 2d 70 70 6c 6f 74 2e 73 63 6d 22 20 2d 6a  up-pplot.scm" -j
0960: 20 69 75 70 2d 70 70 6c 6f 74 20 2d 75 6e 69 74   iup-pplot -unit
0970: 20 69 75 70 2d 70 70 6c 6f 74 29 0a 09 09 09 09   iup-pplot).....
0980: 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20  (compile -s -O2 
0990: 2d 64 30 20 22 69 75 70 2d 70 70 6c 6f 74 2e 69  -d0 "iup-pplot.i
09a0: 6d 70 6f 72 74 2e 73 63 6d 22 29 0a 09 09 09 09  mport.scm").....
09b0: 0a 09 09 09 09 28 69 6e 73 74 61 6c 6c 2d 65 78  .....(install-ex
09c0: 74 65 6e 73 69 6f 6e 0a 09 09 09 09 20 27 69 75  tension..... 'iu
09d0: 70 2d 70 70 6c 6f 74 0a 09 09 09 09 20 27 28 22  p-pplot..... '("
09e0: 69 75 70 2d 70 70 6c 6f 74 2e 73 6f 22 20 22 69  iup-pplot.so" "i
09f0: 75 70 2d 70 70 6c 6f 74 2e 6f 22 20 22 69 75 70  up-pplot.o" "iup
0a00: 2d 70 70 6c 6f 74 2e 69 6d 70 6f 72 74 2e 73 6f  -pplot.import.so
0a10: 22 29 0a 09 09 09 09 20 27 28 28 76 65 72 73 69  ")..... '((versi
0a20: 6f 6e 20 31 2e 30 2e 32 29 0a 09 09 09 09 09 20  on 1.0.2)...... 
0a30: 28 73 74 61 74 69 63 20 22 69 75 70 2d 70 70 6c  (static "iup-ppl
0a40: 6f 74 2e 6f 22 29 0a 09 09 09 09 09 20 28 73 74  ot.o")...... (st
0a50: 61 74 69 63 2d 6f 70 74 69 6f 6e 73 20 22 2d 6c  atic-options "-l
0a60: 69 75 70 20 2d 6c 69 75 70 5f 70 70 6c 6f 74 22  iup -liup_pplot"
0a70: 29 29 29 29 0a 09 09 09 28 77 61 72 6e 69 6e 67  ))))....(warning
0a80: 20 22 49 55 50 20 50 50 6c 6f 74 20 6e 6f 74 20   "IUP PPlot not 
0a90: 66 6f 75 6e 64 2c 20 73 6f 6d 65 20 62 69 6e 64  found, some bind
0aa0: 69 6e 67 73 20 63 61 6e 6e 6f 74 20 62 65 20 63  ings cannot be c
0ab0: 6f 6d 70 69 6c 65 64 22 29 29 0a 09 09 0a 09 09  ompiled"))......
0ac0: 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20  (compile -s -O2 
0ad0: 2d 64 31 20 22 69 75 70 2e 73 63 6d 22 20 2d 6a  -d1 "iup.scm" -j
0ae0: 20 69 75 70 29 0a 09 09 28 63 6f 6d 70 69 6c 65   iup)...(compile
0af0: 20 2d 63 20 2d 4f 32 20 2d 64 31 20 22 69 75 70   -c -O2 -d1 "iup
0b00: 2e 73 63 6d 22 20 2d 6a 20 69 75 70 20 2d 75 6e  .scm" -j iup -un
0b10: 69 74 20 69 75 70 29 0a 09 09 28 63 6f 6d 70 69  it iup)...(compi
0b20: 6c 65 20 2d 73 20 2d 4f 32 20 2d 64 30 20 22 69  le -s -O2 -d0 "i
0b30: 75 70 2e 69 6d 70 6f 72 74 2e 73 63 6d 22 29 0a  up.import.scm").
0b40: 09 09 0a 09 09 28 69 6e 73 74 61 6c 6c 2d 65 78  .....(install-ex
0b50: 74 65 6e 73 69 6f 6e 0a 09 09 20 27 69 75 70 0a  tension... 'iup.
0b60: 09 09 20 27 28 22 69 75 70 2e 73 6f 22 20 22 69  .. '("iup.so" "i
0b70: 75 70 2e 6f 22 20 22 69 75 70 2e 69 6d 70 6f 72  up.o" "iup.impor
0b80: 74 2e 73 6f 22 29 0a 09 09 20 27 28 28 76 65 72  t.so")... '((ver
0b90: 73 69 6f 6e 20 31 2e 30 2e 32 29 0a 09 09 09 20  sion 1.0.2).... 
0ba0: 28 73 74 61 74 69 63 20 22 69 75 70 2e 6f 22 29  (static "iup.o")
0bb0: 29 29 29 0a 09 28 77 61 72 6e 69 6e 67 20 22 49  )))..(warning "I
0bc0: 55 50 20 6f 72 20 66 66 63 61 6c 6c 20 6e 6f 74  UP or ffcall not
0bd0: 20 66 6f 75 6e 64 2c 20 6e 6f 6e 65 20 6f 66 20   found, none of 
0be0: 74 68 65 20 62 69 6e 64 69 6e 67 73 20 63 61 6e  the bindings can
0bf0: 20 62 65 20 63 6f 6d 70 69 6c 65 64 22 29 29 0a   be compiled")).
0c00: 0a 28 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32  .(compile -s -O2
0c10: 20 2d 64 31 20 22 69 75 70 2d 64 79 6e 61 6d 69   -d1 "iup-dynami
0c20: 63 2e 73 63 6d 22 20 2d 6a 20 69 75 70 2d 64 79  c.scm" -j iup-dy
0c30: 6e 61 6d 69 63 29 0a 28 63 6f 6d 70 69 6c 65 20  namic).(compile 
0c40: 2d 63 20 2d 4f 32 20 2d 64 31 20 22 69 75 70 2d  -c -O2 -d1 "iup-
0c50: 64 79 6e 61 6d 69 63 2e 73 63 6d 22 20 2d 6a 20  dynamic.scm" -j 
0c60: 69 75 70 2d 64 79 6e 61 6d 69 63 20 2d 75 6e 69  iup-dynamic -uni
0c70: 74 20 69 75 70 2d 64 79 6e 61 6d 69 63 29 0a 28  t iup-dynamic).(
0c80: 63 6f 6d 70 69 6c 65 20 2d 73 20 2d 4f 32 20 2d  compile -s -O2 -
0c90: 64 30 20 22 69 75 70 2d 64 79 6e 61 6d 69 63 2e  d0 "iup-dynamic.
0ca0: 69 6d 70 6f 72 74 2e 73 63 6d 22 29 0a 0a 28 69  import.scm")..(i
0cb0: 6e 73 74 61 6c 6c 2d 65 78 74 65 6e 73 69 6f 6e  nstall-extension
0cc0: 0a 20 27 69 75 70 2d 64 79 6e 61 6d 69 63 0a 20  . 'iup-dynamic. 
0cd0: 27 28 22 69 75 70 2d 64 79 6e 61 6d 69 63 2e 73  '("iup-dynamic.s
0ce0: 6f 22 20 22 69 75 70 2d 64 79 6e 61 6d 69 63 2e  o" "iup-dynamic.
0cf0: 6f 22 20 22 69 75 70 2d 64 79 6e 61 6d 69 63 2e  o" "iup-dynamic.
0d00: 69 6d 70 6f 72 74 2e 73 6f 22 29 0a 20 27 28 28  import.so"). '((
0d10: 76 65 72 73 69 6f 6e 20 31 2e 30 2e 32 29 0a 20  version 1.0.2). 
0d20: 20 20 28 73 74 61 74 69 63 20 22 69 75 70 2d 64    (static "iup-d
0d30: 79 6e 61 6d 69 63 2e 6f 22 29 29 29 0a           ynamic.o"))).