[REBOL] Re: Language "attitudes"
From: agem:crosswinds at: 27-May-2001 7:15
Joel, you cite a bit unfair..
you show color-forth code without colors..
so, first here the url
http://www.ultratechnology.com/fsc98.htm
then, it is to say color-forth is meant for pda-programmers :)
Well, not really..
the sad thing is Chuck has eye-dissease which disables
him to have more than ~256 chars on a large monitor. IIRC .
He addressed this with replacing chars with colors
set-word!s are red and so on.
And with heavy abbreviations, thus all this 1. *. .. names.
With colors one has not to markup with formatting,
so he can fill the whole line, all the precious visible space..
Shorts code. Keeps things visible.
24x6 chars for the source of an integer-squareroot i count.
That could be pda-size programming..
So i think he will see something like this on a 800x600-screen:
-Volker
[REBOL [title: "coloring color forth"
file: %ccf.r
date: 27-May-200 author: "Volker Nitsch"
]
forth: {
'SQRT 1.: 1FF. ; *.: 1.
*/ ; /.: 1. SWAP */
; 3/2: DUP DUP *. *. *.
SQRT: DUP 1. - 1 + +
2/ 1. + SWAP OVER /.
2/ ; :END
}
lay: copy []
lines: parse/all forth "^/"
foreach l lines [
words: parse l ""
foreach w words [
color: any [
if #"'" = first w [remove w blue]
if #":" = last w [remove back tail w red]
if #":" = first w [remove w]
green
]
append lay compose [text (w) (color) font-size 68]
]
append lay [return]
]
view layout compose [
backdrop [quit]
button "browse" [browse
http://www.ultratechnology.com/fsc98.htm]
across
text blue "a comment"
text red "set-word!"
text green "normal (word! or number!), compile it"
text green {";" closing bracket}
text black "dont-compile, execute now!"
space 15x3 across
return
(lay)
]
>>>>>>>>>>>>>>>>>> Ursprüngliche Nachricht <<<<<<<<<<<<<<<<<<
Am 27.05.01, 01:44:04, schrieb Joel Neely <[joel--neely--fedex--com]> zum
Thema [REBOL] Re: Language "attitudes":
> Graham Chiu wrote:
> >
> > Hi Joel,
> >
> > First off, the Forth community and Charles Moore have long
> > parted. I got the impression from reading these transcripts
> > that the Forth community are where Moore was 20 years ago.
> >
> Chuck Moore lost a fight over control of Forth, Inc., but
> I don't consider that company to be the complete picture
> with respect to "the FORTH community". His "fireside chat"
> occurred during what was billed as "The Annual Forth Day
> meeting of the Silicon Valley Chapter of the Forth Interest
> Group" which was held on Saturday, 11 November 2000. IMHO,
> FIG does qualify as a significant part of the FORTH community.
At least on comp.lang.forth everyone follows ans-forth,
not Chuck/color-forth.
<snip>
> As mentioned above, I believe that there are many in the
> FORTH world (perhaps excluding Forth, Inc.) who still regard
> Chuck Moore with great respect, and I have heard the ideas
> represented by that quotation many times over the years.
Respect yes. Of the kind »well, chuck could ride this dragon..«.
Then going home to ans.
Well, some spend an evening & 200 lines to do a webserver
with forth-cgi sometimes.. just for fun ;-)
portable, of course. As portable as gcc..
> >
> > > Given that both languages can look intimidating to the
> > > uninitiated -- a sample of FORTH looks like this:
> > >
> > > SQRT 1. 1FF. ; *. 1.
> > > */ ; /. 1. SWAP */
> > > ; 3/2 DUP DUP *. *. *.
> > > SQRT DUP 1. - 1 + +
> > > 2/ 1. + SWAP OVER /.
> > > + 2/ ; END
> >
> > And I believe it can also look like:
> >
> > Orion telescope point
> >
> Yes it can, provided someone has written the appropriate
> definitions of those three words. However, the fragment of
> code I quoted was lifted directly from a talk by Chuck Moore,
> and is not so different from what one finds if one looks
> sufficiently deeply under the hood of 'Orion or 'point .
Talk see above. And definitions - is that unique to forth?!
> -jn-
-Volker
flaming for forth while using rebol ;-)
