blob: 20c815f539976b5ac648b4bc73b8e83c84f702bd (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "ki.h"
# KS_AWRITE -- Write to the kernel server device driver given the node
# descriptor of a kernel server channel. If the error bit is set on the
# node return error w/o doing any i/o, since the channel will have been closed.
procedure ks_awrite (server, buf, nbytes)
int server # node descriptor index of server
char buf[ARB] # i/o buffer
int nbytes # nbytes to write
int and()
include "kinode.com"
begin
if (and (n_status[server], F_IOERR) == 0)
call zawrks (n_kschan[server], buf, nbytes, long(0))
end
|
