World: r3wp

There aren't that many new drugs added to the pharmacopaiea on a 
monthly basis

The FDA makes sure of that!

sounds ideal

so how are the nodes represented?  blocks?  objects?

http://www.mail-archive.com/[list-:-rebol-:-com]/msg07839.html

if you can get away with blocks it should be cheaper , since you 
only decend,  parent is not needed just child blocks and value may 
work

Maybe Carl can add this as a native for find/deep :)

also look at prefix trees, may be a simpiler  variant for word compleation

Is there a case to be made for use/only ?

>> use [a][a: 1]
== 1
>> use/only [a][a: 1]
== [a: 1]

Replaces having to 'double bag' -
>> use [a][[a: 1]]

Am I missing an obvious equivalent?

I would say, that your equivalent is fine. Since it is not that hard 
to use the "double bag", I doubt it justifies the refinement, since 
the refinement expression isn't shorter than the expression it is 
supposed to replace.

You get longer line lengths in the standard style:

use [a][
    [
	a: 1
    ]
]

; picture a: 1 being slightly more code

vs.

use/only [a][
    a: 1
]


Partly it's aesthetics - but this is a language, aesthetics can be 
important.

It still is possible to introduce just a special "double bag style", 
which is aesthetically acceptable, IMO (I have seen it somewhere, 
so it is not my invention):

use [a] [[
    a: 1
]]

>> f: func [] [[
[        a: 1
[        b: 2
[        ]]
>> f
== [
    a: 1
    b: 2
]
>> source f
f: func [][[
        a: 1
        b: 2
    ]]

I've got diplopia!

The disadvantage of [[ is that it can be difficult to notice sometimes, 
but otherwise it seems acceptable in cases like this.

If I'm using that, I usually double-indent the surrounded code, to 
help make it easier to notice

Gab: right, it's more difficult to visually parse, and it's ugly 
(two different issues, I'd say).  Perhaps I need to use a 'double-bag 
function.

It's also mentally uncomfortable - it feels like there should be 
a way to do use/only [a][a: 1]

parse "this" use/only [mk][opt "t" mk: to end (probe mk)]

Any reason not just pull the 'use outwards?

use [mk][
   parse "this" [opt "t" mk: to end (probe mk)]
]

In that case, no.

alternatively... one could think of extending WITH (not sure if we 
ever decided if we wanted that built-in)

(hmm, no, same problem, WITH still evaluates)

The current USE does:
1. Create context of specified words.
2. Bind body.
3. Evaluate.
Chris wants to be able to remove the evaluation.

In a perfect world with no legacy issues to worry about, I would 
prefer USE to do only steps 1 & 2, and USE/DO to do all three steps.

Or, a new function could be introduced (which I might name ENCLOSE 
or COOP) which does only steps 1 & 2.


Alternatively, if there was a function which returned a context created 
from a block of words, eg:


 CONTEXTUALIZE: func [words [block!]] [ ... ]  ; Returns a new context 
 containing words without evaluation.


then you could imagine using an idiom to get steps 1 & 2, or all 
three steps. eg:

	bind body contextualize words  ; Steps 1 & 2.
	do bind body contextualize words   ; All three steps.

So Chris' example would be:


 parse "this" bind [opt "t" mk: to end (probe mk)] contextualize [mk]

(<sigh> If only BIND had its argument order reversed...)

I'm working on a high-performance windows counter for R2.   on my 
system, the resolution is 1 / 3500000  !!!


just calling the function twice, back to back returns more than 6700 
counts in difference.. which is pretty fast.

AFAICT, it uses something like the CPU frequency counters directly.

wow, this is so precise, I can time a single call to a native!  :-)

why R2? You have got sources to R3. Improve timers in there :-)

not timers, counters....   ;-)

its probably the same high-precision counters that R3 uses.

why are you working on counters, instead of releasing Glass, which 
was supposed to be out 3 months ago? :-) Is that somehow related?

I am on vacation, I having fun working on my animation/game/math 
package.  this will allow more precise animation timing... cause 
as it stands, in R2 I can't manage much more than 32 OR 66 frames 
per second, since all time values are stuck in 0.016 increments.

good enough :-) So we finally can make a Scala killer later :-)

did you try my little view test app?

While REBOL can animate fast, the movement of elements is still jerky. 
Double buffering does not help here either.

Yes, I did. And I was really impressed - cool performance - it is 
... realtime :-)

... but I don't know, if we can prevent tearing/flickering, unless 
using DirectX (or OGL?) Simply put - when I visit my friend, and 
he turns-on his A500, and we watch some demos, I still have to say 
- wow, WTF - 7MHz machine? :-)

hmm, wrong group for such a discussion anyway ....

Anton: see make-context in http://www.rebol.it/power-mezz/mezz/module.html#section-7


I agree that it would probably make sense to have this as a native. 
The common usage though is that of USE so I don't think it should 
be changed.

I have a question about 'unique that could become a feature request.

Somebody ask (on the french Rebol forum) how he could remove the 
duplicate records from this dataset :
database: [
	a "b" "c 1" "d"
	a "b" "c 2" "d" 
	a "b" "c 3" "d"
	a "b" "c 2" "d" ;ligne 4 to delete
	a "b" "c 5" "d" 
	a "b" "c 6" "d" 
	a "b" "c 7" "d" 
	a "b" "c 2" "d" ;ligne 8 to delete
]

My first though was "use 'unique func". But it turns out that it 
can't do what I though.

As usual, the doc tells nothing about that (in fact it ells pretty 
nothing on the func), but with the /skip refinment, it seems it only 
checks the first value at each skip position (so the 'a in this dataset), 
not all the values of the record.

ells=tells

AFAIR, this is a bug.

http://www.rebol.net/cgi-bin/rambo.r?id=4018&

Only 4 years old.

R3 has the same flaw

Goog memory (and you were fastest than me at finding the RAMBO ticket).

I was betting there was a RAMBO ticket. Ran into this bug earlier 
this year.

It could be its behaviour (if documented), but then a /all refinment 
would be nice to toogle the "all fields check" (like the 'sort func 
one).

'unique appears to be using the entire record with the /skip refinement 
- if it was just the first value ('a), then there would only be 1 
record remaining (2.7.6)

wait, nevermind

confused myself when testing in-place functions with the not-in-place 
'unique