scsh-conservatory
/
scx
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixes to support dumping scx into images

This commit is contained in:
mainzelm 2005-10-04 14:48:39 +00:00
parent 836885c348
commit 1a30e62c57
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkg-def.scm
View File

@ -1,4 +1,4 @@
(define-package "scx" (0 2) (define-package "scx" (0 3)
((install-lib-version (1 0)) ((install-lib-version (1 0))
(options (with-xft "Compile with Xft support" "<yes/no>" #t #t #f (options (with-xft "Compile with Xft support" "<yes/no>" #t #t #f
,parse-boolean ,show-boolean))) ,parse-boolean ,show-boolean)))
@ -32,6 +32,7 @@
(load-xft-packages (get-option-value 'with-xft))) (load-xft-packages (get-option-value 'with-xft)))
(write-to-load-script (write-to-load-script
`((new-package) `((new-package)
(structure 'load-scx '(export))
(load-package 'dynamic-externals) (load-package 'dynamic-externals)
(load-package 'reinitializers) (load-package 'reinitializers)
(open 'scheme-with-scsh) (open 'scheme-with-scsh)
@ -41,8 +42,9 @@
(open 'configure) (open 'configure)
(open 'signals) (open 'signals)
(open 'reinitializers) (open 'reinitializers)
,@(map (lambda (x) `(run ',x)) tmpl-libtool-la-reader)
(run '(define (init-scx) (run '(define (init-scx)
,@ tmpl-libtool-la-reader
(let* ((lib-dir (string-append ,libdir "/" (host))) (let* ((lib-dir (string-append ,libdir "/" (host)))
(la-file-name (string-append lib-dir "/libscx.la")) (la-file-name (string-append lib-dir "/libscx.la"))
(initializer-name "scx_init_xlib")) (initializer-name "scx_init_xlib"))