Changeset 25485 in project

Timestamp:

11/09/11 22:16:06 (10 years ago)

Author:

Jim Ursetto

Message:

chicken-doc-html 0.2.3: drop bad table tags to avoid 500; be quiet, noisy tag drops

Location:

release/4/chicken-doc-html/trunk

Files:

• chicken-doc-html.meta (modified) (1 diff)
• chicken-doc-html.scm (modified) (3 diffs)
• chicken-doc-html.setup (modified) (1 diff)

release/4/chicken-doc-html/trunk/chicken-doc-html.meta

@@ -5 +5 @@
  (category doc-tools)
  (license "BSD")
- (author "Jim Ursetto")
- (files "chicken-doc-html.release-info" "chicken-doc-html.meta" "chicken-doc-html.setup" "chicken-doc-html.scm"))
+ (author "Jim Ursetto"))

release/4/chicken-doc-html/trunk/chicken-doc-html.scm

@@ -126 +126 @@
    (let ((walk sxml-walk)
          (drop-tag (lambda (t b s) '()))
-         (drop-tag-noisily (lambda (t b s) (warning "dropped" (cons t b)) '()))
+         (drop-tag-noisily (lambda (t b s)
+                             ;; Warning disabled as it just spams the logs; instead the
+                             ;; offender could be included in an HTML comment.
+                             ; (warning "dropped" (cons t b))
+                             '()))
          (quote-text `(*text* . ,(lambda (t b s) (quote-html b)))))
      (letrec ((block (lambda (tag)
@@ -315 +319 @@
 
           (table . ,(lambda (t b table-ss)
+                      ;; Table may be malformed as svnwiki-sxml just passes us the
+                      ;; raw HTML, so we drop bad tags.
                       `("<table>\n"
                         ,(walk b `((tr . ,(lambda (t b s)
@@ -329 +335 @@
                                                                     ,(walk b table-ss)
                                                                     "</td>")))
-                                                         (@ . ,drop-tag))))
+                                                         (@ . ,drop-tag)
+                                                         (*default* . ,drop-tag-noisily))))
                                               "</tr>\n")))
-                                   (@ . ,drop-tag)))
+                                   (@ . ,drop-tag)
+                                   (*default* . ,drop-tag-noisily)))
                         "</table>\n")))
           

release/4/chicken-doc-html/trunk/chicken-doc-html.setup

@@ -1 +1 @@
 ;;; -*- scheme -*-
 
-(define version "0.2.2")
+(define version "0.2.3")
 
 (compile -s -O2 -d1 -SJ chicken-doc-html.scm)