source: project/release/4/iup/trunk/iup.scm @ 25739

Last change on this file since 25739 was 25739, checked in by Thomas Chust, 8 years ago

[iup] Simplified build logic, combined libraries

File size: 2.4 KB
Line 
1;; -*- mode: Scheme; tab-width: 2; -*- ;;
2
3(require-library
4  lolevel data-structures extras srfi-1 srfi-13 srfi-42 irregex posix)
5
6(module iup-base
7        (ihandle->pointer pointer->ihandle ihandle-list->pointer-vector ihandle?
8         istatus->integer integer->istatus
9         iname->string string->iname
10         thread-watchdog iup-version load/led
11         attribute attribute-set! attribute-reset!
12         handle-name handle-name-set! handle-ref
13         main-loop main-loop-step main-loop-level main-loop-exit main-loop-flush
14         callback callback-set!
15         make-constructor-procedure optional-args
16         create destroy! map-peer! unmap-peer!
17         class-name class-type save-attributes!
18         parent parent-dialog sibling
19         child-add! child-remove! child-move!
20         child-ref child-pos child-count
21         :children children
22         refresh redraw
23         child-x/y->pos
24         show hide
25         dialog
26         fill hbox vbox zbox cbox sbox
27         radio normalizer split
28         image/palette image/rgb image/rgba image/file image-save
29         current-focus focus-next focus-previous
30         menu menu-item menu-separator
31         clipboard timer send-url)
32        (import
33                scheme chicken foreign
34                lolevel data-structures extras srfi-1 srfi-13 srfi-42 irregex
35                (only posix setenv))
36        (include "iup-base.scm"))
37
38(module iup-controls
39        (canvas
40         frame tabs
41         label button toggle
42         spin spinbox valuator
43         textbox listbox treebox
44         progress-bar
45         matrix cells
46         color-bar color-browser
47         dial)
48        (import
49                scheme chicken foreign
50                iup-base)
51        (include "iup-controls.scm"))
52
53(module iup-dialogs
54        (file-dialog message-dialog color-dialog font-dialog)
55        (import
56                scheme chicken foreign
57                iup-base)
58        (include "iup-dialogs.scm"))
59
60(cond-expand
61 [disable-iup-glcanvas]
62 [else
63        (module iup-glcanvas
64                (glcanvas
65                 call-with-glcanvas glcanvas-is-current?
66                 glcanvas-palette-set! glcanvas-font-set!)
67                (import
68                  scheme chicken foreign
69                        iup-base)
70                (include "iup-glcanvas.scm"))])
71
72(cond-expand
73 [disable-iup-pplot]
74 [else
75        (module iup-pplot
76                (pplot
77                 call-with-pplot pplot-add!
78                 pplot-x/y->pixel-x/y
79                 pplot-paint-to)
80                (import
81                  scheme chicken foreign
82                        iup-base)
83                (include "iup-pplot.scm"))])
84
85(cond-expand
86 [disable-iup-web]
87 [else
88        (module iup-web
89                (web-browser)
90                (import
91                  scheme chicken foreign
92                        iup-base)
93                (include "iup-web.scm"))])
94
95(module iup
96        ()
97        (import scheme chicken)
98        (reexport
99                (except iup-base
100                        ihandle->pointer pointer->ihandle ihandle-list->blob
101                        istatus->integer integer->istatus
102                        iname->string string->iname
103                        make-constructor-procedure optional-args)
104                iup-controls
105                iup-dialogs))
Note: See TracBrowser for help on using the repository browser.