diff options
| author | Lorry Tar Creator <lorry-tar-importer@baserock.org> | 2013-09-22 07:04:10 +0000 |
|---|---|---|
| committer | <> | 2015-02-02 12:02:31 +0000 |
| commit | 23c11479b3ad787adc7a651ee0c4347839e47723 (patch) | |
| tree | 3aa9e1125da84f7e3bd764bbff577c42a766508b /examples/capitalize2.m4 | |
| download | m4-tarball-23c11479b3ad787adc7a651ee0c4347839e47723.tar.gz | |
Diffstat (limited to 'examples/capitalize2.m4')
| -rw-r--r-- | examples/capitalize2.m4 | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/examples/capitalize2.m4 b/examples/capitalize2.m4 new file mode 100644 index 0000000..154dc50 --- /dev/null +++ b/examples/capitalize2.m4 @@ -0,0 +1,19 @@ +divert(`-1') +# upcase(text) +# downcase(text) +# capitalize(text) +# change case of text, improved version +define(`upcase', `translit(`$*', `a-z', `A-Z')') +define(`downcase', `translit(`$*', `A-Z', `a-z')') +define(`_arg1', `$1') +define(`_to_alt', `changequote(`<<[', `]>>')') +define(`_from_alt', `changequote(<<[`]>>, <<[']>>)') +define(`_upcase_alt', `translit(<<[$*]>>, <<[a-z]>>, <<[A-Z]>>)') +define(`_downcase_alt', `translit(<<[$*]>>, <<[A-Z]>>, <<[a-z]>>)') +define(`_capitalize_alt', + `regexp(<<[$1]>>, <<[^\(\w\)\(\w*\)]>>, + <<[_upcase_alt(<<[<<[\1]>>]>>)_downcase_alt(<<[<<[\2]>>]>>)]>>)') +define(`capitalize', + `_arg1(_to_alt()patsubst(<<[<<[$*]>>]>>, <<[\w+]>>, + _from_alt()`]>>_$0_alt(<<[\&]>>)<<['_to_alt())_from_alt())') +divert`'dnl |