File content as of revision 0:788d8ebe64b5:

/* 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( &etharp_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;
    }
}