diff options
Diffstat (limited to 'source4/build/pidl/typelist.pm')
| -rw-r--r-- | source4/build/pidl/typelist.pm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/source4/build/pidl/typelist.pm b/source4/build/pidl/typelist.pm index 2d38d1f18d..432497f9f6 100644 --- a/source4/build/pidl/typelist.pm +++ b/source4/build/pidl/typelist.pm @@ -22,6 +22,15 @@ sub getType($) return $typedefs{$t}; } +sub typeIs($$) +{ + my $t = shift; + my $tt = shift; + + return 1 if (hasType($t) and getType($t)->{DATA}->{TYPE} eq $tt); + return 0; +} + sub hasType($) { my $t = shift; |