Changeset 25485 in project


Ignore:
Timestamp:
11/09/11 22:16:06 (9 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:
3 edited

Legend:

Unmodified
Added
Removed
  • release/4/chicken-doc-html/trunk/chicken-doc-html.meta

    r23255 r25485  
    55 (category doc-tools)
    66 (license "BSD")
    7  (author "Jim Ursetto")
    8  (files "chicken-doc-html.release-info" "chicken-doc-html.meta" "chicken-doc-html.setup" "chicken-doc-html.scm"))
     7 (author "Jim Ursetto"))
  • release/4/chicken-doc-html/trunk/chicken-doc-html.scm

    r22005 r25485  
    126126   (let ((walk sxml-walk)
    127127         (drop-tag (lambda (t b s) '()))
    128          (drop-tag-noisily (lambda (t b s) (warning "dropped" (cons t b)) '()))
     128         (drop-tag-noisily (lambda (t b s)
     129                             ;; Warning disabled as it just spams the logs; instead the
     130                             ;; offender could be included in an HTML comment.
     131                             ; (warning "dropped" (cons t b))
     132                             '()))
    129133         (quote-text `(*text* . ,(lambda (t b s) (quote-html b)))))
    130134     (letrec ((block (lambda (tag)
     
    315319
    316320          (table . ,(lambda (t b table-ss)
     321                      ;; Table may be malformed as svnwiki-sxml just passes us the
     322                      ;; raw HTML, so we drop bad tags.
    317323                      `("<table>\n"
    318324                        ,(walk b `((tr . ,(lambda (t b s)
     
    329335                                                                    ,(walk b table-ss)
    330336                                                                    "</td>")))
    331                                                          (@ . ,drop-tag))))
     337                                                         (@ . ,drop-tag)
     338                                                         (*default* . ,drop-tag-noisily))))
    332339                                              "</tr>\n")))
    333                                    (@ . ,drop-tag)))
     340                                   (@ . ,drop-tag)
     341                                   (*default* . ,drop-tag-noisily)))
    334342                        "</table>\n")))
    335343         
  • release/4/chicken-doc-html/trunk/chicken-doc-html.setup

    r22021 r25485  
    11;;; -*- scheme -*-
    22
    3 (define version "0.2.2")
     3(define version "0.2.3")
    44
    55(compile -s -O2 -d1 -SJ chicken-doc-html.scm)
Note: See TracChangeset for help on using the changeset viewer.