blob: 5f497f49fa327b807d5e801d6dd8d9b00557957d (
plain)
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
|
################################################
#
# find the name of the station
#
################################################
proc wokstation {} {
set LINE_FROM_UNAME [ exec uname -a ] ;
if { [ regexp SunOS $LINE_FROM_UNAME ] } {
return "sun"
} elseif { [ regexp IRIX $LINE_FROM_UNAME ] } {
return "sil"
} elseif { [ regexp OSF $LINE_FROM_UNAME ] } {
return "ao1"
} elseif { [ regexp HP-UX $LINE_FROM_UNAME ] } {
return "hp"
} elseif { [ regexp Linux $LINE_FROM_UNAME ] } {
return "lin"
} elseif { [ regexp FreeBSD $LINE_FROM_UNAME ] } {
return "bsd"
} elseif { [ regexp Darwin $LINE_FROM_UNAME ] } {
return "mac"
} elseif { [ regexp AIX $LINE_FROM_UNAME ] } {
return "aix"
} else {
return "wnt"
}
}
set env(STATION) [ wokstation ]
# PMN LE 6/06/1997
# Ce type d'environnement n'a rien n'a faire dans les sources
# On doit le faire dans des ilots.tcl ou des ud.tcl ou bien
# dans les procedures de test externes a WOK
#set env(WBCONTAINER) /adv_20/BAG
#set env(WBROOT) "/adv_21/MDL/k1deb/ref"
|
