diff options
Diffstat (limited to 'sys/imio/iki/plf/plfdelete.x')
-rw-r--r-- | sys/imio/iki/plf/plfdelete.x | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/sys/imio/iki/plf/plfdelete.x b/sys/imio/iki/plf/plfdelete.x new file mode 100644 index 00000000..4fad68aa --- /dev/null +++ b/sys/imio/iki/plf/plfdelete.x @@ -0,0 +1,29 @@ +# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + +include <error.h> + +# PLF_DELETE -- Delete a PLIO mask savefile (mask image). + +procedure plf_delete (kernel, root, extn, status) + +int kernel #I IKI kernel +char root[ARB] #I root filename +char extn[ARB] #I extension +int status #O output status + +pointer sp, fname +errchk delete + +begin + call smark (sp) + call salloc (fname, SZ_PATHNAME, TY_CHAR) + + call iki_mkfname (root, extn, Memc[fname], SZ_PATHNAME) + iferr (call delete (Memc[fname])) { + call erract (EA_WARN) + status = ERR + } else + status = OK + + call sfree (sp) +end |