blob: 2341a0f22a21ed94f541f08cd1d0f4585aa2ad0b (
plain)
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
75
76
77
78
|
#!/usr/bin/env python
"""
Defines FortranParser.
Permission to use, modify, and distribute this software is given under the
terms of the NumPy License. See http://scipy.org.
NO WARRANTY IS EXPRESSED OR IMPLIED. USE AT YOUR OWN RISK.
Author: Pearu Peterson <pearu@cens.ioc.ee>
Created: May 2006
"""
import re
from readfortran import FortranFileReader, FortranStringReader
from block import Block
class FortranParser:
def __init__(self, reader):
self.reader = reader
self.isfix77 = reader.isfix77
def get_item(self):
try:
return self.reader.next(ignore_comments = True)
except StopIteration:
pass
def put_item(self, item):
self.reader.fifo_item.insert(0, item)
def parse(self):
main = Block(self)
main.fill()
return main
def test_pyf():
string = """
python module foo
interface
subroutine bar
real r
end subroutine bar
end interface
end python module
"""
reader = FortranStringReader(string, True, True)
parser = FortranParser(reader)
block = parser.parse()
print block
def test_f77():
string = """\
c program foo
a = 3
end
subroutine bar
end
"""
reader = FortranStringReader(string, False, True)
parser = FortranParser(reader)
block = parser.parse()
print block
def simple_main():
import sys
for filename in sys.argv[1:]:
print 'Processing',filename
reader = FortranFileReader(filename)
parser = FortranParser(reader)
block = parser.parse()
print block
if __name__ == "__main__":
#test_f77()
#test_pyf()
simple_main()
|
