blob: 82720ade8d0729c503c1a8f6dc4679eb203871cb (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "fmset.h"
include "fmio.h"
# FM_STATI -- Query an FMIO integer parameter.
int procedure fm_stati (fm, param)
pointer fm #I FMIO descriptor
int param #I parameter code from <fmset.h>
begin
switch (param) {
case FM_ACMODE:
return (FM_MODE(fm))
case FM_MAXLFILES:
return (FM_NLFILES(fm))
case FM_MAXPTPAGES:
return (FM_PTILEN(fm))
case FM_OSCHAN:
return (FM_CHAN(fm))
case FM_PAGESIZE:
return (FM_SZBPAGE(fm))
case FM_VERSION:
return (FM_DFVERSION(fm))
case FM_OPTFBSIZE:
return (FM_OPTBUFSIZE(fm))
case FM_MAXFBSIZE:
return (FM_MAXBUFSIZE(fm))
case FM_FCACHESIZE:
return (FM_SZFCACHE(fm))
default:
return (ERR)
}
end
|
