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
|
#!/data/IRAF2.11/iraf/bin.ssun/cl.e -f
# This script runs LINESPEC from a Unix command line
# Replace the path in the first line with one appropriate to your machine
string uprm, hm
# Set machine type appropriately
set arch=".ssun"
# Set the terminal type.
if (envget("TERM") == "sun") {
stty gterm
} else if (envget("TERM") == "xterm") {
stty xterm
} else if (envget("TERM") == "network") {
stty vt100
} else {
stty xterm
}
# Set the IRAF home and parameter directories
if (defvar("irafhome")) {
hm = envget("irafhome")
i = strlen(hm)
if (substr(hm, i, i) == "/")
set (home = hm)
else
set (home = hm // "/")
set uparm = "home$uparm/"
}
else {
hm = envget ("HOME")
set (home = hm // "/IRAF/")
set uparm = "home$uparm/"
}
if (defvar("UPARM")) {
uprm = envget("UPARM")
i = strlen(uprm)
if (substr(uprm, i, i) == "/")
set (uparm = uprm)
else
set (uparm = uprm // "/")
}
# Set the user name which may appear on graphical output
if (envget("USER") != "") {
set user = envget("USER")
}
# Load the RVSAO package without displaying the banner
rvsao motd-
# Execute the task
printf ("linespec %s\n", args) | cl()
logout
|
