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:
parent
669a27bb7b
commit
72afb74f47
7 changed files with 108 additions and 21 deletions
|
|
@ -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; }
|
||||
|
||||
%}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue