← Back to branch summary

~ubuntu-branches/ubuntu/gutsy/m4/gutsy

« back to all changes in this revision

Viewing changes to checks/135.patsubst

  • Committer: Bazaar Package Importer
  • Author(s): Matthias Klose
  • Date: 2007-08-01 14:00:55 UTC
  • mfrom: (1.5.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20070801140055-ob48jo517shsyvgk
Tags: 1.4.10-0ubuntu1
New upstream version.

Show diffs side-by-side

added added

removed removed

Lines of Context:
checks/135.patsubst
 
1
dnl @ ../doc/m4.texinfo:4837: Origin of test
 
2
dnl @ expected status: 0
 
3
dnl @ extra options: 
 
4
dnl @ Copyright (C) 2006, 2007 Free Software Foundation
 
5
dnl @ This file is free software; the Free Software Foundation
 
6
dnl @ gives unlimited permission to copy and/or distribute it
 
7
dnl @ with or without modifications, as long as this notice
 
8
dnl @ is preserved.
 
9
define(`upcase', `translit(`$*', `a-z', `A-Z')')dnl
 
10
define(`downcase', `translit(`$*', `A-Z', `a-z')')dnl
 
11
define(`capitalize1',
 
12
       `regexp(`$1', `^\(\w\)\(\w*\)',
 
13
               `upcase(`\1')`'downcase(`\2')')')dnl
 
14
define(`capitalize',
 
15
       `patsubst(`$1', `\w+', `capitalize1(`\&')')')dnl
 
16
capitalize(`GNUs not Unix')
 
17
dnl @result{}Gnus Not Unix