From 80b558dda9342206b8aab33bb7b967bfe9fb0553 Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Fri, 3 May 2019 12:34:56 +0200 Subject: [PATCH] Add expression evaluation. --- burrow.scm | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/burrow.scm b/burrow.scm index c258311..afdee12 100644 --- a/burrow.scm +++ b/burrow.scm @@ -135,6 +135,7 @@ (define (serve-record record path config) (match record (('shell command) (serve-shell-command command)) + (('eval expression) (serve-expression expression)) ((type display-string selector host port) (print type display-string "\t" selector "\t" host "\t" port "\r")) ((type display-string selector host) @@ -156,6 +157,10 @@ (let-values (((in-port out-port id) (process command))) (for-each serve-info-record (read-lines in-port)))) +(define (serve-expression expression) + (for-each serve-info-record + (string-split (conc (eval expression)) "\n"))) + ;;; main (define (main) @@ -174,9 +179,9 @@ (run-server (make-server-config root hostname port)) (error "Invalid port argument." port)))))) -(main) +;; (main) -;; (define (test) -;; (run-server (make-server-config "gopher-root" "localhost" 70))) +(define (test) + (run-server (make-server-config "gopher-root" "localhost" 70))) ;; (test) -- 2.20.1