blob: 1fa6658189e5a5bd14cac9c92790f223ab01d922 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <mach.h>
include "fmio.h"
# FM_LFAWAIT -- Wait for i/o on an lfile.
procedure fm_lfawait (lf, status)
pointer lf #I lfile descriptor
int status #O i/o status (nbytes transferred or ERR)
begin
call fm_lfbinwait (lf, status)
if (and (LF_FLAGS(lf), LFF_TEXTFILE) != 0)
if (status > 0)
status = status * SZB_CHAR
end
|
