diff options
Diffstat (limited to 'examples/capitalize.m4')
| -rw-r--r-- | examples/capitalize.m4 | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/examples/capitalize.m4 b/examples/capitalize.m4 new file mode 100644 index 0000000..d4e4a50 --- /dev/null +++ b/examples/capitalize.m4 @@ -0,0 +1,12 @@ +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 |