aboutsummaryrefslogtreecommitdiff
path: root/xsd-frontend/semantic-graph/fundamental.m4
blob: 4f4506dde59b4519fcd498a26a7bef384122ad50 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
# file      : xsd-frontend/semantic-graph/fundamental.m4
# copyright : Copyright (c) 2005-2011 Code Synthesis Tools CC
# license   : GNU GPL v2 + exceptions; see accompanying LICENSE file

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', ` ', `_')')