Return to use of GETPATH, but point to new location in example hiearchy

mccode-dev · Feb 15, 2024 · 269ab47 · 269ab47
1 parent fcc49e7
commit 269ab47
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/mcstas-comps/examples/Tests_MCPL_etc/Test_MCPL_input/Test_MCPL_input.instr b/mcstas-comps/examples/Tests_MCPL_etc/Test_MCPL_input/Test_MCPL_input.instr
@@ -26,12 +26,21 @@
 *
 * %End
 *******************************************************************************/
-DEFINE INSTRUMENT Test_MCPL_input(repeat=1,E_smear=0.1,pos_smear=0.001,dir_smear=0.01,string MCPLFILE="voutput.mcpl")
+DEFINE INSTRUMENT Test_MCPL_input(repeat=1,E_smear=0.1,pos_smear=0.001,dir_smear=0.01)
+DEPENDENCY "-DMCPLPATH=GETPATH(examples/Tests_MCPL_etc/Test_MCPL_input/voutput.mcpl)"
 
 DECLARE
 %{
   long long ncount_i;
 
+  #define QUOTE(name) #name
+  #define STR(macro) QUOTE(macro)
+
+  #ifndef MCPLPATH
+  #define MCPLPATH=/usr/share/mcstas/2.3/MCPL/voutput.mcpl
+  #endif
+
+  #define MCPLFILE STR(MCPLPATH)
 %}
 
 INITIALIZE