World: r3wp

does he like whisky? I thought he loved REBOL wine?

hmm, I would have to find some old discussion with Carl, he likes 
whisky but he also suggested some othe drink to me :-)

Buy him some lousy wine so he will feel good that Sassenranch wine 
is so much better :)

:-) No problem with some bad czech wine :-)

buy him some 'burcak', he probably doesn't know, what it is ;)

I think he doesn't even know it is a drink

buy some copies of the sdk .. he won't worry about the wine then!

It will probably be hard to find bad wine, where the DevCon is in 
northern Italy. :-) And you're probably not allowed to bring bad 
wine into that area. ;-)

Any parse experts here today?

no matter...

Not an expert, but if you ask, you never know!!!

I want to split a text string at n characters but not in the middle 
of a word ie. split at the next space.

split-text: func [ txt n 
	/local frag result bl
][
    bl: copy []
    result: copy ""

    frag-rule: compose/deep [ copy frag (n) skip (print frag append result 
    frag) copy frag to #" " (if not none? frag [ print frag append result 
    frag ]
append bl copy result clear result) ]
    parse/all txt [ some frag-rule ]
    bl
]

works outside the function, but not inside :(

compose/deep [ copy frag (n) skip (print frag append result frag) 
copy frag to #" " (if not none? frag [ print frag append result frag 
]
append bl copy result clear result) ]


looks suspicious to me - don't forget that your parens are there 
for two different purposes. My guess is, that you don't need compose?

I think I tried it without the compose ...

I'll give it another go.

copy frag n skip should be perfectly OK

hmm.  that works.  except I miss the last piece of the text as if 
last piece less than n, it doesn't get copied.

example of what you get and what want?

split-text "this is a sentence" 11
[]

I want [ "this is a sentence" ]

how about:

    copy frag [to #" " | to end]

yah! that works.

I tried putting in an alternate rule of " | copy frag to end " but 
that hung the parser.

this should work too:

    [copy frag #" " | copy frag to end]

rather:  [copy frag to #" " | copy frag to end]

Hmm.  It's failing when the text is less than n.

strange

[ copy frag n | copy frag to end ]

at the beginning I guess

aha, this one, yes, right

[ copy frag n skip | copy frag to end ]

or copy frag [n skip | to end]

nope.

if append "" none works as it does, then it is a problem with the 
none value

split-text: func [txt [string!] n [integer!]
    /local frag fraglet bl frag-rule bs ws
][  ws: charset [#" " #"^-" #"^/"]
    bs: complement ws
    bl: copy []
    frag-rule: [
        any ws
        copy frag [n skip] (print frag)
        opt[copy fraglet some bs  (print fraglet)]
        (insert tail bl join frag fraglet)
    ]
    parse/all txt [some frag-rule]
    bl
]

will prolly fail on tezt < n as well

it does fail.

simpler to just check the size of the string before it gets worked 
on.

yep

but the last  line being less than n is the same thing

I must say, that the NONE issue is quite annoying/inconsistent (IMO)

yeah .. it is.

how about this one?: copy frag [n skip | to end] (frag: any [frag 
""])

maybe we should put it to RAMBO as an enhancement request?

split-text: func [txt [string!] n [integer!]
    /local frag fraglet bl frag-rule bs ws
][  ws: charset [#" " #"^-" #"^/"]
    bs: complement ws
    bl: copy []
    frag-rule: [
        any ws
        [copy frag [n skip]
         [opt[copy fraglet some bs  (insert tail frag fraglet)]
        ]
       |[copy frag to end]
       (insert tail bl frag)
    ]
    parse/all txt [some frag-rule]
    bl
]

untries

Ladislav, that doesn't work.

tom, untried fails :)