World: r3wp

yow

If i  paid $.02 for every time someone felt the need to criticize 
my $.02 worth, I'd owe AT LEAST a $1.50 by now.

Terry, I must admit, you do get 'dumped on' more than most.  I feel 
for you.

looking for qa new mobile phone and considering the SonyEricsson 
K700 or S700, does anybody have them? Or other good advice ;-)

Basically, I need a phone that can act as a simple mobile (read-only) 
email client

mmm ... bacon cheeseburger

lunch: get burger [bacon cheese]

diet: skip lunch 1

if empty? stomach [ loop [ pout ] ]

Then again, I could eat a little less of the monstrous cheeseburgers.

This job is reminding me more and more why "data is code is data" 
could be a good thing.

stupid edit-compile-edit-debug-edit-debug-edit-compile-edit-scream_bloody_murder 
development cycle.

Then you will really love the concepts that Anvil is built on.

I might. Where's Anvil?

On my hard drive. ;-)

I'll be right over ;-)

A compile stage for web apps is just not right, anyhow.

... and there's a tiny addition to the REBOL content on my site. 
yay :-)

what's the best way of restarting a server application each night 
?  Use something like launch/quit .. between certain hours, but without 
setting some flag on the file system, how to ensure that it only 
happens once daily?

( encapped application )

If it's windows, I'd use Q.

a:  "123.456.789"

find/any/with   a  "*.456.789" "123"

none

plis help

The /with refinement allows you to use alternatives to * and ? wildchars:

>> a: "123.456.789"
== "123.456.789"
>> find/with a "x.456.789" "xy"
== "3.456.789"
>> find/with a "y.456.789" "xy"
== "123.456.789"

I'm not sure, what you're trying to accomplish.

In some cases I've done that Graham, I've also made a special "startup" 
EXE for a script that runs, waits a bit, the DOes the script, to 
give things a chance to shut down. I've also done it where the app 
was simple and I could just DO a module to refresh it. That gets 
trickier if you have a more complex app that maintains state and 
such.

My stuff has all been manually restarted, though sometimes remote, 
and not timed, but that shouldn't be an issue. Another thing you 
could do is put a shutdown timer in your script, and then have a 
CRON job run that starts a new instance.

I guess a cron job that signals my application to restart would be 
the best thing then

... REBOL has lots of repetition structures, doesn't it?

You mean for iterating through series? If so, yes.

yeah, that's what I meant. The brain just doesn't work sometimes.

Some of them are natives, and some are mezzanine code.

That gives you a choice: use the natives for speed, or the mezzanines 
for convenience.

I was just gathering a good minimum set for another introductory 
article. I think I'll leave most of the iteration bits out for this 
stage.

Or just point out the basics.
9/10 I just use 'loop or 'foreach.
Other people probably have a different preferred subset.

hmm, that's a good thought. I'll keep the coverage small: 'while 
'loop 'foreach should cover most beginner needs
It might be a good idea to menation 'break as well

I agree, but I use REPEAT also quite often.

find string numel only

I ask about help ?

Micha, you want to parse   1) IP network address (eg. 205.192.0.1) 
   or  2) rebol TUPLE! datatype (eg.  11.22.33)  ???

IP network address

>> "" = find/any/match "123.456.789" "*.456.789"
== true
>> "" = find/any/match "123.456.789" "*.456.7"
== false
>> "" = find/any/match "123.456.789" "*.456.700"
== false

>> ip: 123.225.255
== 123.225.255
>> "" = find/any/match form ip "*.225.255"
== true

s: "testse193.194.70.123 1080iiyyyuiyiy  234.221.23.5:3380"

how do to find address ip from this stringu ?

digit: charset "0123456789"
number: [1 3 digit]
s: "testse193.194.70.123 1080iiyyyuiyiy  234.221.23.5:3380"

parse s [some [start: digit 3 [number "."] number opt [#":" 1 5 digit] 
end: (print copy/part start end) | skip]]
;193.194.70.123
;234.221.23.5:3380
;== true

>> load "193.194.70.123"
== 193.194.70.123
>> load "234.221.23.5:3380"
** Syntax Error: Invalid time -- 234.221.23.5:3380
** Near: (line 1) 234.221.23.5:3380

ips: copy []

parse/all s [some [(port: none) start: digit 3 [number "."] number 
opt [#":" port: 1 5 digit] end: (append ips reduce [load copy/part 
start any [all [port back port] end] if port [load copy/part port 
end]]) | skip]]

>> ips
== [193.194.70.123 none 234.221.23.5 3380]