ovidiu 01/12/21 10:49:28
Modified: scratchpad/schecoon/scheme test.scm
Log:
Updated to use the latest sitemap syntax. Also pass the Cocoon ComponentManager and
Environment to the Scheme sitemap main function.
Revision Changes Path
1.5 +37 -28 xml-cocoon2/scratchpad/schecoon/scheme/test.scm
Index: test.scm
===================================================================
RCS file: /home/cvs/xml-cocoon2/scratchpad/schecoon/scheme/test.scm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- test.scm 2001/12/17 06:59:18 1.4
+++ test.scm 2001/12/21 18:49:28 1.5
@@ -1,48 +1,57 @@
(load-module "sisc.modules.J2S")
+(load-module "org.apache.cocoon.scheme.sitemap.SitemapComponents")
;;; sample sitemap with the associated pipeline definitions
(define pipelines
(define-pipelines
- (define-pipeline docbook-xhtml
- (lambda (file . args)
- (generate file)
+ (define-pipeline docbook-xhtml (cm env file . args)
+ (transform cm env
+ (list (cons 'type "xslt")
+ (cons 'stylesheet "docbook2html.xsl")
+ (cons 'params
+ (list (cons 'view-source
+ (string-append "docs/samples/" file))
+ (cons 'arg "some-arg"))))
+ (generate cm env (list (cons "src" file)))))
+ (define-pipeline docbook-xhtml (cm env file . args)
+ (generate cm env file)
(transform '((type xslt)
(name "docbook2xhtml.xsl")
(parameter "view-source" (concat "docs/samples/" file))))
- (serialize (type xml))))
+ (serialize (type xml)))
- (define-pipeline gif-image
- (lambda (file . args)
- (read (concat "src/" file ".gif") "image/gif")))
+ (define-pipeline gif-image (cm env file . args)
+ (read (concat "src/" file ".gif") "image/gif"))
))
(define the-sitemap
(define-sitemap
- (match "sql/(.*)"
- (lambda (dummy file . args)
- (write (list 'call-pipeline 'docbook-xhtml file))))
-
- (match "slides/(.*)\.gif"
- (lambda (dummy file . args)
- (write '(call-pipeline gif-image file))))
-
- (match "view-source/(.*)"
- (lambda (dummy file . args)
- (write '(generate file)) (newline)
- (write '(transform '((type xslt) (name "xsp")))) (newline)
- (write '(serialize (type xml))) (newline)))
-
- (match "shopping-cart/(.*)"
- (lambda (dummy file . args)
- (shopping-cart file)))
+ (match "sql/(.*)" (cm env file . args)
+ (write (list 'call-pipeline 'docbook-xhtml file)))
+
+ (match "generate/(.*)" (cm env file . args)
+ (display (sitemap:generate cm env (list (cons 'src "cocoon.xconf")))))
+
+ (match "slides/(.*)\.gif" (cm env file . rest)
+ (write '(call-pipeline gif-image file)))
+
+ (match "view-source/(.*)" (cm env file . rest)
+ (write '(generate file)) (newline)
+ (write '(transform '((type xslt) (name "xsp")))) (newline)
+ (write '(serialize (type xml))) (newline))
+
+ (match "shopping-cart/(.*)" (cm env file . rest)
+ (shopping-cart env file))
))
(define shopping-cart
- (lambda (file)
-; (display "shopping cart invoked") (newline)
+ (lambda (env file)
+ (display "shopping cart invoked ") (display env) (newline)
#f))
-(define (main url request response)
- (the-sitemap url)
+(define (main url componentManager environment)
+; (display "main invoked ") (display url) (newline)
+; (display environment) (newline)
+ (the-sitemap url componentManager environment)
)
----------------------------------------------------------------------
In case of troubles, e-mail: [EMAIL PROTECTED]
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
