World: r3wp

Jim, bad news first: By design functions in REBOL have no name. In 
REBOL, Functions are first class values which /may/ be referenced 
by one word, by more than one word or by no word at all

E.g.:

>> calc: reduce [func [v] [v / 2] func [v] [v * 2] func [v] [v * 
3]]
== [func [v][v / 2] func [v][v * 2] func [v][v * 3]]

>> do reduce [first calc second calc third calc 1]
== 3

>> set [half double triple] calc
== [func [v][v / 2] func [v][v * 2] func [v][v * 3]]

>> half double triple 1
== 3

>> set [a b c] first calc

Thanks Christian Is there any good news?

The functions in the CALC block have no names at all. But you can 
assign them to words, as is done later on. You can assign one function 
to different words. What's the name of the first function in CALC, 
is it 1) HALF, is it 2) A, is it 3) B or is it 4) C ? There is virtually 
no way for REBOL to decide that.

Good news there are.

There are implementation details which may be used (as in: may be 
"hacked") to get the desired effect. Just give me a moment to dig 
for the answer to your question

>> test: func [/local self] [self: get in disarm self: try [1 / 0] 
'where print ["My name is" uppercase form self]]
>> test
My name is TEST

Oops

>> test: func [/local self] [self: get in disarm try [1 / 0] 'where 
print ["My name is" uppercase form self]]
>> test
My name is TEST

But be carefull

>> again: :test
>> again
My name is AGAIN

The exact same function may return another name if assigned to another 
word.

Or it may return no name at all:

>> do reduce [:test]
My name is NONE

nice trick

Credit where credit belongs, that trick is courtesy of Gabriele.

Who was the first to come up with this trick iirc.

I probably didn't explain it well -- that's the behavior I want! 
Including the NONE.


Clever - I understand about creating an error object.  ... I could 
look look it up, but can you give me a quick explanation of  "/local" 
- sounds very interesting.

All words after the /LOCAL refinement are words local to the function, 
all words preceeding /LOCAL are function arguments

>> additon: func [one two /local three] [three: one + two] 
>> addition 1 2
== 3

The above can be written as

>> test: function [] [self] [self: get in disarm try [1 / 0] 'where 
print ["My name is" uppercase form self]]
>> test
My name is TEST

(a function with no arguments and one local word SELF)

Way shorter:

>> test: does [print ["My name is" uppercase form get in disarm try 
[1 / 0] 'where]]
>> test
My name is TEST

(no local words here)

With DOES being shorthand for a function with no arguments.

I'm out of synch - but  --does  "self" have special meaning or is 
it just a varible name? If so how does it get set to  the name.

No, SELF is as good a word as any other, the above example with DOES 
shows that you don't need a word at all.

Just break it into little steps:

>> test: function [] [error me] [error: disarm try [1 / 0] probe 
error me: error/where print ["My name is" uppercase form me]]
>> test
make object! [
    code: 400
    type: 'math
    id: 'zero-divide
    arg1: none
    arg2: none
    arg3: none
    near: [1 / 0]
    where: 'test
]
My name is TEST

Now I think I remember -- the error object contains the name of the 
function -- correct?

So to say. It isn't very precise, though. What's happening here is:

In the disarmed error object REBOL tells you where your code breaks; 
it breaks when trying to evaluate the word 'TEST

Yes - the "little steps" reminds me about "where". That nails it

Many many thanks.

In a strict sense, REBOL doesn't tells you the name of the function 
(it can't), it rather tells you where in your code the error occurs. 
The error occurs when you try to evaluate the TEST word.

Not sure where to put this ... so  ...


I am running a number of server processes ... not necessarily listening 
on any ports, though some are.

What's the best way of tracking them all to make sure that they are 
all working?

I guess the processes that aren't listening on a port could touch 
a file

Christian - Appreciate the clarification Works for me!

You're welcome!

Great work, would be a nice alias to add in Rebol.

>> whereof: [get in disarm try [+] 'where]

>> g: f: does [print ["my name is" do whereof]]
>> g
my name is g
>> f
my name is f

>>	I guess the processes that aren't listening on a port could touch 
a file


Likely the easiest way to go, I've always went for that approach, 
Graham. Renaming files afaik is an atomic operation, so you can toggle 
process states between %process-a.running  and %process-a.finished 
or %process-b.failed etc. Not suggesting that there aren't better 
ways ...

obviously, it can't be a mezz

Steeve, please make sure that BrianH doesn't see what you are suggesting 
here ;-) That method is so wrong!

eh why that ? :)

it's rebolish enough for me

Mainly, I was just kidding.

On the other hand, it really is just a dirty hack, not more. The 
main point is, it doesn't provide an answer to the function's "What 
is my name?"-question. Functions have no names.

(If you want BrianH accept it, just let him think he find the trick 
himself)

I'm not argueing that it wouldn't come in handy sometimes ... If 
you know what you do.