Changeset 588 for sans/Dev/trunk/NCNR_User_Procedures/Common/NCNR_Package_Loader.ipf

Timestamp:

Nov 2, 2009 10:55:37 AM (13 years ago)

Author:

srkline

Message:

Added conditional compile instructions to some reduction procedure files that have only minor facility-specific changes. These changes are not significant enough to merit a separate facility file that must be maintained with essentially duplicate functions.

#define SYMBOL was attempted, but did not work since the symbols weren't actually defined until after the compile... and I couldn't figure out how to define - then compile. in additon, the table is static until Igor is quit - so multiple symbols could be defined, and compiling would fail.

So... the method now that appears to work is to put a dummy function for each facility in its facility specific "Includes" file. Then the conditional compilation checks for exists("function").

File:

• sans/Dev/trunk/NCNR_User_Procedures/Common/NCNR_Package_Loader.ipf (modified) (1 diff)

sans/Dev/trunk/NCNR_User_Procedures/Common/NCNR_Package_Loader.ipf

@@ -335 +335 @@
 
 end
+
+Function WhatSymbolsAreDefined()
+
+#if (exists("QUOKKA")==6)
+                print "function QUOKKA defined"
+#else
+                print "function QUOKKA NOT defined"
+#endif
+        
+#if(exists("HFIR")==6)
+                print "function HFIR defined"
+#else
+                print "function HFIR NOT defined"
+#endif
+        
+#if(exists("ILL_D22")==6)
+                print "function ILL_D22 defined"
+#else
+                print "function ILL_D22 NOT defined"
+#endif
+
+
+
+// for a lot of reasons, defined symbols do not work
+// mostly, the procedures are compiled before the symbols are
+// defined (or re-defined)
+// another issues is that they are persistent, and  don't disappear
+// until Igor is quit. 
+        
+//      SetIgorOption poundDefine=QUOKKA?
+//      if(V_flag)
+//              print "QUOKKA defined"
+//      else
+//              print "QUOKKA NOT defined"
+//      endif
+//      
+//      SetIgorOption poundDefine=HFIR?
+//      if(V_flag)
+//              print "HFIR defined"
+//      else
+//              print "HFIR NOT defined"
+//      endif
+//      
+//      SetIgorOption poundDefine=ILL_D22?
+//      if(V_flag)
+//              print "ILL_D22 defined"
+//      else
+//              print "ILL_D22 NOT defined"
+//      endif
+
+        return(0)
+End
+
+Proc ClearDefinedSymbols()
+        SetIgorOption poundUnDefine=QUOKKA
+        SetIgorOption poundUnDefine=HFIR
+        SetIgorOption poundUnDefine=ILL_D22
+End