-
Notifications
You must be signed in to change notification settings - Fork 1
Easily make TCP servers in Common Lisp. (πͺ Mirror)
License
JadedCtrl/facilservil
Folders and files
Name | Name | Last commit message | Last commit date | |
---|---|---|---|---|
Β | Β | |||
Β | Β | |||
Β | Β | |||
Β | Β | |||
Repository files navigation
=============================================================================== FACILSERVIL : `Easy Server` =============================================================================== Sometimes, it's just annoying and time-draining to deal with all of the intricacies of :usocketsβ facilservil abstracts away all of those bits. ββββββββββββββββββββββββββββββββββββββββ FEATURES ββββββββββββββββββββββββββββββββββββββββ * Multi-threaded * Input-handling * Logging system * UTF-8 ββββββββββββββββββββββββββββββββββββββββ DEMONSTRATION ββββββββββββββββββββββββββββββββββββββββ Load up Facilservil, then run this in your repl: (facilservil:ex-server "localhost" 8888) Now, connect your computer on port 8888. This example server is a chat server, so it might be useful to connect a couple of times, for demonstration's sake. If you're on LiGNUx or BSD, you can use "telnet localhost 8888" In reality, 'ex-server is just a small function for demonstration-- the example server really looks like this: (facilservil:server host port #'ex-connect #'ex-disconnect #'ex-input #'ex-loop) It runs #'ex-connect when you connect, #'ex-disconnect when you disconnect, and #'ex-input-ex after you finish a command, and #'ex-loop after handling everyone's input (or after timeout of waiting for input). For a different kind of example (less interesting, since it takes no user input), look at QOTDD (https://hak.xwx.moe/jadedctrl/qotdd). For a more comprehensive guide to Facilservil, look to USAGE, coming right up. ββββββββββββββββββββββββββββββββββββββββ USAGE ββββββββββββββββββββββββββββββββββββββββ To use Facilservil, just use the `facilservil:server` function somewhere. "host" and "port" are, obviously, the host-IP and port, respectively. "on-connect" is the function that will be executed when a user connects. "on-disconnect" is the function that will run when someone disconnects. "on-input" is the function that will run when someone sends a command "on-loop" is the function running when all input is complete/timeouts Basically, you write the "connecting", "disconnecting", and "input-handler" functions (maybe "halting"), and you've got a handy-dandy server. These functions you write must accept the following arguments: on-connect (connection connection-list) on-disconnect (connection connection-list) on-input (connection input-string connection-list) on-loop (connection-list) You can use #'send to send strings to a given connection. Each connection has a built-in hashtable (for storing user-IDs, usernames, whatever you need). You can store/set a variable with #'bury, and retrieve with #'dig. ββββββββββββββββββββββββββββββββββββββββ BORING STUFF ββββββββββββββββββββββββββββββββββββββββ Based on Sergey's gist <[email protected]> Author is Jaidyn Ann <[email protected]> License is BSD 3-Clause βNewβ, see COPYING.txt Sauce is at https://hak.xwx.moe/jadedctrl/facilservil
About
Easily make TCP servers in Common Lisp. (πͺ Mirror)