source: sans/SANSReduction/trunk/Put in User Procedures/SANS_Reduction_v5.00/MultipleReduce.ipf @ 40

#pragma rtGlobals=1             // Use modern global access method.
#pragma version=5.0
#pragma IgorVersion=4.0

//*************************
// Vers. 1.2 092101
//
// Procedures for the MRED panel to allow quick batch reduction of data files
// -as of 8/01, use the new method of requiring only run numbers to select the datafiles
//              and these data failes need not be consecutively numbered
//
//****note that much of this file is becoming obsolete as improved methods for 
//reducing multiple files are introduced. Some of these procedures may not last long***
//
//**************************


//simple procedure to bring the CAT TABLE to the front if it is present
//alerts user, but does nothing else if CAT TABLE is not present 
//called by several panels
//
Proc ShowCATWindow()
        DoWindow/F CatVSTable
        if(V_flag==0)
                DoAlert 0,"There is no File Catalog table. Use the File Catalog button to create one."
        Endif
End


//function takes a list of filenames (just the name, no path , no extension)
//that is COMMA delimited, and creates a new list that is also COMMA delimited
//and contains the full path:file;vers for each file in the list
//and ensures that files in returned list are RAW data , and can be found on disk
//
Function/S  FullNameListFromFileList(list)
        String list
        
        String newList="",pathStr="",sepStr=","
        PathInfo catPathName
        if(V_flag==0)
                Abort "CatPath does not exist - use Pick Path to select the data folder"
        else
                pathStr = S_Path
        Endif
        
        Variable ii,num,ok
        String fullName="",partialName="",tempName="",str
         
        num = ItemsInList(list,",")
        ii=0
        do
                //take each item, and try to find the file (extensions for raw data should be ;1)
                partialName = StringFromList(ii,list,",")       //COMMA separated list
                if(strlen(partialName)!=0)              //null string items will be skipped
                        tempName = FindValidFilename(partialName)               //will add the version # if needed      
                        fullName = pathStr + tempName                                           //prepend the path (CAT)
                        
                        //discard strings that are not filenames (print the non-files)
                        //make sure the file is really a RAW data file
                        ok = CheckIfRawData(fullName)           // 1 if RAW, 0 if unknown type
                        if (!ok)
                                //write to cmd window that file was not a RAW SANS file
                                str = "This file is not recognized as a RAW SANS data file: "+tempName+"\r"
                                Print str
                        else
                                //yes, a valid file:path;ext that is RAW SANS
                                //add the full path:file;ext +"," to the newList
                                newList += fullName + sepStr
                        Endif
                endif           //partialName from original list != ""
                ii+=1
        while(ii<num)   //process all items in list
        
        Return(newList)
End

//takes a COMMA delimited list of files (full path:name;vers output of FullNameListFromFileList()
//function and reduces each of the files in the list
//the protocol is from the global string (wich is NOt in the MRED folder, but in the Protocols folder
//
Function DoReduceList(list)
        String list
        
        //selected protocol is in a temporary global variable so that it can be used with execute
        SVAR gMredProtoStr = root:myGlobals:Protocols:gMredProtoStr
        //input list is a comma delimited list of individual sample files to be reduced using the 
        //given protocol - based on WM proc "ExecuteCmdOnList()"
        //input filenames must be full path:file;ext, so they can be found on disk
        
        String cmdTemplate = "ExecuteProtocol(\"" + gMredProtoStr + "\",\"%s\")"
        String theItem
        Variable index=0
        String cmd
        Variable num = ItemsInList(list,",")
        do
                theItem = StringFromList(index,list,",")        //COMMA separated list
                if(strlen(theItem)!=0)
                        sprintf cmd,cmdTemplate,theItem         //null string items will be skipped
                        //Print "cmd = ",cmd
                        Execute cmd
                endif
                index +=1
        while(index<num)        //exit after all items have been processed
        
        //will continue until all files in list are reduced, according to gMredProtoStr protocol
        return(0)
End


//panel to allow reduction of a series of files using a selected  protocol
//
//main entry procedure to open the panel, initializing if necessary
Proc ReduceMultipleFiles()
        
        DoWindow/F Multiple_Reduce_Panel
        If(V_flag == 0)
                InitializeMultReducePanel()
                //draw panel
                Multiple_Reduce_Panel()
                //pop the protocol list
                MRProtoPopMenuProc("",1,"")
        Endif
End

//create the global variables needed to run the MReduce Panel
//all are kept in root:myGlobals:MRED
//
Proc InitializeMultReducePanel()

        If(DataFolderExists("root:myGlobals:MRED"))
                //ok, do nothing
        else
                //no, create the folder and the globals
                NewDataFolder/O root:myGlobals:MRED
//              String/G root:myGlobals:MRED:gMRedMatchStr = "*"
                PathInfo catPathName
                If(V_flag==1)
                        String dum = S_path
                        String/G root:myGlobals:MRED:gCatPathStr = dum
                else
                        String/G root:myGlobals:MRED:gCatPathStr = "no path selected"
                endif
                String/G root:myGlobals:MRED:gMRedList = "none"
                String/G root:myGlobals:MRED:gMRProtoList = "none"
                String/G root:myGlobals:MRED:gFileNumList=""
//              String/G root:myGlobals:MRED:gMRS1 = "no file selected"
//              String/G root:myGlobals:MRED:gMRS2 = "no file selected"
//              String/G root:myGlobals:MRED:gMRS3 = "no box selected"
//              Variable/G root:myGlobals:MRED:gMRV1 =0
//              Variable/G root:myGlobals:MRED:gMRV2 = 999
        Endif 
End

//panel recreation macro for the MRED panel
//
Window Multiple_Reduce_Panel()
        PauseUpdate; Silent 1           // building window...
        NewPanel /W=(535,72,951,228) /K=1 as "Multiple File Reduction"
        ModifyPanel cbRGB=(65535,49151,29490)
        ModifyPanel fixedSize=1
        SetDrawLayer UserBack
        DrawLine 7,30,422,30
        SetVariable PathDisplay,pos={77,7},size={300,13},title="Path"
        SetVariable PathDisplay,help={"This is the path to the folder that will be used to find the SANS data while reducing. If no files appear in the popup, make sure that this folder is set correctly"}
        SetVariable PathDisplay,limits={-Inf,Inf,0},value= root:myGlobals:MRED:gCatPathStr
        Button PathButton,pos={3,3},size={70,20},proc=PickMRPathButton,title="Pick Path"
        Button PathButton,help={"Select the folder containing the raw SANS data files"}
        Button helpButton,pos={385,3},size={25,20},proc=ShowMRHelp,title="?"
        Button helpButton,help={"Show the help file for reducing multiple files using the same protocol"}
        PopupMenu MRFilesPopup,pos={3,72},size={167,19},proc=MRedPopMenuProc,title="File(s) to Reduce"
        PopupMenu MRFilesPopup,help={"The displayed file is the one that will be reduced. The entire list will be reduced if \"Reduce All..\" is selected. \r If no items, or the wrong items appear, click on the popup to refresh."}
        PopupMenu MRFilesPopup,mode=1,popvalue="none",value= #"root:myGlobals:MRED:gMRedList"
        SetVariable MRList,pos={3,48},size={350,13},proc=FileNumberListProc,title="File number list: "
        SetVariable MRList,help={"Enter a comma delimited list of file numbers to reduce. Ranges can be entered using a dash."}
        SetVariable MRList,limits={-Inf,Inf,1},value= root:myGlobals:MRED:gFileNumList
//      SetVariable MRLow,pos={3,72},size={150,13},proc=SetLowFileNumProc,title="File range: "
//      SetVariable MRLow,help={"Enter the first file number to reduce. Files must be consecutively numbered."}
//      SetVariable MRLow,limits={-Inf,Inf,0},value= root:myGlobals:MRED:gMRV1
        Button ReduceAllButton,pos={3,128},size={180,20},proc=ReduceAllPopupFiles,title="Reduce All Files in Popup"
        Button ReduceAllButton,help={"This will reduce ALL of the files in the popup list, not just the top file."}
        Button DoneButton,pos={292,128},size={110,20},proc=MRDoneButtonProc,title="Done Reducing"
        Button DoneButton,help={"When done reducing files, this will close this control panel."}
        Button cat_short,pos={310,72},size={90,20},proc=DoCatShort,title="File Catalog"
        Button cat_short,help={"Use this button to generate a table with file header information. Very useful for identifying files."}
        Button show_cat_short,pos={280,98},size={120,20},proc=ShowCatShort_MRED,title="Show File Catalog"
        Button show_cat_short,help={"Use this button to bring the File Catalog window to the front."}
//      SetVariable MRHigh,pos={160,73},size={90,13},proc=SetHighFileNumProc,title=" to: "
//      SetVariable MRHigh,help={"Enter the last file number to reduce. Files must be consecutively numbered."}
//      SetVariable MRHigh,limits={-Inf,Inf,0},value= root:myGlobals:MRED:gMRV2
        PopupMenu MRProto_pop,pos={3,98},size={119,19},proc=MRProtoPopMenuProc,title="Protocol "
        PopupMenu MRProto_pop,help={"All of the data files in the popup will be reduced using this protocol"}
        PopupMenu MRProto_pop,mode=1,popvalue="none",value= #"root:myGlobals:MRED:gMRProtoList"
EndMacro

//executed when a list of filenumbers is entered in the box
//responds as if the file popup was hit, to update the popup list contents
//
Function FileNumberListProc(ctrlName,varNum,varStr,varName) : SetVariableControl
        String ctrlName
        Variable varNum
        String varStr
        String varName
                
        MRedPopMenuProc("MRFilesPopup",0,"")
End

Proc ShowMRHelp(ctrlName) : ButtonControl
        String ctrlName

        DisplayHelpTopic/K=1 "SANS Data Reduction Tutorial[Reduce Multiple Files]"
End

//button procedure for bringing File Catalog window to front, if it exists
//so that the user can see what's going on
//
Proc ShowCatShort_MRED(ctrlName) : ButtonControl
        String ctrlName

        ShowCATWindow()
End

//obsolete procedure - unused
//
//procedure for setVar box to set the low file number (forced to be >=0)
//sets the global variable, then forces an update of the popup
//
//Function SetLowFileNumProc(ctrlName,varNum,varStr,varName) : SetVariableControl
//      String ctrlName
//      Variable varNum
//      String varStr
//      String varName
//      
//      ControlInfo MRLow
//      //low value must be >=0
//      Variable test = v_value
//      if (test < 0 )
//              test = 0
//      Endif
//      Variable/G root:myGlobals:MRED:gMRV1 = test
//      //then update the popup list
//      MRedPopMenuProc("MRFilesPopup",1,"")
//
//End

//obsolete procedure - unused
//
//procedure for setVar box to set the high file number (forced to be <=999)
//sets the global variable, then forces an update of the popup
//
//Function SetHighFileNumProc(ctrlName,varNum,varStr,varName) : SetVariableControl
//      String ctrlName
//      Variable varNum
//      String varStr
//      String varName
//
//      ControlInfo MRHigh
//      //high value must be <=999
//      Variable test = V_value
//      if(test > 999)
//              test = 999
//      Endif
//      Variable/G root:myGlobals:MRED:gMRV2 = test
//      //then update the popup list
//      MRedPopMenuProc("MRFilesPopup",1,"")
//End

//allows the user to set the path to the local folder that contains the SANS data
//2 global strings are reset after the path "catPathName" is reset in the function PickPath()
// this path is the only one, the globals are simply for convenience
//
Function PickMRPathButton(PathButton) : ButtonControl
        String PathButton
        
        PickPath()              //sets the main global path string for catPathName
        
        //then update the "local" copy in the MRED subfolder
        PathInfo/S catPathName
        String dum = S_path
        if (V_flag == 0)
                //path does not exist - no folder selected
                String/G root:myGlobals:MRED:gCatPathStr = "no folder selected"
        else
                String/G root:myGlobals:MRED:gCatPathStr = dum
        endif
        
        //Update the pathStr variable box
        ControlUpdate/W=Multiple_Reduce_Panel $"PathDisplay"
        
        //then update the popup list
        MRedPopMenuProc("MRFilesPopup",1,"")
End

// changes the contents of the popup list of files to be reduced based on the 
// range of file numbers entered in the text box
//
Function MRedPopMenuProc(MRFilesPopup,popNum,popStr) : PopupMenuControl
        String MRFilesPopup
        Variable popNum
        String popStr

        String list = GetValidMRedPopupList()
//      Wave/T redList = redList
//      String list = Wave2SemiList(redWave)
//      
        String/G root:myGlobals:MRED:gMredList = list
        ControlUpdate MRFilesPopup

End

//parses the file number list to get valid raw data filenames for reduction
// -if the numbers and full ranges can be translated to correspond to actual files
// on disk, the popup list is updated - otherwise the offending number is reported
// and the user must fix the problem before any reduction can be done
//
//ParseRunNumberList() does the work, as it does for the protocol panel
//
Function/S GetValidMRedPopupList()

        String commaList="",semiList=""
        SVAR numList=root:myGLobals:MRED:gFileNumList
        
        commaList = ParseRunNumberList(numList)
        //convert commaList to a semicolon delimited list
        Variable num=ItemsinList(commaList,","),ii
        for(ii=0;ii<num;ii+=1)
                semiList += StringFromList(ii, commaList  ,",") + ";"
        endfor
//      print semiList
//sort the list
        semiList = SortList(semiList,";",0)
        return(semiList)
        
//      //make sure that path exists
//      PathInfo catPathName
//      String path = S_path
//      if (V_flag == 0)
//              Abort "folder path does not exist - use Pick Path button"
//      Endif
//      String list=""
//      
//      list = IndexedFile(catPathName,-1,"????")       //get all files in folder
//      
//      NVAR  lownum = root:myGlobals:MRED:gMRV1
//      NVAR  highnum = root:myGlobals:MRED:gMRV2
//      
//      //trim list to include only selected files that are RAW SANS files
//      //this will exclude version numbers, .AVE, .ABS files, etc. from the popup (which can't be reduced)
//      Variable ii,isRAW,num,runNum=-1
//      String item="",newList = "",fullName = "",partialName=""
//      
//      //get rid of version numbers first (up to 11)
//      list =  RemoveVersNumsFromList(list)
//      
//      //then filter out only the raw data files within the range lownum to highnum
//      num = ItemsInList(list,";")             //get the new number of items in the list
//      ii=0
//      do
//              //parse through the list in this order:
//              // 1 - get the run number from the file (AAAAANNN.SAn_asdfasdfasdf) by finding the "dot"
//              // 2 - exclude by lownum/highnum
//              // 3 - exclude by isRaw? (to minimize disk access)
//              item = StringFromList(ii, list  ,";" )
//              if(strlen(item) != 0)
//                      //find the run number, if it exists
//                      runNum = GetRunNumFromFile(item)
//                      //is the runNum in the selected range?
//                      if( (runNum >= lowNum) && (runNum <= highnum) )
//                              //valid number, continue
//                              //build valid filename
//                              partialName = FindValidFileName(item)
//                              if(strlen(partialName) != 0)            //non-null return from FindValidFileName()
//                                      fullName = path + partialName
//                                      //check if RAW, if so, add original item to newList
//                                      isRAW = CheckIfRawData(fullName)
//                                      if(isRaw)
//                                              newList += item + ";"
//                                      Endif
//                              Endif
//                      Endif
//              Endif
//              ii+=1
//      while(ii<num)           //process all items in list
//
//      Return(newList)
End

//returns a list of the available protocol waves in the protocols folder
//removes "CreateNew", "tempProtocol" and "fakeProtocol" from list (if they exist)
//since these waves do not contain valid protocol instructions
//
Function MRProtoPopMenuProc(MRProto_pop,popNum,popStr) : PopupMenuControl
        String MRProto_pop
        Variable popNum
        String popStr

        //get list of currently valid protocols, and put it in the popup (the global list)
        //excluding "tempProtocol" and "CreateNew" if they exist
        SetDataFolder root:myGlobals:Protocols
        String list = WaveList("*",";","")
        SetDataFolder root:
        
        //remove items from the list (list is unchanged if the items are not present)
        list = RemoveFromList("CreateNew", list, ";")
        list = RemoveFromList("tempProtocol", list, ";")
        list = RemoveFromList("fakeProtocol", list, ";")
        
        String/G root:myGlobals:MRED:gMRProtoList = list
        ControlUpdate MRProto_pop

End

//button procedure to close the panel
//
Function MRDoneButtonProc(ctrlName) : ButtonControl
        String ctrlName

        // this button will make sure all files are closed 
        //and close the panel

        Close/A
        DoWindow/K Multiple_Reduce_Panel
        KillDataFolder root:myGlobals:MRED
End

//button action function caled to reduce all of the files in the "file" popup
//using the protocol specified in the "protocol" popup
//converts list of files into comma delimited list of full path:filename;vers
//that can be reduced as a list
// also sets the current protocol to a global accessible to the list processing routine
//
Function ReduceAllPopupFiles(ctrlName) : ButtonControl
        String ctrlName
        
        //popup (and global list) is a semicolon separated list of files, WITHOUT extensions
        //transform this list into a COMMA delimited list of FULL filenames, and then they can be processed
        
        SVAR semiList = root:myGlobals:MRED:gMredList
        
        //process each item in the list, and generate commaList
        Variable num = ItemsInList(semiList,";" )
        Variable ii=0
        String commaList = "",item = ""
        do
                item = StringFromList(ii, semiList  ,";" )
                commaList += item + ","
                ii+=1
        while(ii<num)
        //080601 - send only the comma list of filenames, not full path:name    
        //commaList = FullNameListFromFileList(commaList)               //gets the full file names (including extension) for each item in list

        //get the selected protocol, and pass as a global
        ControlInfo MRProto_pop
        String protocolNameStr = S_Value
        String/G root:myGlobals:Protocols:gMredProtoStr = "root:myGlobals:Protocols:"+protocolNameStr
        
        //also set this as the current protocol, for the function that writes the averaged waves
        String/G root:myGlobals:Protocols:gProtoStr = protocolNameStr
        
        //reduce all the files in the list here, using the global protocol(the full reference)
        //DoReduceList is found in MultipleReduce.ipf
        DoReduceList(commaList)
        
        Return 0
End


//*************************************
//under construction MRED function

//testing - unused
//Macro Init_NEW_MRED()
//      Make/O/T/N=1 fileWave,redWave
//      Make/O/N=1 selWave
//End

//testing - unused
//
//returns a list of raw data files from catPathName
//Function/S RawDataList()
//      //make sure that path exists
//      PathInfo catPathName
//      String path = S_path
//      if (V_flag == 0)
//              Abort "folder path does not exist - use Pick Path button"
//      Endif
//      String list=IndexedFile(catPathName,-1,"????")  //get all files in folder
//      
//      //trim list to include only selected files that are RAW SANS files
//      //this will exclude version numbers, .AVE, .ABS files, etc. from the popup (which can't be reduced)
//      Variable ii,isRAW,num,runNum=-1
//      String item="",newList = "",fullName = "",partialName=""
//      
//      //get rid of version numbers first (up to 11)
//      list =  RemoveVersNumsFromList(list)
//      
//      //then filter out only the raw data files within the range lownum to highnum
//      num = ItemsInList(list,";")             //get the new number of items in the list
//      ii=0
//      do
//              //  exclude by isRaw? (to minimize disk access)
//              item = StringFromList(ii, list  ,";" )
//              if(strlen(item) != 0)
//                              partialName = FindValidFileName(item)
//                              if(strlen(partialName) != 0)            //non-null return from FindValidFileName()
//                                      fullName = path + partialName
//                                      //check if RAW, if so, add original item to newList
//                                      isRAW = CheckIfRawData(fullName)
//                                      if(isRaw)
//                                              newList += item + ";"
//                                      Endif
//                              Endif
//              Endif
//              ii+=1
//      while(ii<num)           //process all items in list
//
//      Return(newList)
//End

//testing - unused
//
//Function/S RunNumList2FileNameList(NumList)
//      String numList          //text list of run numbers
//
//      //find a valid file name if possible, return null otherwise
//      String retList = "",str=""
//      Variable numRuns,ii,r_index
//      numRuns = ItemsInList(numList,";")
//      for(ii=0;ii<numRuns;ii+=1)
//              r_index = str2num(StringFromList(ii,numList,";"))
//              str= FindFileFromRunNumber(r_index)
//              if(cmpstr(str,"")!=0)
//                      retList += str + ";"
//              Endif
//      EndFor
//      return(retList)
//End

//testing - unused
//
//Window panel0() : Panel
//      PauseUpdate; Silent 1           // building window...
//      NewPanel /W=(501,97,929,307) /K=1
//      ListBox fileList,pos={0,0},size={179,146},listWave=root:fileWave
//      ListBox fileList,selWave=root:selWave,mode= 4
//      ListBox redList,pos={219,0},size={179,146},listWave=root:redWave,mode= 1
//      ListBox redList,selRow= -1
//      Button button0,pos={114,148},size={50,20},proc=AddButtonProc,title="Add"
//      Button button1,pos={219,148},size={50,20},proc=ClearButtonProc,title="Clear"
//      Button button2,pos={337,148},size={50,20},proc=PopButtonProc,title="Pop"
//      Button button3,pos={4,148},size={50,20},proc=NewListButtonProc
//      Button button4,pos={279,148},size={50,20},proc=DelButtonProc,title="Del"
//EndMacro

//testing - unused
//
//Function DelButtonProc(ctrlName) : ButtonControl
//      String ctrlName
//      
//      ControlInfo redList
//      Variable selRow=V_Value
//      Wave lw=$S_Value
//      DeletePoints selRow,1,lw
//      
//End

//testing - unused
//
//Function NewListButtonProc(ctrlName) : ButtonControl
//      String ctrlName
//      
//      String list=IndexedFile(catPathName,-1,"????")
//      String newList="",item=""
//      Variable num=ItemsInList(list,";"),ii
//      for(ii=0;ii<num;ii+=1)
//              item = StringFromList(ii, list  ,";")
//              if( stringmatch(item,"*.sa1*") )
//                      newlist += item + ";"
//              endif
//              if( stringmatch(item,"*.sa2*") )
//                      newlist += item + ";"
//              endif
//              if( stringmatch(item,"*.sa3*") )
//                      newlist += item + ";"
//              endif
//              //print "ii=",ii
//      endfor
//      newList = SortList(newList,";",0)
//      num=ItemsInList(newlist,";")
//      Make/O/T/N=(num) fileWave
//      Make/O/N=(num) selWave
//      fileWave = StringFromList(p,newlist,";")
//      Sort filewave,filewave
//End

//testing - unused
//
//Function AddButtonProc(ctrlName) : ButtonControl
//      String ctrlName
//
//      Wave/T fileWave=fileWave
//      Wave/T redWave=redWave
//      Wave sel=selWave
//      
//      Variable num=numpnts(sel),ii=0
//      variable lastPt=numpnts(redwave)
//      do
//              if(sel[ii] == 1)
//                      InsertPoints lastPt,1, redWave
//                      redWave[lastPt]=filewave[ii]
//                      lastPt +=1
//              endif
//              ii+=1
//      while(ii<num)
//      return(0)
//End

//testing - unused
//
//Function ClearButtonProc(ctrlName) : ButtonControl
//      String ctrlName
//      Make/O/T/N=1 redWave
//End

//testing - unused
//
//Function PopButtonProc(ctrlName) : ButtonControl
//      String ctrlName         
//      MRedPopMenuProc("MRFilesPopup",0,"")
//End


//****************************
// below are very old procedures, not used (maybe of no value)


//little used procedure - works only with menu selections of list processing
//
Proc ClearFileList()
        String/G root:myGlobals:Protocols:gReduceList=""
        DoAlert 0,"The file reduction list has been initialized"
        ShowList()
End

//old procedure, (not used) - data is saved to the catPathName folder, the same folder
//where the data came from in the first place, avoiding extra paths
Proc PickSaveFolder()
        NewPath/O/M="pick folder for averaged data" Save_path
        PathInfo/S Save_path
        if (V_flag == 0)
                //path does not exist - no folder selected
                Print "No destination path selected - save dialog will be presented"
        endif
End

//little used reduction procedure, asks for protocol, then uses this protocol
//to reduce the files in a list built by selecting files from the CAT window
//did not get favorable reviews from users and may not be kept
//
Proc ReduceFilesInList()

        String protocolName=""

        //generate a list of valid path:file;ext items, comma separated as the input filenames for
        //ExecuteProtocol(), their final destination
        
        String list = root:myGlobals:Protocols:gReduceList
        Variable num = ItemsInList(list,"," )
        
        list = FullNameListFromFileList(list)
        
        //Print list
        
        //get protocolName in the same manner as "recallprotocol" button
        //but remember to set a global for  Execute to use
        SetDataFolder root:myGlobals:Protocols          //must be in protocols folder before executing this Proc        
        Execute "PickAProtocol()"
        //get the selected protocol wave choice through a global string variable
        protocolName = root:myGlobals:Protocols:gProtoStr
        //If "CreateNew" was selected, ask user to try again
        if(cmpstr("CreateNew",protocolName) == 0)
                Abort "CreateNew is for making a new Protocol. Select a previously saved Protocol"
        Endif
        SetDataFolder root:
//      String/G root:myGlobals:Protocols:gMredProtoStr = "root:myGlobals:Protocols:"+protocolName
        
        //pass the full path to the protocol for ExecuteProtocol() later
        //Print gMredProtoStr," protocol name"
        
        DoReduceList(list)
        
//      KillStrings/Z gMredProtoStr
        
//      SetDataFolder root:
        
End

//displays the current contents of the FileList window, for multiple file reduction
//little used function and may not be kept
//
Proc ShowList()
        
        DoWindow/F ListWin
        If(V_Flag ==0)
                NewNotebook/F=1/N=ListWin as "File List"
        Endif
        //clear old window contents, reset the path
        Notebook ListWin,selection={startOfFile,EndOfFile}
        Notebook ListWin,text="\r"
        
        //Write out each item of the comma-delimited list to the notebook
        String list = root:myGlobals:Protocols:gReduceList
        Variable index = 0
        String theItem=""
        Variable num = ItemsInList(list,"," )
        do
                theItem = StringFromList(index,list,",")        //COMMA separated list
                if(strlen(theItem)!=0)
                        Notebook ListWin,text=(theItem+"\r")            //null string items will be skipped
                endif
                index +=1
        while(index<num)        //exit after all items are printed
End


//little used function to add the selected file from the CAT/SHORT window to the fileList
//so that the list of files can be processed batchwise
//
Proc AddSelectionToList()

        if(WinType("CatWin")==0)
                Abort "There is no CAT/SHORT window. Use the CAT/SHORT button to create one."
        Endif
        GetSelection notebook,CatWin,3
        //build a comma separated list of names
        //does the global variable exist?
        if(exists("root:myGlobals:Protocols:gReduceList")==2)           //a string exists
                //do nothing extra
        else
                //create (initialize) the global string
                String/G root:myGlobals:Protocols:gReduceList = ""
        endif
        String list = root:myGlobals:Protocols:gReduceList
        list += S_Selection + ","
        String/G root:myGlobals:Protocols:gReduceList = list            //reassign the global
        
        
End

//little used function to remove the selected file in the CAT/SHORT window from the fileList
Proc RemoveFileFromList()
        //if(WinType("CatWin")==0)
                //Abort "There is no CAT/SHORT window. Use the CAT/SHORT button to create one."
        //Endif
        GetSelection notebook,ListWin,3
        //remove the selected item from the list
        String list = root:myGlobals:Protocols:gReduceList
        list = RemoveFromList(S_selection,list,",")
        String/G root:myGlobals:Protocols:gReduceList = list
        
        ShowList()
End

// based on WM PossiblyQuoteList(list, separator)
//      Input is a list of names that may contain liberal names.
//      Returns the list with liberal names quoted.
//      Example:
//              Input:          "wave0;wave 1;"
//              Output:         "wave0;'wave 1';"
//      The list is expected to be a standard separated list, like "wave0;wave1;wave2;".
//*****unused*******
Function/S PossiblyQuoteFileList(list, separator)
        String list
        String separator
        
        String item, outputList = ""
        Variable ii= 0
        Variable items= ItemsInList(list, separator)
        do
                if (ii >= items)                        // no more items?
                        break
                endif
                item= StringFromList(ii, list, separator)
                outputList += PossiblyQuoteName(item) + separator
                ii += 1
        while(1)
        return outputList
End