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
|
#!/data/oir/IRAF2.16.1/bin.linux64/cl.e -f
# This script runs IRAF HELP from a Unix command line
# Replace the path in the first line with one appropriate to your machine
# November 13, 2020
# By Jessica Mink
string uprm, hm, package, task, tempcom
char cdot
cdot = '.'
# Set machine type appropriately
set arch=".linux64"
# 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 // "/")
}
#print "IHELP: ARGS=" args
# If no arguments, print usage
if (args == "") {
print ("ihelp: Print help file of an IRAF task")
print ("Usage: ihelp task")
}
# If arguments, set up temporary command file
else {
tempcom = mktemp ("temphelp")
printf ("help %s\n", args, >tempcom)
cl (<tempcom)
delete (tempcom)
}
logout
# Mar 31 2009 New shell command line script
# Nov 13 2020 Switch from IRAF 2.14.1 to IRAF 2.16.1
|
