diff options
| author | Eric Blake <eblake@redhat.com> | 2021-05-07 14:47:04 -0500 |
|---|---|---|
| committer | Eric Blake <eblake@redhat.com> | 2021-05-07 14:47:04 -0500 |
| commit | 0b98fb45910bba58a0a64192443b1d71fbf19ecf (patch) | |
| tree | 7c751929d43352234572cfe4d770c944b7c9b2c8 /doc/examples/capitalize2.m4 | |
| parent | d69fa5284851b2b7aac25ffac638b6b379994db5 (diff) | |
| download | m4-0b98fb45910bba58a0a64192443b1d71fbf19ecf.tar.gz | |
maint: Redirect developers to active branch
_This_ branch does not contain actively-developed code. More likely,
you want to check out branch-1.4 (latest stable), branch-1.6 (some
speedups over 1.4, but not yet released), or branch-2.0 (many more
experimental changes, and even further from release).
* README: Document the status of this git repository.
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 |