version 1.8, 2013/11/13 19:38:37
|
version 1.9, 2013/11/15 17:05:49
|
Line 42 PERL_FXNS_A = """sub new |
|
Line 42 PERL_FXNS_A = """sub new |
|
}; | }; |
| |
bless($self, $clname); | bless($self, $clname); |
$self->{_paramsH} = $self->initialize(); |
$self->{_paramsH} = {}; |
|
$self->initialize(); |
| |
return $self; | return $self; |
} | } |
Line 259 def processParam(cfgfile, line, regexpQu |
|
Line 260 def processParam(cfgfile, line, regexpQu |
|
# constants (the names of which are the parameter names) | # constants (the names of which are the parameter names) |
# we can refer to those in the init section. The key variable holds the | # we can refer to those in the init section. The key variable holds the |
# name of the constant. | # name of the constant. |
perlInitSection.extend(list('\n $self->{_paramsH}->{' + key + '} = ' + "'" + val + "';")) |
perlInitSection.extend(list("\n $self->{_paramsH}->{'" + key + "'} = " + key + ';')) |
else: | else: |
# No quote qualifier | # No quote qualifier |
raise Exception('missingQuoteQual', key) | raise Exception('missingQuoteQual', key) |
Line 651 def configureComps(defs, mDefs): |
|
Line 652 def configureComps(defs, mDefs): |
|
mDefs.extend(list('\nFCOMPILER = gfortran')) | mDefs.extend(list('\nFCOMPILER = gfortran')) |
| |
# Environment overrides. These get written, regardless of the disposition of auto-configuration. | # Environment overrides. These get written, regardless of the disposition of auto-configuration. |
mDefs.extend(list('\nifneq ($(JSOC_COMPILER,))\n COMPILER = $(JSOC_COMPILER)\nendif')) |
mDefs.extend(list('\nifneq ($(JSOC_COMPILER),)\n COMPILER = $(JSOC_COMPILER)\nendif')) |
mDefs.extend(list('\nifneq ($(JSOC_FCOMPILER,))\n FCOMPILER = $(JSOC_FCOMPILER)\nendif')) |
mDefs.extend(list('\nifneq ($(JSOC_FCOMPILER),)\n FCOMPILER = $(JSOC_FCOMPILER)\nendif')) |
| |
return rv | return rv |
| |