diff options
Diffstat (limited to 'doc/examples/capitalize2.m4')
-rw-r--r-- | doc/examples/capitalize2.m4 | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/doc/examples/capitalize2.m4 b/doc/examples/capitalize2.m4 deleted file mode 100644 index 154dc505..00000000 --- a/doc/examples/capitalize2.m4 +++ /dev/null @@ -1,19 +0,0 @@ -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 |