diff options
Diffstat (limited to 'checks/57.patsubst')
| -rw-r--r-- | checks/57.patsubst | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/checks/57.patsubst b/checks/57.patsubst new file mode 100644 index 00000000..36f0f315 --- /dev/null +++ b/checks/57.patsubst @@ -0,0 +1,9 @@ +dnl ../doc/m4.texinfo:2898: Origin of test +define(`upcase', `translit(`$*', `a-z', `A-Z')')dnl +define(`downcase', `translit(`$*', `A-Z', `a-z')')dnl +define(`capitalize1', + `regexp(`$1', `^\(\w\)\(\w*\)', `upcase(`\1')`'downcase(`\2')')')dnl +define(`capitalize', + `patsubst(`$1', `\w+', `capitalize1(`\&')')')dnl +capitalize(`GNUs not Unix') +dnl @result{}Gnus Not Unix |