13 lines
385 B
Plaintext
13 lines
385 B
Plaintext
divert(`-1')
|
|
# upcase(text)
|
|
# downcase(text)
|
|
# capitalize(text)
|
|
# change case of text, simple version
|
|
define(`upcase', `translit(`$*', `a-z', `A-Z')')
|
|
define(`downcase', `translit(`$*', `A-Z', `a-z')')
|
|
define(`_capitalize',
|
|
`regexp(`$1', `^\(\w\)\(\w*\)',
|
|
`upcase(`\1')`'downcase(`\2')')')
|
|
define(`capitalize', `patsubst(`$1', `\w+', `_$0(`\&')')')
|
|
divert`'dnl
|