587d843521
They are replaced with the new, officially supported PCRE-based regex and regexmatch. git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@12175 626c5289-ae23-0410-ae9c-e8d60b6d4f22
68 lines
1.1 KiB
OpenEdge ABL
68 lines
1.1 KiB
OpenEdge ABL
%module rename_camel
|
|
|
|
%rename("%(utitle)s",%$isfunction,%$ismember) "";
|
|
%rename("%(ctitle)s",%$isvariable,%$ismember) "";
|
|
|
|
%inline {
|
|
struct GeometryFactory
|
|
{
|
|
void createPointFromInternalCoord(int);
|
|
void BIG_METHOD(int);
|
|
};
|
|
|
|
class ByteOrderValues {
|
|
|
|
public:
|
|
void readHEX();
|
|
static int ENDIAN_BIG;
|
|
};
|
|
|
|
}
|
|
|
|
|
|
%define SedCmd "%(command:sed -e 's/\([a-z]\)/\U\\1/' -e 's/\(_\)\([a-z]\)/\U\\2/g' <<<)s" %enddef
|
|
|
|
%rename(CamelCase1) camel_case_1;
|
|
%rename(SedCmd) camel_case_2;
|
|
%rename("%(ctitle)s") camel_case_3;
|
|
|
|
|
|
%rename("%(utitle)s") CamelCase_5;
|
|
|
|
%define awk_cmd "%(command:awk '/^i/{print toupper($1)}' <<<)s" %enddef
|
|
|
|
%rename(awk_cmd) "";
|
|
|
|
%rename("%(title)s",regexmatch$parentNode$type="enum .*") "";
|
|
|
|
%inline
|
|
{
|
|
int camel_case_1(int);
|
|
int camel_case_2(int);
|
|
int camel_case_3(int);
|
|
int camel_case_4(int);
|
|
int camel_case(int);
|
|
int CamelCase_5(int);
|
|
int also_works_here(int);
|
|
|
|
enum HelloEnum {
|
|
hello, hi_there
|
|
};
|
|
|
|
|
|
enum ChaoEnum {
|
|
bye, see_you
|
|
};
|
|
|
|
int import(int);
|
|
int foo(int);
|
|
|
|
}
|
|
|
|
%rename("%(lowercase)s",sourcefmt="%(regex:/GSL_(.*)/\\1/)s",%$isfunction) "";
|
|
%inline {
|
|
void GSL_Hello() {}
|
|
}
|
|
|
|
|
|
|