widonwsÏÂ,ERLANG node Óë C node µÄÁ¬½Ó½¨Á¢ÎÊÌâ

ÔÚwindowsÏÂ,ÍêÈ«°´ÕÕ"C:\Program Files\erl5.7.2\doc\tutorial\part_frame.html"µÄ·½·¨½¨Á¢CNODE server.
C Ô´ÂëÈçÏÂ
/* cnode_s2.c */

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

#include "erl_interface.h"
#include "ei.h"

#define BUFSIZE 1000

int main(int argc, char **argv) {
  struct in_addr addr; /* 32-bit IP number of host */
  int port; /* Listen port number */
  int listen; /* Listen socket */
  int fd; /* fd to Erlang node */
  ErlConnect conn; /* Connection data */

  int loop = 1; /* Loop flag */
  int got; /* Result of receive */
  unsigned char buf[BUFSIZE]; /* Buffer for incoming message */
  ErlMessage emsg; /* Incoming message */

  ETERM *fromp, *tuplep, *fnp, *argp, *resp;
  int res;
  
  port = atoi(argv[1]);

  erl_init(NULL, 0);

  addr.s_addr = inet_addr("134.138.177.89");
  if (erl_connect_xinit("idril", "cnode", "cnode@idril.du.ua