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)
amxmbed.cpp
- Committer:
- tylerwilson
- Date:
- 2012-11-15
- Revision:
- 0:3ab1d2d14eb3
- Child:
- 2:01588bd27169
File content as of revision 0:3ab1d2d14eb3:
/** * 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; }