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