Reorder Waves in Data Folder

// ReorderWavesInDataFolder(dRef, baseName, sortOptions)
// Reorders the waves in the data folder specified by dRef so that they are sorted.
//
// When you iterate through waves in a given data folder, Igor returns the waves
// in the order in which they were added to the data folder. Sometimes a procedures
// needs the waves to be in a certain order. This achieves that by temporarily moving
// the waves out of the original data folder to a temporary data folder and then moving
// them back to the original data folder in the desired order.
//
// All waves in the specified data folder whose names begin with the specified base name are reordered.
// Pass "" for baseName to reorder all waves in the data folder.
//
// See the SortList function for the meaning of the sortOptions parameter.
//
// Here is an example:
//  NewDataFolder/O/S root:TestDataFolder
//  Make/O xWave3, xWave7, xWave1, xWave0, xWave15, xWave11
//  Make/O yWave0, yWave7, yWave1, yWave3, yWave15, yWave11
//  ReorderWavesInDataFolder(dRef, "xWave", 16)
//  ReorderWavesInDataFolder(dRef, "yWave", 16)
Function ReorderWavesInDataFolder(dRef, baseName, sortOptions)
    DFREF dRef
    String baseName
    Variable sortOptions            // As for SortList function
 
    String tempDFName = "%tempForReorderWavesInDF%"
    NewDataFolder /O dRef:$tempDFName
    DFREF tempDF = dRef:$tempDFName
 
    String waveNames = WaveList(baseName+"*", ";", "")
    String sortedWaveNames = SortList(waveNames, ";", sortOptions)
   
    // Move waves to temp data folder
    Variable numWaves = itemsInList(waveNames)
    String name
    Variable i
    for(i=0; i<numWaves; i+=1)
        name = StringFromList(i, sortedWaveNames)
        MoveWave dRef:$name, tempDF
    endfor
   
    // Move waves back to original data folder
    for(i=0; i<numWaves; i+=1)
        name = StringFromList(i, sortedWaveNames)
        MoveWave tempDF:$name, dRef
    endfor
 
    KillDataFolder tempDF
End