| 1 | #!/usr/bin/env python | 
|---|
| 2 |  | 
|---|
| 3 | import os, Logs | 
|---|
| 4 | from samba_utils import MODE_755 | 
|---|
| 5 |  | 
|---|
| 6 | # This function checks if a perl module is installed on the system. | 
|---|
| 7 | def check_system_perl_module(conf, module, version=None): | 
|---|
| 8 | bundle_name = module.replace('::', '_') | 
|---|
| 9 | module_check = module | 
|---|
| 10 |  | 
|---|
| 11 | # Create module string with version | 
|---|
| 12 | if version: | 
|---|
| 13 | module_check = module + ' ' + str(version) | 
|---|
| 14 |  | 
|---|
| 15 | # Check if we have to bundle it. | 
|---|
| 16 | if conf.LIB_MUST_BE_BUNDLED(bundle_name.lower()): | 
|---|
| 17 | return False | 
|---|
| 18 |  | 
|---|
| 19 | # Check for system perl module | 
|---|
| 20 | if not conf.check_perl_module(module_check): | 
|---|
| 21 | return False | 
|---|
| 22 |  | 
|---|
| 23 | conf.define('USING_SYSTEM_%s' % bundle_name.upper(), 1) | 
|---|
| 24 |  | 
|---|
| 25 | return True | 
|---|
| 26 |  | 
|---|
| 27 | def set_options(opt): | 
|---|
| 28 | return | 
|---|
| 29 |  | 
|---|
| 30 | def configure(conf): | 
|---|
| 31 | # Check if perl(Parse::Yapp::Driver) is available. | 
|---|
| 32 | check_system_perl_module(conf, "Parse::Yapp::Driver", 1.05) | 
|---|
| 33 |  | 
|---|
| 34 | # we need a recent version of MakeMaker to get the right man page names | 
|---|
| 35 | if conf.CHECK_PERL_MANPAGE(): | 
|---|
| 36 | conf.env.PERLMAN1EXT = conf.CHECK_PERL_MANPAGE(section='1') | 
|---|
| 37 | conf.env.PERLMAN3EXT = conf.CHECK_PERL_MANPAGE(section='3') | 
|---|
| 38 | conf.DEFINE('HAVE_PERL_MAKEMAKER', 1) | 
|---|
| 39 |  | 
|---|
| 40 | # yapp is used for building the parser | 
|---|
| 41 | conf.find_program('yapp', var='YAPP') | 
|---|
| 42 | conf.find_program('pod2man', var='POD2MAN') | 
|---|
| 43 |  | 
|---|
| 44 | def build(bld): | 
|---|
| 45 | bld.INSTALL_FILES('${BINDIR}', 'pidl', chmod=MODE_755, perl_fixup=True) | 
|---|
| 46 |  | 
|---|
| 47 | bld.RECURSE('lib') | 
|---|
| 48 |  | 
|---|
| 49 | if not bld.CONFIG_SET('HAVE_PERL_MAKEMAKER'): | 
|---|
| 50 | return | 
|---|
| 51 |  | 
|---|
| 52 | pidl_manpages = { | 
|---|
| 53 | 'pidl': 'man1/pidl.${PERLMAN1EXT}', | 
|---|
| 54 | 'lib/Parse/Pidl/NDR.pm': 'man3/Parse::Pidl::NDR.${PERLMAN3EXT}', | 
|---|
| 55 | 'lib/Parse/Pidl/Wireshark/Conformance.pm': 'man3/Parse::Pidl::Wireshark::Conformance.${PERLMAN3EXT}', | 
|---|
| 56 | 'lib/Parse/Pidl/Dump.pm': 'man3/Parse::Pidl::Dump.${PERLMAN3EXT}', | 
|---|
| 57 | 'lib/Parse/Pidl/Util.pm': 'man3/Parse::Pidl::Util.${PERLMAN3EXT}', | 
|---|
| 58 | 'lib/Parse/Pidl/Wireshark/NDR.pm': 'man3/Parse::Pidl::Wireshark::NDR.${PERLMAN3EXT}' | 
|---|
| 59 | } | 
|---|
| 60 |  | 
|---|
| 61 | for k, v in pidl_manpages.iteritems(): | 
|---|
| 62 | pidl_manpages[k] = bld.EXPAND_VARIABLES(v) | 
|---|
| 63 |  | 
|---|
| 64 | # use perl to build the manpages | 
|---|
| 65 | bld.env.pidl_srcdir = os.path.join(bld.srcnode.abspath(), 'pidl') | 
|---|
| 66 |  | 
|---|
| 67 | bld.SET_BUILD_GROUP('final') | 
|---|
| 68 | if 'POD2MAN' in bld.env and bld.env['POD2MAN'] != '': | 
|---|
| 69 | for src, manpage in pidl_manpages.iteritems(): | 
|---|
| 70 | bld(rule='${POD2MAN} -c "Samba Documentation" ${SRC} ${TGT}', | 
|---|
| 71 | shell=True, | 
|---|
| 72 | source=src, | 
|---|
| 73 | install_path=os.path.dirname(bld.EXPAND_VARIABLES('${MANDIR}/'+manpage)), | 
|---|
| 74 | target=os.path.basename(manpage)) | 
|---|
| 75 |  | 
|---|
| 76 | # we want to prefer the git version of the parsers if we can. | 
|---|
| 77 | # Only if the source has changed do we want to re-run yapp | 
|---|
| 78 | # But we force the developer to use the pidl standalone build | 
|---|
| 79 | # to regenerate the files. | 
|---|
| 80 | # TODO: only warn in developer mode and if 'git diff HEAD' | 
|---|
| 81 | #       shows a difference | 
|---|
| 82 | warn_about_grammar_changes = ('PIDL_BUILD_WARNINGS' in bld.env and ( | 
|---|
| 83 | bld.IS_NEWER('idl.yp', 'lib/Parse/Pidl/IDL.pm') or | 
|---|
| 84 | bld.IS_NEWER('expr.yp', 'lib/Parse/Pidl/Expr.pm'))) | 
|---|
| 85 |  | 
|---|
| 86 | if warn_about_grammar_changes: | 
|---|
| 87 | Logs.warn(''' | 
|---|
| 88 | Pidl grammar files have changed. Please use the pidl standalone build | 
|---|
| 89 | to regenerate them with yapp. | 
|---|
| 90 |  | 
|---|
| 91 | $ cd ../pidl | 
|---|
| 92 | $ perl Makefile.PL | 
|---|
| 93 | $ make lib/Parse/Pidl/IDL.pm lib/Parse/Pidl/Expr.pm | 
|---|
| 94 | $ git add lib/Parse/Pidl/IDL.pm lib/Parse/Pidl/Expr.pm | 
|---|
| 95 | $ git commit | 
|---|
| 96 | $ cd - | 
|---|
| 97 |  | 
|---|
| 98 | If your 100% sure you haven't changed idl.yp and expr.yp | 
|---|
| 99 | try this to avoid this message: | 
|---|
| 100 |  | 
|---|
| 101 | $ touch ../pidl/lib/Parse/Pidl/IDL.pm ../pidl/lib/Parse/Pidl/Expr.pm | 
|---|
| 102 | ''') | 
|---|
| 103 |  | 
|---|