LMU/musrsim
LMU/musrsim
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Check mac file

Browse Source
This commit is contained in:
salman 2012-04-27 08:07:52 +00:00
parent a39961bed7
commit 97b93dcb8f
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
geant4/PQt_musrSim/QmuSRSim.pl
View File

@ -1,6 +1,6 @@
# Form implementation generated from reading ui file 'QmuSRSim.ui' # Form implementation generated from reading ui file 'QmuSRSim.ui'
# #
# Created: Thu Apr 26 17:05:32 2012 # Created: Fri Apr 27 10:07:20 2012
# by: The PerlQt User Interface Compiler (puic) # by: The PerlQt User Interface Compiler (puic)
# #
# WARNING! All changes made in this file will be lost! # WARNING! All changes made in this file will be lost!
@ -18906,6 +18906,7 @@ sub CheckSim
my $Geant4PATH= Geant4->text(); my $Geant4PATH= Geant4->text();
my $SaveDataPATH= SaveData->text(); my $SaveDataPATH= SaveData->text();
my $ROOTSYSPATH=ROOTSYS->text(); my $ROOTSYSPATH=ROOTSYS->text();
my $MAC=MAC->text();
# Check if any of them is empty or does not exist # Check if any of them is empty or does not exist
unless (-d $musrSimPATH) { unless (-d $musrSimPATH) {
@ -18925,6 +18926,12 @@ sub CheckSim
$answ=0; $answ=0;
$answtext=$answtext."ROOTSYS Path is wrong!\n"; $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) { if ($answ==0) {
print STDERR $answtext; print STDERR $answtext;