FWGS/waf
2
0
Fork 0
mirror of https://gitlab.com/ita1024/waf.git synced 2024-11-22 01:46:15 +01:00
Code Issues Projects Releases Wiki Activity

cleanup

Browse Source
This commit is contained in:
Thomas Nagy 2016-01-22 20:05:54 +01:00
parent f9e78b0225
commit 5626104770
No known key found for this signature in database
GPG Key ID: 67A565EDFDF90E64
1 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
demos/fortran/typemap/wscript
View File

@ -11,12 +11,12 @@ def configure(conf):
conf.load('compiler_c') conf.load('compiler_c')
conf.load('compiler_fc') conf.load('compiler_fc')
conf.check_fortran() conf.check_fortran()
# configuration tests taht may be totally irrelevant # configuration tests that may be totally irrelevant
conf.check_fortran_dummy_main()
if not conf.env.IFORT_WIN32: if not conf.env.IFORT_WIN32:
conf.check_fortran_verbose_flag() conf.check_fortran_verbose_flag()
conf.check_fortran_clib() conf.check_fortran_clib()
conf.check_fortran_mangling() conf.check_fortran_mangling()
conf.check_fortran_dummy_main()
def build(bld): def build(bld):
@ -166,25 +166,26 @@ end subroutine outer
return res return res
def write_type_map(bld, ctps, fort_file, c_header): def write_type_map(bld, ctps, fort_file, c_header):
fort_file.write('''\ buf = ['''\
module type_maps module type_maps
use, intrinsic :: iso_c_binding use, intrinsic :: iso_c_binding
implicit none implicit none
''', flags='w') ''']
for ctp in ctps: for ctp in ctps:
fort_file.write('integer, parameter :: %s = %s\n' % (ctp.name, ctp.fc_type), buf.append('integer, parameter :: %s = %s' % (ctp.name, ctp.fc_type))
flags='a') buf.append('end module type_maps\n')
fort_file.write('end module type_maps\n', flags='a') fort_file.write('\n'.join(buf))
cap_name = '%s__' % c_header.name.upper().replace('.', '_') cap_name = '%s__' % c_header.name.upper().replace('.', '_')
c_header.write('''\ buf = ['''\
#ifndef %s #ifndef %s
#define %s #define %s
''' % (cap_name, cap_name), flags='w') ''' % (cap_name, cap_name)]
for ctp in ctps: for ctp in ctps:
# This is just an example, so this would be customized. The 'long long' # This is just an example, so this would be customized. The 'long long'
# would correspond to the actual C type... # would correspond to the actual C type...
c_header.write('typedef long long %s\n' % ctp.name, flags='a') buf.append('typedef long long %s\n' % ctp.name)
c_header.write('#endif\n', flags='a') buf.append('#endif\n')
c_header.write('\n'.join(buf))
# vim:ft=python:noet # vim:ft=python:noet