diff options
| author | Lorry Tar Creator <lorry-tar-importer@baserock.org> | 2013-09-22 07:04:10 +0000 |
|---|---|---|
| committer | <> | 2015-02-02 12:02:31 +0000 |
| commit | 23c11479b3ad787adc7a651ee0c4347839e47723 (patch) | |
| tree | 3aa9e1125da84f7e3bd764bbff577c42a766508b /checks/177.patsubst | |
| download | m4-tarball-master.tar.gz | |
Diffstat (limited to 'checks/177.patsubst')
| -rw-r--r-- | checks/177.patsubst | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/checks/177.patsubst b/checks/177.patsubst new file mode 100644 index 0000000..1dbadd1 --- /dev/null +++ b/checks/177.patsubst @@ -0,0 +1,22 @@ +dnl @ ../doc/m4.texi:6008: Origin of test +dnl @ expected status: 0 +dnl @ extra options: +dnl @ Copyright (C) 2006, 2007, 2008, 2009 Free Software +dnl @ Foundation, Inc. +dnl @ This file is free software; the Free Software Foundation +dnl @ gives unlimited permission to copy and/or distribute it +dnl @ with or without modifications, as long as this notice +dnl @ is preserved. +undivert(`capitalize.m4')dnl +dnl @result{}divert(`-1') +dnl @result{}# upcase(text) +dnl @result{}# downcase(text) +dnl @result{}# capitalize(text) +dnl @result{}# change case of text, simple version +dnl @result{}define(`upcase', `translit(`$*', `a-z', `A-Z')') +dnl @result{}define(`downcase', `translit(`$*', `A-Z', `a-z')') +dnl @result{}define(`_capitalize', +dnl @result{} `regexp(`$1', `^\(\w\)\(\w*\)', +dnl @result{} `upcase(`\1')`'downcase(`\2')')') +dnl @result{}define(`capitalize', `patsubst(`$1', `\w+', `_$0(`\&')')') +dnl @result{}divert`'dnl |