27 lines
639 B
Plaintext
27 lines
639 B
Plaintext
define('uc(str)') :(uc_end)
|
|
uc uc = replace(str,&lcase,&ucase) :(return)
|
|
uc_end
|
|
|
|
define('lc(str)') :(lc_end)
|
|
lc lc = replace(str,&ucase,&lcase) :(return)
|
|
lc_end
|
|
|
|
define('ucfirst(str)ch') :(ucfirst_end)
|
|
ucfirst str len(1) . ch = uc(ch)
|
|
ucfirst = str :(return)
|
|
ucfirst_end
|
|
|
|
define('swapc(str)') :(swapc_end)
|
|
swapc str = replace(str,&ucase &lcase, &lcase &ucase)
|
|
swapc = str :(return)
|
|
swapc_end
|
|
|
|
* # Test and display
|
|
str = 'alphaBETA'
|
|
output = str
|
|
output = lc(str)
|
|
output = uc(str)
|
|
output = ucfirst(str)
|
|
output = swapc(str)
|
|
end
|