blob: a5829de00c529bd8dcf909707f6c5e586eb3536d (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <fmlfstat.h>
include "fmio.h"
# FMLFSTAT.H -- Query the attributes of an lfile.
int procedure fm_lfstat (fm, lfile, statbuf)
pointer fm #I FMIO descriptor
int lfile #I lfile number
int statbuf[ARB] #O receives status
pointer lf
errchk fmio_bind, fmio_errchk
begin
call fmio_bind (fm)
call fmio_errchk (fm)
# Verify input.
if (lfile < 0 || lfile > FM_NLFILES(fm))
return (ERR)
# Copy out the lfile status.
lf = FM_FTABLE(fm) + lfile * LEN_FTE
LFU_SIZE(statbuf) = LF_FSIZE(lf)
LFU_FLAGS(statbuf) = LF_FLAGS(lf)
return (OK)
end
|
