Discussion :

[cyrille_b]

Bonsoir

J'ai un problème avec un script tcl/tk qui requiert la libImg (libimg1.2.so)

J'utilise tcl/tk8.5

La libimg est, AMA, installée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
$ ls /usr/lib64/tcl8.5/Img1.4/
libjpegtcl1.0.so    libtkimgjpeg1.4.so    libtkimgsun1.4.so
libpngtcl1.2.34.so  libtkimgpcx1.4.so     libtkimgtga1.4.so
libtifftcl3.8.2.so  libtkimgpixmap1.4.so  libtkimgtiff1.4.so
libtkimg1.4.so      libtkimgpng1.4.so     libtkimgwindow1.4.so
libtkimgbmp1.4.so   libtkimgppm1.4.so     libtkimgxbm1.4.so
libtkimgdted1.4.so  libtkimgps1.4.so      libtkimgxpm1.4.so
libtkimggif1.4.so   libtkimgraw1.4.so     libzlibtcl1.2.3.so
libtkimgico1.4.so   libtkimgsgi1.4.so     pkgIndex.tcl

Par contre au lancement du script, ça me retourne l'erreur suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
--------------------------
Error in startup script: couldn't load file "Img1.4/libimg1.2.so": Img1.4/libimg1.2.so: cannot open shared object file: No such file or directory
    while executing
"load [file join Img1.4 libimg1.2.so]"
    (procedure "loadlib" line 10)
    invoked from within
"loadlib $plateforme"
    (file "oeuf.tcl" line 55)
--------------------------

Il recherche donc libimg1.2.so, mais aussi bien il ne figure parmi les fichiers, donc forcement ça buggue....


Voici la structure d'appel (le programme doit dater de quelques années déjà)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
  unix {
 
if {[info tclversion] == "8.4"} {
 
    load [file join Img1.3 libimg1.2.so]
 
} else {
 
    load [file join Img1.4 libimg1.2.so]
 
}

Quelqu'un peut me conseiller des pistes de recherche ?

(PS : sous DEBIAN Lenny avec tcl/tk8.3, je n'ai pas ce problème.)

D'avance merci,
++
Cyrille

EDIT : j'utilise une BLAG119K, kernel 2.6.32.16-x86_64

[cyrille_b]

Bon en changeant l'appel de la lib ça passe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
switch $plateforme {
 
   unix {
if {[info tclversion] == "8.4"} {
 
    load [file join Img1.3 libimg1.2.so]
 
} else {
 
    package require Img
 
}

Par je ne comprends pas le pourquoi du comment.....

[Invité]

Ton installation de Img n'est pas bonne, tu devrais récupérer un package en meilleur état.

la version à jour contient ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
if {![package vsatisfies [package provide Tcl] 8.4]} return
package ifneeded img::base 1.4.0.4 [string map [list @ $dir] {
        package require Tcl 8.4
        package require Tk 8.4
        load [file join {@} libtkimg1.4.0.4.so]
        package provide img::base 1.4.0.4
}]

Tu peux la récupérer ici par exemple : http://teapot.activestate.com/package/list

--
David Zolli