#!/usr/bin/env python## __COPYRIGHT__## Permission is hereby granted, free of charge, to any person obtaining# a copy of this software and associated documentation files (the# "Software"), to deal in the Software without restriction, including# without limitation the rights to use, copy, modify, merge, publish,# distribute, sublicense, and/or sell copies of the Software, and to# permit persons to whom the Software is furnished to do so, subject to# the following conditions:## The above copyright notice and this permission notice shall be included# in all copies or substantial portions of the Software.## THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY# KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE# WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.#__revision__="__FILE__ __REVISION__ __DATE__ __DEVELOPER__"importosimportstringimportsysimportTestSConsfromcommonimportwrite_fake_link_python_=TestSCons._python__exe=TestSCons._exetest=TestSCons.TestSCons()write_fake_link(test)test.write('myfortran.py',r"""import getoptimport syscomment = '#' + sys.argv[1]opts, args = getopt.getopt(sys.argv[2:], 'co:')for opt, arg in opts: if opt == '-o': out = arginfile = open(args[0], 'rb')outfile = open(out, 'wb')for l in infile.readlines(): if l[:len(comment)] != comment: outfile.write(l)sys.exit(0)""")# Test non-default file suffix: .f/.F for F77test.write('SConstruct',"""env = Environment(LINK = r'%(_python_)s mylink.py', LINKFLAGS = [], F77 = r'%(_python_)s myfortran.py g77', F95 = r'%(_python_)s myfortran.py f95', F77FILESUFFIXES = ['.f', '.F'], tools = ['default', 'f77'])env.Program(target = 'test01', source = 'test01.f')env.Program(target = 'test02', source = 'test02.F')env.Program(target = 'test05', source = 'test05.f95')env.Program(target = 'test06', source = 'test06.F95')"""%locals())test.write('test01.f',"This is a .f file.\n#link\n#g77\n")test.write('test02.F',"This is a .F file.\n#link\n#g77\n")test.write('test05.f95',"This is a .f95 file.\n#link\n#f95\n")test.write('test06.F95',"This is a .F95 file.\n#link\n#f95\n")test.run(arguments='.',stderr=None)test.must_match('test01'+_exe,"This is a .f file.\n")test.must_match('test02'+_exe,"This is a .F file.\n")test.must_match('test05'+_exe,"This is a .f95 file.\n")test.must_match('test06'+_exe,"This is a .F95 file.\n")test.pass_test()