47 lines
1.5 KiB
Executable File

:; exec /usr/local/bin/stk -f "$0" "$@"
;;;; s e r v e r . s t k -- A simple sever
;;;; Copyright © 1993-1999 Erick Gallesio - I3S-CNRS/ESSI <>
;;;; Permission to use, copy, modify, distribute,and license this
;;;; software and its documentation for any purpose is hereby granted,
;;;; provided that existing copyright notices are retained in all
;;;; copies and that this notice is included verbatim in any
;;;; distributions. No written agreement, license, or royalty fee is
;;;; required for any of the authorized uses.
;;;; This software is provided ``AS IS'' without express or implied
;;;; warranty.
;;;; Author: Erick Gallesio []
;;;; Creation date: 4-Feb-1995 18:17
;;;; Last file update: 12-Sep-1999 23:36 (eg)
(define s (make-server-socket))
(define p (run-process ; define a var to avoid GC problems
"xterm" "-e" "telnet" "localhost"
(number->string (socket-port-number s))))
;; Init: Launch an xterm with telnet running on the s listening port and connect
(lambda ()
(socket-accept-connection s)
(format (socket-output s) "\nWelcome on the socket REPL.\n\n> ")
(flush (socket-output s)))
;; Action: A toplevel like loop
(lambda ()
(let loop ()
(format (socket-output s) "; Result: ~s\n> " (eval (read (socket-input s))))
(flush (socket-output s))
;; Termination: We go here when
;; a) an error occurs
;; b) connection is closed
(lambda ()
(format #t "Shutdown ......\n")
(socket-shutdown s)))