blob: 87e206740f02745c86e66ce91e659d1cc44893d9 (
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <syserr.h>
include <error.h>
include <knet.h>
include "fmio.h"
# FM_CLOSE -- Close a datafile opened under FMIO.
procedure fm_close (fm)
pointer fm #I FMIO descriptor
pointer lf
int status, i
errchk fmio_bind, fm_fcfree, fmio_errchk
begin
# An open-new-file followed by a close should create an empty datafile.
if (FM_ACTIVE(fm) == NO)
call fmio_bind (fm)
# Shut down the file cache, if in use (does a sync).
if (FM_FCACHE(fm) != NULL)
call fm_fcfree (fm)
else
call fm_sync (fm)
# Report any posted errors.
call fmio_errchk (fm)
# Close the physical datafile.
call zclsbf (FM_CHAN(fm), status)
if (status == ERR)
iferr (call syserrs (SYS_FMCLOSE, FM_DFNAME(fm)))
call erract (EA_WARN)
# Free any storage used by the runtime file table.
lf = FM_FTABLE(fm)
do i = 0, FM_NLFILES(fm) {
if (LF_PAGEMAP(lf) != NULL)
call mfree (LF_PAGEMAP(lf), TY_INT)
lf = lf + LEN_FTE
}
# Free the main descriptor.
call mfree (FM_PTABLE(fm), TY_SHORT)
call mfree (FM_PTINDEX(fm), TY_INT)
call mfree (FM_FTABLE(fm), TY_INT)
call mfree (fm, TY_STRUCT)
end
|
