blob: 2b790dfa8d0594555e607c1e0048b262bd851017 (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <mach.h>
include <fio.h>
include "m70.h"
# ZSTM70 -- Return device status for the IIS.
procedure zstm70 (chan, what, lvalue)
int chan # FCB pointer for device
int what # status parameter
long lvalue
begin
switch (what) {
case FSTT_FILSIZE:
lvalue = IIS_FILSIZE
case FSTT_BLKSIZE:
lvalue = IIS_BLKSIZE
case FSTT_OPTBUFSIZE:
lvalue = IIS_OPTBUFSIZE
case FSTT_MAXBUFSIZE:
lvalue = IIS_MAXBUFSIZE
default:
lvalue = ERR
}
end
|
