FM / fcompiler

/usr/lib64/python2.6/site-packages/numpy/distutils/fcompiler/

/usr/lib64/python2.6/site-packages/numpy/distutils/fcompiler

Name	Size	Mode	Actions
absoft.py	5415	0644	edit dl rm
absoft.pyc	5803	0644	edit dl rm
absoft.pyo	5803	0644	edit dl rm
compaq.py	3941	0644	edit dl rm
compaq.pyc	5281	0644	edit dl rm
compaq.pyo	5281	0644	edit dl rm
g95.py	1312	0644	edit dl rm
g95.pyc	1856	0644	edit dl rm
g95.pyo	1856	0644	edit dl rm
gnu.py	13388	0644	edit dl rm
gnu.pyc	11280	0644	edit dl rm
gnu.pyo	11280	0644	edit dl rm
hpux.py	1394	0644	edit dl rm
hpux.pyc	2300	0644	edit dl rm
hpux.pyo	2300	0644	edit dl rm
ibm.py	3350	0644	edit dl rm
ibm.pyc	4080	0644	edit dl rm
ibm.pyo	4080	0644	edit dl rm
intel.py	8196	0644	edit dl rm
intel.pyc	9373	0644	edit dl rm
intel.pyo	9373	0644	edit dl rm
lahey.py	1367	0644	edit dl rm
lahey.pyc	2341	0644	edit dl rm
lahey.pyo	2341	0644	edit dl rm
mips.py	1756	0644	edit dl rm
mips.pyc	2814	0644	edit dl rm
mips.pyo	2814	0644	edit dl rm
nag.py	1319	0644	edit dl rm
nag.pyc	2232	0644	edit dl rm
nag.pyo	2232	0644	edit dl rm
none.py	744	0644	edit dl rm
none.pyc	1167	0644	edit dl rm
none.pyo	1167	0644	edit dl rm
pg.py	1184	0644	edit dl rm
pg.pyc	1962	0644	edit dl rm
pg.pyo	1962	0644	edit dl rm
sun.py	1540	0644	edit dl rm
sun.pyc	2402	0644	edit dl rm
sun.pyo	2402	0644	edit dl rm
vast.py	1708	0644	edit dl rm
vast.pyc	2333	0644	edit dl rm
vast.pyo	2333	0644	edit dl rm
__init__.py	36924	0644	edit dl rm
__init__.pyc	33396	0644	edit dl rm
__init__.pyo	33197	0644	edit dl rm

Edit: /usr/lib64/python2.6/site-packages/numpy/distutils/fcompiler/compaq.py (3941B)

#http://www.compaq.com/fortran/docs/

import os
import sys

from numpy.distutils.fcompiler import FCompiler
from distutils.errors import DistutilsPlatformError

compilers = ['CompaqFCompiler']
if os.name != 'posix' or sys.platform[:6] == 'cygwin' :
    # Otherwise we'd get a false positive on posix systems with
    # case-insensitive filesystems (like darwin), because we'll pick
    # up /bin/df
    compilers.append('CompaqVisualFCompiler')

class CompaqFCompiler(FCompiler):

compiler_type = 'compaq'
    description = 'Compaq Fortran Compiler'
    version_pattern = r'Compaq Fortran (?P<version>[^\s]*).*'

if sys.platform[:5]=='linux':
        fc_exe = 'fort'
    else:
        fc_exe = 'f90'

executables = {
        'version_cmd'  : ['<F90>', "-version"],
        'compiler_f77' : [fc_exe, "-f77rtl","-fixed"],
        'compiler_fix' : [fc_exe, "-fixed"],
        'compiler_f90' : [fc_exe],
        'linker_so'    : ['<F90>'],
        'archiver'     : ["ar", "-cr"],
        'ranlib'       : ["ranlib"]
        }

module_dir_switch = '-module ' # not tested
    module_include_switch = '-I'

def get_flags(self):
        return ['-assume no2underscore','-nomixed_str_len_arg']
    def get_flags_debug(self):
        return ['-g','-check bounds']
    def get_flags_opt(self):
        return ['-O4','-align dcommons','-assume bigarrays',
                '-assume nozsize','-math_library fast']
    def get_flags_arch(self):
        return ['-arch host', '-tune host']
    def get_flags_linker_so(self):
        if sys.platform[:5]=='linux':
            return ['-shared']
        return ['-shared','-Wl,-expect_unresolved,*']

class CompaqVisualFCompiler(FCompiler):

compiler_type = 'compaqv'
    description = 'DIGITAL or Compaq Visual Fortran Compiler'
    version_pattern = r'(DIGITAL|Compaq) Visual Fortran Optimizing Compiler'\
                      ' Version (?P<version>[^\s]*).*'

compile_switch = '/compile_only'
    object_switch = '/object:'
    library_switch = '/OUT:'      #No space after /OUT:!

static_lib_extension = ".lib"
    static_lib_format = "%s%s"
    module_dir_switch = '/module:'
    module_include_switch = '/I'

ar_exe = 'lib.exe'
    fc_exe = 'DF'

if sys.platform=='win32':
        from distutils.msvccompiler import MSVCCompiler

try:
            m = MSVCCompiler()
            m.initialize()
            ar_exe = m.lib
        except DistutilsPlatformError, msg:
                        pass
        except AttributeError, msg:
            if '_MSVCCompiler__root' in str(msg):
                print 'Ignoring "%s" (I think it is msvccompiler.py bug)' % (msg)
            else:
                raise
        except IOError, e:
            if not "vcvarsall.bat" in str(e):
                print "Unexpected IOError in", __file__
                raise e
        except ValueError, e:
            if not "path']" in str(e):
                print "Unexpected ValueError in", __file__
                raise e

executables = {
        'version_cmd'  : ['<F90>', "/what"],
        'compiler_f77' : [fc_exe, "/f77rtl","/fixed"],
        'compiler_fix' : [fc_exe, "/fixed"],
        'compiler_f90' : [fc_exe],
        'linker_so'    : ['<F90>'],
        'archiver'     : [ar_exe, "/OUT:"],
        'ranlib'       : None
        }

def get_flags(self):
        return ['/nologo','/MD','/WX','/iface=(cref,nomixed_str_len_arg)',
                '/names:lowercase','/assume:underscore']
    def get_flags_opt(self):
        return ['/Ox','/fast','/optimize:5','/unroll:0','/math_library:fast']
    def get_flags_arch(self):
        return ['/threads']
    def get_flags_debug(self):
        return ['/debug']

if __name__ == '__main__':
    from distutils import log
    log.set_verbosity(2)
    from numpy.distutils.fcompiler import new_fcompiler
    compiler = new_fcompiler(compiler='compaq')
    compiler.customize()
    print compiler.get_version()

cmd: