erlang程序设计源码入门级

erlang程序设计源码入门级

/* erl_comm.c */
#include 

typedef unsigned char byte;

int read_cmd（byte *buf）;
int write_cmd（byte *buf int len）;
int read_exact（byte *buf int len）;
int write_exact（byte *buf int len）;

int read_cmd（byte *buf）
{
  int len;

  if （read_exact（buf 2） != 2）
    return（-1）;
  len = （buf[0] << 8） | buf[1];
  return read_exact（buf len）;
}

int write_cmd（byte *buf int len）
{
  byte li;

  li = （len >> 8） & 0xff;
  write_exact（&li 1）;
  
  li = len & 0xff;
  write_exact（&li 1）;

  return write_exact（buf len）;
}

int read_exact（byte *buf int len）
{
  int i got=0;

  do {
    if （（i = read（0 buf+got len-got）） <= 0）
      return（i）;
    got += i;
  } while （got
  return（len）;
}

int write_exact（byte *buf int len）
{
  int i wrote = 0;

  do {
    if （（i = write（1 buf+wrote len-wrote）） <= 0）
      return （i）;
    wrote += i;
  } while （wrote
  return （len）;
}

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2007-12-17 21:49  code\
     文件     1050452  2007-12-17 21:49  code\354984si.ngl.gz
     文件         663  2007-12-17 21:49  code\a.erl
     文件         515  2007-12-17 21:49  code\abc.erl
     文件        1972  2007-12-17 21:49  code\allocator.erl
     文件        1337  2007-12-17 21:49  code\area_server.erl
     文件         778  2007-12-17 21:49  code\area_server0.erl
     文件         804  2007-12-17 21:49  code\area_server1.erl
     文件         841  2007-12-17 21:49  code\area_server2.erl
     文件         908  2007-12-17 21:49  code\area_server_final.erl
     文件         555  2007-12-17 21:49  code\attrs.erl
     文件         449  2007-12-17 21:49  code\b.erl
     文件         958  2007-12-17 21:49  code\bad.erl
     文件        4663  2007-12-17 21:49  code\benchmark_assoc.erl
     文件        3519  2007-12-17 21:49  code\benchmark_mk_assoc.erl
     文件        2359  2007-12-17 21:49  code\broadcast.erl
     文件        1278  2007-12-17 21:49  code\chat_cluster.erl
     文件        2240  2007-12-17 21:49  code\chat_file_transfer.erl
     文件        2232  2007-12-17 21:49  code\chat_multi.erl
     文件        2233  2007-12-17 21:49  code\chat_secure.erl
     文件        2233  2007-12-17 21:49  code\chat_socket.erl
     文件        2248  2007-12-17 21:49  code\checker.erl
     文件         670  2007-12-17 21:49  code\clock.erl
     文件         600  2007-12-17 21:49  code\convert1.erl
     文件         541  2007-12-17 21:49  code\convert2.erl
     文件         565  2007-12-17 21:49  code\convert3.erl
     文件         608  2007-12-17 21:49  code\convert4.erl
     文件        1339  2007-12-17 21:49  code\convert5.erl
     文件        2599  2007-12-17 21:49  code\cookbook_examples.erl
     文件         898  2007-12-17 21:49  code\counter1.erl
     文件         810  2007-12-17 21:49  code\counter2.erl
............此处省略168个文件信息