Add a small LED interface and demo app.

app/dartino/main.c

 // Copyright (c) 2016, the Dartino project authors. Please see the AUTHORS file
 // for details. All rights reserved. Use of this source code is governed by a
 // BSD-style license that can be found in the LICENSE.md file.
 
 #include "config.h"
 
 #include <stdint.h>
 #include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
@@ skipping 15 matching lines @@
 #include "loader.h"
 
 #if defined(WITH_LIB_CONSOLE)
 #include <lib/console.h>
 #else
 #error "dartino app needs a console"
 #endif
 
 void SensorsInit(void);
 
+int change_led_status(int, int);
+
 enum {
   MODE_RUN,
   MODE_BURN
 } dartino_mode;
 
 
 //////////////// Dart FFI setup ///////////////////////////////////////////////
 
 __WEAK status_t display_get_info(struct display_info *info) {
   return ERR_NOT_FOUND;
@@ skipping 25 matching lines @@
 DARTINO_EXPORT_TABLE_ENTRY("gfx_width", GetWidth)
 DARTINO_EXPORT_TABLE_ENTRY("gfx_height", GetHeight)
 DARTINO_EXPORT_TABLE_ENTRY("gfx_destroy", gfx_surface_destroy)
 DARTINO_EXPORT_TABLE_ENTRY("gfx_pixel", gfx_putpixel)
 DARTINO_EXPORT_TABLE_ENTRY("gfx_line", gfx_line)
 DARTINO_EXPORT_TABLE_ENTRY("gfx_clear", gfx_clear)
 DARTINO_EXPORT_TABLE_ENTRY("gfx_flush", gfx_flush)
 DARTINO_EXPORT_TABLE_ENTRY("port_open", port_open)
 DARTINO_EXPORT_TABLE_ENTRY("port_close", port_open)
 DARTINO_EXPORT_TABLE_ENTRY("port_read", port_read)
+DARTINO_EXPORT_TABLE_ENTRY("led_toggle", change_led_status)

[Søren Gjesse, 2016/02/09 09:16:01]

Why is is called led_toggle when exported? Wouldn't set_led_state be more
precise (maybe use that name for the actual C function as well.

[herhut, 2016/02/09 10:10:15]

Because it is so long and these turn into strings :)

I've changed it...

 DARTINO_EXPORT_TABLE_END
 
 //////////////// Port debug ///////////////////////////////////////////////////
 
 static void DumpPacket(const port_result_t* result) {
   const port_packet_t* p = &result->packet;
   printf("[%02x %02x %02x %02x %02x %02x %02x %02x]\n",
          p->value[0], p->value[1], p->value[2], p->value[3],
          p->value[4], p->value[5], p->value[6], p->value[7]);
 }
@@ skipping 84 matching lines @@
   .init = ServicesInit,
   .entry = NULL,
   .flags = 0,
 APP_END
 
 STATIC_COMMAND_START
 STATIC_COMMAND("dartino", "dartino vm via tftp", &DartinoRunner)
 STATIC_COMMAND_END(dartinorunner);
 
 // vim: set expandtab ts=2 sw=2: