🚀 go-pugleaf

代理投稿です。
----------------------------------------------------------------

稲見＠＊＊と申します。
困った時のfj 頼みなのですが、故あって投稿できません。
代理投稿してもらってます。よろしくお願い致します。
fj.lang.tcl と fj.unix にクロスポストしてくれているはずです。
Followup-To は、fj.lang.tcl にお願いします。


Tcl7.6 と c のプログラムの間で、
inet ドメインのソケットを使って、
データのやり取りをしたいと考えています。

c の方で、

#include <stdio.h>
#include <string.h>
#include <sys/types.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <sys/time.h>

main(){

     int fd1, fd2;
     struct  sockaddr_in    saddr,  caddr;
     int     len;

     fd1 = socket(PF_INET, SOCK_STREAM, 0);
     bzero( (char *)&saddr, sizeof(saddr) ); 
     saddr.sin_family = AF_INET;
     saddr.sin_addr.s_addr = INADDR_ANY;
     saddr.sin_port = 8888;
     bind(fd1, (struct sockaddr *)&saddr,sizeof(saddr));
     listen(fd1, 5);
     len = sizeof(caddr);
     fd2 = accept(fd1, (struct sockaddr *)&caddr, &len);
     sleep(10);
     exit(0);
}

の様な事をして、サーバ側を用意し、
tclsh を立ち上げて、
次のようにすると、

% socket localhost 8888
couldn't open socket: connection refused

と、なってしまいます。

もちろん、クライアント側も c で書けば、
ちゃんと通信できますし、
サーバを Tcl で、

% socket -server accept 8888
sock3

として用意してやれば、クライアント側も

% socket localhost 8888
sock3

と、つながります。

使用した OS は、FreeBSD 2.1.5 Release です。
c と Tcl で通信するには、どうすればよいのでしょうか？

こういうものを読めばいい、
この辺に hint があるといったことで結構ですので
よろしくお願い致します。

-----------------------------------------------------------