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
diff -r 000000000000 -r 3ab1d2d14eb3 amxmbed.cpp --- /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