blob: 84cefc276fae04d9d5529efffb35015fa63637bc (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "fmset.h"
include "fmio.h"
# FM_SETI -- Set the value of an FMIO integer parameter.
procedure fm_seti (fm, param, value)
pointer fm #I FMIO descriptor
int param #I parameter code from <fmset.h>
int value #I new parameter value
int szbpage
begin
szbpage = FM_SZBPAGE(fm)
switch (param) {
case FM_ACMODE:
; # read-only
case FM_MAXLFILES:
FM_NLFILES(fm) = value
case FM_MAXPTPAGES:
FM_PTILEN(fm) = value
case FM_OSCHAN:
FM_CHAN(fm) = value
case FM_PAGESIZE:
FM_SZBPAGE(fm) = value
case FM_VERSION:
; # read-only
case FM_OPTFBSIZE:
FM_OPTBUFSIZE(fm) = value
case FM_MAXFBSIZE:
FM_MAXBUFSIZE(fm) = value
case FM_FCACHESIZE:
FM_SZFCACHE(fm) = value
}
end
|
