Re: ENVIRONMENT?

From	anton@mips.complang.tuwien.ac.at (Anton Ertl)
Newsgroups	comp.lang.forth
Subject	Re: ENVIRONMENT?
Date	2012-07-06 15:42 +0000
Organization	Institut fuer Computersprachen, Technische Universitaet Wien
Message-ID	<2012Jul6.174203@mips.complang.tuwien.ac.at> (permalink)
References	<f7528036-6314-419c-9e10-4b095531abff@z19g2000vbe.googlegroups.com> <m6lkgk.e9p@spenarnc.xs4all.nl> <f09d33dc-4190-4fc8-9016-4bfa76ca50a4@n33g2000vbi.googlegroups.com>

Show all headers | View raw

Mark Wills <markrobertwills@yahoo.co.uk> writes:
>> Everybody uses a wordlist to store the environment strings.
>> Then you can use Forth herself to look up those names.
>
>Right. So, as per your suggestion, one would have to (in the
>implementation of ENVIRONMENT):
>
>a) Add the ENVIRONMENT wordlist to the current context (possibly
>saving the current context first?)
>b) Use WORD and FIND (or what ever the ANS equivalents are) (since the
>argument is passed in as a string)
>c) Assuming the word is found in the dictionary, EXECUTE it, or return
>0 (false)
>d) Restore the search context

You think too complicated.  Here's Gforth's ENVIRONMENT?:

: environment? ( c-addr u -- false / ... true ) \ core environment-query
    environment-wordlist search-wordlist if
	execute true
    else
	false
    endif ;

- anton
-- 
M. Anton Ertl  http://www.complang.tuwien.ac.at/anton/home.html
comp.lang.forth FAQs: http://www.complang.tuwien.ac.at/forth/faq/toc.html
     New standard: http://www.forth200x.org/forth200x.html
   EuroForth 2012: http://www.euroforth.org/ef12/

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

Thread

ENVIRONMENT? Mark Wills <markrobertwills@yahoo.co.uk> - 2012-07-03 05:03 -0700
  Re: ENVIRONMENT? Andrew Haley <andrew29@littlepinkcloud.invalid> - 2012-07-03 07:45 -0500
  Re: ENVIRONMENT? anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2012-07-03 15:29 +0000
    Re: ENVIRONMENT? Mark Wills <markrobertwills@yahoo.co.uk> - 2012-07-04 01:52 -0700
      Re: ENVIRONMENT? Andrew Haley <andrew29@littlepinkcloud.invalid> - 2012-07-04 04:12 -0500
        Re: ENVIRONMENT? Mark Wills <markrobertwills@yahoo.co.uk> - 2012-07-04 02:37 -0700
          Re: ENVIRONMENT? Andrew Haley <andrew29@littlepinkcloud.invalid> - 2012-07-04 05:01 -0500
            Re: ENVIRONMENT? Mark Wills <markrobertwills@yahoo.co.uk> - 2012-07-04 03:54 -0700
              Re: ENVIRONMENT? Andrew Haley <andrew29@littlepinkcloud.invalid> - 2012-07-04 06:52 -0500
                Re: ENVIRONMENT? Mark Wills <markrobertwills@yahoo.co.uk> - 2012-07-04 05:21 -0700
                Re: ENVIRONMENT? Mark Wills <markrobertwills@yahoo.co.uk> - 2012-07-04 05:19 -0700
                Re: ENVIRONMENT? Andrew Haley <andrew29@littlepinkcloud.invalid> - 2012-07-04 07:42 -0500
                Re: ENVIRONMENT? Mark Wills <markrobertwills@yahoo.co.uk> - 2012-07-04 06:47 -0700
                Re: ENVIRONMENT? Andrew Haley <andrew29@littlepinkcloud.invalid> - 2012-07-04 09:42 -0500
                Re: ENVIRONMENT? Mark Wills <markrobertwills@yahoo.co.uk> - 2012-07-04 08:06 -0700
                Re: ENVIRONMENT? Bernd Paysan <bernd.paysan@gmx.de> - 2012-07-04 22:05 +0200
                Re: ENVIRONMENT? Mark Wills <markrobertwills@yahoo.co.uk> - 2012-07-04 08:14 -0700
                Re: ENVIRONMENT? anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2012-07-05 16:48 +0000
            Re: ENVIRONMENT? Mark Wills <markrobertwills@yahoo.co.uk> - 2012-07-04 04:00 -0700
              Re: ENVIRONMENT? Andrew Haley <andrew29@littlepinkcloud.invalid> - 2012-07-04 06:53 -0500
                Re: ENVIRONMENT? Mark Wills <markrobertwills@yahoo.co.uk> - 2012-07-04 05:20 -0700
              Re: ENVIRONMENT? stephenXXX@mpeforth.com (Stephen Pelc) - 2012-07-04 12:31 +0000
                Re: ENVIRONMENT? Andrew Haley <andrew29@littlepinkcloud.invalid> - 2012-07-04 08:07 -0500
                Re: ENVIRONMENT? Mark Wills <markrobertwills@yahoo.co.uk> - 2012-07-04 07:16 -0700
                Re: ENVIRONMENT? stephenXXX@mpeforth.com (Stephen Pelc) - 2012-07-04 17:22 +0000
                Re: ENVIRONMENT? Mark Wills <markrobertwills@yahoo.co.uk> - 2012-07-04 07:12 -0700
                Re: ENVIRONMENT? Andrew Haley <andrew29@littlepinkcloud.invalid> - 2012-07-04 09:47 -0500
                Re: ENVIRONMENT? Mark Wills <markrobertwills@yahoo.co.uk> - 2012-07-04 08:14 -0700
                Re: ENVIRONMENT? Andrew Haley <andrew29@littlepinkcloud.invalid> - 2012-07-04 11:53 -0500
                Re: ENVIRONMENT? stephenXXX@mpeforth.com (Stephen Pelc) - 2012-07-04 17:37 +0000
                Re: ENVIRONMENT? Alex McDonald <blog@rivadpm.com> - 2012-07-04 12:46 -0700
                Re: ENVIRONMENT? Bernd Paysan <bernd.paysan@gmx.de> - 2012-07-04 21:59 +0200
                Re: ENVIRONMENT? Andrew Haley <andrew29@littlepinkcloud.invalid> - 2012-07-05 02:36 -0500
                Re: ENVIRONMENT? BruceMcF <agila61@netscape.net> - 2012-07-04 13:31 -0700
                Re: ENVIRONMENT? Albert van der Horst <albert@spenarnc.xs4all.nl> - 2012-07-05 02:06 +0000
                Re: ENVIRONMENT? Andrew Haley <andrew29@littlepinkcloud.invalid> - 2012-07-05 02:33 -0500
                Re: ENVIRONMENT? stephenXXX@mpeforth.com (Stephen Pelc) - 2012-07-05 12:12 +0000
                Re: ENVIRONMENT? Andrew Haley <andrew29@littlepinkcloud.invalid> - 2012-07-05 07:50 -0500
                Re: ENVIRONMENT? stephenXXX@mpeforth.com (Stephen Pelc) - 2012-07-05 14:15 +0000
                Re: ENVIRONMENT? Bernd Paysan <bernd.paysan@gmx.de> - 2012-07-05 15:31 +0200
                Re: ENVIRONMENT? stephenXXX@mpeforth.com (Stephen Pelc) - 2012-07-05 14:33 +0000
                Re: ENVIRONMENT? Bernd Paysan <bernd.paysan@gmx.de> - 2012-07-06 00:43 +0200
                Re: ENVIRONMENT? anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2012-07-06 15:37 +0000
                Re: ENVIRONMENT? Andrew Haley <andrew29@littlepinkcloud.invalid> - 2012-07-05 09:46 -0500
                Re: ENVIRONMENT? Mark Wills <markrobertwills@yahoo.co.uk> - 2012-07-04 12:44 -0700
                Re: ENVIRONMENT? Mark Wills <markrobertwills@yahoo.co.uk> - 2012-07-04 07:08 -0700
                Re: ENVIRONMENT? stephenXXX@mpeforth.com (Stephen Pelc) - 2012-07-04 17:31 +0000
                Re: ENVIRONMENT? anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2012-07-05 16:44 +0000
                Re: ENVIRONMENT? "Elizabeth D. Rather" <erather@forth.com> - 2012-07-04 08:30 -1000
                Re: ENVIRONMENT? Albert van der Horst <albert@spenarnc.xs4all.nl> - 2012-07-05 02:43 +0000
          Re: ENVIRONMENT? "Elizabeth D. Rather" <erather@forth.com> - 2012-07-04 08:16 -1000
      Re: ENVIRONMENT? BruceMcF <agila61@netscape.net> - 2012-07-04 11:57 -0700
        Re: ENVIRONMENT? Mark Wills <markrobertwills@yahoo.co.uk> - 2012-07-04 12:33 -0700
          Re: ENVIRONMENT? BruceMcF <agila61@netscape.net> - 2012-07-04 13:04 -0700
            Re: ENVIRONMENT? Mark Wills <markrobertwills@yahoo.co.uk> - 2012-07-04 13:28 -0700
            Re: ENVIRONMENT? Mark Wills <markrobertwills@yahoo.co.uk> - 2012-07-04 13:36 -0700
              Re: ENVIRONMENT? "Elizabeth D. Rather" <erather@forth.com> - 2012-07-04 10:49 -1000
                Re: ENVIRONMENT? Mark Wills <markrobertwills@yahoo.co.uk> - 2012-07-04 13:58 -0700
                Re: ENVIRONMENT? stephenXXX@mpeforth.com (Stephen Pelc) - 2012-07-04 22:07 +0000
                Standards Body Attendance (was Re: ENVIRONMENT?) Alex McDonald <blog@rivadpm.com> - 2012-07-05 05:21 -0700
                Re: Standards Body Attendance (was Re: ENVIRONMENT?) stephenXXX@mpeforth.com (Stephen Pelc) - 2012-07-05 15:44 +0000
                Re: Standards Body Attendance (was Re: ENVIRONMENT?) Alex McDonald <blog@rivadpm.com> - 2012-07-06 10:35 -0700
              Re: ENVIRONMENT? Coos Haak <chforth@hccnet.nl> - 2012-07-04 22:50 +0200
              Re: ENVIRONMENT? BruceMcF <agila61@netscape.net> - 2012-07-04 16:30 -0700
          Re: ENVIRONMENT? Albert van der Horst <albert@spenarnc.xs4all.nl> - 2012-07-05 02:33 +0000
      Re: ENVIRONMENT? anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2012-07-06 15:48 +0000
        Re: ENVIRONMENT? Mark Wills <markrobertwills@yahoo.co.uk> - 2012-07-06 11:47 -0700
          Re: ENVIRONMENT? BruceMcF <agila61@netscape.net> - 2012-07-06 14:07 -0700
        Re: ENVIRONMENT? Bernd Paysan <bernd.paysan@gmx.de> - 2012-07-06 23:55 +0200
  Re: ENVIRONMENT? Albert van der Horst <albert@spenarnc.xs4all.nl> - 2012-07-03 18:24 +0000
    Re: ENVIRONMENT? Mark Wills <markrobertwills@yahoo.co.uk> - 2012-07-04 01:55 -0700
      Re: ENVIRONMENT? Hugh Aguilar <hughaguilar96@yahoo.com> - 2012-07-05 00:19 -0700
    Re: ENVIRONMENT? Mark Wills <markrobertwills@yahoo.co.uk> - 2012-07-04 02:29 -0700
      Re: ENVIRONMENT? Albert van der Horst <albert@spenarnc.xs4all.nl> - 2012-07-04 15:53 +0000
      Re: ENVIRONMENT? Coos Haak <chforth@hccnet.nl> - 2012-07-04 18:03 +0200
      Re: ENVIRONMENT? anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2012-07-06 15:42 +0000
        Re: ENVIRONMENT? Mark Wills <markrobertwills@yahoo.co.uk> - 2012-07-06 11:41 -0700
          Re: ENVIRONMENT? BruceMcF <agila61@netscape.net> - 2012-07-06 14:14 -0700
          Re: ENVIRONMENT? Bernd Paysan <bernd.paysan@gmx.de> - 2012-07-06 23:51 +0200
          Re: ENVIRONMENT? anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2012-07-07 09:24 +0000
  Re: ENVIRONMENT? Hugh Aguilar <hughaguilar96@yahoo.com> - 2012-07-03 21:46 -0700
    Re: ENVIRONMENT? Mark Wills <markrobertwills@yahoo.co.uk> - 2012-07-04 02:04 -0700
      Re: ENVIRONMENT? Andrew Haley <andrew29@littlepinkcloud.invalid> - 2012-07-04 04:30 -0500
      Re: ENVIRONMENT? Mark Wills <markrobertwills@yahoo.co.uk> - 2012-07-04 02:32 -0700
      Re: ENVIRONMENT? Albert van der Horst <albert@spenarnc.xs4all.nl> - 2012-07-04 16:00 +0000
        Re: ENVIRONMENT? Mark Wills <markrobertwills@yahoo.co.uk> - 2012-07-04 08:37 -0700

csiph-web