About

The wasWordsToUpper function takes as input a sequence of token-delimited words and changes the case of each word to uppercase and returns the resulting modified sequence.

For example:

Say wasWordsToUpper('Search/For/Me', '/')

will output: SEARCH/FOR/ME

Code

/*************************************************************************/
/*    Copyright (C) 2015 Wizardry and Steamworks - License: GNU GPLv3    */
/*************************************************************************/
wasWordsToUpper: procedure /* Makes all words uppercase.                 */
    Parse ARG String,Token
    If String = '' Then Return ''
    Parse VAR String Head Interpret(Token) Tail
    Look = wasWordsToUpper(Tail,Token)
    If Look ~= '' Then Return Upper(Head) || Token || wasWordsToUpper(Look)
Return Upper(Head)