// Lua: platform = platform()
static int pd_platform( lua_State* L )
{
#ifdef __PIC32MX
lua_pushstring( L, MACRO_NAME( ELUA_PIC32 ) );
#else
lua_pushstring( L, MACRO_NAME( ELUA_PLATFORM ) );
#endif
return 1;
}
// Lua: boardname = board()
static int pd_board( lua_State* L )
{
#ifdef __PIC32MX
lua_pushstring( L, "PIC32 Ethernet Starter Kit" );
#else
lua_pushstring( L, MACRO_NAME( ELUA_BOARD ) );
#endif
return 1;
}
// Lua: cpuname = cpu()
static int pd_cpu( lua_State* L )
{
#ifdef __PIC32MX
lua_pushstring( L, "PIC32" );
#else
lua_pushstring( L, MACRO_NAME( ELUA_CPU ) );
#endif
return 1;
}
// Lua: cpuname = cpu()
static int pd_cpu( lua_State* L )
{
lua_pushstring( L, MACRO_NAME( ALCOR_CPU ) );
return 1;
}
// picoc: boardname = pd_board();
static void pd_board(pstate *p, val *r, val **param, int n)
{
r->Val->Identifier = MACRO_NAME(ALCOR_BOARD);
}
// Lua: platform = platform()
static int pd_platform( lua_State* L )
{
lua_pushstring( L, MACRO_NAME( ALCOR_PLATFORM ) );
return 1;
}
// picoc: platform = pd_platform();
static void pd_platform(pstate *p, val *r, val **param, int n)
{
r->Val->Identifier = MACRO_NAME(ALCOR_PLATFORM);
}
// picoc: cpuname = pd_cpu();
static void pd_cpu(pstate *p, val *r, val **param, int n)
{
r->Val->Identifier = MACRO_NAME(ALCOR_CPU);
}
// (pd-cpu) -> sym
any pd_cpu(any x) {
return mkStr(MACRO_NAME(ALCOR_CPU));
}
// (pd-board) -> sym
any pd_board(any x) {
return mkStr(MACRO_NAME(ALCOR_BOARD));
}
// (pd-platform) -> sym
any pd_platform(any x) {
return mkStr(MACRO_NAME(ALCOR_PLATFORM));
}
// Lua: boardname = board()
static int pd_board( lua_State* L )
{
lua_pushstring( L, MACRO_NAME( ALCOR_BOARD ) );
return 1;
}
// Lua: boardname = board()
static int pd_board( lua_State* L )
{
lua_pushstring( L, MACRO_NAME( HEXAGON_KIT ) );
return 1;
}
// Lua: cpuname = cpu()
static int pd_cpu( lua_State* L )
{
lua_pushstring( L, MACRO_NAME( XMC4500 ) );
return 1;
}
// Lua: platform = platform()
static int pd_platform( lua_State* L )
{
lua_pushstring( L, MACRO_NAME( INFINEON-XMC4000 ) );
return 1;
}
