Monday, November 08, 2010 at 12:05 AM.
system.verbs.builtins.string.innerCaseName
on innerCaseName (name) {
<<Thursday, November 11, 1999 at 2:55:38 AM by AR
<<Implemented as a kernel verb in Frontier 6.1.
<<Old code
<<on innerCaseName (name)
<<local (len, i, ch)
<<name = string.lower (name)
<<name = string.popTrailing (name, ' ')
<<name = string.popLeading (name, ' ')
<<len = sizeOf (name)
<<for i = len downto 1
<<ch = name [i]
<<if ch == ' '
<<name = string.delete (name, i, 1)
<<ch = string.upper (name [i])
<<name = string.delete (name, i, 1)
<<name = string.insert (ch, name, i)
<<return (name)
kernel (string.innerCaseName)}
This listing is for code that runs in the OPML Editor environment. I created these listings because I wanted the search engines to index it, so that when I want to look up something in my codebase I don't have to use the much slower search functionality in my object database. Dave Winer.