World: r3wp

was open/async removed after 2.5.5 ??

Yes.

It interfered with the garbage collector and was one of the reasons 
to start R3 development iirc (the whole port subsystem, actually).

Graham - you don't need the async mode in order to behave in an async 
like manner ...

I can send you short script called "multiserver", which is able to 
accept connections from various IPs, save content to file, it simply 
multiplexes on opened ports ....

the script is very short, commented. It served as example for my 
friend learning REBOL.

That's okay Pekr ... I was just trying to see if I could use the 
style as written by Carl.

Maarten ... when did that become common knowledge??  I had endless 
issues trying to upload files async, and it only worked by turning 
off GC  .... but of course killed my program with huge memory use 
:(

Anyone have a nifty func to "untrim" a string? Something that converts:

	"ArialBold"

to:

	"Arial Bold"

Best I can come up with is a horrible replace loop:

	foreach char "ABC ..." [
		replace/all next string char join " " char
	]

 replace/all string "  " " " ; handle case where words were already 
 space seperated

replace/all next -> replace/all/case next

you want to insert spaces before each caps ?

Yep

can't you use parse

One of the few things I've yet to master in REBOL! ;)

caps: charset [ #"A" - #"Z" ]
non-caps: complement caps

parse "ArialBold" [ some [ copy fontname name (print fontname)  ]]

>> parse "ArialBold" [ some [ copy fontname name (repend out [ fontname 
" " ])  ]]
== true
>> out
== "Arial Bold "

close enuf ??

** Script Error: name has no value

name: [ caps some non-caps ]
out: ""

cut and paste works poorly in windows :(

and Mac ...

Thanks, that's enough for me to start with.

>> parse next s: "ArialBoldItalic" [ some [ some non-caps [ end | 
mark: ( insert mark #" " ) skip ]] ]
== true
>> s
== "Arial Bold Italic"

Even better!

I'm waiting now for Ladislav's answer !

In 12 bytes or less ;)

not sure if correct, but:

caps: charset [ #"A" - #"Z" ]
non-caps: complement caps
s: "aaaArialBoldItalic"

parse/all s [any [mark: caps (insert mark #" ") skip | skip] end]

Slight complexity, "HelveticaCY" has to parse as "Helvetica CY" not 
"Helvetica C Y"

>> parse next s: "ArialBoldItalicYY" [ some [ some non-caps [ end 
| mark: ( insert mark #" " ) 2 skip ]] ]
== true
>> s
== "Arial Bold Italic YY"

>> parse/all s: "abcArialBoldItalicsCY" [some [mark: caps (insert 
mark #" ") 2 skip | skip] end]
== true
>> s
== "abc Arial Bold Italics CY"

I think you should have 'some and not 'any as there should always 
be at least one space to be inserted.

Pekr's rule looks shorter because you don't need the non-caps

'some works. The 4 variations it has to handle are:

	"Arial"
	"ArialBold"
	"ArialBoldItalic"
	"ArialCY"

so putting a 'next prior to 's seems to handle all these.

'any will work too ...

putting 'next there serves the purpose, but is an ugly hack :-)

why is it a hack??

you should solve it by parse and parse only - that is the challenge 
:-)

we know we only have to parse part of the string ... not all of it

I find it easier to bypass edge conditions rather than program for 
them :)

I'm with G on this one.

Here's the finished code (which obtains REBOL compatable font names 
under Mac):

	fonts: copy []
	caps: make bitset! [#"A" - #"Z"]

 foreach file compose [(read %/System/Library/Fonts/) (read %/Library/Fonts/)] 
 [
		if %.dfont = suffix? file [
			s: form first parse file "."

   parse next s [any [mark: caps (insert mark #" ") 2 skip | skip] end]
			insert tail fonts s
		]
	]
	remove-each font-name fonts: sort unique fonts [

  (size-text make face [text: "A" font: make face/font [name: font-name 
  size: 10]]) =

  size-text make face [text: "A" font: make face/font [name: font-name 
  size: 12]]
	]


(the windows func to do this is http://www.reboltech.com/library/scripts/get-fonts-windows.r
)

there's no edge condition. What if the name would not begin with 
a capital letter? I would parse all string and instead of 'next I 
would use 'trim, which would tream initial space, in case first letter 
is capital :-) But if it is the rule, that the first letter is always 
being a capital, then your solution is absolutly correct ...

First letter is always a capital ... except where it's a # but those 
fonts are not usable by REBOL anyway.

Pekr, skip can always be used as the first word in the parse rule 
if you don't like next

What's the best way of stopping an application from starting if another 
instance is already running?  The app is a core based app that is 
in a forever loop.

I guess I could always make it a View app instead, and wait on  a 
port ... and use a timer to trigger the other stuff I need to do.

I once used lock file - you keep file openeed, and you try to delete 
that lock from the other app. If you can delete it, so create lock 
file, if not, another instance is already running. But - that works 
only under Windows, I've heard that under Linux, you can delete file, 
even if another app is using it. Dunno if true ...

You can also use TCP ports, but if you open some port, firewall will 
step-in and ask for approval ...

so, open a file and keep it open?

could try that .. seems easy enough