Changeset 13395 in project


Ignore:
Timestamp:
02/24/09 02:46:20 (11 years ago)
Author:
Ivan Raikov
Message:

Changed skip option to after-date.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/formular/trunk/form2wiki.scm

    r13348 r13395  
    9999                  (let ((section-limit (lookup-def (first field) field-limits))
    100100                        (section-text  ((lambda (x)
    101                                           (print "section-text: x = " x)
    102101                                          (if (string? x) (xml:read-string x) (->string x)) )
    103102                                        (second field))))
     
    137136(define (pp-formular-tree/wiki tree . rest)
    138137  (let-optionals rest ((id-prefix "Form Submission") (id-order #f) (include-fields #f)
    139                        (exclude #f) (include #f) (field-limits #f) (skip #f))
     138                       (exclude #f) (include #f) (field-limits #f) (after-date #f))
    140139   (let* ((keys  (tree 'list-keys))
    141140          (order (or id-order (inexact->exact (ceiling (log10 (length keys)))))))
     
    144143        (cond ((and exclude (member (s$ from-address) exclude)) i)
    145144              ((or (not include) (member (s$ from-address) include))
    146                (if (and skip (< i skip)) (+ i 1)
    147                    (let loop ((lst lst))
    148                      (if (null? lst) i
    149                          (match (car lst)
    150                                 (('submission ('date-seconds date-seconds) ('fields fld1 . fields))
     145               (let loop ((lst lst))
     146                 (if (null? lst) i
     147                     (match (car lst)
     148                            (('submission ('date-seconds date-seconds) ('fields fld1 . fields))
     149                             (if (or (not after-date) (> date-seconds after-date ))
    151150                                 (let* ((width (if (positive? order) order 1))
    152151                                        (idnum (inexact->exact (- date-seconds 10e8)))
     
    160159                                     (lambda ()
    161160                                       (pp-submission/wiki id from-address date-seconds (cons fld1 fields)
    162                                                            include-fields field-limits)))
    163                                    (+ i 1)))
    164                                 (else (loop (cdr lst))))))))
     161                                                           include-fields field-limits)))))
     162                             (+ i 1))
     163                            (else (loop (cdr lst)))))))
    165164              (else i)))
    166165      1))))
     
    175174(define opt_field-limits  (list))
    176175(define opt_alist_input   #f)
    177 (define opt_skip         #f)
     176(define opt_after_date    #f)
    178177
    179178(define opts
     
    185184                       (string-append "specify a colon-separated list of entries to include (default is all )")
    186185                       (set! opt_include (map s$ (string-split (->string arg) ":"))))
    187     ,(args:make-option (skip)     (required: "N")   
    188                        (string-append "skip first N entries (ordered by submission time)")
    189                        (set! opt_skip (inexact->exact (string->number arg))))
     186    ,(args:make-option (after-date)     (required: "N")   
     187                       (string-append "omit entries before given date (in seconds)")
     188                       (set! opt_after_date (string->number arg)))
    190189    ,(args:make-option (flimits)     (required: "FIELD1:LIMIT1,...")   
    191190                       (string-append "specify a comma-separated list of fields and character limits (default is none )")
     
    264263                           opt_include
    265264                           opt_field-limits
    266                            opt_skip
     265                           opt_after_date
    267266                           )))
    268267
Note: See TracChangeset for help on using the changeset viewer.