#!/usr/bin/env python
import sys,re,getopt,os
def sortu(a):
  if len(a) == 0:
    return a
  x = a.split()
  x.sort()
  l = [x[0]]
  u = x[0]
  for p in x[1:]:
    if l[-1] != p:
      l = l + [p]
      u = u + " " + p
  return u

def removenil(x):
  u = {}
  for i in x:
    if x[i]:
      u[i] = x[i]
  return u

def deps(mode):
  if mode == "M:F":          # m1.mod m2.mod: sub.f90
    provn = removenil(prov1)
    for f in provn:
      print(provn[f] + ": " + f)
    return

  for f in src:
    if mode == "O:FHO":      # sub.o: sub.f90 inc.h sub1.o
      rr = req[f].split()
      d = ""
      for r in rr:
        try:
          if prov[r] != f:
            d = d + " " + prov[r]
        except KeyError:
          pass
      print(f + ": " + src[f] + " " + inc[f] + " " + sortu(d))
    if mode == "O:FH":       # sub.o: sub.f90 inc.h
      print(f + ": " + " " + inc[f])
    if mode == "O:M":        # sub.o: m1.mod m2.mod
      print(f + ": " + req[f])

# start of main program

prov = {}
prov1= {}
req = {}
inc = {}
src = {}
findsuffix = re.compile(r'.[^.]*$')
findquote = re.compile(r'[\'"]')

optlist, args = getopt.getopt(sys.argv[1:],'m:s:p:')

mode = "O:FHO"
prefix=""
suffix=".o"

for o,a in optlist:
  if o == "-m":
    mode = a
  if o == "-p":
    prefix = a
  if o == "-s":
    suffix = a



for f in args :
  try:
    srcfile=open(f)
    basename = re.sub(findsuffix,'',f)
    oname = prefix+basename+suffix
    src[oname] = f
    req[oname] = ""
    prov1[f] = ""
    inc[oname] = ""
    for line in srcfile:
      line = line.strip().split()
      word1 = ""
      if len(line):
        word1 = line[0]
      word2 = ""
      if len(line) > 1:
        word2 = line[1]
      if word1.lower() == "module":
        if word2.lower() == "procedure":
          continue
        prov[word2.lower()+".mod"] = oname
        if prov1[f]:
          prov1[f] = prov1[f] + " " + word2.lower() + ".mod"
        else:
          prov1[f] = word2.lower() + ".mod"
      if word1.lower() == "use":
        cp = word2.rfind(",")
        if cp != -1 :
          word2 = word2[:cp]
        req[oname] = req[oname] + " " + word2.lower() + ".mod"
      if word1 == "include":
        # do not use dependencies of files that are not visible
        word2 = re.sub(findquote,'',word2)
        #if os.path.exists(word2):
	if 1:
          inc[oname] = inc[oname] + " " + word2
    srcfile.close()
  except IOError:
    pass


#inc  = removenil(inc)

for i in inc:
  inc[i] = sortu(inc[i])

for i in prov:
  prov[i] = sortu(prov[i])

for i in req:
  req[i] = sortu(req[i])

deps(mode)
#for mode in ["O:FHO" , "O:FH", "O:M", "M:F" ]:
#  print "testing mode",mode
#  deps(mode)