Paul Griffith
/
BoB3Test
Test program for BoB3 breakout board. Refer to my Notebook page for further details and contact info.
Diff: main.cpp
- Revision:
- 0:788d8ebe64b5
diff -r 000000000000 -r 788d8ebe64b5 main.cpp --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/main.cpp Tue Apr 06 17:08:41 2010 +0000 @@ -0,0 +1,444 @@ +/* Test program for BoB3 breakout board + * Paul Griffith + * Last edit: 29 Jan 2010 + */ + +#include "mbed.h" +#include "SDFileSystem.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" + + +void printhelps(void); +void listdir(void); +void printfile(char *); +void bad_args(void); +int exist(char *); +int eth_test(void); + + +Serial pc(USBTX, USBRX); +SDFileSystem sd(p5, p6, p7, p8, "sd"); +DigitalOut led1(p25), led2(p26), led3(p27), led4(p28), led5(p29), led6(p30); + +int main() { + char buf[120], *cp; + char arg1[50], arg2[50], arg3[50], filename[20]; + int argc, cnt = 0, i, j, k, l; + FILE *fp; + time_t seconds; + struct tm t; + + + printf("BoB3 test program\n"); + printf("Type ? for help\n"); + + while (1) { + printf("> "); + cp = buf; + while ( (*cp++ = putchar(getchar())) != '\r') ; //get a line of input + *cp = '\0'; //terminate buffer + printf("\n"); + argc = sscanf(buf, "%s%s%s", arg1, arg2, arg3); //extract command and arguments + if (argc < 1) + continue; + switch (arg1[0]) { + + case 'c': //create file on uSD card + if (argc != 2) { + bad_args(); + break; + } + sprintf(filename, "/sd/%s", arg2); + if (exist(filename) == 1) { + printf("File already exists\n"); + break; + } + fp = fopen(filename, "w"); + if (fp == 0) { + printf("Unable to create file\n"); + } else { + printf("File created\n"); + seconds = time(NULL); + fprintf(fp, "Hello world, the time is %s\n", ctime(&seconds)); + fclose(fp); + } + break; + + case 'd': //delete file on uSD card + if (argc != 2) { + bad_args(); + break; + } + sprintf(filename, "/sd/%s", arg2); + if (exist(filename) == 0) + printf("File does not exist\n"); + else { + remove(filename); + printf("File deleted\n"); + } + break; + + case 'e': //test Ethernet status LEDS + if (argc == 1) + i = 0; + else + sscanf(arg2, "%d", &i); + switch (i) { + case 0: + led1 = 1; + wait(1.0); + led1 = 0; + wait(1.0); + led2 = 1; + wait(1.0); + led2 = 0; + break; + + case 1: + led3 = 1; + wait(1.0); + led3 = 0; + wait(1.0); + led4 = 1; + wait(1.0); + led4 = 0; + break; + + case 2: + led5 = 1; + wait(1.0); + led5 = 0; + wait(1.0); + led6 = 1; + wait(1.0); + led6 = 0; + break; + } + break; + + case 'E': //run Ethernet test + printf("Reset mbed to exit Ethernet test\n"); + i = eth_test(); + printf("Ethernet test returned %d\n", i); + break; + + case 'l': //list uSD card directory + listdir(); + break; + + case 'p': //print uSD card file + if (argc != 2) { + bad_args(); + break; + } + sprintf(filename, "/sd/%s", arg2); + if (exist(filename) == 0) + printf("File does not exist\n"); + else + printfile(filename); + break; + + case 'q': //quit + exit(1); + break; + + case 't': //print current time and date + seconds = time(NULL); + printf("Current time = %s\n", ctime(&seconds)); + break; + + case 'T': //set time and date + sscanf(buf, "%c %d %d %d %d %d", &i, &t.tm_hour, &t.tm_min, &t.tm_mday, + &t.tm_mon, &t.tm_year); + // adjust for tm structure required values + t.tm_year = t.tm_year - 1900; + t.tm_mon = t.tm_mon - 1; + t.tm_sec = 0; +// printf("tm = %d %d %d %d %d %d %d\n", t.tm_hour, t.tm_min, t.tm_sec, t.tm_mday, t.tm_mon, t.tm_year); + // set the time + set_time(mktime(&t)); + break; + + case 'U': //run USB test + printf("Any ideas folks?\n"); + break; + + case '?': //print help + printhelps(); + break; + + default: + printf("?? Unknown command\n"); + break; + } + } +} + +//Command functions + +void printhelps(void) { + printf("Command summary:\n"); + printf("c filename create a file on uSD card\n"); + printf("d filename delete a file on uSD card\n"); + printf("e pins test Ethernet status LEDs (pins = 0-2)\n"); + printf("E run Ethernet test (reset mbed to exit)\n"); + printf("l list directory of uSD card\n"); + printf("p filename print file on uSD card to stdout\n"); + printf("q quit\n"); + printf("t print current time and date\n"); + printf("T h m d m y set RTC time and date\n"); + printf("U run USB device test\n"); + printf("? print help\n"); +} + +void listdir(void) { + DIR *d; + struct dirent *p; + + d = opendir("/sd"); + if (d != NULL) { + while ((p = readdir(d)) != NULL) { + printf(" - %s\n", p->d_name); + } + } else { + printf("Could not open directory!\n"); + } + closedir(d); +} + +void printfile(char *name) { + char buf[80], *cp; + FILE *fp; + + fp = fopen(name, "r"); + while (1) { + cp = fgets(buf, sizeof(buf), fp); + if (cp == NULL) + break; + if ( (cp = strchr(buf, '\n')) ) + *cp = '\0'; //trim trailing \n because + puts(buf); //puts will convert terminator to \n + } + fclose(fp); +} + +//Support functions + +void bad_args(void) { + printf("?? Bad arguments\n"); +} + +int exist(char *name) { + FILE *fp; + + fp = fopen(name, "r"); + if (fp != NULL) + fclose(fp); + return ((fp == NULL) ? 0 : 1); +} + + +//Ethernet test stuff (based on Michael Wei's Ethernet Tester program) + +Ethernet ethernet; +DigitalOut ledLink(p25); +DigitalOut ledSpeed(p26); +DigitalOut ledStage0(LED1); +DigitalOut ledStage1(LED2); +DigitalOut ledStage2(LED3); +DigitalOut ledTCP80(LED4); + +DigitalIn phyLink(P1_25); +DigitalIn phySpeed(P1_26); + +volatile char stage = 0; + +Ticker stage_blinker; + +struct netif netif_data; + +const char testPage[] = "HTTP/1.1 200 OK\r\n" + "Content-Type: text/html\r\n" + "Connection: Close\r\n\r\n" + "<html>" + "<head>" + "<title>mbed test page</title>" + "<style type='text/css'>" + "body{font-family:'Arial, sans-serif', sans-serif;font-size:.8em;background-color:#fff;}" + "</style>" + "</head>" + "<body>%s</body></html>\r\n\r\n"; + +char buffer[1024]; +char temp[1024]; + +err_t recv_callback(void *arg, struct tcp_pcb *pcb, struct pbuf *p, err_t err) { + struct netif *netif = &netif_data; + ledTCP80 = true; + printf("TCP callback from %d.%d.%d.%d\r\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) { + printf("Handling GET request...\r\n"); + printf("Request:\r\n%s\r\n", data); + + //generate the test page + time_t seconds = time(NULL); + sprintf(temp, "<h1>Congratulations!</h1>If you can see this page, your mbed is working properly." + "<h2>mbed Configuration</h2>" + "mbed RTC time:%s<br/>" + "mbed HW address: %02x:%02x:%02x:%02x:%02x:%02x<br/>" + "mbed IP Address: %s<br/>", + ctime(&seconds), + (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)) + ); + sprintf(buffer, testPage, temp); + if (tcp_write(pcb, (void *)buffer, strlen(buffer), 1) == ERR_OK) { + tcp_output(pcb); + printf("Closing connection...\r\n"); + tcp_close(pcb); + } + } + else + { + printf("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. */ + printf("Connection closed by client.\r\n"); + pbuf_free(p); + } + /* Don't panic! Everything is fine. */ + ledTCP80 = false; + 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 stageblinker() +{ + switch (stage) + { + case 0: + ledStage0 = !ledStage0; + ledStage1 = false; + ledStage2 = false; + break; + case 1: + ledStage0 = true; + ledStage1 = !ledStage1; + ledStage2 = false; + break; + case 2: + ledStage0 = true; + ledStage1 = true; + ledStage2 = true; + stage_blinker.detach(); + break; + } +} + +int eth_test() { + printf("mBed Ethernet Tester 1.0\r\nStarting 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"; + + printf("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)) { + ledLink = ethernet.link(); + ledSpeed = !phySpeed; + 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; + printf("Interface is up, local IP is %s\r\n", + inet_ntoa(*(struct in_addr*)&(netif->ip_addr))); + + printf("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); + } + + printf("Waiting for connection...\r\n"); + while(1) { + device_poll(); + ledLink = ethernet.link(); + ledSpeed = !phySpeed; + } +}