REDROOM

Edit File Size: 3.33 KB

/opt/alt/python37/lib64/python3.7/site-packages/numpy/distutils/fcompiler/ibm.py

Text Base64

from __future__ import division, absolute_import, print_function

import os
import re
import sys

from numpy.distutils.fcompiler import FCompiler
from numpy.distutils.exec_command import exec_command, find_executable
from numpy.distutils.misc_util import make_temp_file
from distutils import log

compilers = ['IBMFCompiler']

class IBMFCompiler(FCompiler):
    compiler_type = 'ibm'
    description = 'IBM XL Fortran Compiler'
    version_pattern =  r'(xlf\(1\)\s*|)IBM XL Fortran ((Advanced Edition |)Version |Enterprise Edition V|for AIX, V)(?P<version>[^\s*]*)'
    #IBM XL Fortran Enterprise Edition V10.1 for AIX \nVersion: 10.01.0000.0004

executables = {
        'version_cmd'  : ["<F77>", "-qversion"],
        'compiler_f77' : ["xlf"],
        'compiler_fix' : ["xlf90", "-qfixed"],
        'compiler_f90' : ["xlf90"],
        'linker_so'    : ["xlf95"],
        'archiver'     : ["ar", "-cr"],
        'ranlib'       : ["ranlib"]
        }

def get_version(self,*args,**kwds):
        version = FCompiler.get_version(self,*args,**kwds)

if version is None and sys.platform.startswith('aix'):
            # use lslpp to find out xlf version
            lslpp = find_executable('lslpp')
            xlf = find_executable('xlf')
            if os.path.exists(xlf) and os.path.exists(lslpp):
                s, o = exec_command(lslpp + ' -Lc xlfcmp')
                m = re.search(r'xlfcmp:(?P<version>\d+([.]\d+)+)', o)
                if m: version = m.group('version')

xlf_dir = '/etc/opt/ibmcmp/xlf'
        if version is None and os.path.isdir(xlf_dir):
            # linux:
            # If the output of xlf does not contain version info
            # (that's the case with xlf 8.1, for instance) then
            # let's try another method:
            l = sorted(os.listdir(xlf_dir))
            l.reverse()
            l = [d for d in l if os.path.isfile(os.path.join(xlf_dir, d, 'xlf.cfg'))]
            if l:
                from distutils.version import LooseVersion
                self.version = version = LooseVersion(l[0])
        return version

def get_flags(self):
        return ['-qextname']

def get_flags_debug(self):
        return ['-g']

def get_flags_linker_so(self):
        opt = []
        if sys.platform=='darwin':
            opt.append('-Wl,-bundle,-flat_namespace,-undefined,suppress')
        else:
            opt.append('-bshared')
        version = self.get_version(ok_status=[0, 40])
        if version is not None:
            if sys.platform.startswith('aix'):
                xlf_cfg = '/etc/xlf.cfg'
            else:
                xlf_cfg = '/etc/opt/ibmcmp/xlf/%s/xlf.cfg' % version
            fo, new_cfg = make_temp_file(suffix='_xlf.cfg')
            log.info('Creating '+new_cfg)
            fi = open(xlf_cfg, 'r')
            crt1_match = re.compile(r'\s*crt\s*[=]\s*(?P<path>.*)/crt1.o').match
            for line in fi:
                m = crt1_match(line)
                if m:
                    fo.write('crt = %s/bundle1.o\n' % (m.group('path')))
                else:
                    fo.write(line)
            fi.close()
            fo.close()
            opt.append('-F'+new_cfg)
        return opt

def get_flags_opt(self):
        return ['-O3']

if __name__ == '__main__':
    log.set_verbosity(2)
    compiler = IBMFCompiler()
    compiler.customize()
    print(compiler.get_version())

Exit & Reset Text mode: syntax highlighting auto-detects file type.

Name	Size	Perms	Modified	Actions
__pycache__ DIR	-	drwxr-xr-x	2023-05-13 02:18:14	Edit Download recursive recursive
absoft.py	5.48 KB	lrw-r--r--	2023-04-24 19:30:08	Edit Download recursive recursive
compaq.py	4.06 KB	lrw-r--r--	2023-04-24 19:30:08	Edit Download recursive recursive
g95.py	1.35 KB	lrw-r--r--	2023-04-24 19:30:08	Edit Download recursive recursive
gnu.py	14.63 KB	lrw-r--r--	2023-04-24 19:30:08	Edit Download recursive recursive
hpux.py	1.43 KB	lrw-r--r--	2023-04-24 19:30:08	Edit Download recursive recursive
ibm.py	3.33 KB	lrw-r--r--	2023-04-24 19:30:08	Edit Download recursive recursive
intel.py	6.66 KB	lrw-r--r--	2023-04-24 19:30:08	Edit Download recursive recursive
lahey.py	1.40 KB	lrw-r--r--	2023-04-24 19:30:08	Edit Download recursive recursive
mips.py	1.78 KB	lrw-r--r--	2023-04-24 19:30:08	Edit Download recursive recursive
nag.py	1.37 KB	lrw-r--r--	2023-04-24 19:30:08	Edit Download recursive recursive
none.py	802 B	lrw-r--r--	2023-04-24 19:30:08	Edit Download recursive recursive
pathf95.py	1.18 KB	lrw-r--r--	2023-04-24 19:30:08	Edit Download recursive recursive
pg.py	1.89 KB	lrw-r--r--	2023-04-24 19:30:08	Edit Download recursive recursive
sun.py	1.65 KB	lrw-r--r--	2023-04-24 19:30:08	Edit Download recursive recursive
vast.py	1.74 KB	lrw-r--r--	2023-04-24 19:30:08	Edit Download recursive recursive
__init__.py	37.41 KB	lrw-r--r--	2023-04-24 19:30:08	Edit Download recursive recursive

Directory Contents