===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/plugin/sm1Socket.c,v
retrieving revision 1.18
retrieving revision 1.22
diff -u -p -r1.18 -r1.22
--- OpenXM/src/kan96xx/plugin/sm1Socket.c	2004/11/23 00:02:55	1.18
+++ OpenXM/src/kan96xx/plugin/sm1Socket.c	2020/10/06 11:33:47	1.22
@@ -1,14 +1,16 @@
-/* $OpenXM: OpenXM/src/kan96xx/plugin/sm1Socket.c,v 1.17 2004/02/25 23:14:35 takayama Exp $ */
+/* $OpenXM: OpenXM/src/kan96xx/plugin/sm1Socket.c,v 1.21 2015/10/10 11:29:46 takayama Exp $ */
 /* msg0s.c */
 #include <stdio.h>
+#include <string.h>
 #include <sys/types.h>
 #include <sys/socket.h>
 #include <sys/time.h>
 #include <netinet/in.h>
 #include <netdb.h>
 #include <errno.h>
+#include <stdlib.h>
+#include <unistd.h>
 
-
 #include "datatype.h"
 #include "stackm.h"
 #include "extern.h"
@@ -147,7 +149,7 @@ struct object KsocketConnect(struct object obj) {
     perror("socket"); errorMsg1s("socket allocation is failed.\n");
   }
   if (!Quiet) {
-    fprintf(stderr,"Trying to connect port %d, ip=%x\n",ntohs(server.sin_port),server.sin_addr);
+    fprintf(stderr,"Trying to connect port %d, ip=%lx\n",ntohs(server.sin_port),(long) server.sin_addr.s_addr);
   }
   if (connect(socketid,(struct sockaddr *)&server,sizeof(server)) == -1) {
     perror("connect"); errorMsg1s("cannot connect");
@@ -162,9 +164,9 @@ struct object KsocketConnect(struct object obj) {
 /* [ integer socketid ]
    [ integer newsocketid ] */
 struct object KsocketAccept(struct object obj) {
-  struct object obj1;
-  struct object obj2;
-  struct object robj;
+  struct object obj1 = OINIT;
+  struct object obj2 = OINIT;
+  struct object robj = OINIT;
   int s, news;
     
   if (obj.tag != Sarray) {
@@ -202,9 +204,9 @@ struct object KsocketAccept(struct object obj) {
    ....
    */
 struct object KsocketAccept2(struct object obj) {
-  struct object obj1;
-  struct object obj2;
-  struct object robj;
+  struct object obj1 = OINIT;
+  struct object obj2 = OINIT;
+  struct object robj = OINIT;
   int s, news;
     
   if (obj.tag != Sarray) {
@@ -262,9 +264,9 @@ int KsocketSelect0(int fd,int t) {
    integer true or false
 */
 struct object KsocketSelect(struct object obj) {
-  struct object robj;
-  struct object ob1;
-  struct object ob2;
+  struct object robj = OINIT;
+  struct object ob1 = OINIT;
+  struct object ob2 = OINIT;
   if (obj.tag != Sarray) {
     errorMsg1s("KsocketSelect([ integer socketid optional integer timeout default 0]");
   }
@@ -294,10 +296,10 @@ struct object KsocketSelectMulti(struct object obj) 
    [ result1, result2, ....]
 */
 {
-  struct object robj;
-  struct object ob1;
-  struct object ob2;
-  struct object ob3;
+  struct object robj = OINIT;
+  struct object ob1 = OINIT;
+  struct object ob2 = OINIT;
+  struct object ob3 = OINIT;
   int size,i,fd,p,t;
   fd_set readfds;
   struct timeval timeout;
@@ -373,7 +375,7 @@ static char Data00[1024];
    string data 
 */
 struct object KsocketRead(struct object obj) {
-  struct object ob1;
+  struct object ob1 = OINIT;
   struct object robj = NullObject;
   static int datasize = 1024;
   static char *data = Data00;
@@ -435,8 +437,8 @@ struct object KsocketRead(struct object obj) {
 /* [ integer socketid, string data ]
    integer  */
 struct object KsocketWrite(struct object obj) {
-  struct object ob1;
-  struct object ob2;
+  struct object ob1 = OINIT;
+  struct object ob2 = OINIT;
   int socketid;
   int r;
   int k,k0;
@@ -472,7 +474,7 @@ struct object KsocketWrite(struct object obj) {
 }
 struct object KsocketClose(struct object obj) {
   int socketid;
-  struct object ob1;
+  struct object ob1 = OINIT;
   if (obj.tag != Sarray) {
     errorMsg1s("KsocketClose([ integer socketid ])");
   }
@@ -499,7 +501,7 @@ struct object KsocketReadByte(struct object obj);
 struct object KsocketWriteByte(struct object obj);
 
 struct object KsocketReadByte(struct object obj) {
-  struct object ob1;
+  struct object ob1 = OINIT;
   struct object robj = NullObject;
   char data[2];
   char *tmp;
@@ -540,8 +542,8 @@ struct object KsocketReadByte(struct object obj) {
 /* [ integer socketid, int ]
    integer  */
 struct object KsocketWriteByte(struct object obj) {
-  struct object ob1;
-  struct object ob2;
+  struct object ob1 = OINIT;
+  struct object ob2 = OINIT;
   int socketid;
   int r,i,n,kk,r0;
 #define DATA_SIZE 1024
@@ -600,9 +602,9 @@ struct object KsocketWriteByte(struct object obj) {
 
 struct object KsocketReadHTTP(struct object socketObj) {
   /* Read until two empty line appears. */
-  struct object ob;
-  struct object ob1;
-  struct object nob;
+  struct object ob = OINIT;
+  struct object ob1 = OINIT;
+  struct object nob = OINIT;
   char *s;
   char *sss;
   char *tmp;