Changeset 8224 in project


Ignore:
Timestamp:
02/06/08 18:49:00 (12 years ago)
Author:
elf
Message:

fixed, for real this time.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • eformat/trunk/doc.scm

    r8222 r8224  
    2121
    2222
     23;; (table-conc DATA...)
     24;; helper macro for constructing data
     25;(define-macro (table-conc . data)
     26;    (cond ((null? data)
     27;              `"")
     28;          ((list? (car data))
     29;              `(conc "<" ',(caar data) ">"
     30;                     (table-conc ,@(cdar data))
     31;                     "</" ',(caar data) ">"
     32;                     (table-conc ,@(cdr data))))
     33;          (else
     34;              `(conc ,(car data) (table-conc ,@(cdr data))))))
     35
    2336;; (table-make FORMAT-WRAPPERS HEADERS ROWS...)
    2437;; helper macro for constructing tables
    2538(define-macro (table-make fmtw hdrs . rows)
    26     `(table
    27         (tr ,@(map (lambda (h) `(th ,h)) hdrs))
    28         ,@(map
    29             (lambda (r)
    30                 `(tr
    31                     ,@(map
    32                         (lambda (f d)
    33                             `(td (,f ,d)))
    34                         fmtw r)))
    35             rows)))
     39    `'(
     40        table
     41            (tr ,@(map (lambda (h) `(th ,h)) hdrs))
     42            ,@(map
     43                (lambda (r)
     44                    `(tr
     45                        ,@(map
     46                            (lambda (f d)
     47                                `(td (,f ,d)))
     48                            fmtw r)))
     49                rows)))
    3650
    3751(define doc
     
    155169                (p (code "~ [ - ] [ @ ] [ 0 ] [ & ] [ M ] [ , X ] [ . C ] D"))
    156170                ,(table-make
    157                     (code p code code code code (lambda (v) (p (conc v))))
     171                    (code p code code code code p)
    158172                    ("Symbol" "Name" "Input Value" "Default Value"
    159173                     "Requires" "Forbids" "Description")
     
    200214                (p "Each valid output directive is given below:")
    201215                ,(table-make
    202                     (code p code code code code (lambda (v) (p (conc v))))
     216                    (code p code code code code p)
    203217                    ("Directive" "Mnemonic" "Requires" "Forbids" "Ignores"
    204218                     "Args Read" "Action")
     
    291305                           "is the output column value after the whitespace "
    292306                           "is processed.  All newline-equivalent sequences"
    293                            "generate explicit newlines (" (code "#\newline")
     307                           "generate explicit newlines (" (code "#\\newline")
    294308                           ") rather than the original char(s).")
    295309                        ,(table-make
Note: See TracChangeset for help on using the changeset viewer.