Koodit: C: Lua-skriptien käyttö

#include <stdio.h>

/* C++:aa käytettäessä joko extern "C" { ... }
 * includejen ympärille, tai suoraan #include "lua.hpp"
 */
#include "lua.h"
#include "lualib.h"
#include "lauxlib.h"

/* Helpottaa. Tämmöisiä funkkareita voi passata Luaan. */
typedef int (*lua_func)(lua_State* lua);

/* Ajetaan filu. Mokoma osaa lukea tekstimuotoisia (.lua) tai
 * käännettyjä (.lub, kai :/) tavukoodifiluja. Kääntäminen onnistuu
 * luac -o <tulos.lub> <filu.lua> */
void do_file(lua_State* lua, char* filename) {
	if (luaL_dofile(lua, filename) != 0) {
		/* Otetaan luan pinon päältä virheilmoitus ja muutetaan se stringiksi. */
		fprintf(stderr, "%s\n", lua_tostring(lua, -1));
		/* Poistetaan virheilmoitus pinosta. */
		lua_pop(lua, 1);
	}
}

/* Sama pelkälle tekstille, ihan täydellisyyden vuoksi. */
void do_string(lua_State* lua, char* str) {
	if (luaL_dostring(lua, str) != 0) {
		fprintf(stderr, "%s\n", lua_tostring(lua, -1));
		lua_pop(lua, 1);
	}
}

/* Testifunktio, jota kutsutaan Lua-koodista. */
int summaa(lua_State* lua) {
	/* Luassa argumentteja voi passata niin paljon kuin lystää. */
	int argc = lua_gettop(lua);
	double sum = 0.0;
	int i = 0;

	printf("Saatiin %d argumenttia.\n", argc);

	for (i = 1; i != argc + 1; ++i) {
		/*
		 * Virheentarkistusta. i viittaa indeksiin pinossa:
		 * Lua kommunikoi C-softan kanssan pinon välityksellä. Ihan oikeaoppinen
		 * pino se ei ole, vaan siihen voi viitata indekseillä.
		 * Positiivinen luku on absoluuttinen indeksi pinoon, laskettu
		 * pinon alusta, negatiivinen taas lopusta. Paremman selityksen
		 * saa paremmista tutoriaaleista :/
		 */
		if (!lua_isnumber(lua, i)) {
			fprintf(stderr, "Argumentti %d ei ole numero.\n", i);
			continue;
		}

		/* Muutetaan argumentti numeroksi ja summataan. Luan numerot palautuvat
		 * C:hen doubleina. */
		sum += lua_tonumber(lua, i);
	}

	/* Lisätään palautusarvo pinoon. */
	lua_pushnumber(lua, sum);
	/* Palautetaan palautusarvojen määrä. */
	return 1;
}

int main(int argc, char** argv) {
	/* Lua-tila. Ajattele vaikka virtuaalikoneena. */
	lua_State* lua;

	/* lua_open() alustaa. */
	if ((lua = lua_open()) == 0) {
		fprintf(stderr, "Alustus kusee.");
		return 1;
	}

	/* Avataan kaikki peruskirjastot. */
	luaL_openlibs(lua);

	/* Avataan oma summaa-funktiomme käyttöön Lua-koodista. */
	lua_register(lua, "summaa", summaa);

	do_string(lua, "io.write(\"Toimii!\\n\");");

	do_file(lua, "testifilu.lua");

	/* Suljetaan Lua. */
	lua_close(lua);

	return 0;
}