Changeset 661 for sans/Dev/trunk/NCNR_User_Procedures/Reduction/SANS/ProtocolAsPanel.ipf

Timestamp:

Apr 5, 2010 4:29:46 PM (12 years ago)

Author:

srkline

Message:

Added routines to enforce short enough names to keep the Igor-generated object names to less than 31 characters (once I add extensions). Changed the ExecuteProtocol? to automatically trim text from the HFIR data file names, since they are ridiculously long.

Added routines in 1D Data loader (and XML loader) to enforce 25 characters, in the case that a long file name was generated by another program.

If XML files are generated, "x" is tagged at the end of the suffix, as in ".ABSx".
Added menu items to each package menu for feedback, movies, and updates

Made sure that new table entry of SamplePosition? did not cause compile errors with other facility templates. right now, this is NCNR-specific, but easity added to other facilities if they provide the stub. then the bits of the table could be added.

File:

• sans/Dev/trunk/NCNR_User_Procedures/Reduction/SANS/ProtocolAsPanel.ipf (modified) (2 diffs)

sans/Dev/trunk/NCNR_User_Procedures/Reduction/SANS/ProtocolAsPanel.ipf

@@ -1870 +1870 @@
 #if (exists("QUOKKA")==6)
                         newFileName = ReplaceString(".nx.hdf", tempFilename, "")
+#elif (exists("HFIR")==6)
+                        newFileName = ReplaceString(".xml",textPath[0],"")              //removes 4 chars
+                        newFileName = ReplaceString("SANS",newFileName,"")              //removes 4 more chars = 8
+                        newFileName = ReplaceString("exp",newFileName,"")                       //removes 3 more chars = 11
+                        newFileName = ReplaceString("scan",newFileName,"")              //removes 4 more chars = 15, should be enough?
 #else
-                        newFileName = UpperStr(GetNameFromHeader(textPath[0]))
+                        newFileName = UpperStr(GetNameFromHeader(textPath[0]))          //NCNR data drops here, trims to 8 chars
 #endif
                 else
@@ -1890 +1895 @@
                 endif
                 
+                // add an "x" to the file extension if the output is XML
+                // currently (2010), only for ABS and AVE (1D) output
+                if( cmpstr(exten,"ABS") == 0 || cmpstr(exten,"AVE") == 0 )
+                        if(useXMLOutput == 1)
+                                exten += "x"
+                        endif
+                endif
+                                
                 //Path is catPathName, symbolic path
                 //if this doesn't exist, a dialog will be presented by setting dialog = 1