Version of add form:

Uses SIMPLE-SERVLET-API.
2002-12-08 18:45:58 +00:00 · 2002-12-08 18:45:58 +00:00 · f4cca95296
parent a7357dc1a4
commit f4cca95296
1 changed files with 17 additions and 0 deletions
--- a/scheme/httpd/surflets/web-server/root/surflets/add-simple.scm
+++ 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."))
+
+))