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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <protect.h>
include <error.h>
include <imhdr.h>
# OIF_DELETE -- Delete an image. A special operator is required since the
# image is stored as two files.
procedure oif_delete (kernel, root, extn, status)
int kernel #I IKI kernel
char root[ARB] #I root filename
char extn[ARB] #U extension
int status
int junk
pointer sp, fname, pixfile
int access(), protect()
pointer im, immapz()
begin
call smark (sp)
call salloc (fname, SZ_PATHNAME, TY_CHAR)
call salloc (pixfile, SZ_PATHNAME, TY_CHAR)
# Generate filename.
call iki_mkfname (root, extn, Memc[fname], SZ_PATHNAME)
iferr (im = immapz (Memc[fname], READ_ONLY, 0)) {
call erract (EA_WARN)
} else {
if (IM_PIXFILE(im) != EOS) {
call oif_gpixfname (IM_PIXFILE(im), IM_HDRFILE(im),
Memc[pixfile], SZ_PATHNAME)
if (access (Memc[pixfile],0,0) == YES)
iferr (call delete (Memc[pixfile]))
call erract (EA_WARN)
}
call imunmap (im)
# Do not complain if the file is not protected.
iferr (junk = protect (Memc[fname], REMOVE_PROTECTION))
;
iferr (call delete (Memc[fname]))
call erract (EA_WARN)
}
call sfree (sp)
status = OK
end
|
