blob: 4c48b194ea7ed0939800308c4863ce8dee8f1d33 (
plain) (
blame)
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
|
# REFNOEXTN -- Strip any image extensions
procedure refnoextn (spec)
char spec[ARB] # Image name
int i, strlen()
bool streq()
begin
i = strlen (spec)
call imgimage (spec, spec, i)
i = strlen (spec)
switch (spec[i]) {
case 'h':
if (i > 3 && spec[i-3] == '.')
spec[i-3] = EOS
case 'l':
if (i > 2 && streq (spec[i-2], ".pl"))
spec[i-2] = EOS
case 's':
if (i > 4 && streq (spec[i-4], ".fits"))
spec[i-4] = EOS
case 't':
if (i > 3 && streq (spec[i-3], ".fit"))
spec[i-3] = EOS
}
end
|
