Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | CHICKEN binding for IUP Scintilla control |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
e83db8b5c49942545e33f8bd17986ef3 |
User & Date: | murphy 2015-05-01 12:23:56.803 |
Context
2015-05-01
| ||
13:17 | Racket binding for IUP Scintilla control check-in: 97e8ed5dd3 user: murphy tags: trunk | |
12:23 | CHICKEN binding for IUP Scintilla control check-in: e83db8b5c4 user: murphy tags: trunk | |
2012-03-25
| ||
14:05 | corrected installation commands for CHICKEN import libraries check-in: bec3751390 user: murphy tags: trunk, v1.2.1 | |
Changes
Added chicken/iup-scintilla.scm.
> > > > > > > > > > > > > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | ;; -*- mode: Scheme; tab-width: 2; -*- ;; ;; {{{ Data types (foreign-declare "#include <iup.h>\n" "#include <iup_scintilla.h>\n") (include "iup-types.scm") ;; }}} ;; {{{ Scintilla text editor control (define scintilla (make-constructor-procedure (foreign-lambda nonnull-ihandle "IupScintilla"))) ;; }}} ;; {{{ Library setup (foreign-code "IupScintillaOpen();") ;; }}} |
Changes to chicken/iup.meta.
1 2 3 4 5 6 | ((category ui) (license "BSD") (author "Thomas Chust") (synopsis "Bindings to the IUP GUI library") (doc-from-wiki) (needs srfi-42) | > | | 1 2 3 4 5 6 7 8 | ;; -*- mode: Scheme; -*- ((category ui) (license "BSD") (author "Thomas Chust") (synopsis "Bindings to the IUP GUI library") (doc-from-wiki) (needs srfi-42) (files "iup.scm" "iup-types.scm" "iup-base.scm" "iup-controls.scm" "iup-dialogs.scm" "iup-glcanvas.scm" "iup-pplot.scm" "iup-scintilla.scm" "iup-web.scm" "iup-dynamic.scm" "iup.setup" "iup.meta" "iup.release-info")) |
Changes to chicken/iup.scm.
︙ | ︙ | |||
79 80 81 82 83 84 85 86 87 88 89 90 91 92 | pplot-x/y->pixel-x/y pplot-paint-to) (import scheme chicken foreign iup-base) (include "iup-pplot.scm"))]) (cond-expand [disable-iup-web] [else (module iup-web (web-browser) (import scheme chicken foreign | > > > > > > > > > > | 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 | pplot-x/y->pixel-x/y pplot-paint-to) (import scheme chicken foreign iup-base) (include "iup-pplot.scm"))]) (cond-expand [disable-iup-scintilla] [else (module iup-scintilla (scintilla) (import scheme chicken foreign iup-base) (include "iup-scintilla.scm"))]) (cond-expand [disable-iup-web] [else (module iup-web (web-browser) (import scheme chicken foreign |
︙ | ︙ |
Changes to chicken/iup.setup.
︙ | ︙ | |||
10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 | '(-j iup-glcanvas)]) ,@(cond-expand [disable-iup-pplot '()] [else '(-j iup-pplot)]) ,@(cond-expand [disable-iup-web '()] [else '(-j iup-web)]))) (define import-libraries `("iup.import.so" "iup-base.import.so" "iup-controls.import.so" "iup-dialogs.import.so" ,@(cond-expand [disable-iup-glcanvas '()] [else '("iup-glcanvas.import.so")]) ,@(cond-expand [disable-iup-pplot '()] [else '("iup-pplot.import.so")]) ,@(cond-expand [disable-iup-web '()] [else '("iup-web.import.so")]))) (define native-libraries `("-lcallback" "-liup" "-liupim" "-liupimglib" "-liupcontrols" ,@(cond-expand [disable-iup-glcanvas '()] [else '("-liupgl")]) ,@(cond-expand [disable-iup-pplot '()] [else '("-liup_pplot")]) ,@(cond-expand [disable-iup-web '()] [else '("-liupweb")]))) (compile -s -O2 -d1 "iup.scm" ,@modules ,@native-libraries) | > > > > > > > > > > > > > > > | 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 | '(-j iup-glcanvas)]) ,@(cond-expand [disable-iup-pplot '()] [else '(-j iup-pplot)]) ,@(cond-expand [disable-iup-scintilla '()] [else '(-j iup-scintilla)]) ,@(cond-expand [disable-iup-web '()] [else '(-j iup-web)]))) (define import-libraries `("iup.import.so" "iup-base.import.so" "iup-controls.import.so" "iup-dialogs.import.so" ,@(cond-expand [disable-iup-glcanvas '()] [else '("iup-glcanvas.import.so")]) ,@(cond-expand [disable-iup-pplot '()] [else '("iup-pplot.import.so")]) ,@(cond-expand [disable-iup-scintilla '()] [else '("iup-scintilla.import.so")]) ,@(cond-expand [disable-iup-web '()] [else '("iup-web.import.so")]))) (define native-libraries `("-lcallback" "-liup" "-liupim" "-liupimglib" "-liupcontrols" ,@(cond-expand [disable-iup-glcanvas '()] [else '("-liupgl")]) ,@(cond-expand [disable-iup-pplot '()] [else '("-liup_pplot")]) ,@(cond-expand [disable-iup-scintilla '()] [else '("-liup_scintilla")]) ,@(cond-expand [disable-iup-web '()] [else '("-liupweb")]))) (compile -s -O2 -d1 "iup.scm" ,@modules ,@native-libraries) |
︙ | ︙ | |||
69 70 71 72 73 74 75 76 77 78 79 80 81 82 | [else (compile -s -O2 -d0 "iup-glcanvas.import.scm")]) (cond-expand [disable-iup-pplot] [else (compile -s -O2 -d0 "iup-pplot.import.scm")]) (cond-expand [disable-iup-web] [else (compile -s -O2 -d0 "iup-web.import.scm")]) (install-extension 'iup `("iup.so" "iup.o" "iup-types.scm" ,@import-libraries) | > > > > | | | 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 | [else (compile -s -O2 -d0 "iup-glcanvas.import.scm")]) (cond-expand [disable-iup-pplot] [else (compile -s -O2 -d0 "iup-pplot.import.scm")]) (cond-expand [disable-iup-scintilla] [else (compile -s -O2 -d0 "iup-scintilla.import.scm")]) (cond-expand [disable-iup-web] [else (compile -s -O2 -d0 "iup-web.import.scm")]) (install-extension 'iup `("iup.so" "iup.o" "iup-types.scm" ,@import-libraries) `((version 1.3.0) (static "iup-base.o") (static-options ,(string-intersperse native-libraries)))) (compile -s -O2 -d1 "iup-dynamic.scm" -j iup-dynamic) (compile -c -O2 -d1 "iup-dynamic.scm" -j iup-dynamic -unit iup-dynamic) (compile -s -O2 -d0 "iup-dynamic.import.scm") (install-extension 'iup-dynamic '("iup-dynamic.so" "iup-dynamic.o" "iup-dynamic.import.so") '((version 1.3.0) (static "iup-dynamic.o"))) |