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
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
|
"""
Tools for building F2PY generated extension modules.
-----
Permission to use, modify, and distribute this software is given under the
terms of the NumPy License. See http://scipy.org.
NO WARRANTY IS EXPRESSED OR IMPLIED. USE AT YOUR OWN RISK.
Author: Pearu Peterson <pearu@cens.ioc.ee>
Created: Oct 2006
-----
"""
import os
import sys
try:
from numpy import __version__ as numpy_version
except ImportError:
numpy_version = 'N/A'
__all__ = ['main']
__usage__ = """
F2PY G3 --- The third generation of Fortran to Python Interface Generator
=========================================================================
Description
-----------
f2py program generates a Python C/API file (<modulename>module.c) that
contains wrappers for given Fortran functions and data so that they
can be accessed from Python. With the -c option the corresponding
extension modules are built.
Options
-------
--3g-numpy Use numpy.f2py.lib tool, the 3rd generation of F2PY,
with NumPy support.
--2d-numpy Use numpy.f2py tool with NumPy support. [DEFAULT]
--2d-numeric Use f2py2e tool with Numeric support.
--2d-numarray Use f2py2e tool with Numarray support.
"""
from parser.api import parse, PythonModule, EndStatement
def dump_signature():
""" Read Fortran files and dump the signatures to file or stdout.
"""
# get signature output
i = sys.argv.index('-h')
if len(sys.argv)-1==i:
signature_output = 'stdout'
else:
signature_output = sys.argv[i+1]
del sys.argv[i+1]
del sys.argv[i]
# get module name
try:
i = sys.argv.index('-m')
except ValueError:
i = None
module_name = 'unknown'
if i is not None:
if len(sys.argv)-1==i:
module_name = 'unspecified'
else:
module_name = sys.argv[i+1]
del sys.argv[i+1]
del sys.argv[i]
# initialize output stream
if signature_output in ['stdout','stderr']:
output_stream = getattr(sys, signature_output)
else:
if os.path.isfile(signature_output):
try:
i = sys.argv.index('--overwrite-signature')
del sys.argv[i]
except ValueError:
print >> sys.stderr, 'Signature file %r exists. Use --overwrite-signature to overwrite.' % (signature_output)
sys.exit()
output_stream = open(signature_output,'w')
flag = 'file'
file_names = []
only_names = []
skip_names = []
options = []
for word in sys.argv[1:]:
if word=='': pass
elif word=='only:': flag = 'only'
elif word=='skip:': flag = 'skip'
elif word==':': flag = 'file'
elif word.startswith('--'): options.append(word)
else:
{'file': file_names,'only': only_names, 'skip': skip_names}[flag].append(word)
output_stream.write('''! -*- f90 -*-
! Note: the context of this file is case sensitive.
''')
output_stream.write('PYTHON MODULE %s\n' % (module_name))
output_stream.write(' INTERFACE\n\n')
for filename in file_names:
block = parse(filename)
output_stream.write('! File: %s, source mode = %s\n' % (filename, block.reader.mode))
if isinstance(block.content[0],PythonModule):
for subblock in block.content[0].content[0].content:
if isinstance(subblock, EndStatement):
break
output_stream.write(subblock.topyf(' ')+'\n')
else:
output_stream.write(block.topyf(' ')+'\n')
output_stream.write(' END INTERFACE\n')
output_stream.write('END PYTHON MODULE %s\n' % (module_name))
if signature_output not in ['stdout','stderr']:
output_stream.close()
return
def build_extension():
raise NotImplementedError,'build_extension'
def main():
""" Main function of f2py script.
"""
if '--help-link' in sys.argv[1:]:
sys.argv.remove('--help-link')
from numpy.distutils.system_info import show_all
show_all()
return
if '-c' in sys.argv[1:]:
i = sys.argv.index('-c')
del sys.argv[i]
build_extension()
return
if '-h' in sys.argv[1:]:
dump_signature()
return
print >> sys.stdout, __usage__
|
