| OLD | NEW |
| 1 """SCons.Scanner.Fortran | 1 """SCons.Scanner.Fortran |
| 2 | 2 |
| 3 This module implements the dependency scanner for Fortran code. | 3 This module implements the dependency scanner for Fortran code. |
| 4 | 4 |
| 5 """ | 5 """ |
| 6 | 6 |
| 7 # | 7 # |
| 8 # Copyright (c) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 The SCons Foundat
ion | 8 # Copyright (c) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 The SCons F
oundation |
| 9 # | 9 # |
| 10 # Permission is hereby granted, free of charge, to any person obtaining | 10 # Permission is hereby granted, free of charge, to any person obtaining |
| 11 # a copy of this software and associated documentation files (the | 11 # a copy of this software and associated documentation files (the |
| 12 # "Software"), to deal in the Software without restriction, including | 12 # "Software"), to deal in the Software without restriction, including |
| 13 # without limitation the rights to use, copy, modify, merge, publish, | 13 # without limitation the rights to use, copy, modify, merge, publish, |
| 14 # distribute, sublicense, and/or sell copies of the Software, and to | 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 | 15 # permit persons to whom the Software is furnished to do so, subject to |
| 16 # the following conditions: | 16 # the following conditions: |
| 17 # | 17 # |
| 18 # The above copyright notice and this permission notice shall be included | 18 # The above copyright notice and this permission notice shall be included |
| 19 # in all copies or substantial portions of the Software. | 19 # in all copies or substantial portions of the Software. |
| 20 # | 20 # |
| 21 # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY | 21 # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY |
| 22 # KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE | 22 # KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE |
| 23 # WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND | 23 # WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND |
| 24 # NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE | 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 | 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 | 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. | 27 # WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. |
| 28 # | 28 # |
| 29 | 29 |
| 30 __revision__ = "src/engine/SCons/Scanner/Fortran.py 3842 2008/12/20 22:59:52 sco
ns" | 30 __revision__ = "src/engine/SCons/Scanner/Fortran.py 3897 2009/01/13 06:45:54 sco
ns" |
| 31 | 31 |
| 32 import re | 32 import re |
| 33 import string | 33 import string |
| 34 | 34 |
| 35 import SCons.Node | 35 import SCons.Node |
| 36 import SCons.Node.FS | 36 import SCons.Node.FS |
| 37 import SCons.Scanner | 37 import SCons.Scanner |
| 38 import SCons.Util | 38 import SCons.Util |
| 39 import SCons.Warnings | 39 import SCons.Warnings |
| 40 | 40 |
| (...skipping 36 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 77 | 77 |
| 78 apply(SCons.Scanner.Current.__init__, (self,) + args, kw) | 78 apply(SCons.Scanner.Current.__init__, (self,) + args, kw) |
| 79 | 79 |
| 80 def scan(self, node, env, path=()): | 80 def scan(self, node, env, path=()): |
| 81 | 81 |
| 82 # cache the includes list in node so we only scan it once: | 82 # cache the includes list in node so we only scan it once: |
| 83 if node.includes != None: | 83 if node.includes != None: |
| 84 mods_and_includes = node.includes | 84 mods_and_includes = node.includes |
| 85 else: | 85 else: |
| 86 # retrieve all included filenames | 86 # retrieve all included filenames |
| 87 includes = self.cre_incl.findall(node.get_contents()) | 87 includes = self.cre_incl.findall(node.get_text_contents()) |
| 88 # retrieve all USE'd module names | 88 # retrieve all USE'd module names |
| 89 modules = self.cre_use.findall(node.get_contents()) | 89 modules = self.cre_use.findall(node.get_text_contents()) |
| 90 # retrieve all defined module names | 90 # retrieve all defined module names |
| 91 defmodules = self.cre_def.findall(node.get_contents()) | 91 defmodules = self.cre_def.findall(node.get_text_contents()) |
| 92 | 92 |
| 93 # Remove all USE'd module names that are defined in the same file | 93 # Remove all USE'd module names that are defined in the same file |
| 94 d = {} | 94 d = {} |
| 95 for m in defmodules: | 95 for m in defmodules: |
| 96 d[m] = 1 | 96 d[m] = 1 |
| 97 modules = filter(lambda m, d=d: not d.has_key(m), modules) | 97 modules = filter(lambda m, d=d: not d.has_key(m), modules) |
| 98 #modules = self.undefinedModules(modules, defmodules) | 98 #modules = self.undefinedModules(modules, defmodules) |
| 99 | 99 |
| 100 # Convert module name to a .mod filename | 100 # Convert module name to a .mod filename |
| 101 suffix = env.subst('$FORTRANMODSUFFIX') | 101 suffix = env.subst('$FORTRANMODSUFFIX') |
| (...skipping 203 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 305 | 305 |
| 306 def_regex = """(?i)^\s*MODULE\s+(?!PROCEDURE)(\w+)""" | 306 def_regex = """(?i)^\s*MODULE\s+(?!PROCEDURE)(\w+)""" |
| 307 | 307 |
| 308 scanner = F90Scanner("FortranScan", | 308 scanner = F90Scanner("FortranScan", |
| 309 "$FORTRANSUFFIXES", | 309 "$FORTRANSUFFIXES", |
| 310 path_variable, | 310 path_variable, |
| 311 use_regex, | 311 use_regex, |
| 312 include_regex, | 312 include_regex, |
| 313 def_regex) | 313 def_regex) |
| 314 return scanner | 314 return scanner |
| OLD | NEW |