/usr/bin/xmdump3 is in libmed-tools 3.0.6-11build1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
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 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 | #!/usr/bin/env wish
# le titre
wm title . mdump
# le cadre
frame .top -borderwidth 10 -background white
pack .top -side top -fill x
# les boutons de commande
set but [button .top.dump -text "Dump" -command Dump -background red]
button .top.quit -text "Quitter" -command exit -background red
pack .top.quit .top.dump -side left
# le label d'entree du fichier a dumper
label .top.l -text " Fichier MED : " -padx 0 -background white
entry .top.file -width 20 -relief sunken \
-textvariable file
pack .top.l -side left
pack .top.file -side left -fill x -expand true
# le mode de stockage des donnees en memoire
frame .option1 -background white
label .option1.o -text " Mode de stockage des données en mémoire : " -padx 1 \
-background white
set choix_stockage NO_INTERLACE
set f [frame .option1.ms -borderwidth 5 -background white ]
radiobutton $f.1 -variable choix_stockage -text " NON ENTRELACE " \
-value NO_INTERLACE
radiobutton $f.2 -variable choix_stockage -text " ENTRELACE " \
-value FULL_INTERLACE
pack $f.1 -side left
pack $f.2 -side right
pack .option1.o -side left
pack $f -side left
pack .option1 -side top -fill x
# Le mode de connectivite
frame .option2 -background white
label .option2.o -text " Mode de connectivité : " -padx 0 -background white
set choix_connectivite NODALE
set mc [frame .option2.mc -borderwidth 5 -background white]
radiobutton $mc.1 -variable choix_connectivite -text " CONNECTIVITE NODALE " \
-value NODALE
radiobutton $mc.2 -variable choix_connectivite \
-text " CONNECTIVITE DESCENDANTE " -value DESCENDANTE
pack $mc.1 -side left
pack $mc.2 -side right
pack .option2.o -side left
pack $mc -side left
pack .option2 -side top -fill x
# Lecture complete ou non ?
frame .option4 -background white
label .option4.o -text " Mode de lecture : " -padx 0 -background white
set choix_lecture LECTURE_COMPLETE
set mc [frame .option4.mc -borderwidth 5 -background white]
radiobutton $mc.1 -variable choix_lecture -text " LECTURE COMPLETE " \
-value LECTURE_COMPLETE
radiobutton $mc.2 -variable choix_lecture \
-text " LECTURE DES EN-TETES SEULEMENT " -value LECTURE_EN_TETE_SEULEMENT
pack $mc.1 -side left
pack $mc.2 -side right
pack .option4.o -side left
pack $mc -side left
pack .option4 -side top -fill x
# Affichage complet ou structure seulement ?
frame .option0 -background white
label .option0.o -text " Affichage : " -padx 0 -background white
set choix_structure ""
set af [frame .option0.mc -borderwidth 5 -background white]
radiobutton $af.1 -variable choix_structure -text " AFFICHAGE COMPLET " \
-value ""
radiobutton $af.2 -variable choix_structure \
-text " STRUCTURE SEULEMENT " -value "--structure"
pack $af.1 -side left
pack $af.2 -side right
pack .option0.o -side left
pack $af -side left
pack .option0 -side top -fill x
# le numero de maillage
frame .option3 -background white
label .option3.o -text " Numero de maillage : " -padx 0 -background white
set numero 1
entry .option3.numero -width 10 -relief sunken \
-textvariable numero
pack .option3.o -side left
pack .option3.numero -side left -fill x -expand true
pack .option3 -side top -fill both
# la fenetre d'affichage
frame .t -background white
set log [text .t.log -width 80 -height 20 \
-borderwidth 2 -relief raised -setgrid true \
-yscrollcommand {.t.scroll set} -background cyan]
scrollbar .t.scroll -command {.t.log yview}
pack .t.scroll -side right -fill y
pack .t.log -side left -fill both -expand true
pack .t -side top -fill both -expand true
# les touches du clavier
bind .top.file <Return> Dump
focus .top.file
# la commande dump
proc Dump { } {
global exec_path choix_structure file input log but choix_structure choix_connectivite choix_stockage numero choix_lecture
# on suppose que bindir c'est $prefix/bin ce qui malheureusement peut ne pas etre le cas si l'utilisateur utilise l'option de configure !!!
# il faudrait peut-etre comparer /usr/local/bin et ${exec_prefix}/bin pour etre sur !
set cmd "/usr/bin/mdump"
if { $choix_lecture == "LECTURE_EN_TETE_SEULEMENT" } {
if [catch {open "|$cmd $choix_structure $file $numero $choix_connectivite $choix_lecture |& cat"} input] {
$log insert end $input\n
} else {
$but config -text Stop -command Stop
$log insert end $file\n
fileevent $input readable Log
}
} else {
if [catch {open "|$cmd $choix_structure $file $numero $choix_connectivite $choix_stockage |& cat"} input] {
$log insert end $input\n
} else {
$but config -text Stop -command Stop
$log insert end $file\n
fileevent $input readable Log
}
}
}
proc Log { } {
global input log
if [eof $input] {
Stop
} else {
gets $input line
$log insert end $line\n
$log see end
}
}
proc Stop { } {
global input but
catch {close $input}
$but config -text "Dump" -command Dump
}
|