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  code354984si.ngl.gz
     文件         663  2007-12-17 21:49  codea.erl
     文件         515  2007-12-17 21:49  codeabc.erl
     文件        1972  2007-12-17 21:49  codeallocator.erl
     文件        1337  2007-12-17 21:49  codearea_server.erl
     文件         778  2007-12-17 21:49  codearea_server0.erl
     文件         804  2007-12-17 21:49  codearea_server1.erl
     文件         841  2007-12-17 21:49  codearea_server2.erl
     文件         908  2007-12-17 21:49  codearea_server_final.erl
     文件         555  2007-12-17 21:49  codeattrs.erl
     文件         449  2007-12-17 21:49  code.erl
     文件         958  2007-12-17 21:49  codead.erl
     文件        4663  2007-12-17 21:49  codeenchmark_assoc.erl
     文件        3519  2007-12-17 21:49  codeenchmark_mk_assoc.erl
     文件        2359  2007-12-17 21:49  coderoadcast.erl
     文件        1278  2007-12-17 21:49  codechat_cluster.erl
     文件        2240  2007-12-17 21:49  codechat_file_transfer.erl
     文件        2232  2007-12-17 21:49  codechat_multi.erl
     文件        2233  2007-12-17 21:49  codechat_secure.erl
     文件        2233  2007-12-17 21:49  codechat_socket.erl
     文件        2248  2007-12-17 21:49  codechecker.erl
     文件         670  2007-12-17 21:49  codeclock.erl
     文件         600  2007-12-17 21:49  codeconvert1.erl
     文件         541  2007-12-17 21:49  codeconvert2.erl
     文件         565  2007-12-17 21:49  codeconvert3.erl
     文件         608  2007-12-17 21:49  codeconvert4.erl
     文件        1339  2007-12-17 21:49  codeconvert5.erl
     文件        2599  2007-12-17 21:49  codecookbook_examples.erl
     文件         898  2007-12-17 21:49  codecounter1.erl
     文件         810  2007-12-17 21:49  codecounter2.erl
............此处省略168个文件信息