/* 
你試過(guò)在UNIX系統(tǒng)上連接通訊設(shè)備嗎？UNIX系統(tǒng)的版本很多，在具體處理上都有不少差別。這里向你介紹我的一個(gè)程序：雷卡（RACAL）加密機(jī)與SCO-UNIX、TANDEM、HP9000三種平臺(tái)的連接測(cè)試程序 
   hsmtest.c --- Test RACAL HSM 

   Host & port & device name: 
1) Tandem: NonStop-UX 
  Asyn port 2: /dev/ttya2 

2) PC Server: SCO UNIX 5.0.5 
  COM1 port: /dev/tty1a 

3) HP 9000 Model K360: HP-UX B.10.20 
  dtc port 1: /dev/ttydtc1 

   Compile: 
1)Tandem: 
 cc hsmtest.c -ohsmtest 
2)PC SCO-UNIX: 
 cc hsmtest.c -ohsmtest 
3)HP9000: 
 cc -Aa +DAportable -D_HPUX_SOURCE hsmtest.c -ohsmtest 
*/ 

#include <fcntl.h> 
#include <stdio.h> 
#include <string.h> 
#include <termio.h> 
#include <sys/ioctl.h> 
#include <sys/termio.h> 

typedef unsigned char  USGC; 

#if __nonstopux                             /* Tandem */ 
char logical_port_id[] = "/dev/ttya2"; 
#endif 
#if unix & i386                             /* PC Server, SCO-UNIX 5.0.5 */ 
char logical_port_id[] = "/dev/tty1a"; 
#endif 
#if __hpux                                  /* HP9000 K360, HP-UX 10.20 */ 
char logical_port_id[] = "/dev/ttydtc1"; 
#endif 

int  port_fd; 
int  msg_head_no = 0, cmd_no = 1; 

void disp_string(USGC *str, int n) 
{ 
  int  i; 

  for(i = 0; i < n; i++) 
  { 
    if(str[i] < 0x20 || str[i] >= 0x7F) 
      printf("(%02X)", str[i]); 
    else 
      printf("%c", str[i]); 
  } 
} 

int  open_port(char *dev_name) 
{ 
  struct termio termo, termn;      /* New and old termio specs */ 

  port_fd = open(dev_name, O_RDWR); 
  if(port_fd < 0) return -1; 

  if(!isatty(port_fd)) return -1; 

  if(ioctl(port_fd, TCGETA, &termo) < 0) return -1; 
  memcpy(&termn, &termo, sizeof(struct termio)); 
  termn.c_cflag &= ~CBAUD; 
  termn.c_cflag |= B9600; 
  termn.c_cflag &= ~CSIZE; 
  termn.c_cflag |= CS8; 
  termn.c_cflag &= ~PARENB; 
  termn.c_cflag &= ~CSTOPB;  /* use 1 stop bit  */ 
  termn.c_lflag &= ~ICANON; 
  termn.c_iflag &= ~ISTRIP;  /* process all 8 bits */ 
  termn.c_oflag &= ~OPOST;   /* characters are transmitted without change */ 
  termn.c_cc[VMIN] = 0;      /* minimum # of chars */ 
  termn.c_cc[VTIME] = 1;     /* 10'ths of seconds */ 
  if(ioctl(port_fd, TCSETA, &termn) < 0) return -1; 
  return 0; 
} 

int  write_port(char *buf, int n) 
{ 
  int  rc; 

  printf("Send %d bytes: ", n); 
  disp_string((USGC *)buf, n); 
  printf("\n"); 
  rc = write(port_fd, buf, n); 
  if(rc != n) 
  { 
    printf("write() = %d\n", rc); 
    return -1; 
  } 
  return 0; 
} 

int  read_port(USGC *buf) 
{  
  USGC tmpbuf[1024]; 
  int  n; 

  memset(tmpbuf, 0x00, 1024); 
  n = read(port_fd, tmpbuf, 1024); 
  if(n > 0) 
  { 
    printf("Recv %d bytes: ", n); 
    disp_string(tmpbuf, n); 
    printf("\n"); 
    memcpy(buf, tmpbuf, n); 
    return n; 
  } 
  printf("read() = %d\n", n); 
  return -1; 
} 

int  close_port(void) 
{ 
  int  rc; 

  rc = close(port_fd); 
  if(rc == 0) return 0; 
  printf("close() = %d\n", rc); 
  return -1; 
}  

int  hsm(char *req) 
{ 
  USGC resp[1024]; 
  int  rc, reqmsglen; 
  char msg_head[5]; 

  if(msg_head_no > 0) 
  { 
    sprintf(msg_head, "%04.4d", msg_head_no++); 
    memmove(req+1, msg_head, 4); 
  } 
  memset(resp, 0x00, 1024); 
  reqmsglen = strlen(req); 

  printf("--- %d -> open port: ", cmd_no++); 
  if(open_port(logical_port_id) != 0) 
  { 
    printf("open_port() error!\n"); 
    return 0; 
  } 
  printf("\nWrite: "); 
  if((rc = write_port(req, reqmsglen)) != 0) 
  { 
    printf("write_port() error!\n"); 
    goto hsm_end; 
  } 
  printf("Read: "); 
  read_port(resp); 
  read_port(resp); 
  printf("\n"); 
hsm_end: 
  close_port(); 
  return 0; 
} 

int  main(int argc, char **argv) 
{ 
/*  Usage: hsmtest [msg_head_no [port_name]] 
*/ 
  if(argc > 1) msg_head_no  = atoi(argv[1]); 
  if(argc > 2) strcpy(logical_port_id, argv[2]); 

  hsm("\0021234BA888888F123456789012\003"); 
  hsm("\0024567JG12345DF98765432F012345678901234567890\003"); 
  hsm("\0027890NG1234567890123456789\003"); 
  return 0; 
}