/*
    XDemo34: Using the "Command 23" to reading the counter every sec.

    Compiler: BC++ 3.1
    Compile mode: large
    Project: user.c
             v7000.c
             vModbus.c          [after vcom3002.lib]
             ..\Lib\7188EL.Lib
             ..\Lib\TCPIP32.Lib
             ..\Lib\VcomNNNN.Lib, with NNNN being the lib file's version.

    The demo Similar to the XDemo23. It can using a global variable 
    to save the socket number. then, user can send data to client program 
    using function VcomSendSocket() in the other sub routine.
    
    Hardware: 7188E

    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.

    [27,Sep,2004] by Annita
    [10/Aug/2005] by Liam
	[26,July,2011] by Nicholas
*/

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

char sCommand[10];
unsigned int cnt;
int Socket_number;
int iMark;

void UserCount(void)
{
    /*
    User's timer trigger function.
    Please refer to XDemo04 for detail description.
    Please refer to XDemo09 for example code.
    */
    
    /* Using function VcomSendSocket() to reading the counter every sec. */
    char cStr[10];
    
    sprintf(cStr,"%d",cnt);
    if(iMark)
        VcomSendSocket(Socket_number,cStr,strlen(cStr));
        
    cnt++;
}

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

    cnt=0;
    AddUserTimerFunction(UserCount,1000); // call UserCnt every 1000 ms
}

void UserLoopFun(void)
{
    /*
    VxComm.exe will call this function every scan time
    Please refer to XDemo11 for Real-time I/O control
    */   

}

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 OK.
}

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.
    */
    
	memset(sCommand,'\0',sizeof(sCommand));
    p->ReadUartChar[p->Length]=0;   //Add zero end   
    sscanf(p->ReadUartChar+2, "%s",sCommand);
        
    if(!strcmpi(sCommand,"c"))
    {
        cnt = 0;
        iMark=1;
        Socket_number = p->Socket;
    }
    else if(!strcmpi(sCommand,"r"))
    {
        iMark=1;
        Socket_number = p->Socket;
    }
	else
	{
		iMark=0;
	}
        
    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
}