[REBOL] Re: Commercial-quality REBOL programmers needed
From: joel:neely:fedex at: 17-Aug-2002 9:09
Hi, Dick,
[reffy--ulrich--net] wrote:
> For a moment lets assume there are 4 Rebol processes running on
> different machines. On my process/machine4 I want to add the
> value of a/process/machine1 and b/process/machine2 , and I want
> the operation to occur on process/machine3, with the result
> coming back to me on process/machine4.
>
> Can one refer to the value of a variable on a different machine ?
>
Not directly, no.
If you want to build something with the architecture you describe,
you'll have to write the "glue" yourself to move the data values
to wherever you want the processing to occur and then move the
results to wherever you want them to reside (or be consumed).
REBOL is a single-threaded language with a very conventional
memory/storage model. On the other hand, the convenience of using
the built-in networking features would allow you to extend it
in a way that simulates what you describe. (No warranties on the
code below; I'm sketching at the keyboard to get the idea out, but
not validating all of my typing, etc.)
fetch-remote-value: func [server label digits result] [
digits: charset "0123456789"
if not
parse read to-url rejoin [
"http://" server "/fetchvalue.cgi?label=" label
][
thru "VALUE=" copy result some digits to end
][result: "0"]
to-integer result
]
a: func [] [
fetch-remote-value "machine1" "A-GLOBAL"
]
b: func [] [
fetch-remote-value "machine2" "B-GLOBAL"
]
The above assumes that machine1 and machine2 can receive queries
for state data via HTTP, and return the value associated with the
specified label in a web page containing a string resembling
VALUE=123
With the above "machinery" in place, I can now write
a + b
and get the sum of those two remote values.
Point is that you can get what you're asking for, but you'll have
to do a bit of work for yourself.
-jn-
--
; Joel Neely joeldotneelyatfedexdotcom
REBOL [] do [ do func [s] [ foreach [a b] s [prin b] ] sort/skip
do function [s] [t] [ t: "" foreach [a b] s [repend t [b a]] t ] {
| e s m!zauafBpcvekexEohthjJakwLrngohOqrlryRnsctdtiub} 2 ]
