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 |