write.c 2.73 KB
/**
 * \file
 *
 * \author	Georg Hopp
 *
 * \copyright
 * Copyright © 2012  Georg Hopp
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 */

#include <openssl/err.h>
#include <openssl/ssl.h>
#include <unistd.h>
#include <errno.h>

#include "tr/stream.h"
#include "tr/logger.h"

ssize_t
TR_streamWrite(TR_Stream this, void * buf, size_t count)
{
	ssize_t done;

	switch(this->type) {
		ssize_t written;

		case TR_STREAM_FD:
			written = write((this->handle).fd, buf, count);

			if (written < 0) {
				switch (errno) {
					case EINTR:
					case ENOBUFS:
					case ENOMEM:
						done = 0;
						break;
					case (EAGAIN|EWOULDBLOCK):
						done = -1;
						break;
					default:
						done = -2;
						break;
				}
			} else {
				done = written;
			}

			break;

		case TR_STREAM_SSL:
			/**
			 * \todo I got a segfault in this call under unclear 
			 * circumstances. Most likely it has to do with a
			 * write on a closed connection.
			 */
			done = SSL_write((this->handle).ssl, buf, count);

			if (0 == done) {
				done = -2;
			} else if (0 > done) {
                switch (SSL_get_error((this->handle).ssl, done)) {
                    case SSL_ERROR_SYSCALL:
						{
							switch (errno) {
								case EINTR:
								case ENOBUFS:
								case ENOMEM:
									done = 0;
									break;
								case (EAGAIN|EWOULDBLOCK):
									done = -1;
									break;
								default:
									done = -2;
									break;
							}
						}
						break;

                    case SSL_ERROR_SSL:
                        {
                            unsigned long err;

                            while (0 != (err = ERR_get_error())) {
                                TR_loggerLog(
                                        TR_logger,
                                        TR_LOGGER_DEBUG,
                                        ERR_error_string(err, NULL));
                            }
                        }
                        // DROP THROUGH

                    case SSL_ERROR_ZERO_RETURN:
                        done = -2;
                        break;
                }
            }

			break;

		default:
			done = -2;
			break;
	}

	return done;
}

// vim: set ts=4 sw=4: