diff options
| author | David Robillard <d@drobilla.net> | 2019-04-14 18:03:16 +0200 |
|---|---|---|
| committer | David Robillard <d@drobilla.net> | 2019-04-14 18:24:08 +0200 |
| commit | 7887266eaf79f020dae2dd0126dbf732e167a751 (patch) | |
| tree | 3a22565bc33f5b15c191d8585bc84599836c33f7 /waflib/Tools/fc_scan.py | |
| parent | ee834a83860e614d565f5bb38cdfb8681ffa5f16 (diff) | |
| parent | 4806680e7b17a83c14ea2b64c8ab6277a8b380b1 (diff) | |
| download | pugl-7887266eaf79f020dae2dd0126dbf732e167a751.tar.gz pugl-7887266eaf79f020dae2dd0126dbf732e167a751.tar.bz2 pugl-7887266eaf79f020dae2dd0126dbf732e167a751.zip | |
Update autowaf
Diffstat (limited to 'waflib/Tools/fc_scan.py')
| -rw-r--r-- | waflib/Tools/fc_scan.py | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/waflib/Tools/fc_scan.py b/waflib/Tools/fc_scan.py index 12cb0fc..0824c92 100644 --- a/waflib/Tools/fc_scan.py +++ b/waflib/Tools/fc_scan.py @@ -5,13 +5,15 @@ import re -INC_REGEX = """(?:^|['">]\s*;)\s*(?:|#\s*)INCLUDE\s+(?:\w+_)?[<"'](.+?)(?=["'>])""" -USE_REGEX = """(?:^|;)\s*USE(?:\s+|(?:(?:\s*,\s*(?:NON_)?INTRINSIC)?\s*::))\s*(\w+)""" -MOD_REGEX = """(?:^|;)\s*MODULE(?!\s*PROCEDURE)(?:\s+|(?:(?:\s*,\s*(?:NON_)?INTRINSIC)?\s*::))\s*(\w+)""" +INC_REGEX = r"""(?:^|['">]\s*;)\s*(?:|#\s*)INCLUDE\s+(?:\w+_)?[<"'](.+?)(?=["'>])""" +USE_REGEX = r"""(?:^|;)\s*USE(?:\s+|(?:(?:\s*,\s*(?:NON_)?INTRINSIC)?\s*::))\s*(\w+)""" +MOD_REGEX = r"""(?:^|;)\s*MODULE(?!\s+(?:PROCEDURE|SUBROUTINE|FUNCTION))\s+(\w+)""" +SMD_REGEX = r"""(?:^|;)\s*SUBMODULE\s*\(([\w:]+)\)\s*(\w+)""" re_inc = re.compile(INC_REGEX, re.I) re_use = re.compile(USE_REGEX, re.I) re_mod = re.compile(MOD_REGEX, re.I) +re_smd = re.compile(SMD_REGEX, re.I) class fortran_parser(object): """ @@ -58,6 +60,10 @@ class fortran_parser(object): m = re_mod.search(line) if m: mods.append(m.group(1)) + m = re_smd.search(line) + if m: + uses.append(m.group(1)) + mods.append('{0}:{1}'.format(m.group(1),m.group(2))) return (incs, uses, mods) def start(self, node): |