ovidiu 02/01/17 10:07:41
Modified: src/scratchpad/schecoon/scheme test.scm
Log:
Use an SXML representation of the sitemap.
Revision Changes Path
1.4 +17 -55 xml-cocoon2/src/scratchpad/schecoon/scheme/test.scm
Index: test.scm
===================================================================
RCS file: /home/cvs/xml-cocoon2/src/scratchpad/schecoon/scheme/test.scm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- test.scm 10 Jan 2002 05:18:46 -0000 1.3
+++ test.scm 17 Jan 2002 18:07:41 -0000 1.4
@@ -1,59 +1,24 @@
(load-module "sisc.modules.J2S")
(load-module "org.apache.cocoon.scheme.sitemap.SchemeSitemap")
-;;; sample sitemap with the associated pipeline definitions
-(define pipelines
- (define-pipelines
- (define-pipeline docbook-xhtml (sitemap env file . args)
- (transform sitemap 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 sitemap env (list (cons "src" file)))))
- (define-pipeline docbook-xhtml (sitemap env file . args)
- (generate sitemap env file)
- (transform '((type xslt)
- (name "docbook2xhtml.xsl")
- (parameter "view-source" (concat "docs/samples/" file))))
- (serialize (type xml)))
-
- (define-pipeline gif-image (sitemap env file . args)
- (read (concat "src/" file ".gif") "image/gif"))
- ))
-
+(define xml-sitemap
+ '(pipelines
+ (pipeline
+ (match (@ (pattern "documentation/(.*).html") (*line* 19))
+ (generate (@ (src "docs/{1}.xml") (type "file") (*line* 20))
+ (param (@ (name "test") (value "123")))
+ (param (@ (name "test2") (value "456"))))
+ (transform (@ (src "stylesheets/document2html.xsl"))
+ (param (@ (name "test") (value "123")))
+ (param (@ (name "test2") (value "456"))))
+ (serialize (@ (*line* 21))))
+
+ (match (@ (pattern "sites/images/(.*).gif") (*line* 23))
+ (read (@ (src "{1}") (mime-type "image/gif"))))
+ )))
(define the-sitemap
- (define-sitemap
- (match "sql/(.*)" (sitemap env file . args)
- (write (list 'call-pipeline 'docbook-xhtml file)))
-
- (match "generate/(.*)" (sitemap env file . args)
- (display (sitemap:generate sitemap env (list (cons 'src file)))))
-
- (match "documentation/(.*).html" (sitemap env file . args)
- (sitemap:process sitemap env '()
- (sitemap:serialize sitemap env '()
- (sitemap:transform sitemap env (list (cons 'src
"stylesheets/document2html.xsl"))
- (sitemap:generate sitemap env (list (cons 'src (string-append "docs/"
file ".xml"))))))))
-
- (match "sites/images/(.*)" (sitemap env file . args)
- (sitemap:process sitemap env (list (cons 'mime-type "image/gif"))
- (sitemap:read sitemap env (list (cons 'src file)))))
-
- (match "slides/(.*)\.gif" (sitemap env file . rest)
- (write '(call-pipeline gif-image file)))
-
- (match "view-source/(.*)" (sitemap env file . rest)
- (write '(generate file)) (newline)
- (write '(transform '((type xslt) (name "xsp")))) (newline)
- (write '(serialize (type xml))) (newline))
-
- (match "shopping-cart/(.*)" (sitemap env file . rest)
- (shopping-cart env file))
- ))
+ (process-sitemap xml-sitemap))
(define shopping-cart
(lambda (env file)
@@ -61,7 +26,4 @@
#f))
(define (main url sitemap environment)
-; (display "main invoked ") (display url) (newline)
-; (display environment) (newline)
- (the-sitemap url sitemap environment)
-)
+ (the-sitemap url sitemap environment))
----------------------------------------------------------------------
In case of troubles, e-mail: [EMAIL PROTECTED]
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
