blob: 951c44c296ca110fc866ed931e7a0ed2c9f45395 (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <config.h>
include <mach.h>
include <fio.h>
include "fmio.h"
# FM_LFSTATI -- Stat an lfile.
procedure fm_lfstati (lf, param, lvalue)
pointer lf #I lfile descriptor
int param #I parameter code
long lvalue #O parameter value
pointer fm
int chan
begin
fm = LF_FM(lf)
chan = FM_CHAN(fm)
# Only the file size differs for each lfile.
switch (param) {
case FSTT_FILSIZE:
lvalue = LF_FSIZE(lf)
case FSTT_BLKSIZE:
lvalue = FM_SZBPAGE(fm)
case FSTT_OPTBUFSIZE:
lvalue = FM_OPTBUFSIZE(fm)
case FSTT_MAXBUFSIZE:
lvalue = FM_MAXBUFSIZE(fm)
}
# For text lfiles, things appear to be SZB_CHAR larger.
if (and (LF_FLAGS(lf), LFF_TEXTFILE) != 0)
lvalue = lvalue * SZB_CHAR
end
|
