#!/usr/bin/env perl

use strict;
use warnings;

package Settings;

our %PROGINFOS = (
    'rnashapes',         {date => '12.07.2024', version => '3.4.0', name => 'RNAshapes', packageDir => 'RNAshapes/'},
    'rnaalishapes',      {date => '12.07.2024', version => '2.5.0', name => 'RNAalishapes', packageDir => 'RNAalishapes/'},
    'pkiss',             {date => '12.07.2024', version => '2.3.0', name => 'pKiss', packageDir => 'pKiss/'},
    'palikiss',          {date => '12.07.2024', version => '1.1.0', name => 'pAliKiss', packageDir => 'pAliKiss/'},
    'libfoldgrammars',   {date => '12.07.2024', version => '1.3.0', name => 'libfoldgrammars', packageDir => 'libfoldGrammars/'},
    'rapidshapes',       {date => '12.07.2024', version => '2.1.0', name => 'RapidShapes', packageDir => 'RapidShapes/'},
    'knotinframe',       {date => '12.07.2024', version => '2.2.0', name => 'knotinframe', packageDir => 'Knotinframe/'},
    'rapidshapestest',   {date => '21.04.2021', version => '2.2.0', name => 'RapidShapes-Test'},
    'getoutsidetruth',   {date => '19.04.2013', version => '1.1.0', name => 'getOutsideTruth'},
    'acms',              {date => '12.07.2024', version => '1.3.0', name => 'acms', packageDir => 'aCMs/'},
    'acmbuild',          {date => '12.07.2024', version => '1.3.0', name => 'acmbuild'},
    'acmsearch',         {date => '12.07.2024', version => '1.3.0', name => 'acmsearch'},
    'locomotif_wrapper', {date => '16.01.2015', version => '1.1.0', name => 'Locomotif_wrapper'},
);


our $rootDir = '/vol/fold-grammars/src/'; #must point to the root directory of the fold-grammars repository!
our $prototypeDirectory = $rootDir; #for RapidShapes: directory where to find bgap sources, i.e. the fold-grammars repository somewhere in the file system
our $bgapDir = '/vol/gapc/'; #must point to the directory containing "bin" "include" "share" and "lib" sub-directories of Bellman's Gap Compiler

our $tmpdir = '/tmp/'; #temporary directory
our $fileseparater = '/'; #character that separates directories in a path, / in unix but \ in windows

my %BINARIES = (
	'addRNAoptions.pl','addRNAoptions.pl',
	'centroid_fold', 'centroid_fold',
	'ct2b.pl', 'ct2b.pl',
	'gapc', 'gapc',
	'gcc',defined $ENV{'CC'} ? $ENV{'CC'} : 'gcc',
	'ghc','/vol/ghc-7.6/bin/ghc',
	'hybrid-ss-min', 'hybrid-ss-min-3.8',
	'readlink', 'readlink',
	'RNAalifold', 'RNAalifold-2.1.3',
	'RNAfold', 'RNAfold-2.1.3',
	'RNAsubopt', 'RNAsubopt-2.1.3',
);

if (qx(uname -s) =~ m/SunOS/) {
	$BINARIES{sed} = '/vol/gnu/bin/sed';
}

our %TDMfiles = (
	'macrostate', 'macrostate.gap',
	'microstate', 'microstate.gap',
	'overdangle', 'overdangle.gap',
	'nodangle', 'nodangle.gap',
);
our $TDMgenerator = 'tdmGenerator.gap';

our $OUTPUT_MINLEFTWIDTH = 7;
our $OUTPUT_FIELDSPACER = "  ";
our $SCIDECIMALS = 3;

our $MODE_MFE = 'mfe';
our $MODE_SUBOPT = 'subopt';
our $MODE_SHAPES = 'shapes';
our $MODE_PROBS = 'probs';
our $MODE_SAMPLE = 'sample';
our $MODE_EVAL = 'eval';
our $MODE_ENFORCE = 'enforce';
our $MODE_LOCAL = 'local';
our $MODE_CAST = 'cast';
our $MODE_KBEST = 'kbest';
our $MODE_LIST = 'list';
our $MODE_ENERGY = 'energy';
our $MODE_ABSTRACT = 'abstract';
our $MODE_OUTSIDE = 'outside';
our $MODE_ANALYSE_OUTSIDE = 'analyse_outside';
our $MODE_PFALL = 'pfall';
our $MODE_MEA = 'mea';
our $MODE_PROBING = 'probing';

our $MODE_KIF = 'kif'; #single and thus default mode for KnotInFrame

our $MODE_ACM = 'acm'; #single and thus default mode for ACMs

our $MODE_LOCOMOTIF = 'locomotif'; #single and thus default mode for the perl wrapper for locomotif, to present matcher results with my standard format

# we might not have a compiler available, e.g. in bioconda builds. In these situations, default to "undefGCC" for ARCHTRIPLE,
# which is basically pointing to the tmp directories of gapc compile products. These should have been moved
# to PREFIX/bin via make install, anyway.
our $ARCHTRIPLE = 'undefGCC';
if (qx(which $BINARIES{gcc}) ne '') {
  $ARCHTRIPLE = qx($BINARIES{gcc} -dumpmachine); chomp $ARCHTRIPLE;
}
our $RNAPARAM1999 =  $Settings::bgapDir.$fileseparater.'share/gapc/librna/rna_turner1999.par';
our $RNAPARAM2004 = $Settings::bgapDir.$fileseparater.'share/gapc/librna/rna_turner2004.par';

our $NORMALIZATION_CENTROID = 'centroid';
our $NORMALIZATION_RNASTRUCTURE = 'RNAstructure';
our $NORMALIZATION_LOGPLAIN = 'logplain';
our $NORMALIZATION_ASPROBABILITIES = 'asProbabilities';
our $MODIFIER_DMS = 'DMS';
our $MODIFIER_CMCT = 'CMCT';
our $MODIFIER_SHAPE = 'SHAPE';
our $MODIFIER_DIFFSHAPE = 'diffSHAPE';
our $MODIFIER_UNKNOWN = 'unknown';

#settings for RapidShapes on BiBiServ
our %RAPIDSHAPES_BIBISERV = (
	'clusterwide_tempdir', '/vol/tmp/',
	'tdmwrapper_binary', '/vol/fold-grammars/src/Misc/Applications/RapidShapes/tdmwrapper',
	'binPath_grammargenerator', '/vol/fold-grammars/bin/',
	'qsub', 'qsub -l virtual_free=6GB -l h_vmem=6GB -cwd -tc 10 ', #-tc controls the number of maximal parallel jobs for an array-job
	'gridSH', '/usr/bin/sh',
	'sleepTimeInit', '1', #initial number of seconds between two qstat requests
	'sleepTimeMax', '2', #maximal number of seconds between two qstat requests
	'wrapInputSequenceAfterChars', '70',
	'htmlStatusFilename', 'status.part', #sets the filename to which the status reports should be written
);

my %checkedBinaries = (); #run time hash to avoid multiple check for binaries
sub getBinary {
	my ($requestedBinary) = @_;

	return $checkedBinaries{$requestedBinary} if (exists $checkedBinaries{$requestedBinary});

	my $binary = $requestedBinary;
	$binary = $BINARIES{$requestedBinary} if (exists $BINARIES{$requestedBinary});
	my $whichResult = qx(which $binary 2>&1);
	chomp $whichResult;
	if (($whichResult ne '') && (-x $whichResult)) {
		$binary = $whichResult;
	} else {
		$binary = undef;
	}
	if (not defined $binary) {
		die "You are using the binary '$requestedBinary', but it cannot be found. Please check your configuration in 'Settings.pm' or your PATH variable.";
	} else {
		$checkedBinaries{$requestedBinary} = $binary;
		return $binary;
	}
}

1;
