barra
/
SilverMUD
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Enable readline for Guile and enable Guile for the game logic thread

This commit is contained in:
Barra Ó Catháin 2023-04-11 23:41:28 +01:00
parent 701335c236
commit 7b266bfc51
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/gamelogic.c
View File

@ -5,6 +5,7 @@
#include <string.h> #include <string.h>
#include <stdbool.h> #include <stdbool.h>
#include <pthread.h> #include <pthread.h>
#include <libguile.h>
#include "queue.h" #include "queue.h"
#include "constants.h" #include "constants.h"
#include "gamelogic.h" #include "gamelogic.h"
@ -22,6 +23,7 @@ void * gameLogicHandler(void * parameters)
gameLogicParameters * threadParameters = parameters; gameLogicParameters * threadParameters = parameters;
inputMessage * currentInput = NULL; inputMessage * currentInput = NULL;
queue * commandQueue = createQueue(); queue * commandQueue = createQueue();
scm_init_guile();
while (true) while (true)
{ {
// Evaluate remaining commands: // Evaluate remaining commands:

5
src/schemeintegration.c
View File

@ -54,7 +54,7 @@ SCM scheme_create_path(SCM path_name, SCM from_area_index, SCM to_area_index, SC
} }
// Check if the areas exist: // Check if the areas exist:
playerArea * fromArea = getFromList(areaList, scm_to_size_t(from_area_index))->area; 1 playerArea * fromArea = getFromList(areaList, scm_to_size_t(from_area_index))->area;
playerArea * toArea = getFromList(areaList, scm_to_size_t(to_area_index))->area; playerArea * toArea = getFromList(areaList, scm_to_size_t(to_area_index))->area;
if (fromArea == NULL || toArea == NULL) if (fromArea == NULL || toArea == NULL)
@ -204,6 +204,9 @@ void * schemeHandler(void * parameters)
scm_c_define("skill-list", scm_from_pointer(schemeThreadParameters->skillList, NULL)); scm_c_define("skill-list", scm_from_pointer(schemeThreadParameters->skillList, NULL));
scm_c_define("output-queue", scm_from_pointer(schemeThreadParameters->outputQueue, NULL)); scm_c_define("output-queue", scm_from_pointer(schemeThreadParameters->outputQueue, NULL));
// Enable readline support:
scm_c_eval_string("(begin (use-modules (ice-9 readline)) (activate-readline))");
// Drop into the Scheme interpreter: // Drop into the Scheme interpreter:
scm_shell(0, NULL); scm_shell(0, NULL);