blob: 5aaab71bd76bef34d2f80cd5a09aa58f65480e9c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
# file : CCF/IDL2/SemanticGraph/Fundamental.m4
# author : Boris Kolpackov <boris@dre.vanderbilt.edu>
# cvs-id : $Id$
define(`upcase', `translit(`$*', `a-z', `A-Z')')
define(`capitalize_word',
`regexp(`$1', `^\(.\)\(.*\)', `upcase(`\1')`\2'')')
define(`capitalize',
`patsubst(`$1', `\w+', `capitalize_word(`\&')')')
define(`make_class_name', `patsubst(capitalize(`$1'), ` ')')
define(`make_var_name', `patsubst(`$1', ` ', `_')')
|
