git.sur5r.net Git - freertos/blob - FreeRTOS/Demo/WIN32-MSVC-lwIP/lwIP_Apps/apps/BasicSocketCommandServer/BasicSocketCommandServer.c

   1 /*\r
   2     FreeRTOS V7.4.0 - Copyright (C) 2013 Real Time Engineers Ltd.\r
   3 \r
   4     FEATURES AND PORTS ARE ADDED TO FREERTOS ALL THE TIME.  PLEASE VISIT\r
   5     http://www.FreeRTOS.org TO ENSURE YOU ARE USING THE LATEST VERSION.\r
   6 \r
   7     ***************************************************************************\r
   8      *                                                                       *\r
   9      *    FreeRTOS tutorial books are available in pdf and paperback.        *\r
  10      *    Complete, revised, and edited pdf reference manuals are also       *\r
  11      *    available.                                                         *\r
  12      *                                                                       *\r
  13      *    Purchasing FreeRTOS documentation will not only help you, by       *\r
  14      *    ensuring you get running as quickly as possible and with an        *\r
  15      *    in-depth knowledge of how to use FreeRTOS, it will also help       *\r
  16      *    the FreeRTOS project to continue with its mission of providing     *\r
  17      *    professional grade, cross platform, de facto standard solutions    *\r
  18      *    for microcontrollers - completely free of charge!                  *\r
  19      *                                                                       *\r
  20      *    >>> See http://www.FreeRTOS.org/Documentation for details. <<<     *\r
  21      *                                                                       *\r
  22      *    Thank you for using FreeRTOS, and thank you for your support!      *\r
  23      *                                                                       *\r
  24     ***************************************************************************\r
  25 \r
  26 \r
  27     This file is part of the FreeRTOS distribution.\r
  28 \r
  29     FreeRTOS is free software; you can redistribute it and/or modify it under\r
  30     the terms of the GNU General Public License (version 2) as published by the\r
  31     Free Software Foundation AND MODIFIED BY the FreeRTOS exception.\r
  32 \r
  33     >>>>>>NOTE<<<<<< The modification to the GPL is included to allow you to\r
  34     distribute a combined work that includes FreeRTOS without being obliged to\r
  35     provide the source code for proprietary components outside of the FreeRTOS\r
  36     kernel.\r
  37 \r
  38     FreeRTOS is distributed in the hope that it will be useful, but WITHOUT ANY\r
  39     WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS\r
  40     FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more\r
  41     details. You should have received a copy of the GNU General Public License\r
  42     and the FreeRTOS license exception along with FreeRTOS; if not itcan be\r
  43     viewed here: http://www.freertos.org/a00114.html and also obtained by\r
  44     writing to Real Time Engineers Ltd., contact details for whom are available\r
  45     on the FreeRTOS WEB site.\r
  46 \r
  47     1 tab == 4 spaces!\r
  48 \r
  49     ***************************************************************************\r
  50      *                                                                       *\r
  51      *    Having a problem?  Start by reading the FAQ "My application does   *\r
  52      *    not run, what could be wrong?"                                     *\r
  53      *                                                                       *\r
  54      *    http://www.FreeRTOS.org/FAQHelp.html                               *\r
  55      *                                                                       *\r
  56     ***************************************************************************\r
  57 \r
  58 \r
  59     http://www.FreeRTOS.org - Documentation, books, training, latest versions,\r
  60     license and Real Time Engineers Ltd. contact details.\r
  61 \r
  62     http://www.FreeRTOS.org/plus - A selection of FreeRTOS ecosystem products,\r
  63     including FreeRTOS+Trace - an indispensable productivity tool, and our new\r
  64     fully thread aware and reentrant UDP/IP stack.\r
  65 \r
  66     http://www.OpenRTOS.com - Real Time Engineers ltd license FreeRTOS to High\r
  67     Integrity Systems, who sell the code with commercial support,\r
  68     indemnification and middleware, under the OpenRTOS brand.\r
  69 \r
  70     http://www.SafeRTOS.com - High Integrity Systems also provide a safety\r
  71     engineered and independently SIL3 certified version for use in safety and\r
  72     mission critical applications that require provable dependability.\r
  73 */\r
  74 \r
  75 /* Standard includes. */\r
  76 #include "stdlib.h"\r
  77 \r
  78 /* lwIP core includes */\r
  79 #include "lwip/opt.h"\r
  80 #include "lwip/sockets.h"\r
  81 \r
  82 /* FreeRTOS includes. */\r
  83 #include "FreeRTOS.h"\r
  84 #include "task.h"\r
  85 \r
  86 /* Utils includes. */\r
  87 #include "CommandInterpreter.h"\r
  88 \r
  89 /* Dimensions the buffer into which input characters are placed. */\r
  90 #define cmdMAX_INPUT_SIZE       20\r
  91 \r
  92 /* Dimensions the buffer into which string outputs can be placed. */\r
  93 #define cmdMAX_OUTPUT_SIZE      1024\r
  94 \r
  95 /*-----------------------------------------------------------*/\r
  96 \r
  97 void vBasicSocketsCommandInterpreterTask( void *pvParameters )\r
  98 {\r
  99 long lSocket, lClientFd, lBytes, lAddrLen = sizeof( struct sockaddr_in );\r
 100 struct sockaddr_in sLocalAddr;\r
 101 struct sockaddr_in client_addr;\r
 102 const signed char *pcWelcomeMessage = "FreeRTOS command server - connection accepted.\r\nType Help to view a list of registered commands.\r\n\r\n>";\r
 103 signed char cInChar, cInputIndex;\r
 104 static signed char cInputString[ cmdMAX_INPUT_SIZE ], cOutputString[ cmdMAX_OUTPUT_SIZE ];\r
 105 portBASE_TYPE xReturned;\r
 106 \r
 107         ( void ) pvParameters;\r
 108 \r
 109         lSocket = lwip_socket(AF_INET, SOCK_STREAM, 0);\r
 110 \r
 111         if( lSocket >= 0 )\r
 112         {\r
 113                 memset((char *)&sLocalAddr, 0, sizeof(sLocalAddr));\r
 114                 sLocalAddr.sin_family = AF_INET;\r
 115                 sLocalAddr.sin_len = sizeof(sLocalAddr);\r
 116                 sLocalAddr.sin_addr.s_addr = htonl(INADDR_ANY);\r
 117                 sLocalAddr.sin_port = ntohs( ( ( unsigned short ) 23 ) );\r
 118 \r
 119                 if( lwip_bind( lSocket, ( struct sockaddr *) &sLocalAddr, sizeof( sLocalAddr ) ) < 0 ) \r
 120                 {\r
 121                         lwip_close( lSocket );\r
 122                         vTaskDelete( NULL );\r
 123                 }\r
 124 \r
 125                 if( lwip_listen( lSocket, 20 ) != 0 )\r
 126                 {\r
 127                         lwip_close( lSocket );\r
 128                         vTaskDelete( NULL );\r
 129                 }\r
 130 \r
 131                 for( ;; )\r
 132                 {\r
 133 \r
 134                         lClientFd = lwip_accept(lSocket, ( struct sockaddr * ) &client_addr, ( u32_t * ) &lAddrLen );\r
 135 \r
 136                         if( lClientFd > 0L )\r
 137                         {\r
 138                                 lwip_send( lClientFd, pcWelcomeMessage, strlen( ( const char * ) pcWelcomeMessage ), 0 );\r
 139 \r
 140                                 cInputIndex = 0;\r
 141                                 memset( cInputString, 0x00, cmdMAX_INPUT_SIZE );\r
 142 \r
 143                                 do\r
 144                                 {                                       \r
 145                                         lBytes = lwip_recv( lClientFd, &cInChar, sizeof( cInChar ), 0 );\r
 146 \r
 147                                         if( lBytes > 0L ) \r
 148                                         {\r
 149                                                 if( cInChar == '\n' )\r
 150                                                 {\r
 151                                                         /* The input string has been terminated.  Was the \r
 152                                                         input a quit command? */\r
 153                                                         if( strcmp( "quit", ( const char * ) cInputString ) == 0 )\r
 154                                                         {\r
 155                                                                 /* Set lBytes to 0 to close the connection. */\r
 156                                                                 lBytes = 0L;\r
 157                                                         }\r
 158                                                         else\r
 159                                                         {\r
 160                                                                 /* The input string was not a quit command.  \r
 161                                                                 Pass the string to the command interpreter. */\r
 162                                                                 do\r
 163                                                                 {\r
 164                                                                         xReturned = xCmdIntProcessCommand( cInputString, cOutputString, cmdMAX_OUTPUT_SIZE );\r
 165                                                                         lwip_send( lClientFd, cOutputString, strlen( ( const char * ) cOutputString ), 0 );\r
 166 \r
 167                                                                 } while( xReturned != pdFALSE );\r
 168 \r
 169                                                                 /* All the strings generated by the input \r
 170                                                                 command have been sent.  Clear the input\r
 171                                                                 string ready to receive the next command. */\r
 172                                                                 cInputIndex = 0;\r
 173                                                                 memset( cInputString, 0x00, cmdMAX_INPUT_SIZE );\r
 174                                                                 lwip_send( lClientFd, "\r\n>", strlen( "\r\n>" ), 0 );\r
 175                                                         }\r
 176                                                 }\r
 177                                                 else\r
 178                                                 {\r
 179                                                         if( cInChar == '\r' )\r
 180                                                         {\r
 181                                                                 /* Ignore the character. */\r
 182                                                         }\r
 183                                                         else if( cInChar == '\b' )\r
 184                                                         {\r
 185                                                                 /* Backspace was pressed.  Erase the last \r
 186                                                                 character in the string - if any. */\r
 187                                                                 if( cInputIndex > 0 )\r
 188                                                                 {\r
 189                                                                         cInputIndex--;\r
 190                                                                         cInputString[ cInputIndex ] = '\0';\r
 191                                                                 }\r
 192                                                         }\r
 193                                                         else\r
 194                                                         {\r
 195                                                                 /* A character was entered.  Add it to the string\r
 196                                                                 entered so far.  When a \n is entered the complete\r
 197                                                                 string will be passed to the command interpreter. */\r
 198                                                                 if( cInputIndex < cmdMAX_INPUT_SIZE )\r
 199                                                                 {\r
 200                                                                         cInputString[ cInputIndex ] = cInChar;\r
 201                                                                         cInputIndex++;\r
 202                                                                 }\r
 203                                                         }\r
 204                                                 }\r
 205                                         }\r
 206 \r
 207                                 } while( lBytes > 0L );\r
 208 \r
 209                                  lwip_close( lClientFd );\r
 210                         }\r
 211                 } \r
 212         }\r
 213 \r
 214         /* Will only get here if a listening socket could not be created. */\r
 215         vTaskDelete( NULL );\r
 216 }\r
 217 \r