1 #pragma TextEncoding = "UTF-8"
2 #pragma rtGlobals=3 // Use modern global access method and strict wave access.
4 #pragma IgorVersion = 6.2
5 #pragma ModuleName = PearlTools
6 #include "pearl-gui-tools"
56 string wlist = WaveList(matchStr,
";",
"")
57 variable n = ItemsInList(wlist, ";")
59 for (i = 0; i < n; i += 1)
60 wave w = $(StringFromList(i, wlist, ";"))
76 print getdatafolder(1)
95 if (ParamIsDefault(progress_title))
98 variable show_progress = strlen(progress_title) > 0
100 dfref origdf = GetDataFolderDFR()
103 variable abort_req = 0
106 variable ndf = CountObjectsDFR(origdf, 4)
112 objName = GetIndexedObjNameDFR(origdf, 4, index)
113 if (strlen(objName) == 0)
116 if (stringmatch(objname, matchstr))
124 curdf = $(":" + objname)
125 iterator(curdf, sdata)