Welcome to the CHICKEN Scheme pasting service

$ cat menu
* [[/|Wiki]]
* [[//code.call-cc.org/|Download]]
* [[/manual/index|Manual]]
* [[//eggs.call-cc.org|Eggs]]
* [[//api.call-cc.org/doc/|API]]
* [[//tests.call-cc.org/|Tests]]
* [[//bugs.call-cc.org/|Bugs]]


$ cat wiki.scm
(cond-expand
 (chicken-4
  (use qwiki utils svnwiki-sxml sxml-transforms))
 (chicken-5
  (import (chicken irregex)
          (chicken port)
          (chicken process-context)
          (chicken string))
  (import qwiki svnwiki-sxml sxml-transforms srfi-1 srfi-13))
 (else
  (error "Unsupported CHICKEN version.")))

(define (convert-wiki-file file)
  (with-output-to-string
    (lambda ()
      (write-content
       (call-with-input-file file svnwiki->sxml)))))

(print (convert-wiki-file (car (command-line-arguments))))


$ csi -s wiki.scm menu

Warning: excluded identifier doesn't exist in module chicken: define-macro

<ul>
<li><a href="/" class="internal">Wiki</a></li>
<li><a href="//codecall-ccorg/" class="internal">Download</a></li>
<li><a href="/manual/index" class="internal">Manual</a></li>
<li><a href="//eggscall-ccorg" class="internal">Eggs</a></li>
<li><a href="//apicall-ccorg/doc/" class="internal">API</a></li>
<li><a href="//testscall-ccorg/" class="internal">Tests</a></li>
<li><a href="//bugscall-ccorg/" class="internal">Bugs</a></li></ul>