17c478bd9Sstevel@tonic-gate /*
27c478bd9Sstevel@tonic-gate  * lib/krb5/os/net_write.c
37c478bd9Sstevel@tonic-gate  *
47c478bd9Sstevel@tonic-gate  * Copyright 1987, 1988, 1990 by the Massachusetts Institute of Technology.
57c478bd9Sstevel@tonic-gate  * All Rights Reserved.
67c478bd9Sstevel@tonic-gate  *
77c478bd9Sstevel@tonic-gate  * Export of this software from the United States of America may
87c478bd9Sstevel@tonic-gate  *   require a specific license from the United States Government.
97c478bd9Sstevel@tonic-gate  *   It is the responsibility of any person or organization contemplating
107c478bd9Sstevel@tonic-gate  *   export to obtain such a license before exporting.
11*55fea89dSDan Cross  *
127c478bd9Sstevel@tonic-gate  * WITHIN THAT CONSTRAINT, permission to use, copy, modify, and
137c478bd9Sstevel@tonic-gate  * distribute this software and its documentation for any purpose and
147c478bd9Sstevel@tonic-gate  * without fee is hereby granted, provided that the above copyright
157c478bd9Sstevel@tonic-gate  * notice appear in all copies and that both that copyright notice and
167c478bd9Sstevel@tonic-gate  * this permission notice appear in supporting documentation, and that
177c478bd9Sstevel@tonic-gate  * the name of M.I.T. not be used in advertising or publicity pertaining
187c478bd9Sstevel@tonic-gate  * to distribution of the software without specific, written prior
197c478bd9Sstevel@tonic-gate  * permission.  Furthermore if you modify this software you must label
207c478bd9Sstevel@tonic-gate  * your software as modified software and not distribute it in such a
217c478bd9Sstevel@tonic-gate  * fashion that it might be confused with the original M.I.T. software.
227c478bd9Sstevel@tonic-gate  * M.I.T. makes no representations about the suitability of
237c478bd9Sstevel@tonic-gate  * this software for any purpose.  It is provided "as is" without express
247c478bd9Sstevel@tonic-gate  * or implied warranty.
25*55fea89dSDan Cross  *
267c478bd9Sstevel@tonic-gate  */
277c478bd9Sstevel@tonic-gate 
28159d09a2SMark Phalan #include "k5-int.h"
297c478bd9Sstevel@tonic-gate 
307c478bd9Sstevel@tonic-gate /*
317c478bd9Sstevel@tonic-gate  * krb5_net_write() writes "len" bytes from "buf" to the file
327c478bd9Sstevel@tonic-gate  * descriptor "fd".  It returns the number of bytes written or
337c478bd9Sstevel@tonic-gate  * a write() error.  (The calling interface is identical to
347c478bd9Sstevel@tonic-gate  * write(2).)
357c478bd9Sstevel@tonic-gate  *
367c478bd9Sstevel@tonic-gate  * XXX must not use non-blocking I/O
377c478bd9Sstevel@tonic-gate  */
387c478bd9Sstevel@tonic-gate 
397c478bd9Sstevel@tonic-gate /*ARGSUSED*/
407c478bd9Sstevel@tonic-gate int
krb5_net_write(krb5_context context,int fd,register const char * buf,int len)41505d05c7Sgtb krb5_net_write(krb5_context context, int fd, register const char *buf, int len)
427c478bd9Sstevel@tonic-gate {
437c478bd9Sstevel@tonic-gate     int cc;
447c478bd9Sstevel@tonic-gate     register int wrlen = len;
457c478bd9Sstevel@tonic-gate     do {
467c478bd9Sstevel@tonic-gate 	cc = SOCKET_WRITE((SOCKET)fd, buf, wrlen);
477c478bd9Sstevel@tonic-gate 	if (cc < 0) {
487c478bd9Sstevel@tonic-gate 	    if (SOCKET_ERRNO == SOCKET_EINTR)
497c478bd9Sstevel@tonic-gate 		continue;
507c478bd9Sstevel@tonic-gate 
517c478bd9Sstevel@tonic-gate 		/* XXX this interface sucks! */
52*55fea89dSDan Cross         errno = SOCKET_ERRNO;
537c478bd9Sstevel@tonic-gate 
547c478bd9Sstevel@tonic-gate 	    return(cc);
557c478bd9Sstevel@tonic-gate 	}
567c478bd9Sstevel@tonic-gate 	else {
577c478bd9Sstevel@tonic-gate 	    buf += cc;
587c478bd9Sstevel@tonic-gate 	    wrlen -= cc;
597c478bd9Sstevel@tonic-gate 	}
607c478bd9Sstevel@tonic-gate     } while (wrlen > 0);
617c478bd9Sstevel@tonic-gate     return(len);
627c478bd9Sstevel@tonic-gate }
63