Changeset 12658 in project


Ignore:
Timestamp:
11/29/08 21:22:02 (11 years ago)
Author:
azul
Message:

Improvements.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/svnwiki-chicken/trunk/svnwiki-chicken.scm

    r12656 r12658  
    6464  (let-from-environment env (params parse text output-format)
    6565    (let ((filename (assoc 'filename params))
    66           (group (assoc 'testgroup params)))
     66          (testgroup (assoc 'testgroup params)))
     67      (format (current-error-port) "Tests: [filename:~A][testgroup:~A]~%"
     68              (and filename (stream->string (cdr filename)))
     69              (and testgroup (stream->string (cdr testgroup))))
    6770      (if (or (not (eq? output-format 'enscript))
    68               (and filename group))
     71              (and filename testgroup))
    6972        (parse
    7073          (html-stream
    7174            "Examples:\n\n"
    7275            "<enscript highlight=scheme"
    73             (if (and filename group)
     76            (if (and filename testgroup)
    7477              (format #f " filename='~A'"
    7578                      (stream->string
     
    7881              "")
    7982            ">"
    80             (if (and filename group (eq? output-format 'enscript))
    81               (format #f "(test-group ~A" (stream->string (cdr group)))
     83            (if (and filename testgroup (eq? output-format 'enscript))
     84              (format #f "\n(test-group ~A" (stream->string (cdr testgroup)))
    8285              "")
    8386            (parse text)
    84             (if (and filename group (eq? output-format 'enscript))
     87            (if (and filename testgroup (eq? output-format 'enscript))
    8588              ")\n"
    8689              "")
     
    9295    (html-stream
    9396      (if (eq? output-format 'enscript)
    94         "\n  (test "
     97        "\n  (test"
    9598        "")
    9699      (parse text)
     
    108111  (let-from-environment env (text output-format)
    109112    (if (eq? output-format 'enscript)
    110       (html-stream prefix " " text)
     113      (html-stream " " text)
    111114      (html-stream prefix " " text "\n"))))
    112115
    113 (define (chicken-result-cmp include prefix env)
     116(define (chicken-result-cmp env)
    114117  (let-from-environment env (text output-format)
    115118    (if (eq? output-format 'enscript)
    116       (html-stream prefix " " text)
     119      (html-stream " " text)
    117120      stream-null)))
    118121
Note: See TracChangeset for help on using the changeset viewer.