Posted by slebetman@yahoo.com on 04/21/06 22:22

slebetman@yahoo.com wrote:
> comp.lang.tcl wrote:
> > Gerald W. Lester wrote:
> > > Bryan Oakley wrote:
> > > > comp.lang.tcl wrote:
> > > >> Sorry, there is no further description I can give you. tclsh locks,
> > > >> produces 100% CPU usage when you view via top, no error logs of any
> > > >> kind.
> > > >>
> > > >> Here is PROPER_CASE:
> > > >> <snip>
> > > >
> > >
> > > It does a *little* more than [string totitle $string] -- it ignores two
> > > letter state "names" -- but not much.
> > >
> >
> > Last I checked [string totitle] doesn't capitalize hyphenated names,
> > Scots/Irish/Dutch names, etc.

Oops, forgot about another thing the original code did. Add this rule
to the code I previously submitted:

proc uppercaseFormat {word} {
if {[string toupper $word] == $word} {return $word}
return ""
}

[Back to original message]