1 dnl @ ../doc/m4.texi:6008: Origin of test
2 dnl @ expected status: 0
4 dnl @ Copyright (C) 2006, 2007, 2008, 2009 Free Software
6 dnl @ This file is free software; the Free Software Foundation
7 dnl @ gives unlimited permission to copy and/or distribute it
8 dnl @ with or without modifications, as long as this notice
10 undivert(`capitalize.m4')dnl
11 dnl @result{}divert(`-1')
12 dnl @result{}# upcase(text)
13 dnl @result{}# downcase(text)
14 dnl @result{}# capitalize(text)
15 dnl @result{}# change case of text, simple version
16 dnl @result{}define(`upcase', `translit(`$*', `a-z', `A-Z')')
17 dnl @result{}define(`downcase', `translit(`$*', `A-Z', `a-z')')
18 dnl @result{}define(`_capitalize',
19 dnl @result{} `regexp(`$1', `^\(\w\)\(\w*\)',
20 dnl @result{} `upcase(`\1')`'downcase(`\2')')')
21 dnl @result{}define(`capitalize', `patsubst(`$1', `\w+', `_$0(`\&')')')
22 dnl @result{}divert`'dnl