World: r3wp

Robet you also have to worry about  YaBaDaBaDoCamelCases  (even and 
odd) 

to get it to return true ,  figure out what is left when the outter 
most  some finishes.
parse ...[
	some [
		...
	]
	copy remenant to end ( print remenant)
]


then make  the  your rule cpnsume the remenant ok if you  don't care 
just put a  
	to end
there

You can either put your parse in a catch [] and throw a true if not 
flowtext 
or something like this
parse/all/case test-text [
	some [

   copy camelcase-word [upper-case some rest-chars upper-case any rest-chars] 
   (
		 	if not empty? text [?? text clear text]
		 	print ["CamelCase word found:" camelcase-word]
		)

  | copy flowtext [some [rest-chars | upper-case] any delimiters] (
			append text flowtext
		)
		| copy flowtext [some delimiters] (
			append text flowtext
		)
	] to end
]

addendum/corrected
	] to end (if not empty? text [?? text])

getting the following error  when running Didec's delete email script 
against a mailbox with large number of emails (250+):internal limit 
reached: parse
Near: [parse data maillist
   addr-list]
Where: parse-mail-list

is this a rebol internal limit of should i start debugging?

probably a parse limitation

I think I've opened up mailboxes with over 400 emails before using 
Cerebrus' mailbox manager with no problems

oh well. thanks :)

what you could do, is extract Didier's implementation of the TOP 
command, and then get the first line of each header in your mailbox. 
 If it has the return-path set to <>, then note it in a list.  When 
finished, go thru and issue deletes on all of those.

thanks! I'll have a look at that.

is the To: line very, very long? there's a recursion limit in the 
parser for the address list. since you are probably not interested 
in parsing the To: header, maybe you can disable it in import-email.

Hmm... my parse still not termines the 'some part. I never reach 
the end. The problem is that the rest of the string is "" and this 
seems not to be handled.

Ok, got it. Now it works.

newby here: can anyone direct me to a sample of  code which matches 
a pattern over multiple text lines? I need to process a 5MB text 
file and remove all patterns of multiple consecutive email address 
es eg. [foo-:-my-:-com]; [foou-:-you-:-net] except the multiple email address 
string spans mulitple lines. Thanks for any pointers

and the multiple email address string occurs multiple times ;)

Michael, this is going to be a very general response to your request. 
 Review setting up parse rules and use something like...
   parse text any [rule1 | rule2 | rule3]

Here's some Parse documentation from the Rebol/Core guide to get 
you started.  Share your progress and questions, maybe a line of 
sample data or two and maybe I can be of more help.

link would help!!!   http://www.rebol.com/docs/core23/rebolcore-15.html

thanks Brock.. I wound up doing it in Perl, as I'm more familiar 
with it's regex support. The problem always seems I'm in a hurry 
with crisis response which is not a good learning environment ;)

Sometimes it helps to parse in two steps. a loop for each line-group 
and parsing that group seperately. becaus ethen 'to/'thru work better.

Can anyone give me some insight on how to use Brett's visual parse 
tools?

Can somebody explain me why 'parse fails in the first case and returns 
true in the second case ?

r: [any into ['a (print 'a)]]
t: [[a][a][a]]
print parse t r 
->
a
a
a
false

r: [any [into ['a (print 'a)]]]
print parse t r 
->
a
a
a
true 


In the second 'r(ule) the additional [ ] make it kind of explicit, 
but shouldn't return the first version true as well ? Am I forgeting 
something what 'parse "thinks" when looking at the first 'r(ules) 
? Thanks for hints. :-)

this really looks like violating the principle of the least surprise, 
I suggest you to submit it to Rambo

MichaelB, It is a parse bug for me.

As Ladislav suggested, I put it to Rambo. Thanks.

I have CSV file and I have trouble using parse one-liner. The case 
is, that I export tel. list from Lotus Notes, then I save it in Excel 
into .csv for rebol to run thru. I wanted to use:

foreach line ln-tel-list [append result parse/all line ";"]


... and I expected all lines having 7 elements. However - once last 
column is missing, that row is incorrect, as rebol parse will not 
add empty "" at the end. That is imo a bug ...

btw, why /all? shouldn't excel surround elements with spaces with 
quotes?

anyway, is it really a problem that the last column is missing?

I used csv = semicolon separated values and no quotes in-there ...

yes, it is, as I expect all lines having 7 elements ... once there 
is not such an element, I can't loop thru result ... well, one condition 
will probably solve it, but imo it is a gug .... rebol identifies 
;; and puts "" inthere, but csv, at the end, will use "value;", and 
rebol does not count that ...

gug = bug :-)

hmm, either use append/only, or as you say add it manually. submit 
this example to rambo if you think it's a bug.

append/only will not help, result of parse will varry, and it should 
not ...

I will put that in RAMBO then ...

append/only will, because pick returns none if a column is not present, 
and set works with that too

but I like to use flat structure and foreach [real name of vars here], 
so I need consistent record length :-)

i do too usually, just suggesting an alternative :-)

hmm, if (length? tmp) <> 7 [append tmp ""] will hopefully help :-)

Pekr for now, just add an extra "," as you parse each row. That will 
give you a consistent length with the current behaviour

oh no, I am at the ends ... so bye bye beautifull oneliners ... I 
just found item which contains set of quotes :-) rebol will not translate 
that and my block is confused once again :-)

foreach line ln-tel-list [append result parse/all join line ";" ";"]

damned, I will delete that contact and I will be done ;-) One contact 
from 3 000 does not count, even if that is secreatery of general 
director :-)

thanks allen, might work ....

but still - should I fill RAMBO bug? Imo rebol should add empty quotes 
automatically, if the line ends with ;

Put it in for Carl to decide. Mention the work around too

why are following quotes causing a trouble? I did not ask rebol to 
take them into accout?

parse/all {test1    ;test2;"test3   "quoted""} ";"

["test1     " "test2" "test 3 " {quoted""}]

that is really completly weird ...

the only delimiter I asked rebol to use was semicolon, so everything 
following test2; should be one element ...

That's a good one for the parse/all test suite. Rambo it.

; same bug again here too.
parse/all {a: b ":" c} ":"
== ["a" { b "} " c"]

OK, submitting ...