| #! /usr/bin/env python |
| # encoding: utf-8 |
| # WARNING! Do not edit! http://waf.googlecode.com/git/docs/wafbook/single.html#_obtaining_the_waf_file |
| |
| import re |
| from waflib import Utils,Task,TaskGen,Logs |
| from waflib.TaskGen import feature,before_method,after_method,extension |
| from waflib.Configure import conf |
| INC_REGEX="""(?:^|['">]\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+)""" |
| re_inc=re.compile(INC_REGEX,re.I) |
| re_use=re.compile(USE_REGEX,re.I) |
| re_mod=re.compile(MOD_REGEX,re.I) |
| class fortran_parser(object): |
| def __init__(self,incpaths): |
| self.seen=[] |
| self.nodes=[] |
| self.names=[] |
| self.incpaths=incpaths |
| def find_deps(self,node): |
| txt=node.read() |
| incs=[] |
| uses=[] |
| mods=[] |
| for line in txt.splitlines(): |
| m=re_inc.search(line) |
| if m: |
| incs.append(m.group(1)) |
| m=re_use.search(line) |
| if m: |
| uses.append(m.group(1)) |
| m=re_mod.search(line) |
| if m: |
| mods.append(m.group(1)) |
| return(incs,uses,mods) |
| def start(self,node): |
| self.waiting=[node] |
| while self.waiting: |
| nd=self.waiting.pop(0) |
| self.iter(nd) |
| def iter(self,node): |
| path=node.abspath() |
| incs,uses,mods=self.find_deps(node) |
| for x in incs: |
| if x in self.seen: |
| continue |
| self.seen.append(x) |
| self.tryfind_header(x) |
| for x in uses: |
| name="USE@%s"%x |
| if not name in self.names: |
| self.names.append(name) |
| for x in mods: |
| name="MOD@%s"%x |
| if not name in self.names: |
| self.names.append(name) |
| def tryfind_header(self,filename): |
| found=None |
| for n in self.incpaths: |
| found=n.find_resource(filename) |
| if found: |
| self.nodes.append(found) |
| self.waiting.append(found) |
| break |
| if not found: |
| if not filename in self.names: |
| self.names.append(filename) |
