World: r3wp

its already very usefull, its for detection of how to process files 
in distro-bot.  right now it just treats any non rebol script as 
a binary, but I'd like to add some processing to other text files.


maybe peter can extend the concept and figure out if there are only 
printable characters in other encodings  :-)

just "discovered" 'alter' fuction...very handy

Sadly, 'alter has not made it into R3:
http://www.rebol.net/r3blogs/0124.html

Doesn't seem a very suitable name for what it does ...

How about 'swap instead ?

>> flags: []
== []
>> swap flags 'resize
== true
>> flags
== [resize]
>> swap flags 'maximize
== true
>> flags
== [resize maximize]
>> swap flags 'resize
== false
>> flags
== [maximize]

Does it read better than 'alter ?

'alter was always a poor choice of name -- short for 'alternate apparently, 
but too short to be obvious.
Anton has suggested 'toggle as a better name for it.

toggle implies something is always there ... but in a different state. 
 Swap is to imply that something goes in and out :)

Rotate is another possibility

Never had the need to use this word though :)

I've used ALTER once for user selection in a list, and it was even 
a special case. I think having the ability to just conditionally 
append to a block if the value does not exist is more useful. I.e. 
an ALTER, split in two functions.

Trying to think of where I could use this function ...

>> a: [ b b c d ]
== [b b c d]
>> alter a 'b
== false
>> a
== [b c d]

'alter is a hard one to name. The operation is:

 *   if the target value exists in the series: remove the first instance 
 of it
 *   if it does not exist in the series: append it to the end.

The "remove first instance"  makes it more generic than rotate/swap/toggle 
when there is more than one instance of the target in the series.

flag/deflag ?

'cull almost works :-)

An english defintion being: "To take someone or something (from somewhere)."

'cull would be a great name for 'remove-each : )

cull deer herd [deer = not smart]

ALTER is still in R3, though its usefulness is so limited it may 
be moved to R3/Plus. The enhanced logic flags that were supposed 
to replace it were removed in the latest release - they were never 
refined or documented to the point of being useful.

In theory, ALTER is a set function, so the series in question is 
not supposed to have duplicates.

You are quite right -- 'alter is still in R3 ..... My mistake.


Several of REBOL's set operations operate on series. Series are more 
like bags than sets, hence they can have duplicate values. That adds 
value for a programmer, but dilutes academic purity.


Perhaps 'alter could have a purer set defintion by becoming a no-op 
if the target value exists more than once in the series.

Is there a way to adjust computer time from rebol?

'call

you are a real tease, Graham.

I thought it might be some registry stuff

I saw some third party tools to do it but they are nearly  half meg 
in size and I thought one line of rebol might do it..

Why is the time zone displayed by rebol 'now not changed when I change 
the time zone on my computer in date and time properties?

Should be correct in its offset from UTC/GMT?

No matter what I change the rime zone to on the computer I get a 
rebol time with -4:00

Just discovered that allnew instances of rebol consol produce new 
zone. I guess the consol reads zone info at start but not at each 
time get..

Got it..thanks Graham...


Here are three lines that adjust the time zone and time of the local 
computer after checking time with a server with a daytime server 
running:


call "RunDLL32.exe shell32.dll,Control_RunDLL timedate.cpl,,/Z Eastern 
Standard Time"
a: to-date read daytime://myserver.com b: a/time
call rejoin ["time " b]

I guess it might be off by a second or less ...close enough

Rebol does not update changed time zone...Anyone know how to do this...I 
do not want to resart the application after the change just to get 
the new time zone..

also, change date:

call "date 6/7/2009"

http://www.fm.tul.cz/~ladislav/rebol/nistclock.r

I originally hard coded one time server into my program as in Ladislav's 
example, but I had the misfortune of that time server being out of 
action for a few weeks which introduced a 30 second timeout when 
my program started up.  Now i adjust the timeout to a much shorter 
value, and randomize from a pool of time servers.  And then restore 
the timeout value.

I'll be serving time from the same server hosting the MYSQL DB..so 
if timeserver is down its irrelevant as they will not be reaching 
hte DB either...

and its data syncronizing that I'm concerned with...

What am I doing wrong here??
given a block of blocks: 
[

[67 "FFP Vol.2 - BASIC ENGINE OPERATIONS" "Chapter 1 - INTRODUCTION" 
"1.1"]

[69 "FFP Vol.2 - BASIC ENGINE OPERATIONS" "Chapter 1 - INTRODUCTION" 
"1.3"]

[68 "FFP Vol.2 - BASIC ENGINE OPERATIONS" "Chapter 1 - INTRODUCTION" 
"1.2"]

[71 "FFP Vol.2 - BASIC ENGINE OPERATIONS" "Chapter 1 - INTRODUCTION" 
"1.2"]

[268 "FFP Vol.2 - BASIC ENGINE OPERATIONS" "Chapter 1 - INTRODUCTION" 
"1.2"]

[721 "FFP Vol.2 - BASIC ENGINE OPERATIONS" "Chapter 1 - INTRODUCTION" 
"1.2"]
]

Using alter to remove each block in a loop:
 foreach z a [alter a reduce [z] probe a wait 3]

with a being the blocks above

It seems to work for the first two but than skips a block and than 
fails...

same result using find-remove:

foreach z a [if find a reduce [z] [remove a reduce [z]]]

I get three left over blocks


i I run it again I get one left over block and f I run it a final 
time it reoves the final block

foreach will advance to the next index whether or not the series 
was modified:
>> D: [1 2 3 4 5 6 7 8 9]
== [1 2 3 4 5 6 7 8 9]
>> foreach X D [remove find D X]
== []
>> ? D
D is a block of value: [2 4 6 8]

Using remove-each is better for this:
>> D: [1 2 3 4 5 6 7 8 9]       
== [1 2 3 4 5 6 7 8 9]
>> remove-each X D [integer? X]
== []
>> ? D
D is a block of value: []

I'm a dope...Thanks for the clue...
I used another 'variable' to what I needed...it works now!

Modifying a series you're iterating over is always risky. Not only 
do you have to make sure you get it right, but there is always a 
possibility that iterators might change their behavior.

...

rebol can be viewed also as Lisp without parentheses.. it can edit 
it's own code/data structures without any problem... so why doesn't 
rebol have something like macros ?? :)

well, any Lisp-er not knowing REBOL would telly you: macros are absolutely 
necessary ;-) But the fact is, that REBOL actually *does* have macros, 
since REBOL is its own macro-language

(REBOL *does not need macros*, but ssh, don't tell LISPers, they 
would say, that you always need them)

nice way to put it... I hadn't thought about it that way.