[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Changes to m4/examples/capitalize.m4,v
From: |
Eric Blake |
Subject: |
Changes to m4/examples/capitalize.m4,v |
Date: |
Tue, 02 Oct 2007 22:20:04 +0000 |
CVSROOT: /sources/m4
Module name: m4
Changes by: Eric Blake <ericb> 07/10/02 22:20:03
Index: examples/capitalize.m4
===================================================================
RCS file: /sources/m4/m4/examples/capitalize.m4,v
retrieving revision 1.1.1.2
retrieving revision 1.2
diff -u -b -r1.1.1.2 -r1.2
--- examples/capitalize.m4 17 Feb 2000 03:09:47 -0000 1.1.1.2
+++ examples/capitalize.m4 2 Oct 2007 22:20:02 -0000 1.2
@@ -1,11 +1,12 @@
-dnl
-dnl convert to upper- resp. lowercase
+divert(`-1')
+# upcase(text)
+# downcase(text)
+# capitalize(text)
+# change case of text, simple version
define(`upcase', `translit(`$*', `a-z', `A-Z')')
define(`downcase', `translit(`$*', `A-Z', `a-z')')
-upcase(`Convert to upper case')
-downcase(`Convert To LOWER Case')
-dnl
-dnl capitalize a single word
-define(`capitalize1', `regexp(`$1', `^\(\w\)\(\w*\)',
`upcase(`\1')`'downcase(`\2')')')
-define(`capitalize', `patsubst(`$1', `\w+', ``'capitalize1(`\&')')')
-capitalize(`This sentence should be capitalized')
+define(`_capitalize',
+ `regexp(`$1', `^\(\w\)\(\w*\)',
+ `upcase(`\1')`'downcase(`\2')')')
+define(`capitalize', `patsubst(`$1', `\w+', `_$0(`\&')')')
+divert`'dnl
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- Changes to m4/examples/capitalize.m4,v,
Eric Blake <=