Print Data Listing

Menu "Macros"
    "Print Data Listing", PrintDataListing(root:, 0, 0, 1)
End
 
// PrintDataListing(dfr, minWaveNumBytes, level, recurse)
//  
//  Prints a listing of data folders and waves and their sizes to the history area.
// Numeric and string variables are ignored.
//
// NOTE: In a very large experiment, this can take a long time.
//
// Example:
//      PrintDataListing(root:, 0, 0, 1)    // Print all waves in root and all sub-data folders
//
// Waves that consume fewer than minWaveNumBytes are skipped. For example, to list only
// waves containing 10 million bytes or more, pass 10E6 for minWaveNumBytes.
Function PrintDataListing(dfr, minWaveNumBytes, level, recurse)
    DFREF dfr
    Variable minWaveNumBytes            // Waves with fewer bytes are skipped
    Variable level
    Variable recurse
 
    String indentation = ""
    Variable i
    for(i=0; i<level; i+=1)
        indentation += "  "
    endfor
    
    String dfPath = GetDataFolder(1, dfr)
    String dfName = GetDataFolder(0, dfr)
    
    String listing = ""
    String temp
    Variable numBytesForAllWavesInDF = 0
    
    Variable index = 0
    do
        Wave/Z w = WaveRefIndexedDFR(dfr, index)
        if (!WaveExists(w))
            break
        endif
        String path = GetWavesDataFolder(w, 2)
        String info = WaveInfo(w,0)
        Variable numBytes = NumberByKey("SIZEINBYTES", info)
        if (numBytes >= minWaveNumBytes)
            sprintf temp, "%s    %s, wave bytes=%d\r", indentation, path, numBytes
            listing += temp
            numBytesForAllWavesInDF += numBytes
        endif
        index += 1
    while(1)
    
    sprintf temp, "%sData Folder: %s, data folder bytes=%d\r", indentation, dfPath, numBytesForAllWavesInDF
    listing = temp + listing
    Printf "%s", listing
    
    if (recurse)
        Variable numChildDataFolders = CountObjectsDFR(dfr, 4)
        for(i=0; i<numChildDataFolders; i+=1)
            String childDFName = GetIndexedObjNameDFR(dfr, 4, i)
            DFREF childDFR = dfr:$childDFName
            level += 1
            PrintDataListing(childDFR, minWaveNumBytes, level, 1)
        endfor
    endif
End