source: waflib/Tools/fc_scan.py @ 16dda03

#! /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)