comp.lang.forth Google Group

Re: CASE...OF

2009-12-18T04:25:13Z

Hi Bruce,
Yes, it's a mish-mash, mainly 83. It's largely based on the Jones
Forth articles:
[link]
Although I only took the text descriptions of *how* things work (which
is very well written) - I largely ignored the Intel Assembler, as it's
horrid! The textual information is good enough.

Re: CASE...OF

2009-12-18T04:10:52Z

Hi Alberto,
This version also has some 'dependencies'...
?COMP - ???
CSP and CSP! (are these something to do with data stack pointers? I
have S0 as a simple variable, which you can @ and ! int the normal
way)
?PAIRS we discussed a while. I believe ?PAIRS leaves a boolean on the
stack? ?PAIRS ( count -- boolean )

Re: CASE...OF

2009-12-18T04:07:46Z

On Dec 17, 8:56 pm, Albert van der Horst <alb...@spenarnc.xs4all.nl>
wrote:
Hi Albert, could you explain a couple of things:
Line 1: WANT POSTFIX - what does this do/mean?
Line 2: :NONAME .... - that is a complete mystery! What is going
on?
Line 13: A word MARKER is defined, but it isn't referenced in the code

Re: Supercomputer artificial intelligence MindForth now ported to iForth

2009-12-18T03:45:03Z

I thought I felt the ground quake. It must have been... THE
QUICKENING!
Alternatively, you could just speed humans up. Perhaps a couple cans
of Mountain Dew?
On 17Dec2009, I decided to take the AI Mind in a whole new direction,
and see what effect inter-species communication would have. For this,

ANN: Zeus for Windows IDE Version 3.97a

2009-12-18T03:34:59Z

The latest 3.97a release of the Zeus for Windows IDE is
now available:
[link]
Zeus is fully configurable, language neutral IDE.
Features new to this release include:
Improved Forth language syntax highlighting
Improved Forth language code folding
New Class browsing, code navigation and

Re: CASE...OF

2009-12-18T00:41:12Z

If your 16-bit ITC Forth is running on an 8086, then I would recommend
building an array of the literals that you are comparing against, and
an associated array of xt values for the words that handle each case.
Use the string lookup instruction to find the index of the matching
literal in the first array, and then call the associated xt of the

Supercomputer artificial intelligence MindForth now ported to iForth

2009-12-17T22:12:16Z

Although Marcel Hendrix announced the 64-bit iForth
way back on 8 October 2009 right here in the
comp.lang.forth newsgroup, Mentifex (Arthur) here
had to go out on 26 October 2009 and buy an
Acer Aspire One WiFi Netbook (US $299) in
order to buy and download the new iForth.
Then I had to learn how to run iForth on the

Re: Forth demime script

2009-12-17T21:45:28Z

Ruby:
x = DATA.read.gsub( /=\r?\n/, "" ).gsub( /=[\dA-F]{2}/ ){|s|
s[1,2].to_i(16).chr }
p x
puts x
__END__
This is a example of a quoted-printable text file. This might contain =
some special characters such as:=20
equal sign =3D, dollar sign $, or even extended characters such as the =
cent sign =A2 or foreign characters =C0=C6=DF

Re: CASE...OF

2009-12-17T21:26:54Z

eforth does it nicely somehow, the word elseif
comes to mind
I think that approach makes it very easy to sort of optimize it

Re: Forth demime script

2009-12-17T21:15:05Z

Care to give us some sample input and output?

Forth demime script

2009-12-17T19:47:38Z

Sometimes, brain-dead services send mime-encoded mail without alternative
text to my ASCII mail and news reader. In really festering cases the mime
encoding is wrapped around HTLM in such a way that a browser won't
understand the raw text.
Complaining doesn't help as these services simply don't understand the

Re: CASE...OF

2009-12-17T19:54:56Z

Here is the source for FIG-Forth published with the original
article
(Forth Dimensions, Vol. II, No. 3, pp. 37-40.). The ?PAIRS word
was
FIG-Forth's way of implementing a small amount of syntax checking.
: CASE ?COMP CSP @ !CSP 4 ; IMMEDIATE
: OF 4 ?PAIRS COMPILE OVER COMPILE = COMPILE OBRANCH

Re: Calling external libraries (FLAG)

2009-12-17T19:45:12Z

On 17 Dec 2009 16:16:48 GMT, Albert van der Horst
The VFX Forth implementation includes all the really nasty, really
gruesome bits for Windows, Linux and OSX. iForth has most of this
built into the kernel. The important part of the EXTERN: interface
is the notation - it's really easy to use. The notation was designed

Re: CASE...OF

2009-12-17T19:56:00Z

In article <e7ee48b6-6cf6-417b-890e-06d37 abc9...@21g2000yqj.googlegroup s.com>,
Sure:
SCR # 79
0 ( :NONAME CASE MARKER )
1 WANT POSTFIX
2 : :NONAME "NONAME" POSTFIX : LATEST DUP HIDDEN !CSP ; \ ISO
3
4 \ ISO
5 : CASE 0 ; IMMEDIATE
6 : OF POSTPONE OVER POSTPONE =
7 POSTPONE IF POSTPONE DROP ; IMMEDIATE

Re: Calling external libraries (FLAG)

2009-12-17T18:05:24Z

Albert van der Horst <alb...@spenarnc.xs4all.nl> writes Re: Calling external libraries (FLAG)
The end effect is the same, but iForth has kernel support for the hairy bits
(stack/register parameters, mixed integer/float parameters, auto-equalize
Windows/Linux/OSX in both 32 & 64bits, callbacks), so the implementation