Tyler Wilson
This is the open source Pawn interpreter ported to mbed. See here: http://www.compuphase.com/pawn/pawn.htm and here: http://code.google.com/p/pawnscript/
Some instructions:
- Put the attached include folder next to your source, so when you compile you get all the proper definitions
- Use the attached main.p as a starting point if you wish
- Compile your main.p into main.amx - Put your main.amx on the mbed 'drive'
- Reset and be amazed.
Important Compile Notes:
- You should use the -S# option to define a smaller default stack size. Start with -S64 and go up from there if needed.
- To use on the Cortex-M0 version of the mbed (LPC11U24), you MUST include the TARGET=3 command-line option as well, so the pin names are properly defined. In the future this may be handled on the native code side.
Known Issues:
At the moment it appears the kbhit() function is not working right - at least on my mac. Will continue testing on Windows.Working fine.
Todo:
- Add more wrappers for the mbed peripherals
- Add Pawn overlay support, to allow much larger scripts to run (even on the LPC11U24)
Diff: amxmbed.cpp
- Revision:
- 0:3ab1d2d14eb3
- Child:
- 2:01588bd27169
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/amxmbed.cpp Thu Nov 15 17:41:21 2012 +0000
@@ -0,0 +1,189 @@
+/**
+ * Interface between Pawn interpreter and mbed platform.
+ *
+ * Copyright 2011 Pulse-Robotics, Inc.
+ * Author: Tyler Wilson
+ */
+
+#include <assert.h>
+
+#include "_amxmbed.h"
+#include "amxmbed.h"
+#include "amx.h"
+#include "mbed.h"
+
+Serial* port = 0;
+
+void mbed_set_serial(Serial* serial)
+{
+ port = serial;
+}
+
+int amx_putstr(const char *s)
+{
+ return port?port->printf(s):0;
+}
+
+int amx_putchar(int c)
+{
+ return port?port->putc(c):0;
+}
+
+int amx_fflush(void)
+{
+ return 0;
+}
+
+int amx_getch(void)
+{
+ return port?port->getc():0;
+}
+
+char *amx_gets(char*, int)
+{
+}
+
+int amx_termctl(int,int)
+{
+}
+
+void amx_clrscr(void)
+{
+}
+
+void amx_clreol(void)
+{
+}
+
+int amx_gotoxy(int x,int y)
+{
+ return 0;
+}
+
+void amx_wherexy(int *x,int *y)
+{
+}
+
+unsigned int amx_setattr(int foregr,int backgr,int highlight)
+{
+ return 0;
+}
+
+void amx_console(int columns, int lines, int flags)
+{
+}
+
+void amx_viewsize(int *width,int *height)
+{
+}
+
+int amx_kbhit(void)
+{
+ return port?port->readable():0;
+}
+
+static cell AMX_NATIVE_CALL n_digitalOpen(AMX *amx, const cell *params)
+{
+ (void)amx;
+ DigitalOut* self = new DigitalOut((PinName)params[1]);
+// port->printf("digitalOpen(0x%x) returns 0x%x\n\r", (PinName)params[1], self);
+ return (cell)self;
+}
+
+static cell AMX_NATIVE_CALL n_digitalRead(AMX *amx, const cell *params)
+{
+// port->printf("digitalRead\n\r");
+ (void)amx;
+ DigitalOut* obj = (DigitalOut*)params[1];
+ if (obj)
+ {
+ return obj->read() != 0;
+ }
+
+ return 0;
+}
+
+static cell AMX_NATIVE_CALL n_digitalWrite(AMX *amx, const cell *params)
+{
+ DigitalOut* obj = (DigitalOut*)params[1];
+// port->printf("digitalWrite(0x%x, %d)\n\r", obj, params[2]);
+ if (obj)
+ {
+ obj->write(params[2]);
+ }
+
+ return 0;
+}
+
+static cell AMX_NATIVE_CALL n_digitalClose(AMX *amx, const cell *params)
+{
+// port->printf("digitalClose\n\r");
+ (void)amx;
+ DigitalOut* obj = (DigitalOut*)params[1];
+ if (obj)
+ {
+ delete obj;
+ }
+
+ return 0;
+}
+
+#if defined(TARGET_LPC1768) || defined(TARGET_LPC2368)
+static cell AMX_NATIVE_CALL n_wait(AMX *amx, const cell *params)
+{
+ float amount = amx_ctof(params[1]);
+
+ wait(amount);
+
+ return 0;
+}
+#endif
+
+static cell AMX_NATIVE_CALL n_wait_ms(AMX *amx, const cell *params)
+{
+ int amount = (int)params[1];
+// port->printf("waiting %d ms\n\r", amount);
+ wait_ms(amount);
+
+ return 0;
+}
+
+static cell AMX_NATIVE_CALL n_wait_us(AMX *amx, const cell *params)
+{
+ int amount = (int)params[1];
+ wait_us(amount);
+ return 0;
+}
+
+static cell AMX_NATIVE_CALL n_kbhit(AMX *amx, const cell *params)
+{
+ return amx_kbhit() != 0;
+}
+
+
+const AMX_NATIVE_INFO mbed_Natives[] = {
+ { "digitalOpen", n_digitalOpen },
+ { "digitalRead", n_digitalRead },
+ { "digitalWrite", n_digitalWrite },
+ { "digitalClose", n_digitalClose },
+
+#if defined(TARGET_LPC1768) || defined(TARGET_LPC2368)
+ { "wait", n_wait }, // uses a float, which we do not support on LPC11U24 version
+#endif
+ { "wait_ms", n_wait_ms },
+ { "wait_us", n_wait_us },
+
+ { "kbhit", n_kbhit },
+ { NULL, NULL } /* terminator */
+};
+
+int AMXEXPORT AMXAPI amx_mbedInit(AMX *amx)
+{
+ return amx_Register(amx, mbed_Natives, -1);
+}
+
+int AMXEXPORT AMXAPI amx_mbedCleanup(AMX *amx)
+{
+ (void)amx;
+ return AMX_ERR_NONE;
+}
\ No newline at end of file
