ch17 - done

Author: Javran

ty-scheme/ch17/cgi-bin/cgicalc.scm

@@ -62,6 +62,25 @@
     (display "<input type=reset value=\"Clear\">")
     (display "</form>")))
 
+(define print-example
+  (lambda (expr)
+    (display "<li>")
+    (display expr)
+    (display "</li>")))
+
+(define print-examples
+  (lambda ()
+    (display "<ul>")
+    (for-each print-example
+              '(
+                "1234"
+                "(+ 1 2 3 4 5)"
+                "(* 1 2 3 4 5 6 7 8 9 10)"
+                "(* 5 (- 5 (/ 1 5)))"
+                "(** 2 64)"
+                ))
+    (display "</ul>")))
+
 (parse-form-data)
 
 (print-page-begin)
@@ -87,4 +106,8 @@
               (calc-eval (read (open-input-string expr)))))))
       (display "<p>"))))
 
+(display "<h2>Try test cases:</h2>")
+; TODO: item -> links, hint: need url encoding
+(print-examples)
+
 (print-page-end)

ty-scheme/ch17/index.md

@@ -6,3 +6,4 @@
 * [url-decode.scm - test "url-decode" of "cgi.scm"](/cgi-bin/url-decode.scm?20%25+%2b+30%25+%3d+50%25%2c+%26c%2e)
 * [selected-env2.html - test simplified version](/selected-env2.html)
 * [selected-env-demo2 - test simplified version](/cgi-bin/testcgi2-simplified.scm?envvar=SERVER_PROTOCOL)
+* [cgicalc - a scheme calculator](/cgi-bin/cgicalc.scm)