2003-11-22 09:13:33 -05:00
|
|
|
(user)
|
|
|
|
|
(load-package 'dynamic-externals)
|
|
|
|
|
(open 'dynamic-externals)
|
|
|
|
|
(open 'external-calls)
|
2003-11-28 10:41:39 -05:00
|
|
|
(open 'configure)
|
2003-11-22 09:13:33 -05:00
|
|
|
(run '(let ((initializer-name "scx_init_xlib")
|
2003-12-01 11:09:09 -05:00
|
|
|
(module-file (string-append "@scxlibdir@/" @scxhost@ "/libscx.so")))
|
2003-11-22 09:13:33 -05:00
|
|
|
(dynamic-load module-file)
|
2003-12-02 07:10:28 -05:00
|
|
|
(call-external (get-external initializer-name))
|
|
|
|
|
(if (string=? "@scxload_xft_packages@" "yes")
|
|
|
|
|
(begin
|
|
|
|
|
(call-external (get-external "scx_xft_init"))
|
|
|
|
|
(call-external (get-external "scx_xrender_init"))))))
|
2003-11-22 09:13:33 -05:00
|
|
|
(config)
|
2003-11-22 15:05:09 -05:00
|
|
|
(load "@scxschemedir@/xlib/xlib-interfaces.scm")
|
|
|
|
|
(load "@scxschemedir@/xlib/xlib-packages.scm")
|
2003-12-02 07:10:28 -05:00
|
|
|
(load "@scxschemedir@/libs/libs-interfaces.scm")
|
|
|
|
|
(load "@scxschemedir@/libs/libs-packages.scm")
|
2003-11-22 09:13:33 -05:00
|
|
|
|
|
|
|
|
|
