ovidiu 02/02/12 17:49:06
Added: src/scratchpad/schecoon/webapp example.scm
Log:
Simple example to test flow capabilities in Scheme.
Revision Changes Path
1.1 xml-cocoon2/src/scratchpad/schecoon/webapp/example.scm
Index: example.scm
===================================================================
(function (my-function sitemap env a b)
(let ((arg (request:get-param env "arg")))
(printf "my-function2 a = ~s b = ~s~%" a b)
(printf "my-function arg = ~s~%" arg)
(send-page sitemap env "document2html" '(("source" . "docs/index.xml")) '())
(printf "my-function: after send-page a = ~s, b = ~s, arg ~s~%" a b arg)))
----------------------------------------------------------------------
In case of troubles, e-mail: [EMAIL PROTECTED]
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
