World: r3wp

i tried without 'clear just now, and as I thought, it's broken right 
now

I tried with clear just now, and it was broken.

As demonstrated above.

works well here, try a probe
Are you trying with R2 ?
It's not working with R3

remoldx: func [x /all /flat /only][
	do probe head clear change change change next 'mold/?
		pick [[] all] not all
		pick [[] flat] not flat
		pick [[] only] not only
		reduce x
]

probe remoldx/all [next 'a/a 2] 
probe remoldx/all/flat [next 'a/a 2]
probe remoldx [next 'a/a 2]
probe remoldx/only/all/flat [next 'a/a 2]

>>

mold/all
[#[path![a a]2] 2]
mold/all/flat
[#[path![a a]2] 2]
mold
[a 2]
mold/all/flat/only
#[path![a a]2] 2

Just traced through, and the changes are persistent but the clear 
cleans up any extras. So it works from the outside, though it's not 
recursion-safe in R2 or R3, and not task-safe in R3.

The APPLY mezzanine uses a similar method (building a path), but 
creates a new path every time to be recursion-safe.

Weird one :)

remold: func [x /all /flat /only][

 do head remove-each ref next copy 'mold/all/flat/only [not get in 
 bind? 'x ref] reduce x
]

Jeez , I don't need of the bind stuff...

remoldx: func [x /all /flat /only][

 do probe remove-each ref copy 'mold/all/flat/only [not get ref] reduce 
 x
]

I like this one, short.......

oups, i let the probe, even shorter.....

I didn't know, that even the refinements was bound to the context 
of the main function.

I meant the words in the path

I meant the words in the path

Well, It's needed when the paths are calculated (forget what I said)

Nice. In R3 you'll need a temporary variable for the copied path 
because REMOVE-EACH returns the count removed instead of the value.

Hah! I never thought of doing it that way. Very cool Steeve.

Is there a faster way to replace the first two charcters in the given 
string by the fifth and sixth character of the same string?
 
>> s: "123456789"
== "123456789"

>> change s copy/part at s 5 2
== "3456789"

>> s
== "563456789"

I suppose using pick and poke is not faster.

or:

s/1: s/5
s/2: s/6

this prevents the copy... 

change/part s at s 5 2

Max, but, unfortunately, it does not do what is needed

ah yes... I thought it applied the range on both sides, but it only 
does so in the source string...

Perhaps 'move should have an option to copy ....

Nothing comes to mind Ladislav. You're going to have to copy in any 
case, correct?

Well, I once thought, that there was a way how to circumvent the 
copy, but it looks to me now, that I was wrong

Henrik's method circumvents the extra copy :)

yes, but it does not look to me like a viable way to replace a CHANGE 
X COPY/PART Y by a cycle of that kind, although I did not measure 
the speed difference, yet

forall s [if find [1 2] index? s [s/1: pick head s ((index? s) + 
4)]]

:)

hm .. anyone has any idea why rebpro on linux says "Set-Net not provided." 
I googled but couldn't find the point why is this.
I tried do-ing prot.r and mezz.r

isn't rebpro just /base package? I mean - without the mezzanines?

yes

you need to include mezz-* functions then

but set-net is defined .. but messages this. And if I 
do %/usr/share/cheyenne/rebol-sdk-276/source/mezz.r
do %/usr/share/cheyenne/rebol-sdk-276/source/prot.r

it's the same

It errors out after the start here ....

do you think I need to do one by one (I tried some combinations I 
found on net but same behaviour)

how do you mean? what error does it show?

Script: "User Preferences" (6-Jan-2009/21:58:59+1:00)
Set-Net not provided.
** Script Error: set-user-name has no value
** Near: set-user-name "Petr Krenzelok"
if (not none? system/view) [
    system/view/screen-face/options: none
]
>>

it apparently tries to do user.r, where I have set-net as a first 
function call. Other SDK kernels don't have such problems ...

aha.. you get set-net not provided also... maybe you call set-user-name 
also in user.r and that produces the error

I will try do-ing all the mezz* files first and see if then it will 
work

what happens to you if you do mezz.r and prot.r before calling set-net?

hm.. what does #include in mezz.r do? is this like preprocessing 
directive and inefective at runtime?

yes, inefective in runtime, but effective when you Encap your app, 
REBOL preprocessor (prebol) uses it ...

http://www.rebol.com/docs/sdkug.html

I tried including many mezz-* also mezz-netset.r but same message

I mean do-ing

I also do-ed all prot-* that were in prot.r with no effect?


does this have something to do with licences?? Because word set-net 
is there but it just messages this. And set-net is in all free versions 
of rebol (and hopefully you can send email from them all along) so 
I am quite confused.

are you doing set-net within user.r or in your script?

in my script (or in command line)