332 lines
7.4 KiB
C
332 lines
7.4 KiB
C
/****************************************************************************
|
|
** ui.h extension file, included from the uic-generated form implementation.
|
|
**
|
|
** If you want to add, delete, or rename functions or slots, use
|
|
** Qt Designer to update this file, preserving your code.
|
|
**
|
|
** You should not define a constructor or destructor in this file.
|
|
** Instead, write your code in functions called init() and destroy().
|
|
** These will automatically be called by the form's constructor and
|
|
** destructor.
|
|
*****************************************************************************/
|
|
|
|
|
|
void QmuSRSim::fileNew()
|
|
{
|
|
|
|
}
|
|
|
|
|
|
void QmuSRSim::fileOpen()
|
|
{
|
|
my $file=Qt::FileDialog::getOpenFileName(
|
|
".",
|
|
"Initialization file (.* *.*)",
|
|
this,
|
|
"open file dialog",
|
|
"Choose an initialization file");
|
|
|
|
# If the user gave a valid filename try to read it
|
|
if ($file ne "") {
|
|
open (INF,q{<},"$file" );
|
|
my @lines = <INF>;
|
|
close(INF);
|
|
my $Attrib="";
|
|
foreach my $line (@lines) {
|
|
# Remove white spaces
|
|
$line =~ s/\s+//g;
|
|
my @InitPar = split (/=/,$line);
|
|
# Check it is not empty or title line
|
|
if ($InitPar[0] ne "" && $InitPar[1] ne "") {
|
|
$Attrib = child($InitPar[0]);
|
|
$Attrib->setText($InitPar[1]);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
void QmuSRSim::fileSave()
|
|
{
|
|
my %All=CreateAllInput();
|
|
my $InitFile="";
|
|
for my $key (keys %All) {
|
|
$InitFile=$InitFile.$key."=".$All{$key}."\n";
|
|
}
|
|
|
|
# Save to default file name "musrSim.cfg"
|
|
my $file = "musrSim.cfg";
|
|
open (OUTF,q{>},"$file" );
|
|
print OUTF (" $InitFile");
|
|
close(OUTF);
|
|
}
|
|
|
|
|
|
void QmuSRSim::fileSaveAs()
|
|
{
|
|
my %All=CreateAllInput();
|
|
my $InitFile="";
|
|
for my $key (keys %All) {
|
|
$InitFile=$InitFile.$key."=".$All{$key}."\n";
|
|
}
|
|
|
|
my $file=Qt::FileDialog::getSaveFileName(
|
|
"musrSim cfg",
|
|
"musrSim GUI Initialization file (*.cfg)",
|
|
this,
|
|
"save file dialog",
|
|
"Choose a filename to save under");
|
|
# if the user gave a filename then sanesave copy to it
|
|
if ($file ne "") {
|
|
open (OUTF,q{>},"$file" );
|
|
print OUTF (" $InitFile");
|
|
close(OUTF);
|
|
}
|
|
}
|
|
|
|
|
|
void QmuSRSim::filePrint()
|
|
{
|
|
|
|
}
|
|
|
|
|
|
void QmuSRSim::fileExit()
|
|
{
|
|
my $Ans = Qt::MessageBox::question( this, "Quit?","Are you sure you want to quit?","&Yes","&No","",0,1);
|
|
if ($Ans==0) {
|
|
# Then quit
|
|
Qt::Application::exit( 0 );
|
|
}
|
|
# Otherwize go back
|
|
}
|
|
|
|
|
|
void QmuSRSim::editUndo()
|
|
{
|
|
|
|
}
|
|
|
|
|
|
void QmuSRSim::editRedo()
|
|
{
|
|
|
|
}
|
|
|
|
|
|
void QmuSRSim::editCut()
|
|
{
|
|
|
|
}
|
|
|
|
|
|
void QmuSRSim::editCopy()
|
|
{
|
|
|
|
}
|
|
|
|
|
|
void QmuSRSim::editPaste()
|
|
{
|
|
|
|
}
|
|
|
|
|
|
void QmuSRSim::editFind()
|
|
{
|
|
|
|
}
|
|
|
|
|
|
void QmuSRSim::helpIndex()
|
|
{
|
|
|
|
}
|
|
|
|
|
|
void QmuSRSim::helpContents()
|
|
{
|
|
|
|
}
|
|
|
|
|
|
void QmuSRSim::helpAbout()
|
|
{
|
|
my $AboutText="
|
|
This is a GUI that uses the muSRSim binary, to simulate the LEM muon
|
|
beam properties.
|
|
|
|
This software 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 3 of the License, or
|
|
(at your option) any later version.
|
|
|
|
This software 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 MuSRFitGUI. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
Copyright 2011 by Zaher Salman and the LEM Group.
|
|
<zaher.salman\@psi.ch>
|
|
";
|
|
my $AboutWindow = Qt::MessageBox::information( this, "About QmuSRSim GUI",$AboutText);
|
|
|
|
}
|
|
|
|
void QmuSRSim::CreateAllInput()
|
|
{
|
|
my %All=();
|
|
my @AllParams= ("L1","L3","TL","BFIELD","RA_T","RA_B","RA_R","RA_L","SR_B","SR_E","ENERGY","NMuon",
|
|
"L1_2","L2_2","L3_2","BFIELD_2","RA_T_2","RA_B_2","RA_R_2","RA_L_2","ENERGY_2",
|
|
"MAC","musrSim","Geant4","SaveData","ROOTSYS");
|
|
foreach my $Param (@AllParams) {
|
|
my $Child = child($Param);
|
|
my $Value = $Child->text;
|
|
$All{$Param}=$Value;
|
|
# print "$Param=".$All{$Param}."\n";
|
|
}
|
|
# Return Hash with all important values
|
|
return %All;
|
|
}
|
|
|
|
|
|
|
|
void QmuSRSim::StartCalc()
|
|
{
|
|
my %All=CreateAllInput();
|
|
|
|
# Check if the simulation can run
|
|
my $answ = CheckSim();
|
|
print "Answer=$answ\n";
|
|
|
|
if ($answ == 1) {
|
|
my $Page = Tabs->currentPageIndex;
|
|
my %ToReplace=();
|
|
my @SpaceHolder=();
|
|
my $FName="SRBeamLine.mac";
|
|
# 0 for spin rotator and 1 for current.
|
|
if ($Page == 0) {
|
|
%ToReplace= (
|
|
"L1"=>"L1VOLTAGE",
|
|
"L3"=>"L3VOLTAGE",
|
|
"TL"=>"TLVOLTAGE",
|
|
"BFIELD"=>"SAM_BFIELD",
|
|
"RA_T"=>"RA_TVOL",
|
|
"RA_B"=>"RA_BVOL",
|
|
"RA_R"=>"RA_RVOL",
|
|
"RA_L"=>"RA_LVOL",
|
|
"SR_B"=>"SR_BFIELD",
|
|
"SR_E"=>"SR_EFIELD",
|
|
"NMuon"=>"NMuon",
|
|
"ENERGY"=>"ENERGY"
|
|
);
|
|
# Use the following template
|
|
$FName="SRBeamLine.mac";
|
|
} elsif ($Page == 1) {
|
|
%ToReplace= (
|
|
"L1_2"=>"L1VOLTAGE",
|
|
"L2_2"=>"L2VOLTAGE",
|
|
"L3_2"=>"L3VOLTAGE",
|
|
"BFIELD_2"=>"SAM_BFIELD",
|
|
"RA_T_2"=>"RA_TVOL",
|
|
"RA_B_2"=>"RA_BVOL",
|
|
"RA_R_2"=>"RA_RVOL",
|
|
"RA_L_2"=>"RA_LVOL",
|
|
"NMuon"=>"NMuon",
|
|
"ENERGY_2"=>"ENERGY"
|
|
);
|
|
# Use the following template
|
|
$FName="CBeamLine.mac";
|
|
}
|
|
|
|
open(MACF,"$FName");
|
|
my @lines=<MACF>;
|
|
close(MACF);
|
|
|
|
for my $key (keys %ToReplace) {
|
|
# Need to check values of replace parameters...
|
|
map(s/$ToReplace{$key}/$All{$key}/, @lines);
|
|
print "Replacing \t".$ToReplace{$key}."\t by \t".$All{$key}."\n";
|
|
}
|
|
|
|
my $NewFile=$All{"MAC"}.".mac";
|
|
open(NEWMACF,">$NewFile");
|
|
print NEWMACF @lines;
|
|
close(NEWMACF);
|
|
print "Created mac file $NewFile\n";
|
|
|
|
my $DIR=`pwd`;
|
|
chomp $DIR;
|
|
my $musrSim=$All{"musrSim"};
|
|
my $Geant4=$All{"Geant4"};
|
|
my $SYSROOT=$All{"SYSROOT"};
|
|
my $cmd="cd $musrSim; . $Geant4/env.sh; export SYSROOT=$SYSROOT; cd run; cp $DIR/$NewFile $NewFile;$musrSim/bin/Linux-g++/musrSim $NewFile > $NewFile.out ";
|
|
system("$cmd");
|
|
}
|
|
}
|
|
|
|
|
|
|
|
void QmuSRSim::GetPATH()
|
|
{
|
|
# Which button was clicked?
|
|
my $sender = sender();
|
|
# Then find the name of the sender button and convert it to the name of the appropriate lineEdit
|
|
my $name = $sender->name();
|
|
$name =~ s/Button//g;
|
|
|
|
# Get the requested path
|
|
my $RETVAL = Qt::FileDialog::getExistingDirectory("./",this,"get existing directory","Choose a directory",1);
|
|
# Now submit the path into the lineEdit
|
|
if ($RETVAL ne "") {
|
|
child($name)->setText($RETVAL);
|
|
}
|
|
}
|
|
|
|
void QmuSRSim::CheckSim()
|
|
{
|
|
# Returns 1 if the simulation can run and 0 if not
|
|
my $answ=1;
|
|
my $answtext="";
|
|
|
|
my $musrSimPATH= musrSim->text();
|
|
my $Geant4PATH= Geant4->text();
|
|
my $SaveDataPATH= SaveData->text();
|
|
my $ROOTSYSPATH=ROOTSYS->text();
|
|
my $MAC=MAC->text();
|
|
|
|
# Check if any of them is empty or does not exist
|
|
unless (-d $musrSimPATH) {
|
|
$answ=0;
|
|
$answtext=$answtext."musrSim Path \" $musrSimPATH\" is wrong!\n";
|
|
} else {
|
|
unless (-e "$Geant4PATH/env.sh") {
|
|
$answ=0;
|
|
$answtext=$answtext."Geant4 'env.sh' file does not exist!\n";
|
|
}
|
|
}
|
|
unless (-d $SaveDataPATH) {
|
|
$answ=0;
|
|
$answtext=$answtext."Save Data Path is wrong!\n";
|
|
}
|
|
unless (-d $ROOTSYSPATH) {
|
|
$answ=0;
|
|
$answtext=$answtext."ROOTSYS Path is wrong!\n";
|
|
}
|
|
|
|
# my $NewFile="$musrSim/run/$MAC.mac";
|
|
# unless (-e $NewFile) {
|
|
# $answ=0;
|
|
# $answtext=}answtext."Macro file $NewFile exists!\n";
|
|
# }
|
|
|
|
if ($answ==0) {
|
|
print STDERR $answtext;
|
|
my $HelpWindow = Qt::MessageBox::information( this, "Error!",$answtext);
|
|
}
|
|
return $answ;
|
|
}
|