examples/capitalize.m4

   1 divert(`-1')
   2 # upcase(text)
   3 # downcase(text)
   4 # capitalize(text)
   5 #   change case of text, simple version
   6 define(`upcase', `translit(`$*', `a-z', `A-Z')')
   7 define(`downcase', `translit(`$*', `A-Z', `a-z')')
   8 define(`_capitalize',
   9        `regexp(`$1', `^\(\w\)\(\w*\)',
  10                `upcase(`\1')`'downcase(`\2')')')
  11 define(`capitalize', `patsubst(`$1', `\w+', `_$0(`\&')')')
  12 divert`'dnl