===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/plugin/file2.c,v
retrieving revision 1.1.1.1
retrieving revision 1.5
diff -u -p -r1.1.1.1 -r1.5
--- OpenXM/src/kan96xx/plugin/file2.c	1999/10/08 02:12:05	1.1.1.1
+++ OpenXM/src/kan96xx/plugin/file2.c	2003/11/17 05:45:47	1.5
@@ -1,3 +1,4 @@
+/*$OpenXM: OpenXM/src/kan96xx/plugin/file2.c,v 1.4 2001/05/04 01:06:30 takayama Exp $ */
 #include <stdio.h>
 #include <sys/time.h>
 #include <sys/types.h>
@@ -9,7 +10,7 @@
 #else
 void *GC_malloc(int size);
 #endif
-
+int WatchStream = 0;
 /*  Note:  1997, 12/6   cf. SS475/kxx/openxxx.tex, SS475/memo1.txt
     The functions in file2.c should not accept interruptions
     during its critical operations.  The synchronization mechanism
@@ -55,6 +56,8 @@ FILE2 *fp2open(int fd) {
   fp2->watch = 0;
   fp2->watchFile = NULL;
   fp2->mathcapList = NULL;
+  fp2->log_incomming = NULL;
+  fp2->log_outgoing = NULL;
   return(fp2);
 }
 
@@ -91,18 +94,22 @@ int fp2fclose(FILE2 *fp2) {
 }
 
 int fp2fputc(int c,FILE2 *fp2) {
+  FILE *fp;
   if (debug1) {
     printf("fp2fputc is called with %2x, fp2->writepos=%d, ",c,fp2->writepos);
     printf("fp2 = %x.\n",(int) fp2);
   }
-  if (fp2->watch) {
+  if (fp2->watch || WatchStream) {
+    if (fp2->watch) fp = fp2->watchFile;
+    else fp = stderr;
     if (c >= ' ' && c <='z') {
-      fprintf(fp2->watchFile," %2x(%c)-> ",c,c);
+      fprintf(fp," %2x(%c)-> ",c& 0xff,c);
     }else{
-      fprintf(fp2->watchFile," %2x( )-> ",c);
+      fprintf(fp," %2x( )-> ",c& 0xff);
     }
     fflush(NULL);
   }
+  if (fp2->log_outgoing != NULL) fputc(c,fp2->log_outgoing);
   if (checkfp2(fp2," fp2fputc ") == -1) return(-1);
   (fp2->writeBuf)[fp2->writepos] = c;
   (fp2->writepos)++;
@@ -116,29 +123,36 @@ int fp2fputc(int c,FILE2 *fp2) {
 
 int fp2fgetc(FILE2 *fp2) {
   int c;
+  FILE *fp;
   /* printf("fp2fgetc is called. "); fflush(NULL); */
   if (checkfp2(fp2," fp2fgetc ") == -1) return(-1);
   if (fp2->readpos < fp2->readsize) {
     fp2->readpos++;
     c = fp2->readBuf[fp2->readpos -1];
-    if (fp2->watch) {
+    if (fp2->watch || WatchStream) {
+      if (fp2->watch) fp = fp2->watchFile;
+      else fp = stderr;
       if (c >= ' ' && c <= 'z') {
-	fprintf(fp2->watchFile," %2x(%c) ",c,c);
+        fprintf(fp," %2x(%c) ",c,c);
       }else{
-	fprintf(fp2->watchFile," %2x( ) ",c);
+        fprintf(fp," %2x( ) ",c);
       }
       fflush(NULL);
     }
+    if (fp2->log_incomming != NULL) fputc(c,fp2->log_incomming);
     return(c); 
   }else{
     fp2->readpos = 0;
     fp2 ->readsize =
       read(fp2->fd, fp2->readBuf, fp2->limit);
     if (fp2->readsize == 0) {
-      if (fp2->watch) {
-	fprintf(fp2->watchFile," <%2x ",c);
-	fflush(NULL);
+      if (fp2->watch || WatchStream) {
+        if (fp2->watch) fp = fp2->watchFile;
+        else fp = stderr;
+        fprintf(fp," <%2x ",c);
+        fflush(NULL);
       }
+      if (fp2->log_incomming != NULL) fputc(c,fp2->log_incomming);
       return(-1);
     }
     else {
@@ -208,11 +222,11 @@ int fp2clearReadBuf(FILE2 *fp2) {
     if (FD_ISSET(fd,&readfds)) {
       n = read(fd,tmp00, TMP00SIZE);
       if (n <=  0) {
-	fprintf(stderr,"fp2clearReadBuf: File is closed or read error.\n");
-	return(-1);
+        fprintf(stderr,"fp2clearReadBuf: File is closed or read error.\n");
+        return(-1);
       }
       if ( n < TMP00SIZE ) {
-	return(0);
+        return(0);
       }
     }else {
       return(0);
@@ -262,3 +276,14 @@ int fp2stopWatch(FILE2 *fp2)
   }
 }
   
+int fp2log(FILE2 *fp,FILE *incomming,FILE *outgoing) {
+  fp->log_incomming = incomming;
+  fp->log_outgoing = outgoing;
+  return 0;
+}
+int fp2stopLog(FILE2 *fp) {
+  if (fp->log_incomming != NULL) fclose(fp->log_incomming);
+  if (fp->log_outgoing != NULL) fclose(fp->log_outgoing);
+  fp->log_incomming = fp->log_outgoing = NULL;
+  return 0;
+}