CVSROOT: /sources/m4 Module name: m4 Changes by: Eric Blake <ericb> 07/10/02 22:20:03
Index: examples/capitalize.m4 =================================================================== RCS file: /sources/m4/m4/examples/capitalize.m4,v retrieving revision 1.1.1.2 retrieving revision 1.2 diff -u -b -r1.1.1.2 -r1.2 --- examples/capitalize.m4 17 Feb 2000 03:09:47 -0000 1.1.1.2 +++ examples/capitalize.m4 2 Oct 2007 22:20:02 -0000 1.2 @@ -1,11 +1,12 @@ -dnl -dnl convert to upper- resp. lowercase +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')') -upcase(`Convert to upper case') -downcase(`Convert To LOWER Case') -dnl -dnl capitalize a single word -define(`capitalize1', `regexp(`$1', `^\(\w\)\(\w*\)', `upcase(`\1')`'downcase(`\2')')') -define(`capitalize', `patsubst(`$1', `\w+', ``'capitalize1(`\&')')') -capitalize(`This sentence should be capitalized') +define(`_capitalize', + `regexp(`$1', `^\(\w\)\(\w*\)', + `upcase(`\1')`'downcase(`\2')')') +define(`capitalize', `patsubst(`$1', `\w+', `_$0(`\&')')') +divert`'dnl
