jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Using the unused 'Swig_string_mangle' method to

Browse source 
implement the #@ preprocessor mangling


git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@5751 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Marcelo Matus 2004-03-17 08:27:02 +00:00
commit a95c468076
1 changed files with 52 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

52
Source/Swig/misc.c
View file

@ -196,6 +196,7 @@ String *Swig_string_typecode(String *s) {
* ----------------------------------------------------------------------------- */
String *Swig_string_mangle(String *s) {
#if 0
String *t = Copy(s);
char *c = Char(t);
while (*c) {
@ -203,6 +204,57 @@ String *Swig_string_mangle(String *s) {
c++;
}
return t;
#else
char *pc;
String *b = Copy(s);
if (SwigType_istemplate(b)) {
String *t = SwigType_namestr(b);
Delete(b);
b = t ;
}
pc = Char(b);
String *result = NewString("");
int space = 0;
int state = 0;
while (*pc) {
char c = *pc;
if (isalnum((int)c)) {
state = 1;
if (space && (space == state)) {
Printf(result,"_b");
}
space = 0;
Printf(result,"%c",c);
} else {
if (isspace((int)c)) {
space = state;
++pc;
continue;
} else {
state = 3;
space = 0;
}
if (c == '*') c = 'p';
else if (c == '&') c = 'R';
else if (c == ':') c = 's';
else if (c == ',') c = 'c';
else if (c == '<') c = 't';
else if (c == '>') c = 'T';
else if (c == '[') c = 'a';
else if (c == ']') c = 'A';
else if (c == '(') c = 'f';
else if (c == ')') c = 'F';
if (isalpha((int)c)) {
Printf(result,"_%c",(int)c);
} else{
Printf(result,"_%02X",(int)c);
}
}
++pc;
}
Delete(b);
return result;
#endif
}
/* -----------------------------------------------------------------------------