From 41c30cdf376730a68fcda69b57b1139f143a5543 Mon Sep 17 00:00:00 2001
From: Bent Bisballe Nyeng <deva@aasimon.org>
Date: Wed, 26 Dec 2018 19:53:20 +0100
Subject: Fix indentation and code-style.

---
 src/luascript.cc | 673 ++++++++++++++++++++++++++++++-------------------------
 1 file changed, 364 insertions(+), 309 deletions(-)

(limited to 'src/luascript.cc')

diff --git a/src/luascript.cc b/src/luascript.cc
index ecbed53..e023a1d 100644
--- a/src/luascript.cc
+++ b/src/luascript.cc
@@ -31,6 +31,7 @@
 
 // For atoi
 #include <stdlib.h>
+#include <unistd.h>
 
 //#include "luautil.h"
 
@@ -40,420 +41,474 @@
 #define ERR(x, fmt...) printf(fmt)
 
 static int _debug(lua_State *L)
-{/*
-  Pracro::checkParameters(L,
-                          Pracro::T_STRING,
-                          Pracro::T_END);
- */
-  std::string msg = lua_tostring(L, lua_gettop(L));
+{
+
+	//Pracro::checkParameters(L,
+	//                        Pracro::T_STRING,
+	//                        Pracro::T_END);
+
+	std::string msg = lua_tostring(L, lua_gettop(L));
 
-  printf("%s\n", msg.c_str());
+	printf("%s\n", msg.c_str());
 
-  return 0;
+	return 0;
 }
 
 static int _forward(lua_State *L)
-{/*
-  Pracro::checkParameters(L,
-                          Pracro::T_STRING,
-                          Pracro::T_END);
- */
-  double x = lua_tonumber(L, lua_gettop(L));
+{
+	//Pracro::checkParameters(L,
+	//                        Pracro::T_STRING,
+	//                        Pracro::T_END);
+
+	double x = lua_tonumber(L, lua_gettop(L));
 
-  printf("forward %f\n", x);
-  
-  lua_getglobal(L, GLOBAL_POINTER);
-  LUAScript *lua = (LUAScript*)lua_touserdata(L, lua_gettop(L));
+	printf("forward %f\n", x);
 
-  if(!lua) {
-    lua_pushstring(L, "No LUA pointer!");
-    lua_error(L);
-    return 1;
-  }
+	lua_getglobal(L, GLOBAL_POINTER);
+	LUAScript *lua = (LUAScript*)lua_touserdata(L, lua_gettop(L));
 
-  if(lua->lua_stop) {
-    printf("stopping...\n");
-    lua_pushstring(L, "stop");
-    lua_error(L);
-  }
+	if(!lua)
+	{
+		lua_pushstring(L, "No LUA pointer!");
+		lua_error(L);
+		return 1;
+	}
 
-  lua->out->forward(x * 5);
+	if(lua->lua_stop)
+	{
+		printf("stopping...\n");
+		lua_pushstring(L, "stop");
+		lua_error(L);
+	}
 
-  return 0;
+	lua->out->forward(x * 5);
+
+	return 0;
 }
 
 static int _coord(lua_State *L)
-{/*
-  Pracro::checkParameters(L,
-                          Pracro::T_STRING,
-                          Pracro::T_END);
- */
-  lua_getglobal(L, GLOBAL_POINTER);
-  LUAScript *lua = (LUAScript*)lua_touserdata(L, lua_gettop(L));
+{
+	//Pracro::checkParameters(L,
+	//                        Pracro::T_STRING,
+	//                        Pracro::T_END);
+
+	lua_getglobal(L, GLOBAL_POINTER);
+	LUAScript *lua = (LUAScript*)lua_touserdata(L, lua_gettop(L));
+
+	if(!lua)
+	{
+		lua_pushstring(L, "No LUA pointer!");
+		lua_error(L);
+		return 1;
+	}
+
+	if(lua->lua_stop)
+	{
+		printf("stopping...\n");
+		lua_pushstring(L, "stop");
+		lua_error(L);
+	}
+
+	lua_pushnumber(L, lua->out->coordX());
+	lua_pushnumber(L, lua->out->coordY());
+
+	return 2;
+}
+
+static int _loadpen(lua_State *L)
+{
+	//Pracro::checkParameters(L,
+	//                        Pracro::T_STRING,
+	//                        Pracro::T_END);
+
+	const char *pen = lua_tostring(L, lua_gettop(L));
+
+	printf("load pen %s\n", pen);
+
+	lua_getglobal(L, GLOBAL_POINTER);
+	LUAScript *lua = (LUAScript*)lua_touserdata(L, lua_gettop(L));
 
-  if(!lua) {
-    lua_pushstring(L, "No LUA pointer!");
-    lua_error(L);
-    return 1;
-  }
+	if(!lua)
+	{
+		lua_pushstring(L, "No LUA pointer!");
+		lua_error(L);
+		return 1;
+	}
 
-  if(lua->lua_stop) {
-    printf("stopping...\n");
-    lua_pushstring(L, "stop");
-    lua_error(L);
-  }
+	if(lua->lua_stop)
+	{
+		printf("stopping...\n");
+		lua_pushstring(L, "stop");
+		lua_error(L);
+	}
 
-  lua_pushnumber(L, lua->out->coordX());
-  lua_pushnumber(L, lua->out->coordY());
+	lua->out->loadPen(pen);
 
-  return 2;
+	return 0;
 }
 
-static int _loadpen(lua_State *L)
-{/*
-  Pracro::checkParameters(L,
-                          Pracro::T_STRING,
-                          Pracro::T_END);
- */
-  const char *pen = lua_tostring(L, lua_gettop(L));
+static int _speed(lua_State *L)
+{
+	//Pracro::checkParameters(L,
+	//                        Pracro::T_STRING,
+	//                        Pracro::T_END);
+
+	int x = lua_tonumber(L, lua_gettop(L));
+
+	printf("speed %d\n", x);
 
-  printf("load pen %s\n", pen);
-  
-  lua_getglobal(L, GLOBAL_POINTER);
-  LUAScript *lua = (LUAScript*)lua_touserdata(L, lua_gettop(L));
+	lua_getglobal(L, GLOBAL_POINTER);
+	LUAScript *lua = (LUAScript*)lua_touserdata(L, lua_gettop(L));
 
-  if(!lua) {
-    lua_pushstring(L, "No LUA pointer!");
-    lua_error(L);
-    return 1;
-  }
+	if(!lua)
+	{
+		lua_pushstring(L, "No LUA pointer!");
+		lua_error(L);
+		return 1;
+	}
 
-  if(lua->lua_stop) {
-    printf("stopping...\n");
-    lua_pushstring(L, "stop");
-    lua_error(L);
-  }
+	if(lua->lua_stop)
+	{
+		printf("stopping...\n");
+		lua_pushstring(L, "stop");
+		lua_error(L);
+	}
 
-  lua->out->loadPen(pen);
+	lua->out->setSpeed(x);
 
-  return 0;
+	return 0;
 }
 
-static int _speed(lua_State *L)
-{/*
-  Pracro::checkParameters(L,
-                          Pracro::T_STRING,
-                          Pracro::T_END);
- */
-  int x = lua_tonumber(L, lua_gettop(L));
+static int _sleep(lua_State *L)
+{
+	//Pracro::checkParameters(L,
+	//                        Pracro::T_STRING,
+	//                        Pracro::T_END);
 
-  printf("speed %d\n", x);
-  
-  lua_getglobal(L, GLOBAL_POINTER);
-  LUAScript *lua = (LUAScript*)lua_touserdata(L, lua_gettop(L));
+	int s = lua_tonumber(L, lua_gettop(L));
 
-  if(!lua) {
-    lua_pushstring(L, "No LUA pointer!");
-    lua_error(L);
-    return 1;
-  }
+	printf("sleep %d\n", s);
 
-  if(lua->lua_stop) {
-    printf("stopping...\n");
-    lua_pushstring(L, "stop");
-    lua_error(L);
-  }
+	lua_getglobal(L, GLOBAL_POINTER);
+	LUAScript *lua = (LUAScript*)lua_touserdata(L, lua_gettop(L));
 
-  lua->out->setSpeed(x);
+	lua->sleep(s);
 
-  return 0;
+	return 0;
 }
 
 static int _scale(lua_State *L)
-{/*
-  Pracro::checkParameters(L,
-                          Pracro::T_STRING,
-                          Pracro::T_END);
- */
-  double x = lua_tonumber(L, lua_gettop(L));
+{
+	//Pracro::checkParameters(L,
+	//                        Pracro::T_STRING,
+	//                        Pracro::T_END);
+
+	double x = lua_tonumber(L, lua_gettop(L));
+
+	printf("scale %f\n", x);
 
-  printf("scale %f\n", x);
-  
-  lua_getglobal(L, GLOBAL_POINTER);
-  LUAScript *lua = (LUAScript*)lua_touserdata(L, lua_gettop(L));
+	lua_getglobal(L, GLOBAL_POINTER);
+	LUAScript *lua = (LUAScript*)lua_touserdata(L, lua_gettop(L));
 
-  if(!lua) {
-    lua_pushstring(L, "No LUA pointer!");
-    lua_error(L);
-    return 1;
-  }
+	if(!lua)
+	{
+		lua_pushstring(L, "No LUA pointer!");
+		lua_error(L);
+		return 1;
+	}
 
-  if(lua->lua_stop) {
-    printf("stopping...\n");
-    lua_pushstring(L, "stop");
-    lua_error(L);
-  }
+	if(lua->lua_stop)
+	{
+		printf("stopping...\n");
+		lua_pushstring(L, "stop");
+		lua_error(L);
+	}
 
-  lua->out->setScale(x);
+	lua->out->setScale(x);
 
-  return 0;
+	return 0;
 }
 
 static int _colour(lua_State *L)
-{/*
-  Pracro::checkParameters(L,
-                          Pracro::T_STRING,
-                          Pracro::T_END);
- */
-  int r = luaL_checknumber(L, 1);
-  int g = luaL_checknumber(L, 2);
-  int b = luaL_checknumber(L, 3);
-  int a = luaL_checknumber(L, 4);
-
-  printf("colour %d %d %d %d\n", r,b,g,a);
-  
-  lua_getglobal(L, GLOBAL_POINTER);
-  LUAScript *lua = (LUAScript*)lua_touserdata(L, lua_gettop(L));
-
-  if(!lua) {
-    lua_pushstring(L, "No LUA pointer!");
-    lua_error(L);
-    return 1;
-  }
-
-  if(lua->lua_stop) {
-    printf("stopping...\n");
-    lua_pushstring(L, "stop");
-    lua_error(L);
-  }
-
-  lua->out->setColour(r,g,b,a);
-
-  return 0;
+{
+	//Pracro::checkParameters(L,
+	//                        Pracro::T_STRING,
+	//                        Pracro::T_END);
+
+	int r = luaL_checknumber(L, 1);
+	int g = luaL_checknumber(L, 2);
+	int b = luaL_checknumber(L, 3);
+	int a = luaL_checknumber(L, 4);
+
+	printf("colour %d %d %d %d\n", r,b,g,a);
+
+	lua_getglobal(L, GLOBAL_POINTER);
+	LUAScript *lua = (LUAScript*)lua_touserdata(L, lua_gettop(L));
+
+	if(!lua)
+	{
+		lua_pushstring(L, "No LUA pointer!");
+		lua_error(L);
+		return 1;
+	}
+
+	if(lua->lua_stop)
+	{
+		printf("stopping...\n");
+		lua_pushstring(L, "stop");
+		lua_error(L);
+	}
+
+	lua->out->setColour(r,g,b,a);
+
+	return 0;
 }
 
 static int _turn(lua_State *L)
-{/*
-  Pracro::checkParameters(L,
-                          Pracro::T_STRING,
-                          Pracro::T_END);
- */
-  double x = lua_tonumber(L, lua_gettop(L));
+{
+	//Pracro::checkParameters(L,
+	//                        Pracro::T_STRING,
+	//                        Pracro::T_END);
+
+	double x = lua_tonumber(L, lua_gettop(L));
 
-  printf("turn %f\n", x);
-  
-  lua_getglobal(L, GLOBAL_POINTER);
-  LUAScript *lua = (LUAScript*)lua_touserdata(L, lua_gettop(L));
+	printf("turn %f\n", x);
 
-  if(!lua) {
-    lua_pushstring(L, "No LUA pointer!");
-    lua_error(L);
-    return 1;
-  }
+	lua_getglobal(L, GLOBAL_POINTER);
+	LUAScript *lua = (LUAScript*)lua_touserdata(L, lua_gettop(L));
 
-  if(lua->lua_stop) {
-    printf("stopping...\n");
-    lua_pushstring(L, "stop");
-    lua_error(L);
-  }
+	if(!lua)
+	{
+		lua_pushstring(L, "No LUA pointer!");
+		lua_error(L);
+		return 1;
+	}
 
-  lua->out->turn(-x * 10);
+	if(lua->lua_stop)
+	{
+		printf("stopping...\n");
+		lua_pushstring(L, "stop");
+		lua_error(L);
+	}
 
-  return 0;
+	lua->out->turn(-x * 10);
+
+	return 0;
 }
 
 static int _playsound(lua_State *L)
-{/*
-  Pracro::checkParameters(L,
-                          Pracro::T_STRING,
-                          Pracro::T_END);
- */
-  QString file = lua_tostring(L, lua_gettop(L));
+{
+	//Pracro::checkParameters(L,
+	//                        Pracro::T_STRING,
+	//                        Pracro::T_END);
 
-  lua_getglobal(L, GLOBAL_POINTER);
-  LUAScript *lua = (LUAScript*)lua_touserdata(L, lua_gettop(L));
+	QString file = lua_tostring(L, lua_gettop(L));
 
-  lua->playSound(file);
+	lua_getglobal(L, GLOBAL_POINTER);
+	LUAScript *lua = (LUAScript*)lua_touserdata(L, lua_gettop(L));
 
-  return 0;
+	lua->playSound(file);
+
+	return 0;
 }
 
 static int _reset(lua_State *L)
-{/*
-  Pracro::checkParameters(L,
-                          Pracro::T_STRING,
-                          Pracro::T_END);
- */
+{
+	//Pracro::checkParameters(L,
+	//                        Pracro::T_STRING,
+	//                        Pracro::T_END);
 
-  printf("reset\n");
+	printf("reset\n");
 
-  lua_getglobal(L, GLOBAL_POINTER);
-  LUAScript *lua = (LUAScript*)lua_touserdata(L, lua_gettop(L));
+	lua_getglobal(L, GLOBAL_POINTER);
+	LUAScript *lua = (LUAScript*)lua_touserdata(L, lua_gettop(L));
 
-  if(!lua) {
-    lua_pushstring(L, "No LUA pointer!");
-    lua_error(L);
-    return 1;
-  }
+	if(!lua)
+	{
+		lua_pushstring(L, "No LUA pointer!");
+		lua_error(L);
+		return 1;
+	}
 
-  if(lua->lua_stop) {
-    lua_pushstring(L, "stop");
-    lua_error(L);
-  }
+	if(lua->lua_stop)
+	{
+		lua_pushstring(L, "stop");
+		lua_error(L);
+	}
 
-  lua->out->reset();
+	lua->out->reset();
 
-  return 0;
+	return 0;
 }
 
 void hook(lua_State *L, lua_Debug *ar)
 {
-  lua_getinfo(L, "Snl", ar);
-
-  lua_getglobal(L, GLOBAL_POINTER);
-  LUAScript *lua = (LUAScript*)lua_touserdata(L, lua_gettop(L));
-
-  if(!lua) {
-    lua_pushstring(L, "No LUA pointer!");
-    lua_error(L);
-    return;
-  }
-
-  //  printf("kaiman file: %s\n", lua->file.toStdString().c_str());
-
-  if(lua->file == QString(ar->short_src)) {
-    //    printf(" ---- currentline: %d\n", ar->currentline);
-    lua->lineChange(ar->currentline);
-    qApp->processEvents();
-  }
-    /*
-  printf("HOOK:\n");
-  printf("  what: %s\n", ar->what);
-  printf("  name: %s\n", ar->name);
-  printf("  source: %s\n", ar->source);
-  printf("  short_src: %s\n", ar->short_src);
-  printf("  currentline: %d\n", ar->currentline);
-    */
+	lua_getinfo(L, "Snl", ar);
+
+	lua_getglobal(L, GLOBAL_POINTER);
+	LUAScript *lua = (LUAScript*)lua_touserdata(L, lua_gettop(L));
+
+	if(!lua)
+	{
+		lua_pushstring(L, "No LUA pointer!");
+		lua_error(L);
+		return;
+	}
+
+	//printf("kaiman file: %s\n", lua->file.toStdString().c_str());
+
+	if(lua->file == QString(ar->short_src))
+	{
+		//    printf(" ---- currentline: %d\n", ar->currentline);
+		lua->lineChange(ar->currentline);
+		qApp->processEvents();
+	}
+
+	//printf("HOOK:\n");
+	//printf("  what: %s\n", ar->what);
+	//printf("  name: %s\n", ar->name);
+	//printf("  source: %s\n", ar->source);
+	//printf("  short_src: %s\n", ar->short_src);
+	//printf("  currentline: %d\n", ar->currentline);
 }
 
 LUAScript::LUAScript(OutputWindow *o, QString f)
 {
-  DEBUG(luascript, "LUAScript()\n");
-  file = f;
-  L = NULL;
-  out = o;
+	DEBUG(luascript, "LUAScript()\n");
+	file = f;
+	L = NULL;
+	out = o;
 
-  // Don't call init from here, it need to be done in the thread.
+	// Don't call init from here, it need to be done in the thread.
 
-  lua_stop = false;
-  lua_stopped = true;
+	lua_stop = true;
+	lua_stopped = true;
 }
 
 LUAScript::~LUAScript()
 {
-  DEBUG(luascript, "~LUAScript()\n");
+	DEBUG(luascript, "~LUAScript()\n");
 }
 
 void LUAScript::lineChange(int lineno)
 {
-  emit lineChanged(lineno);
+	emit lineChanged(lineno);
 }
 
 void LUAScript::init()
-  throw(Exception)
 {
-  if(L) return;
-
-  L = luaL_newstate();
-  if(L == NULL) {
-    ERR(luascript, "Could not create LUA state.\n");
-    throw Exception("Could not create LUA state.");
-  }
-
-  luaL_openlibs(L);               
-
-  lua_pushlightuserdata(L, this); // Push the pointer to 'this' instance
-  lua_setglobal(L, GLOBAL_POINTER); // Assign it to a global lua var.
-
-  lua_register(L, "debug", _debug);
-  lua_register(L, "forward", _forward);
-  lua_register(L, "turn", _turn);
-  lua_register(L, "speed", _speed);
-  lua_register(L, "scale", _scale);
-  lua_register(L, "reset", _reset);
-  lua_register(L, "colour", _colour);
-  lua_register(L, "loadpen", _loadpen);
-  lua_register(L, "coord", _coord);
-  lua_register(L, "playsound", _playsound);
-
-  lua_sethook(L, hook, LUA_MASKLINE, 0);
+	if(L)
+	{
+		return;
+	}
+
+	L = luaL_newstate();
+	if(L == NULL)
+	{
+		ERR(luascript, "Could not create LUA state.\n");
+		throw Exception("Could not create LUA state.");
+	}
+
+	luaL_openlibs(L);
+
+	lua_pushlightuserdata(L, this); // Push the pointer to 'this' instance
+	lua_setglobal(L, GLOBAL_POINTER); // Assign it to a global lua var.
+
+	lua_register(L, "debug", _debug);
+	lua_register(L, "forward", _forward);
+	lua_register(L, "turn", _turn);
+	lua_register(L, "speed", _speed);
+	lua_register(L, "scale", _scale);
+	lua_register(L, "reset", _reset);
+	lua_register(L, "colour", _colour);
+	lua_register(L, "loadpen", _loadpen);
+	lua_register(L, "coord", _coord);
+	lua_register(L, "playsound", _playsound);
+	lua_register(L, "sleep", _sleep);
+
+	lua_sethook(L, hook, LUA_MASKLINE, 0);
 }
 
 void LUAScript::cleanup()
 {
-  if(L) {
-    lua_close(L);
-    L = NULL;
-  }
+	if(L)
+	{
+		lua_close(L);
+		L = NULL;
+	}
 }
 
 void LUAScript::run()
 {
-  lua_stopped = false;
-  try {
-    init();
-    runScript();
-  } catch(Exception &e) {
-    printf("LUA Error: %s\n", e.msg.c_str());
-  }
-  cleanup();
-  lua_stopped = true;
-  printf("LUA Thread Stopped!\n");
+	lua_stopped = false;
+	try
+	{
+		init();
+		runScript();
+	}
+	catch(Exception &e)
+	{
+		printf("LUA Error: %s\n", e.msg.c_str());
+	}
+	cleanup();
+	lua_stopped = true;
+	printf("LUA Thread Stopped!\n");
 }
 
 void LUAScript::playSound(QString file)
 {
-  player.playFile(file);
+	player.playFile(file);
 }
 
 void LUAScript::stopScript()
 {
-  lua_stop = true;
-  while(!lua_stopped) {
-    wait(25);
-    qApp->processEvents();
-    printf("!\n");
-  }
+	lua_stop = true;
+	while(!lua_stopped)
+	{
+		wait(25);
+		qApp->processEvents();
+		printf("!\n");
+	}
 }
 
 void LUAScript::runScript()
-  throw(Exception)
 {
-  lua_stop = false;
-
-  try {
-    init();
-  } catch(Exception &e) {
-    throw Exception(e.msg);
-  }
-
-  if(L == NULL) {
-    ERR(luascript, "LUA state not initialized!");
-    return;
-  }
-
-  top = lua_gettop(L);
-
-  //  DEBUG(luascript, "Running %s\n", file);
-
-  if(luaL_loadfile(L, file.toStdString().c_str())) {
-    ERR(luascript, "loadbuffer: %s\n", lua_tostring(L, lua_gettop(L)));
-    throw Exception(lua_tostring(L, lua_gettop(L)));
-  }
-    
-  // Run the loaded code
-  if(lua_pcall(L, 0, LUA_MULTRET, 0)) {
-    ERR(luascript, "pcall: %s\n" , lua_tostring(L, lua_gettop(L)));
-    throw Exception(lua_tostring(L, lua_gettop(L)));
-  }
+	lua_stop = false;
+
+	try
+	{
+		init();
+	}
+	catch(Exception &e)
+	{
+		throw Exception(e.msg);
+	}
+
+	if(L == NULL)
+	{
+		ERR(luascript, "LUA state not initialized!");
+		return;
+	}
+
+	top = lua_gettop(L);
+
+	//  DEBUG(luascript, "Running %s\n", file);
+
+	if(luaL_loadfile(L, file.toStdString().c_str()))
+	{
+		ERR(luascript, "loadbuffer: %s\n", lua_tostring(L, lua_gettop(L)));
+		throw Exception(lua_tostring(L, lua_gettop(L)));
+	}
+
+	// Run the loaded code
+	if(lua_pcall(L, 0, LUA_MULTRET, 0))
+	{
+		ERR(luascript, "pcall: %s\n" , lua_tostring(L, lua_gettop(L)));
+		throw Exception(lua_tostring(L, lua_gettop(L)));
+	}
+}
+
+void LUAScript::sleep(int n)
+{
+	::sleep(n);
 }
-- 
cgit v1.2.3