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

Add a comment explaining what shout does.

This commit is contained in:
Barra Ó Catháin 2023-04-15 23:46:06 +01:00
parent 191cf8fcdb
commit f488a4ac7c
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scheme/basic-functions.scm
View File

@ -3,5 +3,6 @@
(create-path from-path-description from-area to-area arealist) (create-path from-path-description from-area to-area arealist)
(create-path to-path-description to-area from-area arealist))) (create-path to-path-description to-area from-area arealist)))
(define (shout message outputqueue) ;; Send a quick message to everyone in the game as the server:
(message-everyone "SERVER" message outputqueue)) (define (shout message)
(message-everyone "SERVER" message output-queue))

4
src/schemeintegration.c
View File

@ -206,9 +206,9 @@ void * schemeHandler(void * parameters)
// Enable readline support: // Enable readline support:
scm_c_eval_string("(begin (use-modules (ice-9 readline)) (activate-readline))"); scm_c_eval_string("(begin (use-modules (ice-9 readline)) (activate-readline))");
scm_c_eval_string("(begin (use-modules (system repl server)) (if (file-exists? \"silvermud-repl\") (delete-file \"silvermud-repl\"))(spawn-server (make-unix-domain-server-socket #:path \"silvermud-repl\")))"); scm_c_eval_string("(begin (use-modules (system repl server)) (if (file-exists? \"silvermud-repl\") (delete-file \"silvermud-repl\")) (spawn-server (make-unix-domain-server-socket #:path \"silvermud-repl\")))");
// Drop into the Scheme interpreter: // Drop into the Scheme interpreter:
scm_shell(0, NULL); scm_shell(0, NULL);
// Return NULL. This should be unreachable. // Return NULL. This should be unreachable.