To do the same action for each "special" word, try this simpler approach
illustrated by a console session:
; First, create a block holding all the special words:
>> swords: ["Path" "In-Reply-To" "Message-ID" ]
== ["Path" "In-Reply-To" "Message-ID"]
;
Now try it with a word that is not in the block and then with one that is in
t he block:
>> firstword: "Paths"
>> if find swords firstword [print "Action block if found"]
== false
>> firstword: "Path"
>> if find swords firstword [print "Action block if found"]
Action block if found
>>
Of course, you must include all your special word in 'swords
I don't know what that would do if a special word were "none", as find
returns none if the test word is not found, otherwise it returns the test
word. But 'none is NOT "none".
Apparently 'if treats any string, even "", as equivalent to 'true (well,
not false, anyhow), and if the 'if condition is none 'false is returned.
Some of the list members didn't like this, in the past, but it works nicely
here!
Russell [EMAIL PROTECTED]
----- Original Message -----
From: <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, March 03, 2000 5:11 PM
Subject: [REBOL] if this or that, then action
> Following is a segment of code that repeats an if statement over and over.
> How can I simply this?
>
> if firstword = "Path" [
> clear fields
> checker: false checker
> ]
>
> if firstword = "In-Reply-To" [
> clear fields
> checker: false checker
> ]
>
> if firstword = "Message-ID" [
> clear fields
> checker: false checker
> ]
>
> if firstword = "References" [
> clear fields
> checker: false checker
> ]
>
> if firstword = "MIME-Version" [
> clear fields
> checker: false checker
> ]
>
> if firstword = "Content-Type" [
> clear fields
> checker: false checker
> ]
>
> if firstword = "Lines" [
> clear fields
> checker: false checker
> ]
>
> if firstword = "NNTP-Posting-Host" [
> clear fields
> checker: false checker
> ]
>
> if firstword = "X-Trace" [
> clear fields
> checker: false checker
> ]
>
> if firstword = "NNTP-Posting-Date" [
> clear fields
> checker: false checker
> ]
>
> if firstword = "Organization" [
> clear fields
> checker: false checker
> ]
>
> if firstword = "Xref" [
> clear fields
> checker: false checker
> ]
>
> if firstword = "Followup-To" [
> clear fields
> checker: false checker
> ]
>
> if firstword = "Content-Transfer-Encoding" [
> clear fields
> checker: false checker
> ]
>
> if firstword = "X-Complaints-To" [
> clear fields
> checker: false checker
> ]
>
> if firstword = "X-Mailer" [
> clear fields
> checker: false checker
> ]
>
> if firstword = "X-Accept-Language" [
> clear fields
> checker: false checker
> ]
>
> if firstword = "Reply-To" [
> clear fields
> checker: false checker
> ]
>
> if firstword = "X-Newsreader" [
> clear fields
> checker: false checker
> ]
>
> if firstword = "X-Priority" [
> clear fields
> checker: false checker
> ]
>
> if firstword = "X-MSMail-Priority" [
> clear fields
> checker: false checker
> ]
>
> if firstword = "X-MimeOLE" [
> clear fields
> checker: false checker
> ]
>
> if firstword = "User-Agent" [
> clear fields
> checker: false checker
> ]
>
> if firstword = "X-Abuse-to" [
> clear fields
> checker: false checker
> ]
>
> if firstword = "X-Comments" [
> clear fields
> checker: false checker
> ]
>
> if firstword = "X-Anon" [
> clear fields
> checker: false checker
> ]
>
> if firstword = "X-Mail-To-News-Contact" [
> clear fields
> checker: false checker
> ]
>
> if firstword = "X-Mimeole" [
> clear fields
> checker: false checker
> ]
>
> if firstword = "X-Sender" [
> clear fields
> checker: false checker
> ]
>
> if firstword = "X-Server-Date" [
> clear fields
> checker: false checker
> ]
>
> if firstword = "X-MIMEOLE" [
> clear fields
> checker: false checker
> ]
>
> if firstword = "X-Abuse-Info" [
> clear fields
> checker: false checker
> ]
>
> if firstword = "X-Anon-1" [
> clear fields
> checker: false checker
> ]
>
> if firstword = "X-Anon-2" [
> clear fields
> checker: false checker
> ]
>
> if firstword = "X-No-Archive" [
> clear fields
> checker: false checker
> ]
>
> if firstword = "Sender" [
> clear fields
> checker: false checker
> ]
>
