Try Googling for a Definition of the Word "WORD"

On 12/15/10 4:20 PM, rickman wrote:

I want to use a word like WORD to parse words out of a string in
memory. I can't find the word that would do that. I can't imagine that
one isn't part of Win32Forth or any other package.

Needing this kind of string operation is common, I agree. The FMS
string+ objects have the following methods, which might be what you are
looking for (if not exactly, it should be simple to modify):

true to case-sensitive? \ or use false

string+ s \ instantiate a string+ object s
s" Now is the time" s new: \ load some text into s
s d: \ dump the string with the d: message
1 2
0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0
N o w i s t h e t i m e
S
E
start= 0 end= 0 rem= 19 size= 19 case-sensitive -1

bl s word: . => -1 \ find the next text that ends with bl
\ -1 means we found some, 0 means we did not
s d: \ dump the string again
1 2
0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0
N o w i s t h e t i m e
S
E
start= 1 end= 4 rem= 15 size= 19 case-sensitive -1

s @sub: type => Now \ fetch the found substring

bl s word: . => -1 \ keep repeating the above
s d:
1 2
0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0
N o w i s t h e t i m e
S
E
start= 6 end= 8 rem= 11 size= 19 case-sensitive -1

s @sub: type => is

bl s word: . => -1
s d:
1 2
0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0
N o w i s t h e t i m e
S
E
start= 11 end= 14 rem= 5 size= 19 case-sensitive -1

s @sub: type => the

and so on.

The FMS objects package with string library can be downloaded from
Stephen Pelc's FLAG:

http://soton.mpeforth.com/flag/index.html

-Doug

On Dec 15, 8:260pm, BruceMcF <agil...@netscape.net> wrote:
Neil Bawd has SKIP SCAN SPLIT and TH-WORD ...

http://home.earthlink.net/~neilbawd/charscan.txt
...
Or to pull the first word out of a string:

0 0( ca u ) 1 TH-WORD ( ca' u' )

And given that, the dedicated STR equivalent of PARSE-NAME might be
something like FIRST-WORD, but would not require looping,
--------------
: SCAN[ S" BEGIN dup WHILE over C@ COND " EVALUATE ;
IMMEDIATE

: ]SCAN S" THENS 0D WHILE 1 /STRING REPEAT THEN " EVALUATE ;
IMMEDIATE

: COND 0 ; IMMEDIATE
: THENS BEGIN DUP WHILE postpone THEN REPEAT DROP ; IMMEDIATE

: SKIP ( str len char -- str+i len-i )
dup BL D IF
DROP SCAN[ Is-White 0D ]SCAN
ELSE
R SCAN[ R@ - ]SCAN R> DROP
THEN ;

: SCAN ( str len char -- str+i len-i )
dup BL D IF
DROP SCAN[ Is-White ]SCAN
ELSE
R SCAN[ R@ D ]SCAN R> DROP
THEN ;
---------------

So compressing, with ws?


[UNDEFINED] \G: [IF] : \G: POSTPONE \ ; IMMEDIATE [THEN]

\G: is the character a white space - extend if beyond ASCII7
: ws? ( char -- flag ) 33 U< ;

\G: evaluate macro, begin scan[ test ]scan loop structure
: scan[
S" BEGIN DUP WHILE OVER C@ cond " EVALUATE ;
IMMEDIATE

\G: evaluate macro, end scan[ test ]scan loop structure
: ]scan \ Evaluate macro, cf string
S" thens 0D WHILE 1 /STRING REPEAT THEN " EVALUATE ;
IMMEDIATE

\G: drop a marker
: cond ( c: -- flagDFALSE ) 0 ; IMMEDIATE

: thens ( c: marker orig1 ... orign -- )
BEGIN DUP WHILE POSTPONE THEN REPEAT DROP ; IMMEDIATE

: first-word ( ca1 u1 -- ca2 u2 )
scan[ ws? 0D ]scan 2DUP scan[ ws? ]scan
( ca_full u_full ca_tail u_tail ) NIP - ;

-------------
I believe Neal Bawd's code assumes an orig has a non-zero value of
some sort on the data stack, which is not mandatory but seems to be
commonplace. If not, ``cond'' and ``thens'' would need rewritten.

In article <2bd65ffa-147c-45bb-b060-c75a491f47df@37g2000prx.googlegroups.com>,
rickman <gnuarm@gmail.com> wrote:
I did and it didn't go very far. Or actually it went way too far. I
couldn't find a
way to winnow it down to what I wanted given that so many words I
tried in the
search term had other, much more popular meanings. WORD, DEFINITION,
FORTH...

So I am here to ask what is likely an obvious question, if you know
the answer...

I want to use a word like WORD to parse words out of a string in
memory. I can't find the word that would do that. I can't imagine that
one isn't part of Win32Forth or any other package.

I tried "see"ing WORD in Win32Forth first and it is in assembler. I
thought it might have been done by getting the pointer to the input
stream and then calling the word that actually parses the text.

An answer cannot be less confused than the question.

Either you want to parse the input stream, or you want to parse text.
If you do that in Forth, and there is something like it in Forth
called WORD googling for that is totally ridiculous.
Especially if the word to look for is WORD, one of the most used words
(hey I did it even twice in this sentence) in the English language.

What you should do.
You think it is in Forth? You think it is like WORD?
Open the documentation of your favorite Forth. Look up WORD in the
index. Read all the references. Now read all the "see also".
Does a picture emerge? If not you, haven't read enough.
Then you can ask a sensible question in the context of Forth.


I think EVALUATE does what I want, but it goes too far and interprets
the resulting text.

So it doesn't do what you want.


Am I looking for a word I will need to write? It's not a big deal,
I'm sure I can do that. But I'll be surprised if one isn't part of
most Forths already.

You are looking for (sc1 c -- sc2 sc3 ).
Where sc is an addr-len pair representing a string.
c is a char. sc1 = sc2+c+sc3

Surely everybody needed such a word. Surely it isn't in the
standard, that shouldn't take 5 minutes to find out.
Surely everybody invented such a thing.
Surely everybody came up with a different name.

In ciforth it is called $/ "string-slash"

My name is better than everybody else's (surely :-) )

If you want it, you can steal it from ciforth's library.
(ciforth's library is not a "maze of twisty little packages",
it is one file, plain text.)


Rick

Groetjes Albert

--
--
Albert van der Horst, UTRECHT,THE NETHERLANDS
Economic growth -- being exponential -- ultimately falters.
albert@spe&ar&c.xs4all.nl &=n http://home.hccnet.nl/a.w.m.van.der.horst

On Dec 15, 8:260pm, BruceMcF <agil...@netscape.net> wrote:

DDQUOTEDD
So compressing, with ws?


[UNDEFINED] \G: [IF] : \G: POSTPONE \ ; IMMEDIATE [THEN]


\G: is the character a white space - extend if beyond ASCII7
: ws? ( char -- flag ) 33 U< ;


\G: evaluate macro, begin scan[ test ]scan loop structure
: scan[
S" BEGIN DUP WHILE OVER C@ cond " EVALUATE ;
IMMEDIATE


\G: evaluate macro, end scan[ test ]scan loop structure
: ]scan \ Evaluate macro, cf string
S" thens 0D WHILE 1 /STRING REPEAT THEN " EVALUATE ;
IMMEDIATE


\G: drop a marker
: cond ( c: -- flagDFALSE ) 0 ; IMMEDIATE


: thens ( c: marker orig1 ... orign -- )
BEGIN DUP WHILE POSTPONE THEN REPEAT DROP ; IMMEDIATE


: first-word ( ca1 u1 -- ca2 u2 )
scan[ ws? 0D ]scan 2DUP scan[ ws? ]scan
( ca_full u_full ca_tail u_tail ) NIP - ;

DDUNQUOTEDD

Untangling the code, the special case seems straightforward. Anton
Ertl notes that SKIP and SCAN normally operate on individual
characters, while the TOOLBELT SKIP and SCAN deprecated the SKIP-WS
and SCAN-WS and special cased:
( ca u blank -- ca' u' )
... for white space, the below treats SKIP and SCAN as exact matches.

[UNDEFINED] \G: [IF] : \G: POSTPONE \ ; IMMEDIATE [THEN]

\G: is the character a white space - extend if beyond ASCII7
: ws? ( char -- flag ) 33 U< ;

\G: Advance stack text reference str by one character, no overflow
protection
[UNDEFINED] str++ [IF] : str++ ( ca 0|u -- ca++, 0|u-- ) 1- >R CHAR+
R> ; [THEN]

: skip ( ca u c -- ca' u' )
R BEGIN
DUP WHILE
OVER C@ R@ D WHILE
str++
AGAIN THEN THEN RDROP ;

: scan ( ca u c -- ca' u' )
R BEGIN
DUP WHILE
OVER C@ R@ <> WHILE
str++
AGAIN THEN THEN RDROP ;

: skip-ws ( ca u -- ca' u' )
BEGIN
DUP WHILE
OVER C@ ws? WHILE
str++
AGAIN THEN THEN ;

: scan-ws ( ca u -- ca' u' )
BEGIN
DUP WHILE
OVER C@ ws? 0D WHILE
str++
AGAIN THEN THEN ;

: first-word ( ca1 u1 -- ca2 u2 )
skip-ws 2DUP scan-ws NIP - ;

: bracketed-word ( ca u c1 c2 -- ca2 u2 )
R skip 2DUP R> scan NIP - ;

On Dec 16, 9:450am, an...@mips.complang.tuwien.ac.at (Anton Ertl)
wrote:
rickman <gnu...@gmail.com> writes:
>I want to use a word like WORD to parse words out of a string in
>memory. I can't find the word that would do that. I can't imagine that
>one isn't part of Win32Forth or any other package.

>I tried "see"ing WORD in Win32Forth first and it is in assembler. I
>thought it might have been done by getting the pointer to the input
>stream and then calling the word that actually parses the text.

>I think EVALUATE does what I want, but it goes too far and interprets
>the resulting text.

Yes to all of that.

Unfortunately, WORD (and it's modern replacements PARSE and
PARSE-NAME) is too specific for the input stream.

There are two ways to approach this:

1) You can use a word like EXECUTE-PARSING (an implementation in
standard Forth is available) to make your string the input stream, and
use PARSE, PARSE-NAME, or WORD on that.

2) Or you can use the factors of PARSE-WORD etc. that exist on your
system, or write such factors yourself. 0Others have suggested SKIP
and SCAN, but they trigger only on specific characters, not on
character classes. 0Look at XT-SKIP in the reference implementation of
PARSE-NAME
<http://www.forth200x.org/reference-implementations/parse-name.fs> to
see a more general word that replaces both SKIP and SCAN.

Thanks for the comments. I tried to find the factors of these words,
but they are mostly written in assembly so that it is hard to even
figure out what they are doing.

In the meantime I have solved the problem at hand. Unfortunately I
have bigger problems now that have little to do with coding, I hope.
I am getting very intermittent behavior on either the serial comms or
the telnet link where I am sending the data for display. When I use
my program it randomly will get corrupted output and has to be
restarted. Tomorrow I am going to run some serial port test code to
see if there are any problems with that. I'm not sure how to
thoroughly test the telnet code.

Rick

Op Thu, 16 Dec 2010 20:13:50 -0800 (PST) schreef rickman:

On Dec 16, 6:58 am, Albert van der Horst <alb...@spenarnc.xs4all.nl>
wrote:

What you should do.
You think it is in Forth? You think it is like WORD?
Open the documentation of your favorite Forth. Look up WORD in the
index. Read all the references. Now read all the "see also".
Does a picture emerge? If not you, haven't read enough.
Then you can ask a sensible question in the context of Forth.

Hmmm... Thanks for the advice. This reminds me of two different
jokes...

This one was from an economist friend...

An Engineer, a Chemist and an Economist are shipwrecked on a desert
island. There is nothing to eat but a case of canned food washes up
on the beach. Not being able to open the cans they are still hungry.
The Engineer says that he has matches they can use to start a fire so
that by putting the cans in the fire they will heat up to the point of
blowing the tops off. Of course the food will mostly splatter out and
not be much good to eat.

The Chemist says they can put the cans in the salt water letting the
salt corrode the metal until they can rip the weakened cans open. Of
course, he says, the food will be mostly spoiled by the salt and the
corrosion, so there won't be much to eat.

The Economist gets a very insightful look on his face and says,
"Assume we have a can opener!"


The other one is a very old Jewish deli joke, I'm sure Billy Crystal
has told this a million times...

An old man in a deli calls the waiter over and says he can't eat the
soup. The waiter asks whats wrong with the soup and the customer says
he doesn't know if there is anything wrong with it, he just can't eat
it. The water doesn't know what to make of this and presses the
customer asking is the soup is too hot or too salty. The customer
says he doesn't know if it is too hot or too salty, he just can't eat
it. Finally the waiter says, "Let me try the soup, where's the
spoon?" The customer crys, "Ah Ha"!

There may be some docs on Win32Forth somewhere, but I learned long ago
that mostly the docs are the source. Isn't that why they call it
"open source", because you always have the source open reading it?

Rick

Win32Forth has a fine system to view the source.
The word is called VIEW
Simple eh?
Why don't you try it out.

--
Coos

CHForth, 16 bit DOS applications
http://home.hccnet.nl/j.j.haak/forth.html