mirror of
https://github.com/oliverschmidt/contiki.git
synced 2024-08-14 09:28:59 +00:00
9d4fc0a1a8
In order to support, some core modules are modified as follows: core/sys/dsc.h - If CTK_CONF_ICONS is diabled, the whole icon-related code is disabled. - DSC_HEADER is changed to remove extra semicolon. core/sys/process.h - process_data_t is expressed by void* in signatures (known bug on sdcc). core/sys/autostart.h - autostart_processes is changed to remove extra semicolon. core/sys/cc.h - CC_CONF_ASSIGN_AGGREGATE is introduced. - CC_CONF_INC_CAST_POINTER is introduced, a workaround of a kind of sdcc bug for an increment. core/net/hc.c core/net/uip_arp.c core/net/uaodv.c - Aggregation assignments are changed to uip_ipaddr_copy. core/net/psock.c core/net/uipbuf.c core/net/dhcpc.c apps/shell/shell.c core/ctk/vnc-server.c core/ctk/vnc-out.c - "register" keyword in a signature cannot be used in sdcc, CC_REGISTER_ARG is used instead. core/net/uip-over-mesh.c - An extra semicolon is removed. apps/dhcp/dhcp-dsc.c apps/shell/shell-dsc. apps/ftp/ftp-dsc.c apps/process-list/process-list-dsc.c apps/email/email-dsc.c apps/webserver/webserver-dsc.c apps/vnc/vnc-dsc.c apps/vnc/vnc-viewer.h apps/webbrowser/www-dsc.c apps/about/about-dsc.c apps/irc/irc-dsc.c apps/telnet/telnet-dsc.c apps/telnetd/telnetd-dsc.c apps/netconf/netconf-dsc.c apps/directory/directory-dsc.c pps/calc/calc-dsc.c - Modify an extern type to a real declaration, which is static to prevent a compile error. core/net/mac/xmac.c - Variables cannot be defined in a head of block on sdcc. core/ctk/ctk.h core/ctk/ctk.c apps/program-handler/program-handler.c - If CTK_CONF_ICONS is diabled, the whole icon-related code is disabled. Makefile.include - Add a set of configuration for an assembler. - $(CLEAN) variable is introduced for customized cleanup. apps/process-list/process-list.c - PROCESSLIST_CONF_HEIGHT is introduced to address smaller screen size. core/lib/ctk-filedialog.c - FILES_CONF_HEIGHT is introduced to address smaller screen size. - "register" keyword in a signature cannot be used in sdcc, CC_REGISTER_ARG is used instead. apps/vnc/vnc-viewer.c - A cast is added to prevent a compile error. - "register" keyword in a signature cannot be used in sdcc, CC_REGISTER_ARG is used instead. apps/webbrowser/webclient.c - CC_CONF_INC_CAST_POINTER is introduced, a workaround of a kind of sdcc bug for an increment. core/loader/elfloader.c - A cast is added to prevent a compile error. core/net/rime/rimeaddr.c - An initialization is added to prevent a compile error. core/net/rime/rudolph0.c - NULL is changed to 0, because NULL causes a compile error. core/net/rime/route-discovery.c - Add an argument to match the definition of nf_callbacks. cpu/z80/strcasecmp.h cpu/z80/strcasecmp.c cpu/z80/contiki-sdcc-conf.h cpu/z80/mtarch.c cpu/z80/mtarch.h cpu/z80/Makefile.z80 - New files to make compilation availble on sdcc. - Added support for multithreading.
442 lines
11 KiB
C
442 lines
11 KiB
C
/*
|
|
* Copyright (c) 2002, Adam Dunkels.
|
|
* All rights reserved.
|
|
*
|
|
* Redistribution and use in source and binary forms, with or without
|
|
* modification, are permitted provided that the following conditions
|
|
* are met:
|
|
* 1. Redistributions of source code must retain the above copyright
|
|
* notice, this list of conditions and the following disclaimer.
|
|
* 2. Redistributions in binary form must reproduce the above
|
|
* copyright notice, this list of conditions and the following
|
|
* disclaimer in the documentation and/or other materials provided
|
|
* with the distribution.
|
|
* 3. The name of the author may not be used to endorse or promote
|
|
* products derived from this software without specific prior
|
|
* written permission.
|
|
*
|
|
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS
|
|
* OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
|
|
* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
|
* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
|
|
* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
|
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
|
|
* GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
|
|
* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
|
|
* WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
|
|
* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
|
|
* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
*
|
|
* This file is part of the "contiki" web browser.
|
|
*
|
|
* $Id: webclient.c,v 1.3 2007/08/30 14:39:18 matsutsuka Exp $
|
|
*
|
|
*/
|
|
|
|
#include "contiki-net.h"
|
|
|
|
#include "webclient.h"
|
|
|
|
#include <string.h>
|
|
|
|
#define WEBCLIENT_TIMEOUT 100
|
|
|
|
#define WEBCLIENT_STATE_STATUSLINE 0
|
|
#define WEBCLIENT_STATE_HEADERS 1
|
|
#define WEBCLIENT_STATE_DATA 2
|
|
#define WEBCLIENT_STATE_CLOSE 3
|
|
|
|
#define HTTPFLAG_NONE 0
|
|
#define HTTPFLAG_OK 1
|
|
#define HTTPFLAG_MOVED 2
|
|
#define HTTPFLAG_ERROR 3
|
|
|
|
|
|
#define ISO_nl 0x0a
|
|
#define ISO_cr 0x0d
|
|
#define ISO_space 0x20
|
|
|
|
struct webclient_state {
|
|
u8_t timer;
|
|
u8_t state;
|
|
u8_t httpflag;
|
|
|
|
u16_t port;
|
|
char host[40];
|
|
char file[WWW_CONF_MAX_URLLEN];
|
|
u16_t getrequestptr;
|
|
u16_t getrequestleft;
|
|
|
|
char httpheaderline[200];
|
|
u16_t httpheaderlineptr;
|
|
|
|
char mimetype[32];
|
|
};
|
|
|
|
static struct webclient_state s;
|
|
|
|
/*-----------------------------------------------------------------------------------*/
|
|
char *
|
|
webclient_mimetype(void)
|
|
{
|
|
return s.mimetype;
|
|
}
|
|
/*-----------------------------------------------------------------------------------*/
|
|
char *
|
|
webclient_filename(void)
|
|
{
|
|
return s.file;
|
|
}
|
|
/*-----------------------------------------------------------------------------------*/
|
|
char *
|
|
webclient_hostname(void)
|
|
{
|
|
return s.host;
|
|
}
|
|
/*-----------------------------------------------------------------------------------*/
|
|
unsigned short
|
|
webclient_port(void)
|
|
{
|
|
return s.port;
|
|
}
|
|
/*-----------------------------------------------------------------------------------*/
|
|
void
|
|
webclient_init(void)
|
|
{
|
|
|
|
}
|
|
/*-----------------------------------------------------------------------------------*/
|
|
static void
|
|
init_connection(void)
|
|
{
|
|
s.state = WEBCLIENT_STATE_STATUSLINE;
|
|
|
|
s.getrequestleft = sizeof(http_get) - 1 + 1 +
|
|
sizeof(http_10) - 1 +
|
|
sizeof(http_crnl) - 1 +
|
|
sizeof(http_host) - 1 +
|
|
sizeof(http_crnl) - 1 +
|
|
(u16_t)strlen(http_user_agent_fields) +
|
|
(u16_t)strlen(s.file) + (u16_t)strlen(s.host);
|
|
s.getrequestptr = 0;
|
|
|
|
s.httpheaderlineptr = 0;
|
|
}
|
|
/*-----------------------------------------------------------------------------------*/
|
|
void
|
|
webclient_close(void)
|
|
{
|
|
s.state = WEBCLIENT_STATE_CLOSE;
|
|
}
|
|
/*-----------------------------------------------------------------------------------*/
|
|
unsigned char
|
|
webclient_get(char *host, u16_t port, char *file)
|
|
{
|
|
struct uip_conn *conn;
|
|
u16_t *ipaddr;
|
|
static u16_t addr[2];
|
|
|
|
/* First check if the host is an IP address. */
|
|
ipaddr = &addr[0];
|
|
if(uiplib_ipaddrconv(host, (unsigned char *)addr) == 0) {
|
|
ipaddr = resolv_lookup(host);
|
|
|
|
if(ipaddr == NULL) {
|
|
return 0;
|
|
}
|
|
}
|
|
|
|
conn = tcp_connect((uip_ipaddr_t *)ipaddr, htons(port), NULL);
|
|
|
|
if(conn == NULL) {
|
|
return 0;
|
|
}
|
|
|
|
s.port = port;
|
|
strncpy(s.file, file, sizeof(s.file));
|
|
strncpy(s.host, host, sizeof(s.host));
|
|
|
|
init_connection();
|
|
return 1;
|
|
}
|
|
/*-----------------------------------------------------------------------------------*/
|
|
static unsigned char * CC_FASTCALL
|
|
copy_string(unsigned char *dest,
|
|
const unsigned char *src, unsigned char len)
|
|
{
|
|
return strcpy(dest, src) + len;
|
|
}
|
|
/*-----------------------------------------------------------------------------------*/
|
|
static void
|
|
senddata(void)
|
|
{
|
|
u16_t len;
|
|
char *getrequest;
|
|
char *cptr;
|
|
|
|
if(s.getrequestleft > 0) {
|
|
cptr = getrequest = (char *)uip_appdata;
|
|
|
|
cptr = copy_string(cptr, http_get, sizeof(http_get) - 1);
|
|
cptr = copy_string(cptr, s.file, (unsigned char)strlen(s.file));
|
|
*cptr++ = ISO_space;
|
|
cptr = copy_string(cptr, http_10, sizeof(http_10) - 1);
|
|
|
|
cptr = copy_string(cptr, http_crnl, sizeof(http_crnl) - 1);
|
|
|
|
cptr = copy_string(cptr, http_host, sizeof(http_host) - 1);
|
|
cptr = copy_string(cptr, s.host, (unsigned char)strlen(s.host));
|
|
cptr = copy_string(cptr, http_crnl, sizeof(http_crnl) - 1);
|
|
|
|
cptr = copy_string(cptr, http_user_agent_fields,
|
|
(unsigned char)strlen(http_user_agent_fields));
|
|
|
|
len = s.getrequestleft > uip_mss()?
|
|
uip_mss():
|
|
s.getrequestleft;
|
|
uip_send(&(getrequest[s.getrequestptr]), len);
|
|
}
|
|
}
|
|
/*-----------------------------------------------------------------------------------*/
|
|
static void
|
|
acked(void)
|
|
{
|
|
u16_t len;
|
|
|
|
if(s.getrequestleft > 0) {
|
|
len = s.getrequestleft > uip_mss()?
|
|
uip_mss():
|
|
s.getrequestleft;
|
|
s.getrequestleft -= len;
|
|
s.getrequestptr += len;
|
|
}
|
|
}
|
|
/*-----------------------------------------------------------------------------------*/
|
|
static u16_t
|
|
parse_statusline(u16_t len)
|
|
{
|
|
char *cptr;
|
|
|
|
while(len > 0 && s.httpheaderlineptr < sizeof(s.httpheaderline)) {
|
|
s.httpheaderline[s.httpheaderlineptr] = *(char *)uip_appdata;
|
|
CC_INC_CAST_POINTER(char *, uip_appdata);
|
|
--len;
|
|
if(s.httpheaderline[s.httpheaderlineptr] == ISO_nl) {
|
|
|
|
if((strncmp(s.httpheaderline, http_10,
|
|
sizeof(http_10) - 1) == 0) ||
|
|
(strncmp(s.httpheaderline, http_11,
|
|
sizeof(http_11) - 1) == 0)) {
|
|
cptr = &(s.httpheaderline[9]);
|
|
s.httpflag = HTTPFLAG_NONE;
|
|
if(strncmp(cptr, http_200, sizeof(http_200) - 1) == 0) {
|
|
/* 200 OK */
|
|
s.httpflag = HTTPFLAG_OK;
|
|
} else if(strncmp(cptr, http_301, sizeof(http_301) - 1) == 0 ||
|
|
strncmp(cptr, http_302, sizeof(http_302) - 1) == 0) {
|
|
/* 301 Moved permanently or 302 Found. Location: header line
|
|
will contain thw new location. */
|
|
s.httpflag = HTTPFLAG_MOVED;
|
|
} else {
|
|
s.httpheaderline[s.httpheaderlineptr - 1] = 0;
|
|
}
|
|
} else {
|
|
uip_abort();
|
|
webclient_aborted();
|
|
return 0;
|
|
}
|
|
|
|
/* We're done parsing the status line, so we reset the pointer
|
|
and start parsing the HTTP headers.*/
|
|
s.httpheaderlineptr = 0;
|
|
s.state = WEBCLIENT_STATE_HEADERS;
|
|
break;
|
|
} else {
|
|
++s.httpheaderlineptr;
|
|
}
|
|
}
|
|
return len;
|
|
}
|
|
/*-----------------------------------------------------------------------------------*/
|
|
static char
|
|
casecmp(char *str1, const char *str2, char len)
|
|
{
|
|
static char c;
|
|
|
|
while(len > 0) {
|
|
c = *str1;
|
|
/* Force lower-case characters. */
|
|
if(c & 0x40) {
|
|
c |= 0x20;
|
|
}
|
|
if(*str2 != c) {
|
|
return 1;
|
|
}
|
|
++str1;
|
|
++str2;
|
|
--len;
|
|
}
|
|
return 0;
|
|
}
|
|
/*-----------------------------------------------------------------------------------*/
|
|
static u16_t
|
|
parse_headers(u16_t len)
|
|
{
|
|
char *cptr;
|
|
static unsigned char i;
|
|
|
|
while(len > 0 && s.httpheaderlineptr < sizeof(s.httpheaderline)) {
|
|
s.httpheaderline[s.httpheaderlineptr] = *(char *)uip_appdata;
|
|
CC_INC_CAST_POINTER(char *, uip_appdata);
|
|
--len;
|
|
if(s.httpheaderline[s.httpheaderlineptr] == ISO_nl) {
|
|
/* We have an entire HTTP header line in s.httpheaderline, so
|
|
we parse it. */
|
|
if(s.httpheaderline[0] == ISO_cr) {
|
|
/* This was the last header line (i.e., and empty "\r\n"), so
|
|
we are done with the headers and proceed with the actual
|
|
data. */
|
|
s.state = WEBCLIENT_STATE_DATA;
|
|
return len;
|
|
}
|
|
|
|
s.httpheaderline[s.httpheaderlineptr - 1] = 0;
|
|
/* Check for specific HTTP header fields. */
|
|
if(casecmp(s.httpheaderline, http_content_type,
|
|
sizeof(http_content_type) - 1) == 0) {
|
|
/* Found Content-type field. */
|
|
cptr = strchr(s.httpheaderline, ';');
|
|
if(cptr != NULL) {
|
|
*cptr = 0;
|
|
}
|
|
strncpy(s.mimetype, s.httpheaderline +
|
|
sizeof(http_content_type) - 1, sizeof(s.mimetype));
|
|
} else if(casecmp(s.httpheaderline, http_location,
|
|
sizeof(http_location) - 1) == 0) {
|
|
cptr = s.httpheaderline +
|
|
sizeof(http_location) - 1;
|
|
|
|
if(strncmp(cptr, http_http, 7) == 0) {
|
|
cptr += 7;
|
|
for(i = 0; i < s.httpheaderlineptr - 7; ++i) {
|
|
if(*cptr == 0 ||
|
|
*cptr == '/' ||
|
|
*cptr == ' ' ||
|
|
*cptr == ':') {
|
|
s.host[i] = 0;
|
|
break;
|
|
}
|
|
s.host[i] = *cptr;
|
|
++cptr;
|
|
}
|
|
}
|
|
strncpy(s.file, cptr, sizeof(s.file));
|
|
/* s.file[s.httpheaderlineptr - i] = 0;*/
|
|
}
|
|
|
|
|
|
/* We're done parsing, so we reset the pointer and start the
|
|
next line. */
|
|
s.httpheaderlineptr = 0;
|
|
} else {
|
|
++s.httpheaderlineptr;
|
|
}
|
|
}
|
|
return len;
|
|
}
|
|
/*-----------------------------------------------------------------------------------*/
|
|
static void
|
|
newdata(void)
|
|
{
|
|
u16_t len;
|
|
|
|
len = uip_datalen();
|
|
|
|
if(s.state == WEBCLIENT_STATE_STATUSLINE) {
|
|
len = parse_statusline(len);
|
|
}
|
|
|
|
if(s.state == WEBCLIENT_STATE_HEADERS && len > 0) {
|
|
len = parse_headers(len);
|
|
}
|
|
|
|
if(len > 0 && s.state == WEBCLIENT_STATE_DATA &&
|
|
s.httpflag != HTTPFLAG_MOVED) {
|
|
webclient_datahandler((char *)uip_appdata, len);
|
|
}
|
|
}
|
|
/*-----------------------------------------------------------------------------------*/
|
|
void
|
|
webclient_appcall(void *state)
|
|
{
|
|
if(uip_connected()) {
|
|
s.timer = 0;
|
|
s.state = WEBCLIENT_STATE_STATUSLINE;
|
|
senddata();
|
|
webclient_connected();
|
|
tcp_markconn(uip_conn, &s);
|
|
return;
|
|
}
|
|
|
|
if(uip_timedout()) {
|
|
webclient_timedout();
|
|
}
|
|
|
|
if(state == NULL) {
|
|
uip_abort();
|
|
return;
|
|
}
|
|
|
|
if(s.state == WEBCLIENT_STATE_CLOSE) {
|
|
webclient_closed();
|
|
uip_abort();
|
|
return;
|
|
}
|
|
|
|
if(uip_aborted()) {
|
|
webclient_aborted();
|
|
}
|
|
|
|
|
|
if(uip_acked()) {
|
|
s.timer = 0;
|
|
acked();
|
|
}
|
|
if(uip_newdata()) {
|
|
s.timer = 0;
|
|
newdata();
|
|
}
|
|
if(uip_rexmit() ||
|
|
uip_newdata() ||
|
|
uip_acked()) {
|
|
senddata();
|
|
} else if(uip_poll()) {
|
|
++s.timer;
|
|
if(s.timer == WEBCLIENT_TIMEOUT) {
|
|
webclient_timedout();
|
|
uip_abort();
|
|
return;
|
|
}
|
|
/* senddata();*/
|
|
}
|
|
|
|
if(uip_closed()) {
|
|
tcp_markconn(uip_conn, NULL);
|
|
if(s.httpflag != HTTPFLAG_MOVED) {
|
|
/* Send NULL data to signal EOF. */
|
|
webclient_datahandler(NULL, 0);
|
|
} else {
|
|
/* conn = uip_connect(uip_conn->ripaddr, s.port);
|
|
if(conn != NULL) {
|
|
dispatcher_markconn(conn, NULL);
|
|
init_connection();
|
|
}*/
|
|
if(resolv_lookup(s.host) == NULL) {
|
|
resolv_query(s.host);
|
|
}
|
|
webclient_get(s.host, s.port, s.file);
|
|
}
|
|
}
|
|
}
|
|
/*-----------------------------------------------------------------------------------*/
|