[REBOL] Re: To do or not to do?

[Romano Paolo Tenca]

Hi,

 the first thing i've done is (but there are others methods):

;; rules table
;; ===========
 Rules: [
        [(length? to-string x) > 0] "No data"
        [date? x]                   "Bad date"
        [(x - 14 ) < now/date]      "Too old"
        [specialcheck x]           "Not special"
        ]

;; prepare data field
;; ==============

 RawValue: "5-122-2001"      ;; bad date in this example
 Loadedvalue: ""
 if error? try [loadedValue: first load/all Rawvalue]
           [LoadedValue: RawValue]

;; apply rules
;; ===========

 foreach [rule message] Rules [
     if not do func [x] rule LoadedValue [
       print [LoadedValue " fails rule: " Message]
              break
     ] ; if
 ]  ; for


---
Ciao
Romano


-- 
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the 
subject, without the quotes.