URL https://opencores.org/ocsvn/plasma/plasma/trunk

Subversion Repositories plasma

[/] [plasma/] [trunk/] [kernel/] [http.c] - Blame information for rev 390

Go to most recent revision | Details | Compare with Previous | View Log


/*--------------------------------------------------------------------
 * TITLE: Plasma TCP/IP HTTP Server
 * AUTHOR: Steve Rhoads (rhoadss@yahoo.com)
 * DATE CREATED: 4/22/06
 * FILENAME: http.c
 * PROJECT: Plasma CPU core
 * COPYRIGHT: Software placed into the public domain by the author.
 *    Software 'as is' without warranty.  Author liable for nothing.
 * DESCRIPTION:
 *    Plasma TCP/IP HTTP Server
 *--------------------------------------------------------------------*/
#ifdef WIN32
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#define _LIBC
#endif
#include "rtos.h"
#include "tcpip.h"
#ifdef WIN32
#define UartPrintf printf
#define OS_MQueueCreate(A,B,C) 0
#define OS_MQueueGet(A,B,C) 0
#define OS_ThreadCreate(A,B,C,D,E) 0
#endif
 
static const char pageGif[]=
{
   "HTTP/1.0 200 OK\r\n"
   "Content-Length: %d\r\n"
   "Content-Type: binary/gif\r\n\r\n"
};
static const char pageGif2[]=
{
   "HTTP/1.0 200 OK\r\n"
   "Content-Type: binary/gif\r\n\r\n"
};
static const char pageBinary[]=
{
   "HTTP/1.0 200 OK\r\n"
   "Content-Length: %d\r\n"
   "Content-Type: binary/binary\r\n\r\n"
};
static const char pageBinary2[]=
{
   "HTTP/1.0 200 OK\r\n"
   "Content-Type: binary/binary\r\n\r\n"
};
static const char pageHtml[]={
   "HTTP/1.0 200 OK\r\n"
   "Content-Length: %d\r\n"
   "Content-Type: text/html\r\n\r\n"
};
static const char pageHtml2[]={
   "HTTP/1.0 200 OK\r\n"
   "Content-Type: text/html\r\n\r\n"
};
static const char pageText[]={
   "HTTP/1.0 200 OK\r\n"
   "Content-Length: %d\r\n"
   "Content-Type: text/text\r\n\r\n"
};
static const char pageEmpty[]=
{
   "HTTP/1.0 404 OK\r\n"
   "Content-Length: 0\r\n"
   "Content-Type: text/html\r\n\r\n"
};
 
static const PageEntry_t *HtmlPages;
static int HtmlFiles;
 
 
void HttpServer(IPSocket *socket)
{
   uint8 buf[600];
   char filename[80];
   int bytes, i, length, len, needFooter;
   char *name=NULL, *page=NULL;
   const char *header, *header2;
 
   if(socket == NULL)
      return;
   if(socket->funcPtr != HttpServer && socket->funcPtr)
   {
      socket->funcPtr(socket);
      return;
   }
   bytes = IPRead(socket, buf, sizeof(buf)-1);
   if(bytes)
   {
      buf[bytes] = 0;
      if(strncmp((char*)buf, "GET /", 5) == 0)
      {
         for(i = 0; ; ++i)
         {
            length = HtmlPages[i].length;
            if(length == -1)
               break;
            name = (char*)HtmlPages[i].name;
            page = (char*)HtmlPages[i].page;
            len = (int)strlen(name);
            if(strncmp((char*)buf+4, name, len) == 0)
               break;
         }
#if defined(WIN32) || defined(INCLUDE_FILESYS)
         if(length == HTML_LENGTH_LIST_END && HtmlFiles)
         {
            FILE *file;
            char *ptr;
 
            name = (char*)buf + 5;
            ptr = strstr(name, " ");
            if(ptr)
               *ptr = 0;
            strcpy(filename, "/web/");
            strncat(filename, name, 60);
            file = fopen(filename, "rb");
            if(file == NULL)
            {
               strcpy(filename, "/flash/web/");
               strncat(filename, name, 60);
               file = fopen(filename, "rb");
            }
            if(file)
            {
               if(strstr(name, ".htm"))
                  IPWrite(socket, (uint8*)pageHtml2, sizeof(pageHtml2)-1);
               else if(strstr(name, ".gif"))
                  IPWrite(socket, (uint8*)pageGif2, sizeof(pageGif2)-1);
               else
                  IPWrite(socket, (uint8*)pageBinary2, sizeof(pageBinary2)-1);
               for(;;)
               {
                  len = fread(buf, 1, sizeof(buf), file);
                  if(len == 0)
                     break;
                  IPWrite(socket, (uint8*)buf, len);
               }
               fclose(file);
               IPWriteFlush(socket);
               IPClose(socket);
               return;
            }
         }
#endif
         if(length != HTML_LENGTH_LIST_END)
         {
            if(length == HTML_LENGTH_CALLBACK)
            {
               IPFuncPtr funcPtr = (IPFuncPtr)(uint32)page;
               funcPtr(socket, buf, bytes);
               return;
            }
            if(length == 0)
               length = (int)strlen(page);
            needFooter = 0;
            header2 = NULL;
            if(strstr(name, ".html"))
               header = pageHtml;
            else if(strstr(name, ".htm") || strcmp(name, "/ ") == 0)
            {
               header = pageHtml;
               header2 = HtmlPages[0].page;
               needFooter = 1;
            }
            else if(strstr(HtmlPages[i].name, ".gif"))
               header = pageGif;
            else
               header = pageBinary;
            len = 0;
            if(header2)
               len += (int)strlen(header2) + (int)strlen(HtmlPages[1].page);
            sprintf((char*)buf, header, length + len);
            IPWrite(socket, buf, (int)strlen((char*)buf));
            if(header2)
               IPWrite(socket, (uint8*)header2, (int)strlen(header2));
            IPWrite(socket, (uint8*)page, length);
            if(needFooter)
               IPWrite(socket, (uint8*)HtmlPages[1].page, (int)strlen(HtmlPages[1].page));
         }
         else
         {
            IPWrite(socket, (uint8*)pageEmpty, (int)strlen(pageEmpty));
         }
         IPClose(socket);
      }
   }
}
 
 
void HttpInit(const PageEntry_t *Pages, int UseFiles)
{
   HtmlPages = Pages;
   HtmlFiles = UseFiles;
   IPOpen(IP_MODE_TCP, 0, 80, HttpServer);
   IPOpen(IP_MODE_TCP, 0, 8080, HttpServer);
}
 
 
#ifdef EXAMPLE_HTML
//Example test code
static void MyProg(IPSocket *socket, char *request, int bytes)
{
   char *text="HTTP/1.0 200 OK\r\nContent-Type: text/html\r\n\r\n"
              "<html><body>Hello World!</body></html>";
   (void)request; (void)bytes;
   IPWrite(socket, (uint8*)text, (int)strlen(text));
   IPClose(socket);
}
static const PageEntry_t pageEntry[]=
{  //name, length, htmlText
   {"/Header", 0, "<HTML><HEAD><TITLE>Plasma CPU</TITLE></HEAD>\n<BODY>"},
   {"/Footer", 0, "</BODY></HTML>"},
   {"/ ", 0, "<h2>Home Page</h2>Welcome!  <a href='/other.htm'>Other</a>"
             " <a href='/cgi/myprog'>myprog</a>"},
   {"/other.htm ", 0, "<h2>Other</h2>Other."},
   //{"/binary/plasma.gif ", 1945, PlasmaGif},
   {"/cgi/myprog", HTML_LENGTH_CALLBACK, (char*)MyProg},
   {"", HTML_LENGTH_LIST_END, NULL}
};
void HtmlInit(int UseFiles)
{
   (void)UseFiles;
   HttpInit(pageEntry, 1);
}
#endif
 
 

Line No.	Rev	Author	Line
1	155	rhoads	`/*--------------------------------------------------------------------`
2			`* TITLE: Plasma TCP/IP HTTP Server`
3			`* AUTHOR: Steve Rhoads (rhoadss@yahoo.com)`
4			`* DATE CREATED: 4/22/06`
5			`* FILENAME: http.c`
6			`* PROJECT: Plasma CPU core`
7			`* COPYRIGHT: Software placed into the public domain by the author.`
8			`* Software 'as is' without warranty. Author liable for nothing.`
9			`* DESCRIPTION:`
10			`* Plasma TCP/IP HTTP Server`
11			`--------------------------------------------------------------------/`
12			`#ifdef WIN32`
13			`#include <stdio.h>`
14			`#include <stdlib.h>`
15			`#include <string.h>`
16			`#include <ctype.h>`
17			`#define _LIBC`
18			`#endif`
19			`#include "rtos.h"`
20			`#include "tcpip.h"`
21			`#ifdef WIN32`
22			`#define UartPrintf printf`
23	192	rhoads	`#define OS_MQueueCreate(A,B,C) 0`
24			`#define OS_MQueueGet(A,B,C) 0`
25			`#define OS_ThreadCreate(A,B,C,D,E) 0`
26	155	rhoads	`#endif`
27
28	237	rhoads	`static const char pageGif[]=`
29	155	rhoads	`{`
30			`"HTTP/1.0 200 OK\r\n"`
31	192	rhoads	`"Content-Length: %d\r\n"`
32	155	rhoads	`"Content-Type: binary/gif\r\n\r\n"`
33			`};`
34	237	rhoads	`static const char pageGif2[]=`
35	155	rhoads	`{`
36			`"HTTP/1.0 200 OK\r\n"`
37	237	rhoads	`"Content-Type: binary/gif\r\n\r\n"`
38			`};`
39			`static const char pageBinary[]=`
40			`{`
41			`"HTTP/1.0 200 OK\r\n"`
42	192	rhoads	`"Content-Length: %d\r\n"`
43	155	rhoads	`"Content-Type: binary/binary\r\n\r\n"`
44			`};`
45	237	rhoads	`static const char pageBinary2[]=`
46			`{`
47	155	rhoads	`"HTTP/1.0 200 OK\r\n"`
48	237	rhoads	`"Content-Type: binary/binary\r\n\r\n"`
49			`};`
50			`static const char pageHtml[]={`
51			`"HTTP/1.0 200 OK\r\n"`
52	192	rhoads	`"Content-Length: %d\r\n"`
53	155	rhoads	`"Content-Type: text/html\r\n\r\n"`
54			`};`
55	237	rhoads	`static const char pageHtml2[]={`
56	155	rhoads	`"HTTP/1.0 200 OK\r\n"`
57	237	rhoads	`"Content-Type: text/html\r\n\r\n"`
58			`};`
59			`static const char pageText[]={`
60			`"HTTP/1.0 200 OK\r\n"`
61	192	rhoads	`"Content-Length: %d\r\n"`
62	155	rhoads	`"Content-Type: text/text\r\n\r\n"`
63			`};`
64	237	rhoads	`static const char pageEmpty[]=`
65	155	rhoads	`{`
66			`"HTTP/1.0 404 OK\r\n"`
67	192	rhoads	`"Content-Length: 0\r\n"`
68	155	rhoads	`"Content-Type: text/html\r\n\r\n"`
69			`};`
70
71			`static const PageEntry_t *HtmlPages;`
72			`static int HtmlFiles;`
73
74
75	224	rhoads	`void HttpServer(IPSocket *socket)`
76	155	rhoads	`{`
77			`uint8 buf[600];`
78	302	rhoads	`char filename[80];`
79	155	rhoads	`int bytes, i, length, len, needFooter;`
80			`char name=NULL, page=NULL;`
81	192	rhoads	`const char header, header2;`
82	155	rhoads
83			`if(socket == NULL)`
84			`return;`
85	316	rhoads	`if(socket->funcPtr != HttpServer && socket->funcPtr)`
86			`{`
87			`socket->funcPtr(socket);`
88			`return;`
89			`}`
90	155	rhoads	`bytes = IPRead(socket, buf, sizeof(buf)-1);`
91			`if(bytes)`
92			`{`
93			`buf[bytes] = 0;`
94			`if(strncmp((char*)buf, "GET /", 5) == 0)`
95			`{`
96			`for(i = 0; ; ++i)`
97			`{`
98			`length = HtmlPages[i].length;`
99			`if(length == -1)`
100			`break;`
101			`name = (char*)HtmlPages[i].name;`
102			`page = (char*)HtmlPages[i].page;`
103			`len = (int)strlen(name);`
104			`if(strncmp((char*)buf+4, name, len) == 0)`
105			`break;`
106			`}`
107	237	rhoads	`#if defined(WIN32) \|\| defined(INCLUDE_FILESYS)`
108			`if(length == HTML_LENGTH_LIST_END && HtmlFiles)`
109	155	rhoads	`{`
110			`FILE *file;`
111			`char *ptr;`
112
113			`name = (char*)buf + 5;`
114			`ptr = strstr(name, " ");`
115			`if(ptr)`
116			`*ptr = 0;`
117	302	rhoads	`strcpy(filename, "/web/");`
118			`strncat(filename, name, 60);`
119			`file = fopen(filename, "rb");`
120			`if(file == NULL)`
121			`{`
122			`strcpy(filename, "/flash/web/");`
123			`strncat(filename, name, 60);`
124			`file = fopen(filename, "rb");`
125			`}`
126	155	rhoads	`if(file)`
127			`{`
128	237	rhoads	`if(strstr(name, ".htm"))`
129	310	rhoads	`IPWrite(socket, (uint8*)pageHtml2, sizeof(pageHtml2)-1);`
130	237	rhoads	`else if(strstr(name, ".gif"))`
131	310	rhoads	`IPWrite(socket, (uint8*)pageGif2, sizeof(pageGif2)-1);`
132	237	rhoads	`else`
133	310	rhoads	`IPWrite(socket, (uint8*)pageBinary2, sizeof(pageBinary2)-1);`
134	237	rhoads	`for(;;)`
135			`{`
136			`len = fread(buf, 1, sizeof(buf), file);`
137			`if(len == 0)`
138			`break;`
139			`IPWrite(socket, (uint8*)buf, len);`
140			`}`
141	155	rhoads	`fclose(file);`
142	237	rhoads	`IPWriteFlush(socket);`
143			`IPClose(socket);`
144			`return;`
145	155	rhoads	`}`
146			`}`
147			`#endif`
148	161	rhoads	`if(length != HTML_LENGTH_LIST_END)`
149	155	rhoads	`{`
150	161	rhoads	`if(length == HTML_LENGTH_CALLBACK)`
151	155	rhoads	`{`
152	172	rhoads	`IPFuncPtr funcPtr = (IPFuncPtr)(uint32)page;`
153	161	rhoads	`funcPtr(socket, buf, bytes);`
154	155	rhoads	`return;`
155			`}`
156			`if(length == 0)`
157			`length = (int)strlen(page);`
158			`needFooter = 0;`
159	192	rhoads	`header2 = NULL;`
160			`if(strstr(name, ".html"))`
161			`header = pageHtml;`
162			`else if(strstr(name, ".htm") \|\| strcmp(name, "/ ") == 0)`
163			`{`
164			`header = pageHtml;`
165			`header2 = HtmlPages[0].page;`
166			`needFooter = 1;`
167			`}`
168			`else if(strstr(HtmlPages[i].name, ".gif"))`
169			`header = pageGif;`
170			`else`
171			`header = pageBinary;`
172			`len = 0;`
173			`if(header2)`
174			`len += (int)strlen(header2) + (int)strlen(HtmlPages[1].page);`
175			`sprintf((char*)buf, header, length + len);`
176			`IPWrite(socket, buf, (int)strlen((char*)buf));`
177			`if(header2)`
178			`IPWrite(socket, (uint8*)header2, (int)strlen(header2));`
179	155	rhoads	`IPWrite(socket, (uint8*)page, length);`
180			`if(needFooter)`
181			`IPWrite(socket, (uint8*)HtmlPages[1].page, (int)strlen(HtmlPages[1].page));`
182			`}`
183			`else`
184			`{`
185			`IPWrite(socket, (uint8*)pageEmpty, (int)strlen(pageEmpty));`
186			`}`
187			`IPClose(socket);`
188			`}`
189			`}`
190			`}`
191
192
193			`void HttpInit(const PageEntry_t *Pages, int UseFiles)`
194			`{`
195			`HtmlPages = Pages;`
196			`HtmlFiles = UseFiles;`
197			`IPOpen(IP_MODE_TCP, 0, 80, HttpServer);`
198			`IPOpen(IP_MODE_TCP, 0, 8080, HttpServer);`
199			`}`
200
201
202	244	rhoads	`#ifdef EXAMPLE_HTML`
203	155	rhoads	`//Example test code`
204	161	rhoads	`static void MyProg(IPSocket socket, char request, int bytes)`
205	155	rhoads	`{`
206			`char *text="HTTP/1.0 200 OK\r\nContent-Type: text/html\r\n\r\n"`
207			`"<html><body>Hello World!</body></html>";`
208	161	rhoads	`(void)request; (void)bytes;`
209	244	rhoads	`IPWrite(socket, (uint8*)text, (int)strlen(text));`
210	155	rhoads	`IPClose(socket);`
211			`}`
212			`static const PageEntry_t pageEntry[]=`
213			`{ //name, length, htmlText`
214	192	rhoads	`{"/Header", 0, "<HTML><HEAD><TITLE>Plasma CPU</TITLE></HEAD>\n<BODY>"},`
215	155	rhoads	`{"/Footer", 0, "</BODY></HTML>"},`
216			`{"/ ", 0, "<h2>Home Page</h2>Welcome! <a href='/other.htm'>Other</a>"`
217			`" <a href='/cgi/myprog'>myprog</a>"},`
218			`{"/other.htm ", 0, "<h2>Other</h2>Other."},`
219			`//{"/binary/plasma.gif ", 1945, PlasmaGif},`
220			`{"/cgi/myprog", HTML_LENGTH_CALLBACK, (char*)MyProg},`
221			`{"", HTML_LENGTH_LIST_END, NULL}`
222			`};`
223	244	rhoads	`void HtmlInit(int UseFiles)`
224	155	rhoads	`{`
225	244	rhoads	`(void)UseFiles;`
226	237	rhoads	`HttpInit(pageEntry, 1);`
227	155	rhoads	`}`
228			`#endif`
229
230

Browse

Tools

Subversion Repositories plasma

[/] [plasma/] [trunk/] [kernel/] [http.c] - Blame information for rev 390