Add support for case conversion characters in regex substitutions.

Allow using Perl-like \l, \L, \u, \U and \E escape sequences in the
substitution string used with %rename("%(regex:/pattern/subst/)s").
This is useful for e.g. title casing all string after removing some prefix.

Closes #82
This commit is contained in:
Vadim Zeitlin 2013-08-30 17:01:01 +02:00 • committed by William S Fulton
commit 72afb74f47
7 changed files with 108 additions and 21 deletions

View file

@ -3,9 +3,14 @@
// strip the wx prefix from all identifiers except those starting with wxEVT
%rename("%(regex:/wx(?!EVT)(.*)/\\1/)s") "";
// Replace "Set" and "Get" prefixes with "put" and "get" respectively.
%rename("%(regex:/^Set(.*)/put\\1/)s", %$isfunction) "";
%rename("%(regex:/^Get(.*)/get\\1/)s", %$isfunction) "";
// Change "{Set,Get}Foo" naming convention to "{put,get}_foo" one.
%rename("%(regex:/^Set(.*)/put_\\l\\1/)s", %$isfunction) "";
%rename("%(regex:/^Get(.*)/get_\\l\\1/)s", %$isfunction) "";
// Make some words stand out (unfortunately we don't have "global" flag): we
// use \U to capitalize the second capture group and then \E to preserve the
// case of the rest.
%rename("%(regex:/(.*?)(nsa)(.*?)\\2(.*?)\\2(.*?)\\2(.*)/\\1\\U\\2\\E\\3\\U\\2\\E\\4\\U\\2\\E\\5\\U\\2\\E\\6/)s") "";
%inline %{
@ -28,4 +33,6 @@ class wxEVTSomeEvent {
class xUnchangedName {
};
inline int StartInsaneAndUnsavoryTransatlanticRansack() { return 42; }
%}