World: r3wp

extract-object:
    func [source [object!] dest-template [block! object!]]

    [   if block? dest-template [dest-template: context dest-template]
        foreach word next first dest-template

        [   set in dest-template word get any [in source word 'none]]
        dest-template
    ]

>> obj: make object! [
[     bb: 1
[     cc: 4
[     dd: 7
[    ]
>> probe extract-object obj [bb: dd: none]
make object! [
    bb: 1
    dd: 7
]

!>>obj: context[bb: 1 cc: 4 dd: 7]
!>>probe context intersect/skip third obj [bb: - cc: -] 2   
make object! [
    bb: 1
    cc: 4
]

(a few years later ;)

I should advertise this group some more. Just insert some code, and 
it comes out optimized a few days later. :-)

Volker, THIRD doesn't work with word! values though; great otherwise. 
:-)

'intersect is very cool. But what the - (minus) sign stay for? What 
does it mean?

Just dummy values to match the skip 2 format.

Does the minus sign stay for dummy anywhere or just in the intersect? 
I never met it before?

the dash is just a value. You can put anything there: [NONE + word 
empty] are some options.

THIRD *does* work for words, as long as you use CONSTRUCT to rebuild 
the object.

I wonder to know the kmeaning of the negative value returned by the 
read-io and write-io function.

- I understand that when a TCP port is close at the other end of 
the communication, the value is either 0 or -1.

- it seems that read-io return -4 when there is no available data 
on the port
But I am not sure to be right.

kmeaning = meaning (sorry)

does anyone know what PATH is good for?

Ah! Thanks Gabriele! I don't know why I didn't think of that. :-\

To illustrate for those who may not know what the issue is with third 
/ make

>> c: make object! [a: 'print b: "hi"]
>> ? c
C is an object of value:
   a               word!     print
   b               string!   "hi"

>> spec: third c
== [a: print b: "hi"]

;Using make object! fails
>> e: make object! spec
hi
** Script Error: a needs a value
** Near: a: print b: "hi"

;Contruct works
>> f: construct spec
>> ? f
F is an object of value:
   a               word!     print
   b               string!   "hi"

Henrik, PATH is a function used internally by rebol but probably 
accidentally exposed globally.

'Construct!!!!! How long I've searched for you. :-) Thank you Gabriele

Coccinelle: the only info available about read-io return codes is 
in the async case. from async:// :

0 or -1: peer closed (ssl:// seems to consider -1 an error and not 
close)
-2: error
-3: would block (i.e. no data ready)
< -3: error

I tried Carl's site monitor - Gismo, but it converts sites to tcp 
ports, instead of staying with http ... how can I easily add proxy 
support to manually constructed tcp port? I do remember some tricks 
with subport where actually port is, but can't make it work easily 
...

looking at sterling's proxy script, I somehow can't understand that 
sub-port concept :-) Looking at rebol core manual, it does not make 
my life any easier :-) Although I can understand the concept of root-protocol 
and how to establish new scheme, it does not help with understanding 
of lower level issues ...

maybe that is why DocKimbel was thinking about dividing port model 
into two layers ....

simply put - scheme model is not so complicated, you can even rather 
easily go and use tpc and udp ... but unless you need something like 
a proxy support ....

can I prevent the black shell window appearance? I try to call/console 
"ping 10.0.0.10", but the black window always appears ...

ah, it is call/console "cmd /C ping 10.0.0.10"

I'm having the same problem right now. But the black window nevertheless 
appears.

other bad thing I didn't think about/expect was that upon using output/error 
refinement it becomes blocking like with wait refinement

There is no way around it. Unless you have library access an use 
the asyc-console script from Dockimbel. Or the one shipping with 
the Detective.

now I can live with the blocking behavior, but would like to show 
the output in a view window - but as it blocks might not be possible

ok, good to know Jaime

so I should really start getting the SDK or pro :-)

Yep.

:-)

I'll pay RT $50 if we change "=" to "==" .. don't know HOW many bugs 
I've generated with other languages over that.

how about allowing to accept both?

Terry, do you think it's really a good idea to change that now ?

== is already valid rebol

just unset '= and you are done

(provided it is not used internally)

you would have to start casting to compatable datatypes yourself 
tho ....

>> "ABC" = "abc"
== true
>> "ABC" == "abc"
== false

cast to the same case as well

Is it possible to find the IP address of a machine using a proxy?

what do you mean, Terry?

you mean automatic proxy detection?

Do you mean this ?:

Terry's machine ---- ( internet ) ---> proxy machine ---> target 
machine
where the target machine is the ip you want.

I am supposing a remote machine has connected to a service of yours, 
and you want to know if you can inspect the port in such a way as 
to obtain the ip of the remote machine, even if it is behind a proxy.

I'm looking for the the ip of my wireless router.  I know it manually, 
but is their a way to find it automagically?

proxy isn't correct