mirror of
git://projects.qi-hardware.com/nn-usb-fpga.git
synced 2025-01-10 00:40:15 +02:00
59 lines
942 B
C++
59 lines
942 B
C++
#include <stdio.h>
|
|
|
|
extern "C" {
|
|
#include "lua.h"
|
|
#include "lualib.h"
|
|
#include "lauxlib.h"
|
|
}
|
|
|
|
/* the Lua interpreter */
|
|
lua_State* L;
|
|
|
|
static int average(lua_State *L)
|
|
{
|
|
/* get number of arguments */
|
|
int n = lua_gettop(L);
|
|
int sum = 0;
|
|
int i;
|
|
|
|
/* loop through each argument */
|
|
for (i = 1; i <= n; i++)
|
|
{
|
|
/* total the arguments */
|
|
sum += lua_tonumber(L, i);
|
|
}
|
|
|
|
/* push the average */
|
|
lua_pushnumber(L, sum / n);
|
|
|
|
/* push the sum */
|
|
lua_pushnumber(L, sum);
|
|
|
|
/* return the number of results */
|
|
return 2;
|
|
}
|
|
|
|
int main ( int argc, char *argv[] )
|
|
{
|
|
/* initialize Lua */
|
|
L = lua_open();
|
|
|
|
/* load Lua base libraries */
|
|
luaL_openlibs(L);
|
|
|
|
/* register our function */
|
|
lua_register(L, "average", average);
|
|
|
|
/* run the script */
|
|
luaL_dofile(L, "avg.lua");
|
|
|
|
/* cleanup Lua */
|
|
lua_close(L);
|
|
|
|
/* pause */
|
|
printf( "Press enter to exit..." );
|
|
getchar();
|
|
|
|
return 0;
|
|
}
|