File: perl.py

package info (click to toggle)
pyinstaller 6.18.0%2Bds-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 11,824 kB
  • sloc: python: 41,828; ansic: 12,123; makefile: 171; sh: 131; xml: 19
file content (112 lines) | stat: -rw-r--r-- 3,446 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
#! /usr/bin/env python
# encoding: utf-8
# WARNING! Do not edit! https://waf.io/book/index.html#_obtaining_the_waf_file

import os
from waflib import Task, Options, Utils, Errors
from waflib.Configure import conf
from waflib.TaskGen import extension, feature, before_method


@before_method('apply_incpaths', 'apply_link', 'propagate_uselib_vars')
@feature('perlext')
def init_perlext(self):
    self.uselib = self.to_list(getattr(self, 'uselib', []))
    if not 'PERLEXT' in self.uselib:
        self.uselib.append('PERLEXT')
    self.env.cshlib_PATTERN = self.env.cxxshlib_PATTERN = self.env.perlext_PATTERN


@extension('.xs')
def xsubpp_file(self, node):
    outnode = node.change_ext('.c')
    self.create_task('xsubpp', node, outnode)
    self.source.append(outnode)


class xsubpp(Task.Task):
    run_str = '${PERL} ${XSUBPP} -noprototypes -typemap ${EXTUTILS_TYPEMAP} ${SRC} > ${TGT}'
    color = 'BLUE'
    ext_out = ['.h']


@conf
def check_perl_version(self, minver=None):
    res = True
    if minver:
        cver = '.'.join(map(str, minver))
    else:
        cver = ''
    self.start_msg('Checking for minimum perl version %s' % cver)
    perl = self.find_program('perl', var='PERL', value=getattr(Options.options, 'perlbinary', None))
    version = self.cmd_and_log(perl + ["-e", 'printf \"%vd\", $^V'])
    if not version:
        res = False
        version = "Unknown"
    elif not minver is None:
        ver = tuple(map(int, version.split(".")))
        if ver < minver:
            res = False
    self.end_msg(version, color=res and 'GREEN' or 'YELLOW')
    return res


@conf
def check_perl_module(self, module):
    cmd = self.env.PERL + ['-e', 'use %s' % module]
    self.start_msg('perl module %s' % module)
    try:
        r = self.cmd_and_log(cmd)
    except Errors.WafError:
        self.end_msg(False)
        return None
    self.end_msg(r or True)
    return r


@conf
def check_perl_ext_devel(self):
    env = self.env
    perl = env.PERL
    if not perl:
        self.fatal('find perl first')

    def cmd_perl_config(s):
        return perl + ['-MConfig', '-e', 'print \"%s\"' % s]

    def cfg_str(cfg):
        return self.cmd_and_log(cmd_perl_config(cfg))

    def cfg_lst(cfg):
        return Utils.to_list(cfg_str(cfg))

    def find_xsubpp():
        for var in ('privlib', 'vendorlib'):
            xsubpp = cfg_lst('$Config{%s}/ExtUtils/xsubpp$Config{exe_ext}' % var)
            if xsubpp and os.path.isfile(xsubpp[0]):
                return xsubpp
        return self.find_program('xsubpp')

    env.LINKFLAGS_PERLEXT = cfg_lst('$Config{lddlflags}')
    env.INCLUDES_PERLEXT = cfg_lst('$Config{archlib}/CORE')
    env.CFLAGS_PERLEXT = cfg_lst('$Config{ccflags} $Config{cccdlflags}')
    env.EXTUTILS_TYPEMAP = cfg_lst('$Config{privlib}/ExtUtils/typemap')
    env.XSUBPP = find_xsubpp()
    if not getattr(Options.options, 'perlarchdir', None):
        env.ARCHDIR_PERL = cfg_str('$Config{sitearch}')
    else:
        env.ARCHDIR_PERL = getattr(Options.options, 'perlarchdir')
    env.perlext_PATTERN = '%s.' + cfg_str('$Config{dlext}')


def options(opt):
    opt.add_option(
        '--with-perl-binary', type='string', dest='perlbinary', help='Specify alternate perl binary', default=None
    )
    opt.add_option(
        '--with-perl-archdir',
        type='string',
        dest='perlarchdir',
        help='Specify directory where to install arch specific files',
        default=None
    )