RAYLIB: cleanup/wip

Author: chrisws

clipboard/main.cpp

@@ -14,7 +14,7 @@
 
 clipboard_c *clipboard;
 
-int sblib_init(void) {
+int sblib_init(const char *sourceFile) {
   clipboard = clipboard_new(nullptr);
   return clipboard != nullptr;
 }

configure.ac

@@ -88,14 +88,15 @@ AC_PROG_LIBTOOL
 AC_PROG_CXX
 LT_PREREQ([2.2])
 
-BUILD_SUBDIRS="imgui nuklear glfw clipboard websocket raylib"
+BUILD_SUBDIRS="debug imgui nuklear glfw clipboard websocket raylib"
 AC_SUBST(BUILD_SUBDIRS)
 checkDebugMode
 
 libdir=${libdir}/smallbasic
 
 AC_CONFIG_FILES([
 Makefile
+debug/Makefile
 nuklear/Makefile
 imgui/Makefile
 glfw/Makefile

debug/Makefile.am

@@ -0,0 +1,13 @@
+# SmallBASIC
+# Copyright(C) 2001-2020 Chris Warren-Smith.
+#
+# This program is distributed under the terms of the GPL v2.0 or later
+# Download the GNU Public License (GPL) from www.gnu.org
+#
+
+AM_CXXFLAGS=-fno-rtti -std=c++14
+AM_CPPFLAGS = -I../include -Wall
+lib_LTLIBRARIES = libdebug.la
+libdebug_la_SOURCES = main.cpp
+libdebug_la_LDFLAGS = -module -rpath '$(libdir)' 
+

debug/main.cpp

@@ -0,0 +1,74 @@
+// This file is part of SmallBASIC
+//
+// This program is distributed under the terms of the GPL v2.0 or later
+// Download the GNU Public License (GPL) from www.gnu.org
+//
+// Copyright(C) 2020 Chris Warren-Smith
+
+#include "config.h"
+
+#include <sys/stat.h>
+#include <cstring>
+#include <cstdlib>
+
+#include "include/var.h"
+#include "include/module.h"
+#include "include/param.h"
+
+char *programSource = nullptr;
+uint32_t modifiedTime;
+
+uint32_t get_modified_time() {
+  uint32_t result = 0;
+  if (programSource != nullptr) {
+    struct stat st_file;
+    if (!stat(programSource, &st_file)) {
+      result = st_file.st_mtime;
+    }
+  }
+  return result;
+}
+
+int cmd_issourcemodified(int argc, slib_par_t *params, var_t *retval) {
+  v_setint(retval, modifiedTime < get_modified_time());  
+  return 1;
+}
+
+FUNC_SIG lib_func[] = {
+  {0, 0, "ISSOURCEMODIFIED", cmd_issourcemodified},
+};
+
+int sblib_func_count() {
+  return (sizeof(lib_func) / sizeof(lib_func[0]));
+}
+
+int sblib_func_getname(int index, char *proc_name) {
+  int result;
+  if (index < sblib_func_count()) {
+    strcpy(proc_name, lib_func[index]._name);
+    result = 1;
+  } else {
+    result = 0;
+  }
+  return result;
+}
+
+int sblib_func_exec(int index, int argc, slib_par_t *params, var_t *retval) {
+  int result;
+  if (index < sblib_func_count()) {
+    result = lib_func[index]._command(argc, params, retval);
+  } else {
+    result = 0;
+  }
+  return result;
+}
+
+int sblib_init(const char *sourceFile) {
+  programSource = strdup(sourceFile);
+  modifiedTime = get_modified_time();
+  return 1;
+}
+
+void sblib_close(void) {
+  free(programSource);
+}

include/module.h

@@ -31,7 +31,7 @@ typedef struct {
  *
  * @return non-zero on success
  */
-int sblib_init(void);
+int sblib_init(const char *sourceFile);
 
 /**
  * @ingroup modlib

include/param.h

@@ -10,8 +10,6 @@
 #include "var.h"
 #include "module.h"
 
-#define MAX_ARGS 8
-
 typedef struct API {
   const char *name;
   int (*command)(int, slib_par_t *, var_t *retval);
@@ -22,7 +20,6 @@ typedef struct FUNC_SIG {
   int _max;
   const char *_name;
   int (*_command)(int, slib_par_t *, var_t *retval);
-  int _format[MAX_ARGS];
 } FUNC_SIG;
 
 void error(var_p_t var, const char *field, int nMin, int nMax);

nuklear/main.cpp

@@ -833,10 +833,6 @@ API lib_func[] = {
   {"WINDOWGETBOUNDS", cmd_windowgetbounds}
 };
 
-int sblib_init(void) {
-  return 1;
-}
-
 void sblib_devinit(const char *prog, int width, int height) {
   _bg_color = nk_black;
   _fg_color = nk_white;