Re: CASE comparison values

Path	csiph.com!x330-a1.tempe.blueboxinc.net!usenet.pasdenom.info!weretis.net!feeder4.news.weretis.net!feeder2.ecngs.de!ecngs!feeder.ecngs.de!Xl.tags.giganews.com!border1.nntp.ams.giganews.com!nntp.giganews.com!local2.nntp.ams.giganews.com!nntp.brightview.co.uk!news.brightview.co.uk.POSTED!not-for-mail
NNTP-Posting-Date	Tue, 24 Jan 2012 04:03:40 -0600
Content-Type	text/plain; charset=iso-8859-15; format=flowed; delsp=yes
Newsgroups	comp.lang.forth
Subject	Re: CASE comparison values
References	<dedb18b4-3a6e-4012-b0bd-ff017e5bdd1e@a8g2000pbi.googlegroups.com> <32096725.1413.1327338699800.JavaMail.geo-discussion-forums@vbhn11> <4f1da90e.355632593@192.168.0.50> <ce98623c-f8ff-4f8a-b635-9c4f8ba97a9b@h12g2000yqg.googlegroups.com>
Date	Tue, 24 Jan 2012 10:03:42 -0000
MIME-Version	1.0
Content-Transfer-Encoding	7bit
From	"Peter Knaggs" <pjk@bcs.org.uk>
Message-ID	<op.v8k18gacsu5d0p@david> (permalink)
User-Agent	Opera Mail/11.60 (Win32)
Lines	16
X-Usenet-Provider	http://www.giganews.com
X-Trace	sv3-GuGFfJLd9TSBaoI7zHfeNuD0bDzUGArEGJwcDTPj6N3t/+re/EqVTadZln6zpLP1GruIJFNVkzrkgCc!AKCUz31nMPCpEL8xuCAKx9hIZyGDXiDCXI65C8Mda7PQNrwz/5/ZUGdo8YKiBOU/dLQ=
X-Abuse-and-DMCA-Info	Please be sure to forward a copy of ALL headers
X-Abuse-and-DMCA-Info	Otherwise we will be unable to process your complaint properly
X-Postfilter	1.3.40
X-Original-Bytes	1656
Xref	x330-a1.tempe.blueboxinc.net comp.lang.forth:9195

Show key headers only | View raw

alberto pasquale wrote:

>
> I have used these extensions for range checking, I think they were
> initially published in FD
>
>  : ..<= ( n1 n2 -- n n )  OVER MIN ;		\ less than or equal
>  : ..< ( n1 n2 -- n n ) 1- OVER MIN ;		\ less than
>  : ..>= ( n1 n2 -- n n ) OVER MAX ;		\ grater than or equal
>  : ..> ( n1 n2 -- n n ) 1+ OVER MAX ;		\ greater than
>  : ..[] ( n1 n2 -- n n ) >R OVER MAX R> MIN ;	\ withing

You could of course simply use ?OF ( x flag -- x ).

-- 
Peter Knaggs

Back to comp.lang.forth | Previous | Next — Previous in thread | Find similar | Unroll thread

Thread

CASE comparison values Percy <percival.andrews@gmail.com> - 2012-01-23 05:32 -0800
  Re: CASE comparison values Brad <hwfwguy@gmail.com> - 2012-01-23 07:57 -0800
    Re: CASE comparison values Aleksej Saushev <asau@inbox.ru> - 2012-01-23 22:23 +0400
  Re: CASE comparison values JennyB <jennybrien@googlemail.com> - 2012-01-23 09:11 -0800
    Re: CASE comparison values stephenXXX@mpeforth.com (Stephen Pelc) - 2012-01-23 18:38 +0000
      Re: CASE comparison values alberto pasquale <alberto@hal-pc.org> - 2012-01-23 11:42 -0800
        Re: CASE comparison values Percy <percival.andrews@gmail.com> - 2012-01-23 14:58 -0800
          Re: CASE comparison values "Elizabeth D. Rather" <erather@forth.com> - 2012-01-23 13:41 -1000
          Re: CASE comparison values Brad <hwfwguy@gmail.com> - 2012-01-23 19:20 -0800
        Re: CASE comparison values "Peter Knaggs" <pjk@bcs.org.uk> - 2012-01-24 10:03 +0000

csiph-web