2020-05-23 21:08:07 +02:00
|
|
|
#!/usr/bin/env python3
|
2014-03-26 12:07:44 +00:00
|
|
|
|
2022-02-03 19:35:01 +09:00
|
|
|
import os
|
|
|
|
|
import re
|
|
|
|
|
import sys
|
2014-03-26 12:07:44 +00:00
|
|
|
from os import path
|
|
|
|
|
|
|
|
|
|
# pre-compiled regular expressions
|
|
|
|
|
re_program = re.compile(r"\n\s*end\s*program")
|
|
|
|
|
re_main = re.compile(r"\sint\s+main\s*\(")
|
|
|
|
|
|
2023-05-02 11:45:13 +02:00
|
|
|
|
2020-02-25 14:24:07 +01:00
|
|
|
# ============================================================================
|
2014-03-26 12:07:44 +00:00
|
|
|
def main():
|
2020-02-25 14:24:07 +01:00
|
|
|
if len(sys.argv) != 2:
|
2014-04-03 13:56:34 +00:00
|
|
|
print("Usage: discover_programs.py <src-dir>")
|
2014-03-26 12:07:44 +00:00
|
|
|
sys.exit(1)
|
|
|
|
|
|
|
|
|
|
srcdir = sys.argv[1]
|
|
|
|
|
|
2014-04-03 13:56:34 +00:00
|
|
|
sys.stderr.write("Discovering programs ...\n")
|
2014-03-26 15:08:35 +00:00
|
|
|
|
2014-03-26 12:07:44 +00:00
|
|
|
programs = []
|
2018-10-22 15:31:51 +02:00
|
|
|
for root, _, files in os.walk(srcdir):
|
2020-02-25 14:24:07 +01:00
|
|
|
if root.endswith("/preprettify"):
|
2014-03-26 12:07:44 +00:00
|
|
|
continue
|
2020-02-25 14:24:07 +01:00
|
|
|
if "/.git" in root:
|
2014-03-26 12:07:44 +00:00
|
|
|
continue
|
|
|
|
|
|
|
|
|
|
for fn in files:
|
|
|
|
|
abs_fn = path.join(root, fn)
|
2020-02-25 14:24:07 +01:00
|
|
|
if fn[-2:] == ".F":
|
|
|
|
|
if is_fortran_program(abs_fn):
|
2014-03-26 12:07:44 +00:00
|
|
|
programs.append(abs_fn)
|
|
|
|
|
|
2020-02-25 14:24:07 +01:00
|
|
|
elif fn[-2:] == ".c" or fn[-3:] == ".cu":
|
|
|
|
|
if has_main_function(abs_fn):
|
2014-03-26 15:08:35 +00:00
|
|
|
programs.append(abs_fn)
|
|
|
|
|
|
2014-03-26 12:07:44 +00:00
|
|
|
print(" ".join(programs))
|
|
|
|
|
|
|
|
|
|
|
2020-02-25 14:24:07 +01:00
|
|
|
# ============================================================================
|
2014-03-26 12:07:44 +00:00
|
|
|
def is_fortran_program(fn):
|
2020-09-24 20:53:28 +02:00
|
|
|
f = open(fn, encoding="utf8")
|
2014-03-26 12:07:44 +00:00
|
|
|
s = path.getsize(fn)
|
|
|
|
|
f.seek(max(0, s - 100))
|
|
|
|
|
tail = f.read()
|
|
|
|
|
f.close()
|
|
|
|
|
m = re_program.search(tail.lower())
|
2022-02-03 19:35:01 +09:00
|
|
|
return m is not None
|
2020-02-25 14:24:07 +01:00
|
|
|
|
2014-03-26 12:07:44 +00:00
|
|
|
|
2020-02-25 14:24:07 +01:00
|
|
|
# ============================================================================
|
2014-03-26 12:07:44 +00:00
|
|
|
def has_main_function(fn):
|
2020-09-24 20:53:28 +02:00
|
|
|
f = open(fn, encoding="utf8")
|
2014-03-26 12:07:44 +00:00
|
|
|
content = f.read()
|
|
|
|
|
f.close()
|
|
|
|
|
m = re_main.search(content)
|
2022-02-03 19:35:01 +09:00
|
|
|
return m is not None
|
2020-02-25 14:24:07 +01:00
|
|
|
|
2014-03-26 12:07:44 +00:00
|
|
|
|
2020-02-25 14:24:07 +01:00
|
|
|
# ===============================================================================
|
2019-05-13 15:20:11 +02:00
|
|
|
main()
|