/*
    XDemo57: The communication of the 7188E acting as client and the other 7188Es acting as server

    Compiler: BC++ 3.1
    Compile mode: large
    Project: user.c
             Vsocket.c            
             v7000.c
             vModbus.c           [after vcom3002.lib]
             ..\Lib\7188EL.Lib
             ..\Lib\TCPIP32.Lib    [It must use the TCPIPL.lib after 2003/5/29]
             ..\Lib\Vcom320l.Lib, [It must use the Vcom3009.Lib or later]
            
    This demo provides the client functions for 7188E modules. You can use them to communicate with
    the other i-7188E without any PC helping.
    On this Demo,the 7188E treated as client sends the command "10" to inquire the name of I7188E
    acting as Server.

Note:
    1.The 7188E has one restriction due to the collision of Ethernet.
      You must set the received time to 5~10 sec in the client program.
      Close the socket and then build a new socket to connect again while received timeout happen"
      This demo shows how to follow this rule.[11/April/2003]
    2.Use the ET_TOUT to set the connection timeout within 800 ms
      to avoid the 7188E reboot by WatchDog(refer to vsocket.c)

    The executing steps
    Step 1: Set the IP of  first 7188E as 192.168.255.1,and load the VcomNNNN.exe into it.
    Step 2: Set the IP of  second 7188E as 192.168.255.10,and load this demo,Xdemo57.exe to the 7188E.
    Step 3: Connect the two 7188E modules to the Ethernet as below,and power on them.
            PC(monitor)(Com1)<---RS232--->(Com1) 7188E(client/server) <--->Hub<--->7188E(server)    
    Step 4: During the both modules run,the user can monitor them using the program of PC through Com port.
    Step 5: You can see the string of sending and the string of receiving from the screen of PC.
   

    The client functions consist of the ReceiveSocketBinaryCmd(),KillSockets(),BuildSockets()
    and SendSocketBinaryCmd() in "Vsocket.C".  
    
    Hardware: 7188E modules * 2
              7188E(client) 
              7188E(server) 
         
    Refer 7188e\TCP\Doc\[Big5|Eng|Gb2312]\Vxcomm.htm 
          7188e\TCP\Xserver\Xserver.htm
          7188e\TCP\Xserver\Function.htm   
    to get more information.
	
	Because the kernal of Xserver used InstallCom() function.
	Please use printCom1() instead of Print() if you want to send formatted output from COM1.

    [Apr/11/2003] by Sean
    [Jun/23/2004] modified by sean
    Fix bug which the connected socket can not be released
    [06,Oct,2004] Commented by Annita
    [10/Aug/2005] by Liam
	[26,July,2011] by Nicholas
*/

#include<string.h>
#include<stdio.h>
#include<setjmp.h>
#include "..\lib\7188e.h"
#include "..\lib\tcpip32.h"
#include "..\lib\vxcomm.h"
#include "Vsocket.h"


int iSocketflag,iSend;         //Uses to detect whether the socket is active;
char InBuf[1023],OutBuf[1023]; //InBuf:the buffer of receing ,OutBuf:the buffer of sending
int iOutskt;                   //The socket number of connecting
unsigned int iPort;            //The port number of the server
unsigned char iIpStr[17];      //The IP of the server
int Recesucceed=0,iTotalReceive;
int total;
extern jmp_buf jumper;
unsigned long lTimeTick;
unsigned long stime;    


void UserCount(void)
{   
    /*
    User's timer trigger function.
    Please refer to XDemo04 for detail description.
    Please refer to XDemo09 for example code.
    */

    if(iSocketflag==1 && iOutskt) //Set iSend=1 mean sending data to server per 4000ms set by AddUserTimerFunction,when the socket was bulit.
        iSend=1;
    else
        iSend=0;        
}

void UserInit(void)
{
    /*
    Initialize user's program.
    Please refer to XDemo04 for detail description.
    Please refer to XDemo09 for example code.
    */  

    int hour,minu,sec;
    int year,month,day;
    
    /*
    All of the program user.c needn't function Installcom().
    Becuase they have install When the Xserver initialize.
    If you want to change the baud rate.data format, 
    please using the function SetBaudrate().SetDataFormat().
    */
    
    SetBaudrate(1,115200L);
    SetDataFormat(1,8,0,1);
    GetDate(&year,&month,&day);
    GetTime(&hour,&minu,&sec);

//  if(IsResetByPowerOff())
    //The function was renamed to IsResetByPowerOn() from 7188e.h.
    if(IsResetByPowerOn())
        printCom1("IsResetByPowerOn,%d/%d, %d:%d:%d\r\n",month,day,hour,minu,sec);
    else if(IsResetByWatchDogTimer())
        printCom1("ResetByWatchDogTimer,%d/%d, %d:%d:%d\r\n",month,day,hour,minu,sec);              
    else
        printCom1("jump to ffff:0000,%d/%d, %d:%d:%d\r\n",month,day,hour,minu,sec);

    iSocketflag=0;  
    iSend=0;            
    
    lTimeTick=0;
    sprintf(iIpStr,"10.0.8.23"); //change the ip to fit your your server.//192.168.255.1
    iPort=10000;//change the port number to fit your your server.
    printCom1("IpStr=%10s,iPort=%5d\r\n",iIpStr,iPort);
    sprintf(OutBuf,"10\r");  //send the command of Minios7 to 7188E acting as server
    AddUserTimerFunction(UserCount,4000);
}

void UserLoopFun(void)
{
    /*
    VxComm.exe will call this function every scan time
    Please refer to XDemo11 for Real-time I/O control
    */    
    
    int iRet,i;
    extern int errno;
    char InTemp[80];
    
    if(!iSocketflag && (GetTimeTicks()-lTimeTick)>3000){        
        lTimeTick=GetTimeTicks();
        iOutskt=BuildSocket(iIpStr,iPort,200);  //buildsockets
        printCom1("Socket number:%d!!\r\n\r\n",iOutskt);
        if (iOutskt==-1){
            printCom1("connect error!!\r\n");
            iSocketflag=0;
            longjmp(jumper,1); //release the buffers relate to Ethernet
        }
        else iSocketflag=1;     
    }

    if(iSend>0){
        if(Recesucceed==0)
        {
            iRet=SendSocketBinaryCmd(iOutskt,OutBuf,strlen(OutBuf));
            if (iRet<0)// write error
            {               
                printCom1("echo Send error,code(%d)\r\n",iRet);
                KillSocket(iOutskt);
                iSocketflag=0;
                goto End;
            }                   
            else    
            {
                printCom1("Total time:%d\r",total++);
                stime=GetTimeTicks();
            }               
            iTotalReceive=0;                
            strnset(InBuf,0x0,1023);
        }           
        iRet=ReceiveSocketBinaryCmd(iOutskt,InTemp,sizeof(InTemp),700);
        if (iRet==-1)// read error
        {
            if(errno==ETIMEDOUT) //Detect whether the error of recv is timeout.
            {
                if(GetTimeTicks()-stime<10000) //10 sec
                {
                    Recesucceed=1;
                    printCom1("echo Receive timeout \r\n");
                }
                else
                {
                    Recesucceed=0;
                    printCom1("Receive timeout over 10 sec\r\n",iRet);          
                    KillSocket(iOutskt);
                    iSend=0;
                    iSocketflag=0;  
                    total=0;
                }                                                   
            }                               
            else
            {
                Recesucceed=0;
                printCom1("echo Receive error,code(%d)\r\n",iRet);          
                KillSocket(iOutskt);
                iSend=0;
                iSocketflag=0;
                total=0;
            }               
        }      
        else 
        {
            Recesucceed=0;
            iTotalReceive+=iRet;
            strcat(InBuf,InTemp);
            if(InBuf[iTotalReceive-1]=='\r') //Change the condition for your request
            {
                InBuf[iRet]=0;  // add zero to end
                Recesucceed=0;
            }                       
//          printCom1("Connect->send->receive->close takes %d ms\r\n",*TimeTicks-lTimeTicks1);   //debug   
    }
End:    
        iSend=0;
    }   
}

int UserCmd(unsigned char *Cmd,unsigned char *Response)
{
    /*  
    Xserver executes this function when received a package 
    form TCP port 10000 and the first two bytes are "19".
    
    Funtion of Xserver, Please refer to XDemo04 for detail description.
    */  

    return 1;   /* return error */
}

int VcomUserBinaryCmd(TCPREADDATA *p)
{
    /* 
    VXCOMM.EXE 2.6.12(04,Sep,2001) or later will support this function.

    Xserver executes this function when received a package 
    form TCP port 10000 and the first two bytes are "23".
    
    Please refer to XDemo04 for detail description.
    Please refer to XDemo23 for example code.
    */
    return 1;   /* any value will be accept */
}

int VcomCmdUser(TCPREADDATA *p)  
{ 
    /*
    VCOM3005 (Feb,22,2002) or later will call this function for PortUser.
    When packets received by TCP PORT PortUser(user defined) 
    of 7188E/8000E, Xserver will call this function.

    Please refer to XDemo04 for detail description.
    */
    VcomSendSocket(p->Socket,p->ReadUartChar,p->Length);
    return 1;   /* any value will be accept */  
}

void PortUserStart(int skt)
{
    /* 
    XS8_3200.Lib Version 3.2.00 (20,Apr,2004) 
    or later version supports this function.
    
    When a TCP/IP client connects to the 7188E/8000E via the user's 
    defined port(PortUser), the Xserver calls the function once.

    Please refer to XDemo04 for detail description.
    */
    
    skt=skt; //do nothing
}
  
void Port9999Start(int skt)
{
    /* 
    XS8_3200.Lib Version 3.2.00 (20,Apr,2004) 
    or later version supports this function.
    
    When a TCP/IP client connects to the 7188E/8000E TCP port 9999, 
    the Xserver calls the function once.
 
    Please refer to XDemo04 for detail description.
    */
    
    skt=skt; //do nothing
}
 
void Port502Start(int skt)
{
    /* 
    XS8_3200.Lib Version 3.2.00 (20,Apr,2004) 
    or later version supports this function.
    
    When a TCP/IP client connects to the 7188E/8000E TCP port 502, 
    the Xserver calls the function once.
    
    Please refer to XDemo04 for detail description.
    */
    
    skt=skt; //do nothing
}