cocoon-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From ovi...@apache.org
Subject cvs commit: xml-cocoon2/src/scratchpad/schecoon/webapp example.scm
Date Wed, 13 Feb 2002 01:49:06 GMT
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:     webmaster@xml.apache.org
To unsubscribe, e-mail:          cocoon-cvs-unsubscribe@xml.apache.org
For additional commands, e-mail: cocoon-cvs-help@xml.apache.org


Mime
View raw message