Peter Cooper
test code for our MBED board
Diff: network.c
- Revision:
- 1:6877bb99aa17
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/network.c Wed May 04 08:30:52 2011 +0000
@@ -0,0 +1,353 @@
+//#include "TCPCallbackConnection.h"
+//#include "NetServer.h"
+#include "mbed.h"
+#include "led.h"
+#include "can.h"
+#include "cmd.h"
+#include "help_data.h"
+#include "SNTPClient.h"
+#include "breakup.h"
+#include "ticker.h"
+#include "useful.h"
+
+#include "lwip/opt.h"
+#include "lwip/stats.h"
+#include "lwip/sys.h"
+#include "lwip/pbuf.h"
+#include "lwip/udp.h"
+#include "lwip/tcp.h"
+#include "lwip/dns.h"
+#include "lwip/dhcp.h"
+#include "lwip/init.h"
+#include "lwip/netif.h"
+#include "netif/etharp.h"
+#include "netif/loopif.h"
+#include "device.h"
+
+Ethernet ethernet;
+extern int net_state;
+extern char station_id;
+volatile char stage = 0;
+
+struct netif netif_data;
+
+char *header = "HTTP/1.1 200 OK\r\n"
+ "Content-Type: text/html\r\n"
+ "Connection: Close\r\n\r\n"
+ "<html>\r\n"
+ "<head>\r\n"
+ "<title>%s</title>\r\n"
+ "<style type='text/css'>\r\n"
+ "body{font-family:'Arial, sans-serif', sans-serif;font-size:.8em;background-color:#fff;}\r\n"
+ "</style>\r\n"
+ "</head>\r\n";
+
+char network_write_packet(struct tcp_pcb *pcb, char *buf)
+{
+ if (tcp_write(pcb, (void *)buf, strlen(buf), 1) == ERR_OK) {
+ tcp_output(pcb);
+ lprintf("Wrote packet String (Size %d bytes)OK...\n",strlen(buf));
+ return(1);
+ } else {
+ lprintf("Transission Problem (Size %d bytes), Closing connection...\n",strlen(buf));
+ tcp_close(pcb);
+ return(0);
+ }
+}
+void network_send_page(struct tcp_pcb *pcb,char *head, char *body, char *tail)
+{
+ if(network_write_packet(pcb, head)){
+ if(network_write_packet(pcb, body)){
+ if(network_write_packet(pcb, tail)){
+ tcp_close(pcb);
+ } else {
+ tcp_close(pcb);
+ }
+ } else {
+ tcp_close(pcb);
+ }
+ } else {
+ tcp_close(pcb);
+ }
+}
+int network_text_packet(struct tcp_pcb *pcb, char *buf)
+{
+ char str[0x1200]; /* So we can take a 1024 byte string max */
+ char c;
+ int a = 0; /* Input pointer */
+ int b = 0; /* output pointer */
+
+ str[b]='<';
+ b++;
+ str[b]='p';
+ b++;
+ str[b]='r';
+ b++;
+ str[b]='e';
+ b++;
+ str[b]='>';
+ b++;
+
+ while(a != strlen(buf)){
+ c = buf[a];
+ if(c=='\n'){
+ str[b]='<';
+ b++;
+ str[b]='b';
+ b++;
+ str[b]='r';
+ b++;
+ str[b]='>';
+ b++;
+ str[b]='\n';
+ b++;
+ a++;
+ } else if(c=='<') {
+ a++;
+ } else if(c=='>') {
+ a++;
+ } else {
+ str[b] = c;
+ a++;
+ b++;
+ }
+ }
+ str[b]='<';
+ b++;
+ str[b]='/';
+ b++;
+ str[b]='p';
+ b++;
+ str[b]='r';
+ b++;
+ str[b]='e';
+ b++;
+ str[b]='>';
+ b++;
+ str[b]='\0';
+ if(!network_write_packet(pcb, str)){
+ lprintf("Problem Packet is:\n%s",str);
+ tcp_close(pcb);
+ return(1);
+ }
+ return(0);
+}
+err_t recv_callback(void *arg, struct tcp_pcb *pcb, struct pbuf *p, err_t err)
+{
+ struct netif *netif = &netif_data;
+ char *p1[100]; /* Used for the broke apart GET request */
+ char *p2[3]; /* Diagnostics call */
+ char *p3[10]; /* Diagnostics data */
+ char head[1024],body[1024],tail[200];
+ int ret;
+
+ lprintf("TCP callback from %d.%d.%d.%d\n", ip4_addr1(&(pcb->remote_ip)),ip4_addr2(&(pcb->remote_ip)),ip4_addr3(&(pcb->remote_ip)),ip4_addr4(&(pcb->remote_ip)));
+ char *data;
+ /* Check if status is ok and data is arrived. */
+ if (err == ERR_OK && p != NULL) {
+ /* Inform TCP that we have taken the data. */
+ tcp_recved(pcb, p->tot_len);
+ data = static_cast<char *>(p->payload);
+ /* If the data is a GET request we can handle it. */
+ if (strncmp(data, "GET ", 4) == 0) {
+ lprintf("Handling GET request...\r\n");
+ lprintf("Request:\r\n%s\r\n", data);
+ breakup(data,p1,'/');
+ time_t seconds = time(NULL);
+ sprintf(tail,"<br><small><A href=\"mailto:pcc@cs.york.ac.uk\">"
+ "pcc@cs.york.ac.uk</a>\n\r</small>\n\r"
+ "<small>mbed RTC time:%s</small><br/>\n\r"
+ "<a href=0>Home</a><br><br>\n\r"
+ "</body>\n\r</html>\n\r",ctime(&seconds));
+ switch(p1[2][0]){
+ case '0' : /* Home Page */
+ sprintf(head,header,"MBED Home");
+ sprintf(body,"<h1>Petes MBED Homepage</h1>\n\r"
+ "<a href=1>Board Type</a><br>\n\r"
+ "<a href=2>Networking</a><br>\n\r"
+ "<a href=3>Commands</a><br>\n\r"
+ "<a href=4>CAN Bus</a><br>\n\r"
+ "<a href=5>Diags</a><br>\n\r");
+ network_send_page(pcb,head,body,tail);
+ break;
+ case '1' : /* Do something for page 1 */
+ sprintf(head,header,"Board Type");
+ sprintf(body,"<h1>MBED Board Data</h1>\n\r"
+ "Philips NXP <a href=http://mbed.org/nxp/lpc1768/>LPC1768</a>"
+ " Micro Controler <br>\n\r"
+ "512K Flash Memory, 64K SRAM<br>\n\r"
+ "<h4>MCP Solution gives:-</h4>\n\r"
+ "1 * RS232 channel, 1 * CAN bus channel<br>\n\r"
+ "Audio in and out, plus 4 analog inputs<br>\n\r"
+ "Micro SD card slot, USB + TCPIP networking<br>\n\r"
+ "+ I2C bus and selected I/O<br><br>\n\r"
+ "See mbed.org for data<br>\n\r");
+ network_send_page(pcb,head,body,tail);
+ break;
+ case '2' : /* Networking */
+ sprintf(head,header,"Network");
+ sprintf(body, "<h1>MBED Networking</h1>\n\r"
+ "<h2>mbed Network Configuration</h2>\n\r"
+ "mbed HW address: %02x:%02x:%02x:%02x:%02x:%02x<br/>\n\r"
+ "mbed IP Address: %s<br/>\n\r"
+ "Station: %d<br>",
+ (char*) netif->hwaddr[0],
+ (char*) netif->hwaddr[1],
+ (char*) netif->hwaddr[2],
+ (char*) netif->hwaddr[3],
+ (char*) netif->hwaddr[4],
+ (char*) netif->hwaddr[5],
+ inet_ntoa(*(struct in_addr*)&(netif->ip_addr)),
+ station_id
+ );
+ network_send_page(pcb,head,body,tail);
+ break;
+ case '3' : /* Do something for page 3 */
+ sprintf(head,header,"Commands");
+ network_write_packet(pcb,head);
+ sprintf(body,"<h1>MBED Commands</h1>\n\r");
+ network_write_packet(pcb,body);
+ network_text_packet(pcb,HELP_STRING);
+ network_text_packet(pcb,HELP_STRING2);
+ network_text_packet(pcb,HELP_STRING3);
+ network_write_packet(pcb,tail);
+ tcp_close(pcb);
+ break;
+ case '4' : /* Do something for page 4 */
+ sprintf(head,header,"CAN Bus<br>");
+ network_send_page(pcb,head,body,tail);
+ break;
+ case '5' : /* Diagnostics page */
+ sprintf(head,header,"Board Diags");
+ network_write_packet(pcb,head);
+ /* Command handler */
+ if(breakup(p1[2],p2,'?')>1){
+ ret = breakup(p2[1],p3,'&');
+ if((strcmp(p3[0],"ticker"))==0)
+ setup_ticker();
+ else if((strcmp(p3[0],"lcd"))==0)
+ lcd_test(ret,p3);
+ else
+ lprintf("Command not found, Looking for %s\n",p3[0]);
+ }
+ network_write_packet(pcb,"<a href=5?ticker&1>Ticker Start</a><br>\n\r");
+ network_write_packet(pcb,"<a href=5?lcd&1>String to LCD 1</a><br>\n\r");
+ network_write_packet(pcb,"<a href=5?lcd&2>String to LCD 2</a><br>\n\r");
+ network_write_packet(pcb,"<a href=5?sseg>Seven Segment driver test</a><br>\n\r");
+ network_write_packet(pcb,tail);
+ tcp_close(pcb);
+
+ break;
+ default :
+ sprintf(head,header,"MBED Board");
+ sprintf(body,"<h1>404 Error</h1>\n\r");
+ network_send_page(pcb,head,body,tail);
+ break;
+ }
+
+
+
+ } else {
+ lprintf("Non GET request...\r\nRequest:\r\n%s\r\n", data);
+ }
+
+ pbuf_free(p);
+ }
+
+ else {
+ /* No data arrived */
+ /* That means the client closes the connection and sent us a packet with FIN flag set to 1. */
+ /* We have to cleanup and destroy out TCPConnection. */
+ lprintf("Connection closed by client.\r\n");
+ pbuf_free(p);
+ }
+ /* Don't panic! Everything is fine. */
+ return ERR_OK;
+}
+/* Accept an incomming call on the registered port */
+err_t accept_callback(void *arg, struct tcp_pcb *npcb, err_t err) {
+ LWIP_UNUSED_ARG(arg);
+ /* Subscribe a receive callback function */
+ tcp_recv(npcb, &recv_callback);
+ /* Don't panic! Everything is fine. */
+ return ERR_OK;
+}
+
+void network_init(void)
+{
+ lprintf("l\r\nNetwork Starting Up...\r\n");
+ stage = 0;
+ struct netif *netif = &netif_data;
+ struct ip_addr ipaddr;
+ struct ip_addr netmask;
+ struct ip_addr gateway;
+ Ticker tickFast, tickSlow, tickARP, eth_tick, dns_tick, dhcp_coarse, dhcp_fine;
+// stage_blinker.attach_us(&stageblinker, 1000*500);
+
+ char *hostname = "my-mbed";
+
+ lprintf("Configuring device for DHCP...\r\n");
+ /* Start Network with DHCP */
+ IP4_ADDR(&netmask, 255,255,255,255);
+ IP4_ADDR(&gateway, 0,0,0,0);
+ IP4_ADDR(&ipaddr, 0,0,0,0);
+ /* Initialise after configuration */
+ lwip_init();
+ netif->hwaddr_len = ETHARP_HWADDR_LEN;
+ device_address((char *)netif->hwaddr);
+ netif = netif_add(netif, &ipaddr, &netmask, &gateway, NULL, device_init, ip_input);
+ netif->hostname = hostname;
+ netif_set_default(netif);
+ dhcp_start(netif); // <-- Use DHCP
+
+ /* Initialise all needed timers */
+ tickARP.attach_us( ðarp_tmr, ARP_TMR_INTERVAL * 1000);
+ tickFast.attach_us(&tcp_fasttmr, TCP_FAST_INTERVAL * 1000);
+ tickSlow.attach_us(&tcp_slowtmr, TCP_SLOW_INTERVAL * 1000);
+ dns_tick.attach_us(&dns_tmr, DNS_TMR_INTERVAL * 1000);
+ dhcp_coarse.attach_us(&dhcp_coarse_tmr, DHCP_COARSE_TIMER_MSECS * 1000);
+ dhcp_fine.attach_us(&dhcp_fine_tmr, DHCP_FINE_TIMER_MSECS * 1000);
+ stage = 1;
+ while (!netif_is_up(netif)) {
+ device_poll();
+ }
+
+ /*
+ while (!(netif->dhcp->state == DHCP_BOUND || netif->dhcp->state == DHCP_PERMANENT))
+ {
+ ledLink = ethernet.link();
+ device_poll();
+ //printf("Waiting for DHCP response, state = %d\r\n", netif->dhcp->state);
+ //wait_ms(100);
+ }
+ */
+ stage = 2;
+ lprintf("Interface %02x.%02x.%02x.%02x.%02x.%02x is up, local IP is %s\r\n",
+ (char*) netif->hwaddr[0],
+ (char*) netif->hwaddr[1],
+ (char*) netif->hwaddr[2],
+ (char*) netif->hwaddr[3],
+ (char*) netif->hwaddr[4],
+ (char*) netif->hwaddr[5],
+ inet_ntoa(*(struct in_addr*)&(netif->ip_addr)));
+
+ lprintf("Starting Web Server...\r\n");
+
+ /* Bind a function to a tcp port */
+ struct tcp_pcb *pcb = tcp_new();
+ if (tcp_bind(pcb, IP_ADDR_ANY, 80) == ERR_OK) {
+ pcb = tcp_listen(pcb);
+ tcp_accept(pcb, &accept_callback);
+ }
+ net_state = 1;
+
+ lprintf("Waiting for connection...\n");
+}
+
+void network_test(void)
+{
+ led_on(2);
+ device_poll();
+ ethernet.link();
+ led_off(2);
+}
\ No newline at end of file