r3wp [groups: 83 posts: 189283]
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

World: r3wp

[Core] Discuss core issues

Graham
17-Jul-2005
[1544]
run will call a native application to open the file in question eg. 
acrobat reader for pdf files.

It is only enabled on IOS .. I have asked RT why it can't be enabled 
for the sdk as well.
[unknown: 5]
18-Jul-2005
[1545]
Yes Graham that is what it looks like to me as well - looks similiar 
to a winshellexecute function.  Would be good for them to activate 
it as that would be a very good function to have.
Carl
19-Jul-2005
[1546]
And, perhaps even REBOL View too eh?
[unknown: 5]
19-Jul-2005
[1547]
Ahhh not complaint here Carl.
Rebolek
21-Jul-2005
[1548x2]
Is this OK? And if yes, then why?
>> x: context [d: does [print e]]
>> y: make x [e: 1]
>> y/e
== 1
>> y/d
** Script Error: e has no value
** Where: d
** Near: print e
Cyphre
21-Jul-2005
[1550]
yes, this is OK
Rebolek
21-Jul-2005
[1551]
and why?
Cyphre
21-Jul-2005
[1552x2]
because you refer to word 'e with global context
>>  x: context [d: does [print self/e]]
>>  y: make x [e: 1]
>> y/d
1
Rebolek
21-Jul-2005
[1554]
ok I see
Cyphre
21-Jul-2005
[1555x2]
In this case it would work:
>> x: context [e: 5 d: does [print e]]
>> y: make x [e: 1]
>> y/d
1
because the 'e in function d would be bound to the context of the 
object (self)
Rebolek
21-Jul-2005
[1557x2]
yes I know, I needed it when extending objects
so I'll use 'self or define everything in advance
Cyphre
21-Jul-2005
[1559]
If you use 'self you are safe rearding contexts IMO.
Ladislav
21-Jul-2005
[1560x2]
if you want to extend context, you might want to try associative 
array instead
or a "dynamic" object like o: make object! [data: make object! [x: 
1]]

usage:

>> o/data/x
== 1
>> o/data: make o/data [y: 5]
>> o/data/x
== 1
>> o/data/y
== 5
Joe
23-Jul-2005
[1562]
.
Ingo
25-Jul-2005
[1563x4]
Q1: I want to replace all 'none in a block with _different_ empty 
strings, what's the fastest way to do this?

(replace/all BLOCK none ""       replaces all 'none with the same 
empty string)
Q2: I have to blocks containing strings, and want to find out which 
of these strings differ (I need all differing positions), what do 
you think is the fastest way to achieve this?
Thanks in advance for all ideas!
PS. Do you, like me, feel that the replace way of doing things is 
questionable?
Volker
25-Jul-2005
[1567]
b: ["s1" "s2" "s3" "s1"]
parse b[any[to "s1" p: (p/1: copy "t0") skip]]
? b
Ingo
25-Jul-2005
[1568]
Q2 again: Sorry, my axplanaition was a little unclear: 

I have a row from a database, and store away one block, and display 
the other for the user. The user may, or may not, change the data.
>> orig: ["Mr" "Petr" "Ustinov"]
>> data: ["Sir" "Peter" "Ustinov"]
>> magic-changed-func orig data
== [1 2]
Volker
25-Jul-2005
[1569]
orig: ["Mr" "Petr" "Ustinov"]
data: ["Sir" "Peter" "Ustinov"]
; same length !
out: copy[]
repeat i length? orig [ 
	if orig/:i <> data/:i [
		append out i
	]
] 
? out
BrianH
25-Jul-2005
[1570x3]
Q1:use [x] [
Sorry
Q1:
use [x] [
    x: block
    while [x: find x none!] [change x copy ""]
]
Anton
26-Jul-2005
[1573x2]
Ingo, I have similar feelings too sometimes. I need a higher level 
function to do some things like that, but it's not there....
I often wanted reduce and compose to not make a copy for you, but 
work directly on the block. (Perhaps new functions "induce" and "impose" 
?)
Sunanda
26-Jul-2005
[1575]
induce should be fairly easy -- walk the block with 'for and 'poke 
back the value
Anton
26-Jul-2005
[1576x3]
blk: [a b c] 
format: [(1 + 2) (random 100) c]

impose: func [blk format][repeat n length? format [if paren? format/:n 
[poke blk n do format/:n]]]
impose blk format
;blk == [3 95 c]
For induce I think I would use do/next.
induce: func [blk format][change blk reduce format]  ; (except, as 
a native!, without creating a temporary block)
induce blk [1 + 2 random 100 'c]
; == [3 67 c]
Ingo
26-Jul-2005
[1579x2]
Hi Voker, BrianH, thanks for your ideas ... they look mighty long 
compared to normal Rebol code ;-)
Sorry, I wanted to type Volker, of course!
Brett
26-Jul-2005
[1581x3]
; Q1: copy/deep will give you new strings:
block: [none none none]
new-block: copy/deep replace/all block 'none {}
; Q1 Or if you know you can reduce it you could do something obtuse 
like:
block: ["a" none "b" none none]
use [none][none: does [copy {}] bind block 'none]
reduce block
But if you do need to do an actual replace on the original block 
- see the other solutions :-)
Ingo
27-Jul-2005
[1584]
Hi Brett, your first version looks pretty good ... now I'll have 
to dig out my little profiler, and see what's the fastest of all 
of these ;-)
Anton
27-Jul-2005
[1585x4]
I reckon the parse will win.
Brett's is the nicest looking though.
Brett, your obtuse way will only work if you are replacing 'none 
(as a word), but not none! values.
eg. reduce your input block:
	block: reduce ["a" none "b" none none]
Brett
27-Jul-2005
[1589]
Agreed Anton and perhaps that shows the obtuse method is not a great 
idea for this situation  - though perhaps an interesting one ;-)
Gabriele
29-Jul-2005
[1590]
In case anyone is interested... http://www.rebol.org/cgi-bin/cgiwrap/rebol/view-script.r?script=reboldiff.r
Henrik
30-Jul-2005
[1591]
Are there any other instances where the a: copy [] vs. a: [] "problem" 
appears?

I'm have a bug where two arrays:

1. an array with data that can be manipulated

2. a similar one containing default data, which is used whenever 
I want to reset the first one


They apparently "stick" together with synchronized values. When I 
manipulate array 1, array 2 changes too. This would be the old COPY 
problem, but I use COPY everywhere, whenever I need to create array 
2.


However I do frequently PICK values from array 2 and POKE it in array 
1 at the same location to reset a specific location to a default 
value. Would that create a similar problem?
Gabriele
30-Jul-2005
[1592x2]
it depends on the kind of value you are picking/poking.
i guess you need copy/deep and poke ... copy pick ...