2009-09-02 20:45:53 +02:00
|
|
|
#!/usr/bin/python
|
2009-09-23 12:51:27 +02:00
|
|
|
# IRPF90 is a Fortran90 preprocessor written in Python for programming using
|
|
|
|
# the Implicit Reference to Parameters (IRP) method.
|
|
|
|
# Copyright (C) 2009 Anthony SCEMAMA
|
|
|
|
#
|
|
|
|
# This program is free software; you can redistribute it and/or modify
|
|
|
|
# it under the terms of the GNU General Public License as published by
|
|
|
|
# the Free Software Foundation; either version 2 of the License, or
|
|
|
|
# (at your option) any later version.
|
|
|
|
#
|
|
|
|
# This program is distributed in the hope that it will be useful,
|
|
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
# GNU General Public License for more details.
|
|
|
|
#
|
|
|
|
# You should have received a copy of the GNU General Public License along
|
|
|
|
# with this program; if not, write to the Free Software Foundation, Inc.,
|
|
|
|
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
|
|
#
|
|
|
|
# Anthony Scemama
|
|
|
|
# LCPQ - IRSAMC - CNRS
|
|
|
|
# Universite Paul Sabatier
|
|
|
|
# 118, route de Narbonne
|
|
|
|
# 31062 Toulouse Cedex 4
|
2009-09-25 00:04:49 +02:00
|
|
|
# scemama@irsamc.ups-tlse.fr
|
2009-09-23 12:51:27 +02:00
|
|
|
|
2009-09-02 20:45:53 +02:00
|
|
|
|
|
|
|
import getopt, sys
|
|
|
|
from version import version
|
|
|
|
|
|
|
|
description = "IRPF90 Fortran preprocessor."
|
|
|
|
options = {}
|
|
|
|
options['d'] = [ 'debug' , 'Activate debug', 0 ]
|
|
|
|
options['v'] = [ 'version' , 'Print version of irpf90', 0 ]
|
|
|
|
options['a'] = [ 'assert' , 'Activate assertions', 0 ]
|
|
|
|
options['h'] = [ 'help' , 'Print this help', 0 ]
|
|
|
|
options['i'] = [ 'init' , 'Initialize current directory', 0 ]
|
2009-09-03 23:12:32 +02:00
|
|
|
options['D'] = [ 'define' , 'Define variable', 1 ]
|
2009-10-22 13:32:51 +02:00
|
|
|
options['o'] = [ 'checkopt' , 'Show where optimization may be required', 0 ]
|
2009-09-16 15:59:13 +02:00
|
|
|
options['p'] = [ 'preprocess' , 'Preprocess file', 1 ]
|
2010-08-31 11:53:34 +02:00
|
|
|
options['t'] = [ 'touch' , 'Display which entities are touched', 1 ]
|
2009-11-02 16:16:13 +01:00
|
|
|
options['m'] = [ 'memory' , 'Debug memory info', 0 ]
|
2010-08-31 11:53:34 +02:00
|
|
|
options['z'] = [ 'openmp' , 'Automatic openMP tasks (may not work)', 0 ]
|
2009-09-02 20:45:53 +02:00
|
|
|
|
|
|
|
class CommandLine(object):
|
|
|
|
|
|
|
|
def __init__(self):
|
2009-09-03 23:12:32 +02:00
|
|
|
global options
|
2009-09-03 00:46:11 +02:00
|
|
|
self._opts = None
|
2009-09-03 23:12:32 +02:00
|
|
|
self.argv = list(sys.argv)
|
|
|
|
self.executable_name = self.argv[0]
|
2009-09-02 20:45:53 +02:00
|
|
|
|
2009-09-03 23:12:32 +02:00
|
|
|
def defined(self):
|
2009-09-04 15:11:42 +02:00
|
|
|
if '_defined' not in self.__dict__:
|
2009-09-03 23:12:32 +02:00
|
|
|
self._defined = []
|
|
|
|
for o,a in self.opts:
|
|
|
|
if o in [ "-D", options['D'][0] ]:
|
|
|
|
self._defined.append(a)
|
|
|
|
return self._defined
|
|
|
|
defined = property(fget=defined)
|
2009-09-02 20:45:53 +02:00
|
|
|
|
2009-09-16 15:59:13 +02:00
|
|
|
def preprocessed(self):
|
|
|
|
if '_preprocessed' not in self.__dict__:
|
|
|
|
self._preprocessed = []
|
|
|
|
for o,a in self.opts:
|
|
|
|
if o in [ "-p", options['p'][0] ]:
|
|
|
|
self._preprocessed.append(a)
|
|
|
|
return self._preprocessed
|
|
|
|
preprocessed = property(fget=preprocessed)
|
|
|
|
|
2010-08-31 11:53:34 +02:00
|
|
|
def touched(self):
|
|
|
|
if '_touched' not in self.__dict__:
|
|
|
|
self._touched = []
|
|
|
|
for o,a in self.opts:
|
|
|
|
if o in [ "-t", options['t'][0] ]:
|
2010-09-01 15:10:16 +02:00
|
|
|
self._touched.append(a.lower())
|
2010-08-31 11:53:34 +02:00
|
|
|
return self._touched
|
|
|
|
touched = property(fget=touched)
|
|
|
|
|
2009-09-02 20:45:53 +02:00
|
|
|
def usage(self):
|
|
|
|
t = """
|
|
|
|
$EXE - $DESCR
|
|
|
|
|
|
|
|
Usage:
|
|
|
|
$EXE [OPTION]
|
|
|
|
|
|
|
|
Options:
|
|
|
|
"""
|
|
|
|
t = t.replace("$EXE",self.executable_name)
|
|
|
|
t = t.replace("$DESCR",description)
|
|
|
|
print t
|
|
|
|
sorted = options.keys()
|
|
|
|
sorted.sort()
|
|
|
|
for o in sorted:
|
|
|
|
print " -%s , --%15s : %s"%(o,options[o][0].ljust(15),options[o][1])
|
|
|
|
if options[o][2] == 1:
|
|
|
|
print " Requires an argument"
|
|
|
|
print ""
|
|
|
|
print "Version : ", version
|
|
|
|
print ""
|
|
|
|
|
|
|
|
def opts(self):
|
2009-09-03 00:46:11 +02:00
|
|
|
if self._opts is None:
|
|
|
|
optlist = ["",[]]
|
|
|
|
for o in options.keys():
|
|
|
|
b = [o]+options[o]
|
|
|
|
if b[3] == 1:
|
|
|
|
b[0] = b[0]+":"
|
|
|
|
b[1] = b[1]+"="
|
|
|
|
optlist[0] += b[0]
|
|
|
|
optlist[1] += [b[1]]
|
|
|
|
|
|
|
|
try:
|
2009-09-03 23:12:32 +02:00
|
|
|
self._opts, args = getopt.getopt(self.argv[1:], optlist[0], optlist[1])
|
2009-09-03 00:46:11 +02:00
|
|
|
except getopt.GetoptError, err:
|
|
|
|
# print help information and exit:
|
|
|
|
self.usage()
|
|
|
|
print str(err) # will print something like "option -a not recognized"
|
|
|
|
sys.exit(2)
|
|
|
|
|
|
|
|
return self._opts
|
|
|
|
opts = property(fget=opts)
|
2009-09-02 20:45:53 +02:00
|
|
|
|
|
|
|
t = """
|
|
|
|
def do_$LONG(self):
|
2009-09-04 15:11:42 +02:00
|
|
|
if '_do_$LONG' not in self.__dict__:
|
2009-09-03 00:46:11 +02:00
|
|
|
self._do_$LONG = False
|
|
|
|
for o,a in self.opts:
|
|
|
|
if o in ("-$SHORT", "--$LONG"):
|
|
|
|
self._do_$LONG = True
|
|
|
|
break
|
|
|
|
return self._do_$LONG
|
|
|
|
do_$LONG = property(fget=do_$LONG)
|
2009-09-02 20:45:53 +02:00
|
|
|
"""
|
|
|
|
for short in options.keys():
|
|
|
|
long = options[short][0]
|
|
|
|
exec t.replace("$LONG",long).replace("$SHORT",short)
|
|
|
|
|
|
|
|
def do_run(self):
|
2009-09-04 15:11:42 +02:00
|
|
|
if '_do_run' not in self.__dict__:
|
2009-09-17 10:54:09 +02:00
|
|
|
self._do_run = not ( \
|
|
|
|
self.do_version or \
|
|
|
|
self.do_help or \
|
|
|
|
self.do_preprocess or \
|
2010-09-01 15:10:16 +02:00
|
|
|
self.do_touch or \
|
2009-09-17 10:54:09 +02:00
|
|
|
self.do_init )
|
2009-09-03 00:46:11 +02:00
|
|
|
return self._do_run
|
|
|
|
do_run = property(fget=do_run)
|
2009-09-02 20:45:53 +02:00
|
|
|
|
|
|
|
|
|
|
|
command_line = CommandLine()
|