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
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
|
import os
import fypp
import argparse
from joblib import Parallel, delayed
C_PREPROCESSED = (
"example_math_swap",
"stdlib_linalg_constants" ,
"stdlib_linalg_blas" ,
"stdlib_linalg_lapack",
"stdlib_math",
"stdlib_sorting",
"stdlib_sorting_ord_sort",
"stdlib_sorting_sort",
"stdlib_sorting_sort_adjoint",
"test_blas_lapack",
"test_stdlib_math",
"test_sorting"
)
def pre_process_fypp(args):
"""use fypp to preprocess all source files.
Processed files will be dumped at <current_folder>/temp/<file.f90> or <file.F90>
Parameters
----------
args :
CLI arguments.
"""
kwd = []
kwd.append("-DMAXRANK="+str(args.maxrank))
kwd.append("-DPROJECT_VERSION_MAJOR="+str(args.vmajor))
kwd.append("-DPROJECT_VERSION_MINOR="+str(args.vminor))
kwd.append("-DPROJECT_VERSION_PATCH="+str(args.vpatch))
if args.with_qp:
kwd.append("-DWITH_QP=True")
if args.with_xdp:
kwd.append("-DWITH_XDP=True")
if args.with_ilp64:
kwd.append("-DWITH_ILP64=True")
optparser = fypp.get_option_parser()
options, leftover = optparser.parse_args(args=kwd)
options.includes = ['include']
if args.lnumbering:
options.line_numbering = True
tool = fypp.Fypp(options)
# Create destination folders for preprocessing
os.makedirs('src'+os.sep+'temp', exist_ok=True)
os.makedirs('test'+os.sep+'temp', exist_ok=True)
# Define the folders to search for *.fypp files
folders = ['src','test']
# Process all folders
fypp_files = [os.path.join(root, file) for folder in folders
for root, _, files in os.walk(folder)
for file in files if file.endswith(".fypp")]
def process_f(file):
source_file = file
root = os.path.dirname(file)
os.makedirs(root+os.sep+'temp', exist_ok=True)
basename = os.path.splitext(os.path.basename(source_file))[0]
sfx = 'f90' if basename not in C_PREPROCESSED else 'F90'
target_file = root+os.sep+'temp' + os.sep + basename + '.' + sfx
tool.process_file(source_file, target_file)
Parallel(n_jobs=args.njob)(delayed(process_f)(f) for f in fypp_files)
return
def deploy_stdlib_fpm(with_ilp64):
"""create the stdlib-fpm folder for backwards compatibility (to be deprecated)
"""
import shutil
prune=(
"test_hash_functions.f90",
"f18estop.f90",
)
if with_ilp64:
base_folder = 'stdlib-fpm-ilp64'
else:
base_folder = 'stdlib-fpm'
os.makedirs(base_folder+os.sep+'include', exist_ok=True)
os.makedirs(base_folder+os.sep+'src', exist_ok=True)
os.makedirs(base_folder+os.sep+'test', exist_ok=True)
os.makedirs(base_folder+os.sep+'example', exist_ok=True)
def recursive_copy(folder):
for root, _, files in os.walk(folder):
for file in files:
if file not in prune:
if file.endswith((".f90", ".F90", ".dat", ".npy", ".c", ".h", ".inc")):
shutil.copy2(os.path.join(root, file), base_folder+os.sep+folder+os.sep+file)
recursive_copy('include')
recursive_copy('src')
recursive_copy('test')
recursive_copy('example')
for file in ['.gitignore','fpm.toml','LICENSE','VERSION']:
shutil.copy2(file, base_folder+os.sep+file)
return
def fpm_build(args,unknown):
import subprocess
#==========================================
# check compilers
FPM_FC = os.environ['FPM_FC'] if "FPM_FC" in os.environ else "gfortran"
FPM_CC = os.environ['FPM_CC'] if "FPM_CC" in os.environ else "gcc"
FPM_CXX = os.environ['FPM_CXX'] if "FPM_CXX" in os.environ else "gcc"
#==========================================
# Filter out flags
preprocessor = { 'gfortran':'-cpp ' , 'ifort':'-fpp ' , 'ifx':'-fpp ' }
flags = preprocessor[FPM_FC]
for idx, arg in enumerate(unknown):
if arg.startswith("--flag"):
flags= flags + unknown[idx+1]
#==========================================
# build with fpm
subprocess.run("fpm build"+
" --compiler "+FPM_FC+
" --c-compiler "+FPM_CC+
" --cxx-compiler "+FPM_CXX+
" --flag \"{}\"".format(flags), shell=True, check=True)
return
if __name__ == "__main__":
parser = argparse.ArgumentParser(description='Preprocess stdlib source files.')
# fypp arguments
parser.add_argument("--vmajor", type=int, default=0, help="Project Version Major")
parser.add_argument("--vminor", type=int, default=8, help="Project Version Minor")
parser.add_argument("--vpatch", type=int, default=1, help="Project Version Patch")
parser.add_argument("--njob", type=int, default=4, help="Number of parallel jobs for preprocessing")
parser.add_argument("--maxrank",type=int, default=4, help="Set the maximum allowed rank for arrays")
parser.add_argument("--with_qp",action='store_true', help="Include WITH_QP in the command")
parser.add_argument("--with_xdp",action='store_true', help="Include WITH_XDP in the command")
parser.add_argument("--with_ilp64",action='store_true', help="Include WITH_ILP64 to build 64-bit integer BLAS/LAPACK")
parser.add_argument("--lnumbering",action='store_true', help="Add line numbering in preprocessed files")
parser.add_argument("--deploy_stdlib_fpm",action='store_true', help="create the stdlib-fpm folder")
# external libraries arguments
parser.add_argument("--build", action='store_true', help="Build the project")
args, unknown = parser.parse_known_args()
#==========================================
# read current manifest
with open('VERSION', 'r') as file:
version = file.read().split(".")
vmajor, vminor, vpatch = [int(value) for value in version]
args.vmajor = max(vmajor,args.vmajor)
args.vminor = max(vminor,args.vminor)
args.vpatch = max(vpatch,args.vpatch)
#==========================================
# pre process the meta programming fypp files
pre_process_fypp(args)
if args.deploy_stdlib_fpm:
deploy_stdlib_fpm(args.with_ilp64)
#==========================================
# build using fpm
if args.build:
fpm_build(args,unknown)
|
