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

Added type compare function

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@513 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2000-07-03 04:36:14 +00:00
commit 3df14968ba
2 changed files with 33 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

34
Source/Swig/stype.c
View file

@ -384,7 +384,6 @@ int SwigType_isqualifier(DOHString_or_char *t) {
DOHString *SwigType_base(DOHString *t) {
char *c, *d;
assert(DohIsString(t));
c = Char(t);
d = c + strlen(c);
while (d > c) {
@ -677,6 +676,35 @@ int SwigType_istypedef(DOHString_or_char *t) {
return 0;
}
/* -----------------------------------------------------------------------------
* SwigType_cmp()
*
* Compares two type-strings using all available typedef information. Returns 0
* if equal, 1 if not.
* ----------------------------------------------------------------------------- */
int SwigType_cmp(DOHString_or_char *tpat, DOHString_or_char *type) {
DOHString *r, *s;
char *p, *t;
p = Char(tpat);
t = Char(type);
if (strcmp(p,t) == 0) return 0;
r = SwigType_typedef_resolve(type);
while (r) {
t = Char(r);
if (strcmp(p,t) == 0) {
Delete(r);
return 0;
}
s = SwigType_typedef_resolve(r);
Delete(r);
r = s;
}
return 1;
}
#ifdef DEBUG
int main() {
@ -692,8 +720,10 @@ int main() {
Printf(stdout,"b = '%s'\n", b);
c = SwigType_typedef_resolve(b);
Printf(stdout,"c = '%s'\n", c);
Printf(stdout,"cmp = %d\n", SwigType_cmp("a(1000).p.p.int",b));
}
#endif

1
Source/Swig/swig.h
View file

@ -145,6 +145,7 @@ extern void SwigType_merge_scope(DOHHash *scope, DOHString_or_char *prefi
extern DOHHash *SwigType_pop_scope();
extern DOHString *SwigType_typedef_resolve(DOHString_or_char *t);
extern int SwigType_istypedef(DOHString_or_char *t);
extern int SwigType_cmp(DOHString_or_char *pat, DOHString_or_char *t);
/* --- Parse tree support --- */