aixf77.py
上传用户:market2
上传日期:2018-11-18
资源大小:18786k
文件大小:3k
源码类别:

外挂编程

开发平台:

Windows_Unix

  1. """engine.SCons.Tool.aixf77
  2. Tool-specific initialization for IBM Visual Age f77 Fortran compiler.
  3. There normally shouldn't be any need to import this module directly.
  4. It will usually be imported through the generic SCons.Tool.Tool()
  5. selection method.
  6. """
  7. #
  8. # Copyright (c) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 The SCons Foundation
  9. #
  10. # Permission is hereby granted, free of charge, to any person obtaining
  11. # a copy of this software and associated documentation files (the
  12. # "Software"), to deal in the Software without restriction, including
  13. # without limitation the rights to use, copy, modify, merge, publish,
  14. # distribute, sublicense, and/or sell copies of the Software, and to
  15. # permit persons to whom the Software is furnished to do so, subject to
  16. # the following conditions:
  17. #
  18. # The above copyright notice and this permission notice shall be included
  19. # in all copies or substantial portions of the Software.
  20. #
  21. # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY
  22. # KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE
  23. # WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
  24. # NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
  25. # LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
  26. # OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
  27. # WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  28. #
  29. __revision__ = "src/engine/SCons/Tool/aixf77.py 3057 2008/06/09 22:21:00 knight"
  30. import os.path
  31. #import SCons.Platform.aix
  32. import f77
  33. # It would be good to look for the AIX F77 package the same way we're now
  34. # looking for the C and C++ packages.  This should be as easy as supplying
  35. # the correct package names in the following list and uncommenting the
  36. # SCons.Platform.aix_get_xlc() call the in the function below.
  37. packages = []
  38. def get_xlf77(env):
  39.     xlf77 = env.get('F77', 'xlf77')
  40.     xlf77_r = env.get('SHF77', 'xlf77_r')
  41.     #return SCons.Platform.aix.get_xlc(env, xlf77, xlf77_r, packages)
  42.     return (None, xlf77, xlf77_r, None)
  43. def generate(env):
  44.     """
  45.     Add Builders and construction variables for the Visual Age FORTRAN
  46.     compiler to an Environment.
  47.     """
  48.     path, _f77, _shf77, version = get_xlf77(env)
  49.     if path:
  50.         _f77 = os.path.join(path, _f77)
  51.         _shf77 = os.path.join(path, _shf77)
  52.     f77.generate(env)
  53.     env['F77'] = _f77
  54.     env['SHF77'] = _shf77
  55. def exists(env):
  56.     path, _f77, _shf77, version = get_xlf77(env)
  57.     if path and _f77:
  58.         xlf77 = os.path.join(path, _f77)
  59.         if os.path.exists(xlf77):
  60.             return xlf77
  61.     return None