[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Changes to examples/capitalize2.m4 [branch-1_4]
From: |
Eric Blake |
Subject: |
Changes to examples/capitalize2.m4 [branch-1_4] |
Date: |
Tue, 02 Oct 2007 22:07:24 +0000 |
CVSROOT: /sources/m4
Module name: m4
Branch: branch-1_4
Changes by: Eric Blake <ericb> 07/10/02 22:07:23
Index: examples/capitalize2.m4
===================================================================
RCS file: examples/capitalize2.m4
diff -N examples/capitalize2.m4
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ examples/capitalize2.m4 2 Oct 2007 22:07:23 -0000 1.1.2.1
@@ -0,0 +1,19 @@
+divert(`-1')
+# upcase(text)
+# downcase(text)
+# capitalize(text)
+# change case of text, improved version
+define(`upcase', `translit(`$*', `a-z', `A-Z')')
+define(`downcase', `translit(`$*', `A-Z', `a-z')')
+define(`_arg1', `$1')
+define(`_to_alt', `changequote(`<<[', `]>>')')
+define(`_from_alt', `changequote(<<[`]>>, <<[']>>)')
+define(`_upcase_alt', `translit(<<[$*]>>, <<[a-z]>>, <<[A-Z]>>)')
+define(`_downcase_alt', `translit(<<[$*]>>, <<[A-Z]>>, <<[a-z]>>)')
+define(`_capitalize_alt',
+ `regexp(<<[$1]>>, <<[^\(\w\)\(\w*\)]>>,
+ <<[_upcase_alt(<<[<<[\1]>>]>>)_downcase_alt(<<[<<[\2]>>]>>)]>>)')
+define(`capitalize',
+ `_arg1(_to_alt()patsubst(<<[<<[$*]>>]>>, <<[\w+]>>,
+ _from_alt()`]>>_$0_alt(<<[\&]>>)<<['_to_alt())_from_alt())')
+divert`'dnl
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- Changes to examples/capitalize2.m4 [branch-1_4],
Eric Blake <=