Hi Norman,

Paul Tretter came up with a way to see if a port is open I think. Paul, you
around?

As far as checking which words are ports (if I understand your request), you
can iterate over the global words to find them, but that won't find them if
they live inside a context. You can also find objects and iterate into them,
but the best approach will depend on what you actually want to accomplish.

Try: "help tuple!" at the console and you will see that it finds all the
tuple! values. You can use SOURCE on HELP as well to see how it works.
Here's a basic example:

find-words: func [test-fn words /local result] [
    result: make block! 50
    foreach w words [
        if test-fn try [get to-lit-word :w] [append result :w]
    ]
    sort result
]
find-words :tuple?   first system/words
find-words :integer? first system/words
find-words :object?  first system/words

HTH!

--Gregg

-- 
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the 
subject, without the quotes.

Reply via email to