1 #pragma ident	"%Z%%M%	%I%	%E% SMI"
2 /*
3  * lib/krb5/os/net_write.c
4  *
5  * Copyright 1987, 1988, 1990 by the Massachusetts Institute of Technology.
6  * All Rights Reserved.
7  *
8  * Export of this software from the United States of America may
9  *   require a specific license from the United States Government.
10  *   It is the responsibility of any person or organization contemplating
11  *   export to obtain such a license before exporting.
12  *
13  * WITHIN THAT CONSTRAINT, permission to use, copy, modify, and
14  * distribute this software and its documentation for any purpose and
15  * without fee is hereby granted, provided that the above copyright
16  * notice appear in all copies and that both that copyright notice and
17  * this permission notice appear in supporting documentation, and that
18  * the name of M.I.T. not be used in advertising or publicity pertaining
19  * to distribution of the software without specific, written prior
20  * permission.  Furthermore if you modify this software you must label
21  * your software as modified software and not distribute it in such a
22  * fashion that it might be confused with the original M.I.T. software.
23  * M.I.T. makes no representations about the suitability of
24  * this software for any purpose.  It is provided "as is" without express
25  * or implied warranty.
26  *
27  */
28 
29 #define NEED_LOWLEVEL_IO
30 #define NEED_SOCKETS
31 #include <k5-int.h>
32 
33 /*
34  * krb5_net_write() writes "len" bytes from "buf" to the file
35  * descriptor "fd".  It returns the number of bytes written or
36  * a write() error.  (The calling interface is identical to
37  * write(2).)
38  *
39  * XXX must not use non-blocking I/O
40  */
41 
42 /*ARGSUSED*/
43 int
44 krb5_net_write(krb5_context context, int fd, register const char *buf, int len)
45 {
46     int cc;
47     register int wrlen = len;
48     do {
49 	cc = SOCKET_WRITE((SOCKET)fd, buf, wrlen);
50 	if (cc < 0) {
51 	    if (SOCKET_ERRNO == SOCKET_EINTR)
52 		continue;
53 
54 		/* XXX this interface sucks! */
55         errno = SOCKET_ERRNO;
56 
57 	    return(cc);
58 	}
59 	else {
60 	    buf += cc;
61 	    wrlen -= cc;
62 	}
63     } while (wrlen > 0);
64     return(len);
65 }
66