home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / bbs / gnu / m4-1.1-src.lha / src / amiga / m4-1.1 / examples / capitalize.m4 next >
Encoding:
M4 Source File  |  1990-11-09  |  332 b   |  9 lines
  1. dnl
  2. dnl convert to upper- resp. lowercase
  3. define(`upcase', `translit(`$*', `a-z', `A-Z')')
  4. define(`downcase', `translit(`$*', `A-Z', `a-z')')
  5. dnl
  6. dnl capitalize a single word
  7. define(`capitalize1', `regexp(`$1', `^\(\w\)\(\w*\)', `upcase(`\1')`'downcase(`\2')')')
  8. define(`capitalize', `patsubst(`$1', `\w+', ``'capitalize1(`\0')')')
  9.