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
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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
Notes on trying to make guile-gtk work on HP-UX.
dynlink/libguiledlopenhelper loses bigtime.
Errors the old way:
rukbat;gwave-guile; gwave.go
in minimal.scm
in .gwaverc
in gwave-guile/scheme/dynlink.scm
;;; WARNING (Cannot find library libguilegtk-1.2)
46 [dynamic-wind #<procedure ()> #<procedure ()> #<procedure ()>]
47* [#<procedure ()>]
48* [primitive-load "/usr/local/contrib/moderated/share/guile/gtk-1.2/gtk.scm"]
49* [merge-compiled-code "sgtk_init_gtk_gtk_glue" "libguilegtk-1.2"]
50 (let* ((module #) (interface #)) (module-use! module interface) ...)
...
51 [dynamic-wind #<procedure ()> #<procedure ()> #<procedure ()>]
52* [#<procedure ()>]
53* (let* (# # # #) (if # # #))
54* (if modinfo (caddr modinfo) ...)
55 (or (dlopen-libtool-library libname) (error "can't open library" libname))
56* [dlopen-libtool-library "libguilegtk-1.2"]
57 (cond (gtkconf-libtool-is-winning (let* # # #)) (#t (let* # # #)))
58 (let* ((path #) (full-name #)) (init-dlopen-funcs) ...)
59* [init-dlopen-funcs]
60 (if (not #) (save-module-excursion #))
...
61 [dynamic-wind #<procedure ()> #<procedure ()> #<procedure ()>]
62* [#<procedure ()>]
63* (let ((full-name #)) (set-current-module this-module) ...)
64 [dynamic-call sgtk_dlopenhelper_init ...
65* [gsubr-apply #<primitive-procedure dynamic-link> ...]
/home/msl/tell/proj/gwave/gwave-guile/gtk/dynlink.scm:208:26: In procedure gsubr-apply in expression (dynamic-link full-name):
/home/msl/tell/proj/gwave/gwave-guile/gtk/dynlink.scm:208:26: dynamic linking failed
0* (append-hook! new-wavewin-hook (lambda () (let* # # #)))
./.gwaverc:17:1: In expression (append-hook! new-wavewin-hook (lambda () #)):
./.gwaverc:17:1: Unbound variable: append-hook!
|Date: 08 Nov 1999 22:28:02 +0100
|From: Marius Vollmer <mvo@zagadka.ping.de>
|To: Stephen Tell <tell@cs.unc.edu>
|Cc: Guile-Gtk List <guile-gtk@sourceware.cygnus.com>
|Subject: Re: guile-gtk without dlopen (HP-UX)
|
|Yes, dynamic linking is weird with guile-gtk in general, and I'm sorry
|you have to suffer.
|
|However, in recent releases of Guile, dynamic-link uses RTLD_GLOBAL by
|default and thus libguiledlopenhelper is not needed at all (on dlopen
|platforms). You might have to check the HPUX support of Guile if it
|behaves correctly, tho. You could try to hack gtk/dynlink.scm so that
|it doesn't use the %sgtk-* functions at all. If this doesn't work, we
|can then see how you can get by without dynamic linking.
|
|For the real fix, I think we need to have configure find out whether
|libguiledlopenhelper is needed or not because people might still be
|using old versions of Guile.
|> guile-1.3.4
|
|This is recent enough.
|
|- Marius
By setting GUILE_LOAD_PATH, we can insert our own version of dynlink.scm
and other guile-gtk modules.
module gtk.scm uses module dynlink.scm, then does
(gtk-version-alias 'gtk)
and that's it.
(gtk-version-alias arranges to get the right version of gtk loaded;
I think this results in loading share/guile/gtk-1.2/gtk.scm
gtk-1.2/gtk.scm then does
(merge-compiled-code "sgtk_init_gtk_gtk_glue" "libguilegtk-1.2")
which is were the trouble starts.
I think what marius means is to modify this routine.
I want it to load /usr/local/contrib/moderated/lib/libguilegtk-1.2.sl
Looks like the routine find-and-link-dynamic-module in boot-9.scm does
about what I want.
But it assumes the name of the init func from the module name, rats.
The underlying routines that it uses,
(try-using-libtool-name directory libname)
and
(link-dynamic-module sharlib-full init-func)
look right.
Try it - works!
Doesn't work with standalone guile-gtk apps.
|
