r15260: Don't dereference NULL pointers to obtain array lengths - found by
[samba.git] / source / pidl / lib / Parse / Pidl / Samba4.pm
1 ###################################################
2 # Common Samba4 functions
3 # Copyright jelmer@samba.org 2006
4 # released under the GNU GPL
5
6 package Parse::Pidl::Samba4;
7
8 require Exporter;
9 @ISA = qw(Exporter);
10 @EXPORT = qw(is_intree choose_header);
11
12 use Parse::Pidl::Util qw(has_property);
13 use strict;
14
15 use vars qw($VERSION);
16 $VERSION = '0.01';
17
18 sub is_intree()
19 {
20         return -f "include/smb.h";
21 }
22
23 # Return an #include line depending on whether this build is an in-tree
24 # build or not.
25 sub choose_header($$)
26 {
27         my ($in,$out) = @_;
28         return "#include \"$in\"" if (is_intree());
29         return "#include <$out>";
30 }
31
32 1;