67 """ Example script to parse a Fortran program using fparser """ 76 from iocbio.optparse_gui
import OptionParser
78 from optparse
import OptionParser
81 def runner(_, options, args):
83 Function to read, parse and output Fortran source code. 85 :param options: object constructed by OptionParser with cmd-line flags. 86 :param args: list of Fortran files to parse. 87 :type args: list of str 95 print(
"Error: No fortran files specified", file=sys.stderr)
98 print(
"File: '{0}'".format(filename), file=sys.stderr)
100 reader = FortranFileReader(filename, ignore_comments=
False)
101 except IOError
as error:
102 print(error, file=sys.stderr)
105 fparser = ParserFactory().create(std=options.std)
107 if options.task ==
"show":
109 if options.task ==
"repr":
111 except FortranSyntaxError
as msg:
112 print(f
"Syntax error: {msg}", file=sys.stderr)
113 except InternalError
as msg:
114 print(f
"Internal error in fparser: {msg}", file=sys.stderr)
118 """Check arguments before parsing code""" 119 parser = OptionParser()
120 set_fparser_options(parser)
121 options, args = parser.parse_args()
122 runner(parser, options, args)
125 if __name__ ==
"__main__":