Changeset 2432 in project

Timestamp:

11/15/06 07:08:11 (14 years ago)

Author:

felix winkelmann

Message:

added doc indices for eggs, minor fixes

Files:

• doc-indices/chicken.index (moved) (moved from doc-indices/chicken)
• doc-indices/eggs.index (added)
• doc-indices/grovel (moved) (moved from grovel) (3 diffs)
• doc-indices/r5rs.index (moved) (moved from doc-indices/r5rs)
• scsh-regexp/scsh-regexp.html (moved) (moved from scsh-regexp/scsh-regexp/scsh-regexp.html)
• scsh-regexp/scsh-regexp.meta (modified) (1 diff)

doc-indices/grovel

@@ -8 +8 @@
 
 
-(define *ignored* '("comet" "chicken"()))
+(set-sharp-read-syntax! 
+ #\>
+ (lambda (p)
+   (let loop ()
+     (let ((c (read-char p)))
+       (cond ((eof-object? c) #f)
+             ((char=? #\< c)
+              (if (char=? #\# (read-char p)) #f (loop)))
+             (else (loop)) ) ) ) ) )
+
+(define *ignored* '("comet" "chicken" "doc-indices"))
 (define *top* #f)
 
@@ -15 +25 @@
          (unless (member f *ignored*)
            (unless *top* 
-             (print #\newline (list (pathname-file f)) #\newline)
              (fprintf (current-error-port) "~a ...~%" f) )
            (parameterize ((current-directory f))
@@ -27 +36 @@
         ((member (pathname-extension f) '("scm" "ss"))
          (print ";; " (pathname-strip-directory f))
-         (with-input-from-file f
-           (lambda ()
-             (for-each-line
-              (lambda (line)
-                (regex-case line
-                  ("\\(define[ \t]+\\(*([^() \t]+).*" (_ name)
-                   (unless (char=? #\# (string-ref name 0))
-                     (print name) ) ) ) ) ) ) ) ) ) )
+         (process f) ) ) )
+
+(define (process file)
+  (with-input-from-file file
+    (lambda ()
+      (call/cc
+       (lambda (return)
+         (let loop ()
+           (let ((x (handle-exceptions ex (begin (print-error-message ex) #f)
+                      (read))))
+             (unless (eof-object? x)
+               (match x
+                 (('module (? symbol?) (exports ...))
+                  (emit exports) )
+                 (('declare . decls)
+                  (for-each
+                   (match-lambda
+                     (('export . exports) 
+                      (emit exports)
+                      (return #f) )
+                     (_ #f) )
+                   decls) )
+                 (('define (? symbol? s) _) (emit (list s)))
+                 (('define ((? symbol? s) . _) . _) (emit (list s)))
+                 (('define-macro ((? symbol? s) . _) . _) (emit (list s)))
+                 (('define-syntax (? symbol? s) _) (emit (list s)))
+                 (('define-syntax ((? symbol? s) . _) . _) (emit (list s)))
+                 (_ #f) )
+               (loop) ) ) ) ) ) ) ) )
+
+(define (emit syms)
+  (for-each 
+   (lambda (s) 
+     (unless (##sys#qualified-symbol-prefix s)
+       (pp (cons s (conc "http://www.call-with-current-continuation.org/eggs/" *top* ".html")))) )
+   syms) )
 
 (for-each grovel (command-line-arguments))

scsh-regexp/scsh-regexp.meta

@@ -6 +6 @@
  (author "Dan Muresan")
  (files "scsh-regexp.setup" 
-        "scsh-regexp/scsh-regexp.html" 
         "scsh-regexp/egg-eggdoc.scm"
         "scsh-regexp/scsh-regexp-code.scm"