blob: eb5376227b2ecfeb0dcb0dec2e04e43761ba930f (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "qpoe.h"
# QP_CLOSE -- Close an open QPOE descriptor and file.
procedure qp_close (qp)
pointer qp #I QPOE descriptor
begin
# An open/close should produce an empty poefile.
if (QP_ACTIVE(qp) == NO) {
QP_MODIFIED(qp) = YES
call qp_bind (qp)
}
# Update the poefile on disk.
call qp_flushpar (qp)
call qp_sync (qp)
# Shut everything down.
call stclose (QP_ST(qp))
call fm_close (QP_FM(qp))
call mfree (qp, TY_STRUCT)
end
|
