Microchip%20TCP_IP%20stack/TCPIP%20Stack/GenericTCPServer.c

/*********************************************************************
 *
 *      Generic TCP Server Example Application
 *  Module for Microchip TCP/IP Stack
 *   -Implements an example "ToUpper" TCP server on port 9760 and 
 *        should be used as a basis for creating new TCP server 
 *    applications
 *       -Reference: None.  Hopefully AN833 in the future.
 *
 *********************************************************************
 * FileName:        GenericTCPServer.c
 * Dependencies:    TCP.h
 * Processor:       PIC18, PIC24F, PIC24H, dsPIC30, dsPIC33F
 * Complier:        Microchip C18 v3.03 or higher
 *                                      Microchip C30 v2.01 or higher
 * Company:         Microchip Technology, Inc.
 *
 * Software License Agreement
 *
 * Copyright © 2002-2007 Microchip Technology Inc.  All rights 
 * reserved.
 *
 * Microchip licenses to you the right to use, modify, copy, and 
 * distribute: 
 * (i)  the Software when embedded on a Microchip microcontroller or 
 *      digital signal controller product (“Device”) which is 
 *      integrated into Licensee’s product; or
 * (ii) ONLY the Software driver source files ENC28J60.c and 
 *      ENC28J60.h ported to a non-Microchip device used in 
 *      conjunction with a Microchip ethernet controller for the 
 *      sole purpose of interfacing with the ethernet controller. 
 *
 * You should refer to the license agreement accompanying this 
 * Software for additional information regarding your rights and 
 * obligations.
 *
 * THE SOFTWARE AND DOCUMENTATION ARE PROVIDED “AS IS” WITHOUT 
 * WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING WITHOUT 
 * LIMITATION, ANY WARRANTY OF MERCHANTABILITY, FITNESS FOR A 
 * PARTICULAR PURPOSE, TITLE AND NON-INFRINGEMENT. IN NO EVENT SHALL 
 * MICROCHIP BE LIABLE FOR ANY INCIDENTAL, SPECIAL, INDIRECT OR 
 * CONSEQUENTIAL DAMAGES, LOST PROFITS OR LOST DATA, COST OF 
 * PROCUREMENT OF SUBSTITUTE GOODS, TECHNOLOGY OR SERVICES, ANY CLAIMS 
 * BY THIRD PARTIES (INCLUDING BUT NOT LIMITED TO ANY DEFENSE 
 * THEREOF), ANY CLAIMS FOR INDEMNITY OR CONTRIBUTION, OR OTHER 
 * SIMILAR COSTS, WHETHER ASSERTED ON THE BASIS OF CONTRACT, TORT 
 * (INCLUDING NEGLIGENCE), BREACH OF WARRANTY, OR OTHERWISE.
 *
 *
 * Author               Date            Comment
 *~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 * Howard Schlunder     10/19/06        Original
 ********************************************************************/
#define __GENERICTCPSERVER_C

#include "TCPIP Stack/TCPIP.h"

#if defined(STACK_USE_GENERIC_TCP_SERVER_EXAMPLE)


#define SERVER_PORT     9760


/*********************************************************************
 * Function:        void GenericTCPServer(void)
 *
 * PreCondition:    Stack is initialized()
 *
 * Input:           None
 *
 * Output:          None
 *
 * Side Effects:    None
 *
 * Overview:        None
 *
 * Note:            None
 ********************************************************************/
void GenericTCPServer(void)
{
        BYTE c;
        static TCP_SOCKET       MySocket;
        static enum _TCPServerState
        {
                SM_HOME = 0,
                SM_LISTENING,
        } TCPServerState = SM_HOME;
        static BYTE     AppTXBuffer[33];
        static BYTE *AppTXStart = AppTXBuffer;
        static BYTE *AppTXEnd = AppTXBuffer;

        switch(TCPServerState)
        {
                case SM_HOME:
                        // Allocate a socket for this server to listen and accept connections on
                        MySocket = TCPListen(SERVER_PORT);
                        if(MySocket == INVALID_SOCKET)
                        {
#ifdef USE_LCD
                                strcpypgm2ram((char*)LCDText, "Error: Increase MAX_TCP_SOCKETS");
                                LCDUpdate();
#endif
                                return;
                        }

                        TCPServerState++;
                        break;

                case SM_LISTENING:
                        // See if anyone is connected to us
                        if(!TCPIsConnected(MySocket))
                        {
                                // Zero out the App TX buffer and do nothing
                                AppTXEnd = AppTXStart;
                                return;
                        }

                        // Receive any bytes that have been sent to us.
                        if(TCPIsGetReady(MySocket))
                        {
                                // Need to use LED7, disable BUTTON2 functionality on Explorer 16
                                LED7_TRIS = 0;
        
                                while(TCPGet(MySocket, &c))
                                {
                                        // Convert the character to uppercase and transmit it back 
                                        // to the sender
                                        if(c >= 'a' && c <= 'z')
                                                c -= ('a' - 'A');

                                        *AppTXEnd++ = c;
                                        if(AppTXEnd > AppTXBuffer + sizeof(AppTXBuffer))
                                                AppTXEnd = AppTXBuffer;
                                }
        
                                // Restore BUTTON2 functionality on Explorer 16
                                LED7_TRIS = 1;
                        }

                        // Transmit any bytes that are waiting to be sent.
                        c = 0x00;
                        while(TCPIsPutReady(MySocket) && (AppTXStart != AppTXEnd))
                        {
                                c = 0xFF;
                                TCPPut(MySocket, *AppTXStart++);
                                if(AppTXStart > AppTXBuffer + sizeof(AppTXBuffer))
                                        AppTXStart = AppTXBuffer;
                        }
                        // Flush the packet if we placed anything in the transmit buffer
                        if(c)
                                TCPFlush(MySocket);


                        break;
        }
}

#endif //#if defined(STACK_USE_GENERIC_TCP_SERVER_EXAMPLE)
1	/*********************************************************************
2	*
3	* Generic TCP Server Example Application
4	* Module for Microchip TCP/IP Stack
5	* -Implements an example "ToUpper" TCP server on port 9760 and
6	* should be used as a basis for creating new TCP server
7	* applications
8	* -Reference: None. Hopefully AN833 in the future.
9	*
10	*********************************************************************
11	* FileName: GenericTCPServer.c
12	* Dependencies: TCP.h
13	* Processor: PIC18, PIC24F, PIC24H, dsPIC30, dsPIC33F
14	* Complier: Microchip C18 v3.03 or higher
15	* Microchip C30 v2.01 or higher
16	* Company: Microchip Technology, Inc.
17	*
18	* Software License Agreement
19	*
20	* Copyright © 2002-2007 Microchip Technology Inc. All rights
21	* reserved.
22	*
23	* Microchip licenses to you the right to use, modify, copy, and
24	* distribute:
25	* (i) the Software when embedded on a Microchip microcontroller or
26	* digital signal controller product (“Device”) which is
27	* integrated into Licensee’s product; or
28	* (ii) ONLY the Software driver source files ENC28J60.c and
29	* ENC28J60.h ported to a non-Microchip device used in
30	* conjunction with a Microchip ethernet controller for the
31	* sole purpose of interfacing with the ethernet controller.
32	*
33	* You should refer to the license agreement accompanying this
34	* Software for additional information regarding your rights and
35	* obligations.
36	*
37	* THE SOFTWARE AND DOCUMENTATION ARE PROVIDED “AS IS” WITHOUT
38	* WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING WITHOUT
39	* LIMITATION, ANY WARRANTY OF MERCHANTABILITY, FITNESS FOR A
40	* PARTICULAR PURPOSE, TITLE AND NON-INFRINGEMENT. IN NO EVENT SHALL
41	* MICROCHIP BE LIABLE FOR ANY INCIDENTAL, SPECIAL, INDIRECT OR
42	* CONSEQUENTIAL DAMAGES, LOST PROFITS OR LOST DATA, COST OF
43	* PROCUREMENT OF SUBSTITUTE GOODS, TECHNOLOGY OR SERVICES, ANY CLAIMS
44	* BY THIRD PARTIES (INCLUDING BUT NOT LIMITED TO ANY DEFENSE
45	* THEREOF), ANY CLAIMS FOR INDEMNITY OR CONTRIBUTION, OR OTHER
46	* SIMILAR COSTS, WHETHER ASSERTED ON THE BASIS OF CONTRACT, TORT
47	* (INCLUDING NEGLIGENCE), BREACH OF WARRANTY, OR OTHERWISE.
48	*
49	*
50	* Author Date Comment
51	*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
52	* Howard Schlunder 10/19/06 Original
53	********************************************************************/
54	#define __GENERICTCPSERVER_C
55
56	#include "TCPIP Stack/TCPIP.h"
57
58	#if defined(STACK_USE_GENERIC_TCP_SERVER_EXAMPLE)
59
60
61	#define SERVER_PORT 9760
62
63
64	/*********************************************************************
65	* Function: void GenericTCPServer(void)
66	*
67	* PreCondition: Stack is initialized()
68	*
69	* Input: None
70	*
71	* Output: None
72	*
73	* Side Effects: None
74	*
75	* Overview: None
76	*
77	* Note: None
78	********************************************************************/
79	void GenericTCPServer(void)
80	{
81	BYTE c;
82	static TCP_SOCKET MySocket;
83	static enum _TCPServerState
84	{
85	SM_HOME = 0,
86	SM_LISTENING,
87	} TCPServerState = SM_HOME;
88	static BYTE AppTXBuffer[33];
89	static BYTE *AppTXStart = AppTXBuffer;
90	static BYTE *AppTXEnd = AppTXBuffer;
91
92	switch(TCPServerState)
93	{
94	case SM_HOME:
95	// Allocate a socket for this server to listen and accept connections on
96	MySocket = TCPListen(SERVER_PORT);
97	if(MySocket == INVALID_SOCKET)
98	{
99	#ifdef USE_LCD
100	strcpypgm2ram((char*)LCDText, "Error: Increase MAX_TCP_SOCKETS");
101	LCDUpdate();
102	#endif
103	return;
104	}
105
106	TCPServerState++;
107	break;
108
109	case SM_LISTENING:
110	// See if anyone is connected to us
111	if(!TCPIsConnected(MySocket))
112	{
113	// Zero out the App TX buffer and do nothing
114	AppTXEnd = AppTXStart;
115	return;
116	}
117
118	// Receive any bytes that have been sent to us.
119	if(TCPIsGetReady(MySocket))
120	{
121	// Need to use LED7, disable BUTTON2 functionality on Explorer 16
122	LED7_TRIS = 0;
123
124	while(TCPGet(MySocket, &c))
125	{
126	// Convert the character to uppercase and transmit it back
127	// to the sender
128	if(c >= 'a' && c <= 'z')
129	c -= ('a' - 'A');
130
131	*AppTXEnd++ = c;
132	if(AppTXEnd > AppTXBuffer + sizeof(AppTXBuffer))
133	AppTXEnd = AppTXBuffer;
134	}
135
136	// Restore BUTTON2 functionality on Explorer 16
137	LED7_TRIS = 1;
138	}
139
140	// Transmit any bytes that are waiting to be sent.
141	c = 0x00;
142	while(TCPIsPutReady(MySocket) && (AppTXStart != AppTXEnd))
143	{
144	c = 0xFF;
145	TCPPut(MySocket, *AppTXStart++);
146	if(AppTXStart > AppTXBuffer + sizeof(AppTXBuffer))
147	AppTXStart = AppTXBuffer;
148	}
149	// Flush the packet if we placed anything in the transmit buffer
150	if(c)
151	TCPFlush(MySocket);
152
153
154	break;
155	}
156	}
157
158	#endif //#if defined(STACK_USE_GENERIC_TCP_SERVER_EXAMPLE)