===================================================================
RCS file: /home/cvs/OpenXM/src/ox_toolkit/oxf.c,v
retrieving revision 1.10
retrieving revision 1.16
diff -u -p -r1.10 -r1.16
--- OpenXM/src/ox_toolkit/oxf.c	2000/12/14 01:41:03	1.10
+++ OpenXM/src/ox_toolkit/oxf.c	2003/05/29 15:50:49	1.16
@@ -1,5 +1,5 @@
 /* -*- mode: C; coding: euc-japan -*- */
-/* $OpenXM: OpenXM/src/ox_toolkit/oxf.c,v 1.9 2000/12/03 16:15:03 ohara Exp $ */
+/* $OpenXM: OpenXM/src/ox_toolkit/oxf.c,v 1.15 2003/03/23 20:17:35 ohara Exp $ */
 
 /*
    This module includes functions for sending/receiveng CMO's.
@@ -16,6 +16,12 @@
 #include <sys/param.h>
 #include <time.h>
 
+#if defined(__sun__)
+#include <netdb.h>
+#include <sys/types.h>
+#include <netinet/in.h>
+#endif
+
 #include "mysocket.h"
 #include "ox_toolkit.h"
 
@@ -26,6 +32,20 @@ static int send_int32_nbo(OXFILE *oxfp, int int32);
 static int receive_int32_lbo(OXFILE *oxfp);
 static int receive_int32_nbo(OXFILE *oxfp);
 
+/* enable write buffering */
+int oxf_setbuffer(OXFILE *oxfp, char *buf, int size)
+{
+    if (buf == NULL && size > 0) {
+        buf = malloc(size);
+    }
+    if (oxfp->wbuf != NULL) {
+        oxf_flush(oxfp);
+    }
+    oxfp->wbuf = buf; 
+    oxfp->wbuf_size  = size;
+    oxfp->wbuf_count = 0;
+}
+
 int oxf_read(void *buffer, size_t size, size_t num, OXFILE *oxfp)
 {
     int n = read(oxfp->fd, buffer, size*num);
@@ -37,7 +57,17 @@ int oxf_read(void *buffer, size_t size, size_t num, OX
 
 int oxf_write(void *buffer, size_t size, size_t num, OXFILE *oxfp)
 {
-    return write(oxfp->fd, buffer, size*num);
+    size_t sz = size*num;
+    if (oxfp->wbuf == NULL) { /* no buffering */
+        return write(oxfp->fd, buffer, sz);
+    }
+    if ((oxfp->wbuf_count + sz) >= oxfp->wbuf_size) {
+        oxf_flush(oxfp);
+        return write(oxfp->fd, buffer, sz);
+    }
+    memcpy(oxfp->wbuf + oxfp->wbuf_count, buffer, sz);
+    oxfp->wbuf_count += sz;
+    return sz;
 }
 
 /* sending an object of int32 type with Network Byte Order. 
@@ -81,6 +111,7 @@ static int receive_int32_lbo(OXFILE *oxfp)
 OXFILE *oxf_open(int fd)
 {
     OXFILE *oxfp = (OXFILE *)malloc(sizeof(OXFILE));
+    oxfp = (OXFILE *)malloc(sizeof(OXFILE));
     oxfp->fd = fd;
     oxfp->send_int32    = send_int32_nbo;
     oxfp->receive_int32 = receive_int32_nbo;
@@ -88,6 +119,9 @@ OXFILE *oxf_open(int fd)
     oxfp->control = NULL;
     oxfp->error = 0;
     oxfp->mathcap = NULL;
+    oxfp->wbuf = NULL;
+    oxfp->wbuf_size = 0;
+    oxfp->wbuf_count = 0;
     return oxfp;
     /* oxfp->fp = fdopen(fd, "a+"); */
     /* return (oxfp->fp != NULL)? oxfp: NULL; */
@@ -135,13 +169,16 @@ void oxf_determine_byteorder_server(OXFILE *oxfp)
 
 void oxf_flush(OXFILE *oxfp)
 {
-    /* fflush(oxfp->fp); */
+    if (oxfp->wbuf != NULL) {
+        write(oxfp->fd, oxfp->wbuf, oxfp->wbuf_count);
+        oxfp->wbuf_count = 0;
+    }
 }
 
 void oxf_close(OXFILE *oxfp)
 {
+    oxf_flush(oxfp);
     close(oxfp->fd);
-    /* fclose(oxfp->fp); */
 }
 
 #define OXF_SETOPT_NBO  0
@@ -170,13 +207,13 @@ int oxf_listen(short *portp)
 OXFILE *oxf_connect_active(char *hostname, short port)
 {
     int fd = mysocketOpen(hostname, port);
-    return oxf_open(fd);
+    return (fd < 0)? NULL: oxf_open(fd);
 }
 
 OXFILE *oxf_connect_passive(int listened)
 {
     int fd = mysocketAccept(listened);
-    return oxf_open(fd);
+    return (fd < 0)? NULL: oxf_open(fd);
 }
 
 #define LENGTH_OF_ONETIME_PASSWORD 64
@@ -263,9 +300,7 @@ int oxc_start(char *remote_host, short port, char *pas
     if (gethostname(localhost, MAXHOSTNAMELEN)==0) {
         if ((pid = fork()) == 0) {
             sprintf(ports, "%d", port);
-#ifdef DEBUG
-            fprintf(stderr, "oxf.c:: oxc_start() does %s(ssh) -f %s -h %s -p %s -c %s\n", remote_host, cmd, localhost, ports, passwd);
-#endif
+            ox_printf("oxf.c:: oxc_start() does %s(ssh) -f %s -h %s -p %s -c %s\n", remote_host, cmd, localhost, ports, passwd);
             execlp("ssh", remote_host, "-f", cmd,
                   "-h", localhost, "-p", ports,"-c", passwd, NULL);
         }