1. Fouth
I have not recived a responce about MVP Fourth... Ill guess you didnt
like it????
GV
Get Your Private, Free Email at http://www.hotmail.com
2. Re: Fouth
"Grape Vine" wrote (something like):
> I have not received any responses about MVP Forth.
> I'll guess you didn't like it.
That's "FORTH", not "Fourth." Apparently one of the the systems that Charles
Moore used didn't support file names longer than 5 characters, and so the
name became permanantly truncated.
I used to code in polyForth, in my "early" days of programming, working with
a real-time network of access control systems. I've gone back to it now and
then, but the experience has always been painful.
In some ways, it's a lot like Euphoria in the handling of namespaces,
forward references, and so on. But there is no dynamic memory allocation -
it's all static, embedded into the dictionary space.
The language made sense back then, when memory was expensive and processors
were slow. But these days, unless you are dealing with embedded systems, I
can't see any reason someone would want to use FORTH.
-- David Cuny
3. Re: Fouth
David
Has anyone ever written a Forth like language that was extendable
like Forth but didn't use such criptic syntax?
Bernie
4. Re: Fouth
I think I mentioned this some time ago: PostScript is typically a
forth-type language, it uses a stack, dictionnaries, reverse polnish
notation;
you can define your own procedures, handle files and user input.
You can run a PostScript program with the GhostScript shell (free), or
send it to a printer (and the printer's cpu does the processing)
A little example:
----------------------------------------------------------------------------
----------------
%!
/mt {moveto} def
/lt {lineto} def
/rl {rlineto} def
/rm {rmoveto} def
/mm { 2.835 mul } def
/s {show} def
% FONT DEFINITIONS
/Helvetica findfont /H0 exch def
/Helvetica findfont 9 scalefont /H9 exch def
/Helvetica findfont 10 scalefont /H10 exch def
/Helvetica findfont 11 scalefont /H11 exch def
/Helvetica findfont 12 scalefont /H12 exch def
/Helvetica findfont 25 scalefont /H25 exch def
/Helvetica-Bold findfont 12 scalefont /HB12 exch def
/Helvetica-BoldOblique findfont 12 scalefont /HBO12 exch def
/Helvetica-Oblique findfont 12 scalefont /HO12 exch def
% this procedure writes a centered string, and adapts the character's width
% usage : width x y (texte) centersize
/centersize {
/texte exch def
/y exch def
/x exch def
/w exch def
H12 setfont
texte stringwidth pop dup
w mm gt
{ w mm exch div 12 mul
/largeur_fonte exch def
H0 findfont [ largeur_fonte 0 0 12 0 0 ] makefont setfont
texte stringwidth pop 2 div
x mm exch sub y mm mt texte s
}{
2 div x mm exch sub y mm mt texte s
} ifelse
} def
% ------------------------------------
% usage : x y (texte) locate
/locate {
/texte exch def
/y exch def
/x exch def
x mm y mm mt
texte s
} def
% -----------------------------------------
0 setgray
50 mm 30 mm 30 mm (Hello Euphorians!) centersize
showpage
------ end of example ---------------
of course, it's used essentially for PostScript printers, but you could do
much more of it. After all, Sun used a postScript based system called xnews
for its Sun 3 stations.
if someone is interested, I can bring him more information...
Riwal Raude
rauder at thmulti.com
----------
From: Bernie Ryan
To: EUPHORIA at LISTSERV.MUOHIO.EDU
Subject: Re: Fouth
Date: Tuesday 16 March 1999 20:02
David
Has anyone ever written a Forth like language that was extendable
like Forth but didn't use such criptic syntax?
Bernie
