World: r3wp

And same applies for reporting spam on the blog comments ... no point 
in reporting it if it does not get removed.

Has anyone researched the minimum operating system environment required 
to run rebol? I think that was one of the goals of Rebol 3 at one 
point.

Does anyone know an implementation of the Fletcher checksum algorithm 
in REBOL or does REBOL 2 do this?

I checked Henrik, since it sounded familiar, but I don't have a REBOL 
version.

Anyone had/has any need / desire to make a Rebol to RServe (R - the 
statistics language) library / protocol?

I am not an R user, but I think of interest to offer such links between 
languages : I have done a simple Matlab extension for Rebol and if 
I find enough time, I will do also a Python extension

I have done several searches but haven't found what I'm looking for. 
I've looked at binding discussions until I went cross-eyed. Not a 
complaint, just an explanation of why I am consulting the "biological 
repository". I want to build a function that can access its own name, 
so I can assign it to a name and then just invoke that name to activate 
functionality using the name . The simplest example is -- name [] 
[......print name]. I would rather not use an object but will if 
necessary. My apologies if everyone else knows how to do this.

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