/*
串口通信實例

2002-1-3


下列代碼是一個控制串口的實例：
ole1：MSCOMM32控件；
SuperTracker：是一個接在串口上的設備；
chr()中的值是該設備的指令。

para nnn
serr=0
thisform.ole1.output=chr(2)+chr(6)+chr(3)
ltime=datetime()
do whil thisform.ole1.InBufferCount=0
if datetime()-ltime>12
=msg("警告","得不到SuperTracker的控制信號。","!O")
thisform.ole1.portopen=.f.
serr=1
retu
endif
enddo
mscomm=thisform.ole1.input
if str(mscomm(1),1)+str(mscomm(2),1)+str(mscomm(3),1)<>'263'
=msg("警告","得不到SuperTracker的控制信號。","!O")
thisform.ole1.portopen=.f.
serr=1
retu
endif
do case
case nnn=1
thisform.ole1.output=chr(2)+chr(35)+chr(83)+chr(3)
case nnn=2
thisform.ole1.output=chr(2)+chr(35)+chr(85)+chr(3)
case nnn=3
thisform.ole1.output=chr(2)+chr(35)+chr(66)+chr(3)
endcase
ltime=datetime()
do whil thisform.ole1.InBufferCount=0
if datetime()-ltime>20
=msg("警告","得不到SuperTracker的控制信號。","!O")
thisform.ole1.portopen=.f.
serr=1
retu
endif
enddo
mscomm=thisform.ole1.input
if str(mscomm(1),1)+str(mscomm(2),1)+str(mscomm(3),1)<>'263'
do case
case nnn=1
=msg("警告","SuperTracker無法進卡。","!O")
case nnn=2
=msg("警告","SuperTracker卡在里面。","!O")
case nnn=3
=msg("警告","SuperTracker卡在出口處。","!O")
endcase
thisform.ole1.portopen=.f.
serr=1
retu
endif
*/

#include <stdio.h>      /*標準輸入輸出定義*/
#include <stdlib.h>     /*標準函數庫定義*/
#include <unistd.h>     /*Unix標準函數定義*/
#include <sys/types.h>  /**/
#include <sys/stat.h>   /**/
#include <fcntl.h>      /*文件控制定義*/
#include <termios.h>    /*PPSIX終端控制定義*/
#include <errno.h>      /*錯誤號定義*/
#define TRUE 1
#define FALSE 0
/***@brief  設置串口通信速率
*@param  fd     類型 int  打開串口的文件句柄
*@param  speed  類型 int  串口速度
*@return  void*/

int speed_arr[]={B38400,B19200,B9600,B4800,B2400,B1200,B300,B38400,B19200,B9600,B4800,B2400,B1200,B300,};
int name_arr[]={38400,19200,9600,4800,2400,1200,300,38400,19200,9600,4800,2400,1200,300,};
void set_speed(int fd, int speed)
{
  int   i;
  int   status;
  struct termios Opt;
  tcgetattr(fd,&Opt);
  for (i=0;i<sizeof(speed_arr)/sizeof(int);i++)
   {
   	if(speed==name_arr[i])
   	{
   	    tcflush(fd, TCIOFLUSH);
    	cfsetispeed(&Opt,speed_arr[i]);
    	cfsetospeed(&Opt,speed_arr[i]);
    	status=tcsetattr(fd,TCSANOW,&Opt);
    	if(status!=0)
            perror("tcsetattr fd1");
     	return;
     	}
   tcflush(fd,TCIOFLUSH);
   }
}
/**
*@brief   設置串口數據位，停止位和效驗位
*@param  fd     類型  int  打開的串口文件句柄*
*@param  databits 類型  int 數據位   取值 為 7 或者8*
*@param  stopbits 類型  int 停止位   取值為 1 或者2*
*@param  parity  類型  int  效驗類型 取值為N,E,O,,S
*/
int set_Parity(int fd,int databits,int stopbits,int parity)
{
	struct termios options;
 if(tcgetattr(fd,&options)!=0)
  {
  	perror("SetupSerial 1");
  	return FALSE;
  }
  options.c_cflag&=~CSIZE;
  switch(databits) /*設置數據位數*/
  {
  	case 7:
  		options.c_cflag|=CS7;
  		break;
  	case 8:
		options.c_cflag|=CS8;
		break;
	default:
		fprintf(stderr,"Unsupported data size\n");
		return FALSE;
	}
  switch(parity)
  	{
  	case 'n':
	case 'N':
		options.c_cflag&=~PARENB;   /* Clear parity enable */
		options.c_iflag&=~INPCK;     /* Enable parity checking */
		break;
	case 'o':
	case 'O':
		options.c_cflag|=(PARODD|PARENB);  /* 設置為奇效驗*/ 
		options.c_iflag|=INPCK;             /* Disnable parity checking */
		break;
	case 'e':
	case 'E':
		options.c_cflag|=PARENB;     /* Enable parity */
		options.c_cflag&=~PARODD;   /* 轉換為偶效驗*/  
		options.c_iflag|=INPCK;       /* Disnable parity checking */
		break;
	case 'S':
	case 's':  /*as no parity*/
		options.c_cflag&=~PARENB;
		options.c_cflag&=~CSTOPB;
		break;
	default:
		fprintf(stderr,"Unsupported parity\n");
		return FALSE;
		}
  /* 設置停止位*/   
  switch(stopbits)
  	{
  	case 1:
  		options.c_cflag&=~CSTOPB;
		break;
	case 2:
		options.c_cflag|=CSTOPB;
		break;
	default:
		fprintf(stderr,"Unsupported stop bits\n");
		return FALSE;
	}
  /* Set input parity option */
  if(parity != 'n')
  		options.c_iflag|=INPCK;
    options.c_cc[VTIME]=150; // 15 seconds
    options.c_cc[VMIN]=0;
  tcflush(fd,TCIFLUSH); /* Update the options and do it NOW */
  if(tcsetattr(fd,TCSANOW,&options)!=0)
  	{
  		perror("SetupSerial 3");
		return FALSE;
	}
  return TRUE;
 }
/**
*@breif 打開串口
*/
int OpenDev(char *Dev)
{
int	fd=open(Dev,O_RDWR|O_NDELAY);
	if (fd==-1)
		{ /*設置數據位數*/
			perror("Can't Open Serial Port");
			return -1;
		}
	else
	return fd;

}
/**
*@breif 	main()
*/
int main(int argc, char **argv)
{
	int fd;
	int nwrite;
	char buff[512];
	char *dev ="/dev/ttyS0";
//        char *dev="/zlm/state.log";
  //      printf("aaaaas\n");
	fd=OpenDev(dev);
    //    printf("bbbbb\n");
     if (fd>0)
    set_speed(fd,19200);
	else
		{
		printf("Can't Open Serial Port!\n");
		exit(0);
		}
  if (set_Parity(fd,8,1,'N')== FALSE)
  {
    printf("Set Parity Error\n");
    exit(1);
  }
printf("zhixing\n");
  while(1)
  	{
	printf("he3llo\n");
   		printf("%d\n",read(fd,buff,512));
   		{
      		printf("\nLen %d\n",nwrite);
      		buff[nwrite+1]='\0';
      		printf("\n%s",buff);
		sleep(1);
   	 	}
	printf("nread=%d\n",nwrite);
	perror(errno);
  	}
    close(fd);
    exit(0);
}