I should have said 'find returns the block of special words with the current position at the found word, if the word is found. 'if responds to a condition of any block, even [], as if it were "true". Russell [EMAIL PROTECTED] ----- Original Message ----- From: "Russell Yost" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Friday, March 03, 2000 7:52 PM Subject: Re: [REBOL] if this or that, then action > 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 > > ] > > >
