From f4cca95296825d8845334fa5e6157f4bb9112942 Mon Sep 17 00:00:00 2001 From: interp Date: Sun, 8 Dec 2002 18:45:58 +0000 Subject: [PATCH] Version of add form: Uses SIMPLE-SERVLET-API. --- .../web-server/root/surflets/add-simple.scm | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 scheme/httpd/surflets/web-server/root/surflets/add-simple.scm diff --git a/scheme/httpd/surflets/web-server/root/surflets/add-simple.scm b/scheme/httpd/surflets/web-server/root/surflets/add-simple.scm new file mode 100644 index 0000000..faade52 --- /dev/null +++ b/scheme/httpd/surflets/web-server/root/surflets/add-simple.scm @@ -0,0 +1,17 @@ +(define-structure servlet servlet-interface + (open scheme-with-scsh + servlets + simple-servlet-api + ) + (begin + + (define (main req) + (let* ((number-1 (single-query (make-number "First number:"))) + (number-2 (single-query (make-number "Second number:")))) + (inform (format #f "~a + ~a = ~a" + number-1 + number-2 + (+ number-1 number-2)))) + (final-page "Session finished.")) + +)) \ No newline at end of file