+/* $Id$ */
+
+/* File transport - send/receive a bunch of bytes from a file */
+
+/* Authors: Martin Quinson */
+/* Copyright (C) 2004 Martin Quinson. */
+
+/* This program is free software; you can redistribute it and/or modify it
+ under the terms of the license (GNU LGPL) which comes with this package. */
+
+#include <errno.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <fcntl.h>
+
+#include "gras_private.h"
+#include "transport_private.h"
+
+GRAS_LOG_NEW_DEFAULT_SUBCATEGORY(trp_file,transport);
+
+typedef struct {
+ int buffsize;
+} gras_trp_tcp_sock_specific_t;
+
+/***
+ *** Prototypes
+ ***/
+void gras_trp_file_close(gras_socket_t *sd);
+
+gras_error_t gras_trp_file_chunk_send(gras_socket_t *sd,
+ char *data,
+ size_t size);
+
+gras_error_t gras_trp_file_chunk_recv(gras_socket_t *sd,
+ char *data,
+ size_t size);
+
+void gras_trp_file_free_specific(void *s);
+
+/***
+ *** Specific plugin part
+ ***/
+
+typedef struct {
+ fd_set incoming_socks;
+} gras_trp_file_specific_t;
+
+/***
+ *** Specific socket part
+ ***/
+
+
+/***
+ *** Code
+ ***/
+gras_error_t
+gras_trp_file_init(gras_trp_plugin_t **dst) {
+
+ gras_trp_plugin_t *res=malloc(sizeof(gras_trp_plugin_t));
+ gras_trp_file_specific_t *specif = malloc(sizeof(gras_trp_file_specific_t));
+ if (!res || !specif)
+ RAISE_MALLOC;
+
+ FD_ZERO(&(specif->incoming_socks));
+
+ res->name = strdup("file");
+ res->socket_client = NULL;
+ res->socket_server = NULL;
+ res->socket_accept = NULL;
+ res->socket_close = gras_trp_file_close;
+
+ res->chunk_send = gras_trp_file_chunk_send;
+ res->chunk_recv = gras_trp_file_chunk_recv;
+
+ res->specific = (void*)specif;
+ res->free_specific = gras_trp_file_free_specific;
+
+ *dst = res;
+ return no_error;
+}
+
+void gras_trp_file_free_specific(void *s) {
+ gras_trp_file_specific_t *specific = s;
+ free(specific);
+}
+
+/**
+ * gras_socket_client_from_file:
+ *
+ * Create a client socket from a file path.
+ *
+ * This only possible in RL, and is mainly for debugging.
+ */
+gras_error_t
+gras_socket_client_from_file(const char*path,
+ /* OUT */ gras_socket_t **dst) {
+ gras_error_t errcode;
+ gras_trp_plugin_t *trp;
+
+ gras_assert0(gras_if_RL(),
+ "Cannot use file as socket in the simulator");
+
+ TRY(gras_trp_socket_new(0,dst));
+
+ TRY(gras_trp_plugin_get_by_name("file",&trp));
+ (*dst)->plugin=trp;
+
+ DEBUG3("in=%c out=%c accept=%c",
+ (*dst)->incoming?'y':'n',
+ (*dst)->outgoing?'y':'n',
+ (*dst)->accepting?'y':'n');
+
+ if (strcmp("-", path)) {
+ (*dst)->sd = open(path, O_RDONLY );
+
+ if ( (*dst)->sd < 0) {
+ RAISE2(system_error,
+ "Cannot create a client socket from file %s: %s",
+ path, strerror(errno));
+ }
+ } else {
+ (*dst)->sd = 1; /* stdout */
+ }
+
+ DEBUG4("sd=%d in=%c out=%c accept=%c",
+ (*dst)->sd,
+ (*dst)->incoming?'y':'n',
+ (*dst)->outgoing?'y':'n',
+ (*dst)->accepting?'y':'n');
+ /* register socket */
+ errcode = gras_dynar_push(_gras_trp_sockets,dst);
+ if (errcode != no_error) {
+ free(*dst);
+ *dst = NULL;
+ return errcode;
+ }
+
+ return no_error;
+}
+
+/**
+ * gras_socket_server_from_file:
+ *
+ * Create a server socket from a file path.
+ *
+ * This only possible in RL, and is mainly for debugging.
+ */
+gras_error_t
+gras_socket_server_from_file(const char*path,
+ /* OUT */ gras_socket_t **dst) {
+ gras_error_t errcode;
+ gras_trp_plugin_t *trp;
+
+ gras_assert0(gras_if_RL(),
+ "Cannot use file as socket in the simulator");
+
+ TRY(gras_trp_socket_new(1,dst));
+
+ TRY(gras_trp_plugin_get_by_name("file",&trp));
+ (*dst)->plugin=trp;
+
+
+ if (strcmp("-", path)) {
+ (*dst)->sd = open(path, O_WRONLY );
+
+ if ( (*dst)->sd < 0) {
+ RAISE2(system_error,
+ "Cannot create a server socket from file %s: %s",
+ path, strerror(errno));
+ }
+ } else {
+ (*dst)->sd = 0; /* stdin */
+ }
+
+ DEBUG4("sd=%d in=%c out=%c accept=%c",
+ (*dst)->sd,
+ (*dst)->incoming?'y':'n',
+ (*dst)->outgoing?'y':'n',
+ (*dst)->accepting?'y':'n');
+
+ /* register socket */
+ errcode = gras_dynar_push(_gras_trp_sockets,dst);
+ if (errcode != no_error) {
+ free(*dst);
+ *dst = NULL;
+ return errcode;
+ }
+
+ return no_error;
+}
+
+void gras_trp_file_close(gras_socket_t *sock){
+ gras_trp_file_specific_t *specific;
+
+ if (!sock) return; /* close only once */
+ specific=sock->plugin->specific;
+
+ if (sock->sd == 0) {
+ DEBUG0("Do not close stdin");
+ } else if (sock->sd == 1) {
+ DEBUG0("Do not close stdout");
+ } else {
+ DEBUG1("close file connection %d\n", sock->sd);
+
+ /* forget about the socket */
+ FD_CLR(sock->sd, &(specific->incoming_socks));
+
+ /* close the socket */
+ if(close(sock->sd) < 0) {
+ WARNING2("error while closing file %d: %s\n",
+ sock->sd, strerror(errno));
+ }
+ }
+}
+
+/**
+ * gras_trp_file_chunk_send:
+ *
+ * Send data on a file pseudo-socket
+ */
+gras_error_t
+gras_trp_file_chunk_send(gras_socket_t *sock,
+ char *data,
+ size_t size) {
+
+ gras_assert0(size >= 0, "Cannot send a negative amount of data");
+
+ while (size) {
+ int status = 0;
+
+ status = write(sock->sd, data, (size_t)size);
+ DEBUG3("write(%d, %p, %ld);\n", sock->sd, data, size);
+
+ if (status == -1) {
+ RAISE4(system_error,"write(%d,%p,%d) failed: %s",
+ sock->sd, data, (int)size,
+ strerror(errno));
+ }
+
+ if (status) {
+ size -= status;
+ data += status;
+ } else {
+ RAISE0(system_error,"file descriptor closed");
+ }
+ }
+
+ return no_error;
+}
+/**
+ * gras_trp_file_chunk_recv:
+ *
+ * Receive data on a file pseudo-socket.
+ */
+gras_error_t
+gras_trp_file_chunk_recv(gras_socket_t *sock,
+ char *data,
+ size_t size) {
+
+ /* TCP sockets are in duplex mode, don't check direction */
+ gras_assert0(sock, "Cannot recv on an NULL socket");
+ gras_assert0(size >= 0, "Cannot receive a negative amount of data");
+
+ while (size) {
+ int status = 0;
+
+ status = read(sock->sd, data, (size_t)size);
+ DEBUG3("read(%d, %p, %ld);\n", sock->sd, data, size);
+
+ if (status == -1) {
+ RAISE4(system_error,"read(%d,%p,%d) failed: %s",
+ sock->sd, data, (int)size,
+ strerror(errno));
+ }
+
+ if (status) {
+ size -= status;
+ data += status;
+ } else {
+ RAISE0(system_error,"file descriptor closed");
+ }
+ }
+
+ return no_error;
+}
+
