1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
"""
Author: Pearu Peterson <pearu@cens.ioc.ee>
Created: May 2006
"""
__all__ = ['get_source_info']
import re
import os
import sys
_has_f_extension = re.compile(r'.*[.](for|ftn|f77|f)\Z',re.I).match
_has_f_header = re.compile(r'-[*]-\s*fortran\s*-[*]-',re.I).search
_has_f90_header = re.compile(r'-[*]-\s*f90\s*-[*]-',re.I).search
_has_fix_header = re.compile(r'-[*]-\s*fix\s*-[*]-',re.I).search
_free_f90_start = re.compile(r'[^c*!]\s*[^\s\d\t]',re.I).match
def get_source_info(filename):
"""
Determine if fortran file is
- in fix format and contains Fortran 77 code -> False, True
- in fix format and contains Fortran 90 code -> False, False
- in free format and contains Fortran 90 code -> True, False
- in free format and contains signatures (.pyf) -> True, True
"""
base,ext = os.path.splitext(filename)
if ext=='.pyf':
return True, True
isfree = False
isstrict = False
f = open(filename,'r')
firstline = f.readline()
f.close()
if _has_f_extension(filename) and \
not (_has_f90_header(firstline) or _has_fix_header(firstline)):
isstrict = True
elif is_free_format(filename) and not _has_fix_header(firstline):
isfree = True
return isfree,isstrict
def is_free_format(file):
"""Check if file is in free format Fortran."""
# f90 allows both fixed and free format, assuming fixed unless
# signs of free format are detected.
isfree = False
f = open(file,'r')
line = f.readline()
n = 10000 # the number of non-comment lines to scan for hints
if _has_f_header(line):
n = 0
elif _has_f90_header(line):
n = 0
isfree = True
contline = False
while n>0 and line:
if line[0]!='!' and line.strip():
n -= 1
if line[0]!='\t' and _free_f90_start(line[:5]) or line[-2:-1]=='&':
isfree = True
break
#elif line[-2:-1]=='&':
# contline = True
#else:
# contline = False
line = f.readline()
f.close()
return isfree
def simple_main():
for filename in sys.argv[1:]:
isfree, isstrict = get_source_info(filename)
print '%s: isfree=%s, isstrict=%s' % (filename, isfree, isstrict)
if __name__ == '__main__':
simple_main()
|
