| | 1 | | #pragma rtGlobals=3 |
| | 2 | | #pragma TextEncoding="UTF-8" |
| | 3 | | #pragma rtFunctionErrors=1 |
| | 4 | | #pragma version=1.10 |
| | 5 | | #pragma ModuleName=IUTF_Test_MD_MMD |
| | 6 | |
|
| | 7 | | ///@cond HIDDEN_SYMBOL |
| | 8 | |
|
| | 9 | | static StrConstant DGEN_VAR_TEMPLATE = "v" |
| | 10 | | static StrConstant DGEN_STR_TEMPLATE = "s" |
| | 11 | | static StrConstant DGEN_DFR_TEMPLATE = "dfr" |
| | 12 | | static StrConstant DGEN_WAVE_TEMPLATE = "w" |
| | 13 | | static StrConstant DGEN_CMPLX_TEMPLATE = "c" |
| | 14 | | static StrConstant DGEN_INT64_TEMPLATE = "i" |
| | 15 | |
|
| | 16 | | /// @brief Returns a global wave that stores the multi-multi-data testcase (MMD TC) state waves |
| | 17 | | /// The getter function for the MMD TC state waves is GetMMDFuncState() |
| 5 | 18 | | static Function/WAVE GetMMDataState() |
| | 19 | |
|
| 5 | 20 | | string name = "MMDataState" |
| | 21 | |
|
| 5 | 22 | | DFREF dfr = GetPackageFolder() |
| 5 | 23 | | WAVE/Z/WAVE wv = dfr:$name |
| 5 | 24 | | if(WaveExists(wv)) |
| 0 | 25 | | return wv |
| 5 | 26 | | endif |
| | 27 | |
|
| 5 | 28 | | Make/WAVE/N=(IUTF_WAVECHUNK_SIZE) dfr:$name/WAVE=wv |
| 5 | 29 | | IUTF_Utils_Vector#SetLength(wv, 0) |
| | 30 | |
|
| 5 | 31 | | return wv |
| 5 | 32 | | End |
| | 33 | |
|
| | 34 | | /// @brief Returns a global wave that stores the full function names at the same position as in |
| | 35 | | /// MMDataState. This is used to reference full function names and their data. |
| 5 | 36 | | static Function/WAVE GetMMDataStateRefs() |
| | 37 | |
|
| 5 | 38 | | string name = "MMDataStateRefs" |
| | 39 | |
|
| 5 | 40 | | DFREF dfr = GetPackageFolder() |
| 5 | 41 | | WAVE/Z/T wv = dfr:$name |
| 5 | 42 | | if(WaveExists(wv)) |
| 0 | 43 | | return wv |
| 5 | 44 | | endif |
| | 45 | |
|
| 5 | 46 | | Make/T/N=(IUTF_WAVECHUNK_SIZE) dfr:$name/WAVE=wv |
| 5 | 47 | | IUTF_Utils_Vector#SetLength(wv, 0) |
| | 48 | |
|
| 5 | 49 | | return wv |
| 5 | 50 | | End |
| | 51 | |
|
| | 52 | | /// @brief Find the current index in the global MMDataState wave. |
| | 53 | | /// |
| | 54 | | /// @param fullFuncName the full function name |
| | 55 | | /// |
| | 56 | | /// @returns The index inside MMDataState or -1 if not found. |
| 0 | 57 | | static Function GetMMDataStateRef(fullFuncName) |
| | 58 | | string fullFuncName |
| | 59 | |
|
| 0 | 60 | | WAVE/T wvRefs = GetMMDataStateRefs() |
| | 61 | |
|
| 0 | 62 | | return IUTF_Utils_Vector#FindText(wvRefs, fullFuncName) |
| 0 | 63 | | End |
| | 64 | |
|
| | 65 | | /// Creates a global with the allowed variable names for mmd data tests and returns the value |
| 0 | 66 | | static Function/S GetMMDAllVariablesList() |
| | 67 | |
|
| 0 | 68 | | variable i, j, numTemplates |
| 0 | 69 | | string varName, varList |
| | 70 | |
|
| 0 | 71 | | DFREF dfr = GetPackageFolder() |
| 0 | 72 | | SVAR/Z/SDFR=dfr mmdAllVariablesList |
| | 73 | |
|
| 0 | 74 | | if(SVAR_EXISTS(mmdAllVariablesList)) |
| 0 | 75 | | return mmdAllVariablesList |
| 0 | 76 | | endif |
| | 77 | |
|
| 0 | 78 | | varList = "" |
| | 79 | |
|
| 0 | 80 | | WAVE/T templates = GetMMDVarTemplates() |
| 0 | 81 | | numTemplates = DimSize(templates, UTF_ROW) |
| 0 | 82 | | for(i = 0; i < numTemplates; i += 1) |
| 0 | 83 | | for(j = 0; j < IUTF_DGEN_NUM_VARS; j += 1) |
| 0 | 84 | | varName = templates[i] + num2istr(j) |
| 0 | 85 | | varList = AddListItem(varName, varList) |
| 0 | 86 | | endfor |
| 0 | 87 | | endfor |
| | 88 | |
|
| 0 | 89 | | string/G dfr:mmdAllVariablesList = varList |
| | 90 | |
|
| 0 | 91 | | return varList |
| 0 | 92 | | End |
| | 93 | |
|
| | 94 | | ///@endcond // HIDDEN_SYMBOL |
| | 95 | |
|
| 79 | 96 | | static Function/WAVE GetMMDVarTemplates() |
| | 97 | |
|
| 79 | 98 | | Make/FREE/T templates = {DGEN_VAR_TEMPLATE, DGEN_STR_TEMPLATE, DGEN_DFR_TEMPLATE, DGEN_WAVE_TEMPLATE, DGEN_CMPLX_TEMPL |
| 79 | 99 | | return templates |
| 79 | 100 | | End |
| | 101 | |
|
| 0 | 102 | | static Function/WAVE GetMMDFuncState() |
| | 103 | |
|
| 0 | 104 | | Make/FREE/T/N=(0, 3) mdFunState |
| 0 | 105 | | SetDimLabel UTF_COLUMN, 0, DATAGEN, mdFunState |
| 0 | 106 | | SetDimLabel UTF_COLUMN, 1, GENSIZE, mdFunState |
| 0 | 107 | | SetDimLabel UTF_COLUMN, 2, INDEX, mdFunState |
| | 108 | |
|
| 0 | 109 | | return mdFunState |
| 0 | 110 | | End |
| | 111 | |
|
| 0 | 112 | | static Function AddMMDTestCaseData(fullFuncName, dgen, varName, genSize) |
| | 113 | | string fullFuncName, dgen, varName |
| | 114 | | variable genSize |
| | 115 | |
|
| 0 | 116 | | variable funPos, size |
| 0 | 117 | | variable varPos, vSize |
| | 118 | |
|
| 0 | 119 | | WAVE/WAVE mdState = GetMMDataState() |
| 0 | 120 | | funPos = GetMMDataStateRef(fullFuncName) |
| 0 | 121 | | if(funPos == -1) |
| 0 | 122 | | funPos = IUTF_Utils_Vector#AddRow(mdState) |
| 0 | 123 | | WAVE/T mdStateRefs = GetMMDataStateRefs() |
| 0 | 124 | | IUTF_Utils_Vector#EnsureCapacity(mdStateRefs, funPos) |
| 0 | 125 | | IUTF_Utils_Vector#SetLength(mdStateRefs, IUTF_Utils_Vector#GetLength(mdState)) |
| 0 | 126 | | mdStateRefs[funPos] = fullFuncName |
| 0 | 127 | | WAVE/T mdFunState = GetMMDFuncState() |
| 0 | 128 | | varPos = -2 |
| 0 | 129 | | else |
| 0 | 130 | | WAVE/T mdFunState = mdState[funPos] |
| 0 | 131 | | varPos = FindDimLabel(mdFunState, UTF_ROW, varName) |
| 0 | 132 | | endif |
| | 133 | |
|
| 0 | 134 | | if(varPos == -2) |
| 0 | 135 | | vSize = DimSize(mdFunState, UTF_ROW) |
| 0 | 136 | | Redimension/N=(vSize + 1, -1) mdFunState |
| 0 | 137 | | SetDimLabel UTF_ROW, vSize, $varName, mdFunState |
| 0 | 138 | | varPos = vSize |
| 0 | 139 | | endif |
| 0 | 140 | | mdFunState[varPos][%DATAGEN] = dgen |
| 0 | 141 | | mdFunState[varPos][%GENSIZE] = num2istr(genSize) |
| 0 | 142 | | mdFunState[varPos][%INDEX] = num2istr(0) |
| 0 | 143 | | mdState[funPos] = mdFunState |
| 0 | 144 | | End |
| | 145 | |
|
| | 146 | | /// Return 1 if the counting finished, 0 otherwise |
| 0 | 147 | | static Function IncreaseMMDIndices(fullFuncName) |
| | 148 | | string fullFuncName |
| | 149 | |
|
| 0 | 150 | | variable i, numVars, index, genSize, refIndex |
| | 151 | |
|
| 0 | 152 | | WAVE/WAVE mdState = GetMMDataState() |
| 0 | 153 | | refIndex = GetMMDataStateRef(fullFuncName) |
| 0 | 154 | | WAVE/T mdFunState = mdState[refIndex] |
| 0 | 155 | | numVars = DimSize(mdFunState, UTF_ROW) |
| 0 | 156 | | for(i = 0; i < numVars; i += 1) |
| 0 | 157 | | index = str2num(mdFunState[i][%INDEX]) |
| 0 | 158 | | genSize = str2num(mdFunState[i][%GENSIZE]) |
| 0 | 159 | | index += 1 |
| 0 | 160 | | if(index < genSize) |
| 0 | 161 | | mdFunState[i][%INDEX] = num2istr(index) |
| 0 | 162 | | return 0 |
| 0 | 163 | | else |
| 0 | 164 | | mdFunState[i][%INDEX] = num2istr(0) |
| 0 | 165 | | endif |
| 0 | 166 | | endfor |
| | 167 | |
|
| 0 | 168 | | return 1 |
| 0 | 169 | | End |
| | 170 | |
|
| 0 | 171 | | static Function SetupMMDStruct(mData, fullFuncName) |
| | 172 | | STRUCT IUTF_mData &mData |
| | 173 | | string fullFuncName |
| | 174 | |
|
| 0 | 175 | | variable i, j, numTypes |
| 0 | 176 | | variable funPos, varPos, index, val, refIndex |
| 0 | 177 | | variable/C cplx |
| 0 | 178 | | string msg, varName, dgen, str |
| | 179 | | #if (IgorVersion() >= 7.0) |
| 0 | 180 | | int64 i64 |
| | 181 | | #endif |
| | 182 | |
|
| 0 | 183 | | WAVE/WAVE dgenWaves = IUTF_Test_MD_Gen#GetDataGeneratorWaves() |
| 0 | 184 | | WAVE/WAVE mdState = GetMMDataState() |
| 0 | 185 | | WAVE/T templates = GetMMDVarTemplates() |
| | 186 | |
|
| 0 | 187 | | refIndex = GetMMDataStateRef(fullFuncName) |
| 0 | 188 | | WAVE/T mdFunState = mdState[refIndex] |
| | 189 | |
|
| 0 | 190 | | numTypes = DimSize(templates, UTF_ROW) |
| 0 | 191 | | for(i = 0; i < numTypes; i += 1) |
| 0 | 192 | | for(j = 0; j < IUTF_DGEN_NUM_VARS; j += 1) |
| 0 | 193 | | varName = templates[i] + num2istr(j) |
| 0 | 194 | | varPos = FindDimLabel(mdFunState, UTF_ROW, varName) |
| 0 | 195 | | if(varPos == -2) |
| 0 | 196 | | continue |
| 0 | 197 | | endif |
| 0 | 198 | | dgen = mdFunState[varPos][%DATAGEN] |
| 0 | 199 | | index = str2num(mdFunState[varPos][%INDEX]) |
| | 200 | |
|
| 0 | 201 | | strswitch(templates[i]) |
| 0 | 202 | | case DGEN_VAR_TEMPLATE: |
| 0 | 203 | | refIndex = IUTF_Test_MD_Gen#GetDataGeneratorRef(dgen) |
| 0 | 204 | | WAVE wGenerator = dgenWaves[refIndex] |
| 0 | 205 | | val = wGenerator[index] |
| | 206 | |
|
| 0 | 207 | | switch(j) |
| 0 | 208 | | case 0: |
| 0 | 209 | | mData.v0 = val |
| 0 | 210 | | break |
| 0 | 211 | | case 1: |
| 0 | 212 | | mData.v1 = val |
| 0 | 213 | | break |
| 0 | 214 | | case 2: |
| 0 | 215 | | mData.v2 = val |
| 0 | 216 | | break |
| 0 | 217 | | case 3: |
| 0 | 218 | | mData.v3 = val |
| 0 | 219 | | break |
| 0 | 220 | | case 4: |
| 0 | 221 | | mData.v4 = val |
| 0 | 222 | | break |
| 0 | 223 | | default: |
| 0 | 224 | | IUTF_Reporting#ReportErrorAndAbort("Encountered invalid index for mmd tc") |
| 0 | 225 | | break |
| 0 | 226 | | endswitch |
| 0 | 227 | | break |
| 0 | 228 | | case DGEN_STR_TEMPLATE: |
| 0 | 229 | | refIndex = IUTF_Test_MD_Gen#GetDataGeneratorRef(dgen) |
| 0 | 230 | | WAVE/T wGeneratorT = dgenWaves[refIndex] |
| 0 | 231 | | str = wGeneratorT[index] |
| | 232 | |
|
| 0 | 233 | | switch(j) |
| 0 | 234 | | case 0: |
| 0 | 235 | | mData.s0 = str |
| 0 | 236 | | break |
| 0 | 237 | | case 1: |
| 0 | 238 | | mData.s1 = str |
| 0 | 239 | | break |
| 0 | 240 | | case 2: |
| 0 | 241 | | mData.s2 = str |
| 0 | 242 | | break |
| 0 | 243 | | case 3: |
| 0 | 244 | | mData.s3 = str |
| 0 | 245 | | break |
| 0 | 246 | | case 4: |
| 0 | 247 | | mData.s4 = str |
| 0 | 248 | | break |
| 0 | 249 | | default: |
| 0 | 250 | | IUTF_Reporting#ReportErrorAndAbort("Encountered invalid index for mmd tc") |
| 0 | 251 | | break |
| 0 | 252 | | endswitch |
| 0 | 253 | | break |
| 0 | 254 | | case DGEN_DFR_TEMPLATE: |
| 0 | 255 | | refIndex = IUTF_Test_MD_Gen#GetDataGeneratorRef(dgen) |
| 0 | 256 | | WAVE/DF wGeneratorDFR = dgenWaves[refIndex] |
| 0 | 257 | | DFREF dfr = wGeneratorDFR[index] |
| | 258 | |
|
| 0 | 259 | | switch(j) |
| 0 | 260 | | case 0: |
| 0 | 261 | | mData.dfr0 = dfr |
| 0 | 262 | | break |
| 0 | 263 | | case 1: |
| 0 | 264 | | mData.dfr1 = dfr |
| 0 | 265 | | break |
| 0 | 266 | | case 2: |
| 0 | 267 | | mData.dfr2 = dfr |
| 0 | 268 | | break |
| 0 | 269 | | case 3: |
| 0 | 270 | | mData.dfr3 = dfr |
| 0 | 271 | | break |
| 0 | 272 | | case 4: |
| 0 | 273 | | mData.dfr4 = dfr |
| 0 | 274 | | break |
| 0 | 275 | | default: |
| 0 | 276 | | IUTF_Reporting#ReportErrorAndAbort("Encountered invalid index for mmd tc") |
| 0 | 277 | | break |
| 0 | 278 | | endswitch |
| 0 | 279 | | break |
| 0 | 280 | | case DGEN_WAVE_TEMPLATE: |
| 0 | 281 | | refIndex = IUTF_Test_MD_Gen#GetDataGeneratorRef(dgen) |
| 0 | 282 | | WAVE/WAVE wGeneratorWV = dgenWaves[refIndex] |
| 0 | 283 | | WAVE wv = wGeneratorWV[index] |
| | 284 | |
|
| 0 | 285 | | switch(j) |
| 0 | 286 | | case 0: |
| 0 | 287 | | WAVE mData.w0 = wv |
| 0 | 288 | | break |
| 0 | 289 | | case 1: |
| 0 | 290 | | WAVE mData.w1 = wv |
| 0 | 291 | | break |
| 0 | 292 | | case 2: |
| 0 | 293 | | WAVE mData.w2 = wv |
| 0 | 294 | | break |
| 0 | 295 | | case 3: |
| 0 | 296 | | WAVE mData.w3 = wv |
| 0 | 297 | | break |
| 0 | 298 | | case 4: |
| 0 | 299 | | WAVE mData.w4 = wv |
| 0 | 300 | | break |
| 0 | 301 | | default: |
| 0 | 302 | | IUTF_Reporting#ReportErrorAndAbort("Encountered invalid index for mmd tc") |
| 0 | 303 | | break |
| 0 | 304 | | endswitch |
| 0 | 305 | | break |
| 0 | 306 | | case DGEN_CMPLX_TEMPLATE: |
| 0 | 307 | | refIndex = IUTF_Test_MD_Gen#GetDataGeneratorRef(dgen) |
| 0 | 308 | | WAVE/C wGeneratorC = dgenWaves[refIndex] |
| 0 | 309 | | cplx = wGeneratorC[index] |
| | 310 | |
|
| 0 | 311 | | switch(j) |
| 0 | 312 | | case 0: |
| 0 | 313 | | mData.c0 = cplx |
| 0 | 314 | | break |
| 0 | 315 | | case 1: |
| 0 | 316 | | mData.c1 = cplx |
| 0 | 317 | | break |
| 0 | 318 | | case 2: |
| 0 | 319 | | mData.c2 = cplx |
| 0 | 320 | | break |
| 0 | 321 | | case 3: |
| 0 | 322 | | mData.c3 = cplx |
| 0 | 323 | | break |
| 0 | 324 | | case 4: |
| 0 | 325 | | mData.c4 = cplx |
| 0 | 326 | | break |
| 0 | 327 | | default: |
| 0 | 328 | | IUTF_Reporting#ReportErrorAndAbort("Encountered invalid index for mmd tc") |
| 0 | 329 | | break |
| 0 | 330 | | endswitch |
| 0 | 331 | | break |
| | 332 | | #if (IgorVersion() >= 7.0) |
| 0 | 333 | | case DGEN_INT64_TEMPLATE: |
| 0 | 334 | | refIndex = IUTF_Test_MD_Gen#GetDataGeneratorRef(dgen) |
| 0 | 335 | | WAVE wGeneratorI = dgenWaves[refIndex] |
| 0 | 336 | | i64 = wGeneratorI[index] |
| | 337 | |
|
| 0 | 338 | | switch(j) |
| 0 | 339 | | case 0: |
| 0 | 340 | | mData.i0 = i64 |
| 0 | 341 | | break |
| 0 | 342 | | case 1: |
| 0 | 343 | | mData.i1 = i64 |
| 0 | 344 | | break |
| 0 | 345 | | case 2: |
| 0 | 346 | | mData.i2 = i64 |
| 0 | 347 | | break |
| 0 | 348 | | case 3: |
| 0 | 349 | | mData.i3 = i64 |
| 0 | 350 | | break |
| 0 | 351 | | case 4: |
| 0 | 352 | | mData.i4 = i64 |
| 0 | 353 | | break |
| 0 | 354 | | default: |
| 0 | 355 | | IUTF_Reporting#ReportErrorAndAbort("Encountered invalid index for mmd tc") |
| 0 | 356 | | break |
| 0 | 357 | | endswitch |
| 0 | 358 | | break |
| | 359 | | #endif |
| 0 | 360 | | default: |
| 0 | 361 | | IUTF_Reporting#ReportErrorAndAbort("Encountered invalid type for mmd tc") |
| 0 | 362 | | break |
| 0 | 363 | | endswitch |
| 0 | 364 | | endfor |
| 0 | 365 | | endfor |
| 0 | 366 | | End |
| | 367 | |
|
| | 368 | | /// @brief Structure for multi data function using multiple data generators |
| | 369 | | #if (IgorVersion() >= 7.0) |
| | 370 | | Structure IUTF_mData |
| | 371 | | variable v0 |
| | 372 | | variable v1 |
| | 373 | | variable v2 |
| | 374 | | variable v3 |
| | 375 | | variable v4 |
| | 376 | | string s0 |
| | 377 | | string s1 |
| | 378 | | string s2 |
| | 379 | | string s3 |
| | 380 | | string s4 |
| | 381 | | DFREF dfr0 |
| | 382 | | DFREF dfr1 |
| | 383 | | DFREF dfr2 |
| | 384 | | DFREF dfr3 |
| | 385 | | DFREF dfr4 |
| | 386 | | WAVE/WAVE w0 |
| | 387 | | WAVE/WAVE w1 |
| | 388 | | WAVE/WAVE w2 |
| | 389 | | WAVE/WAVE w3 |
| | 390 | | WAVE/WAVE w4 |
| | 391 | | variable/C c0 |
| | 392 | | variable/C c1 |
| | 393 | | variable/C c2 |
| | 394 | | variable/C c3 |
| | 395 | | variable/C c4 |
| | 396 | | int64 i0 |
| | 397 | | int64 i1 |
| | 398 | | int64 i2 |
| | 399 | | int64 i3 |
| | 400 | | int64 i4 |
| | 401 | | EndStructure |
| | 402 | | #else |
| | 403 | | Structure IUTF_mData |
| | 404 | | variable v0 |
| | 405 | | variable v1 |
| | 406 | | variable v2 |
| | 407 | | variable v3 |
| | 408 | | variable v4 |
| | 409 | | string s0 |
| | 410 | | string s1 |
| | 411 | | string s2 |
| | 412 | | string s3 |
| | 413 | | string s4 |
| | 414 | | DFREF dfr0 |
| | 415 | | DFREF dfr1 |
| | 416 | | DFREF dfr2 |
| | 417 | | DFREF dfr3 |
| | 418 | | DFREF dfr4 |
| | 419 | | WAVE/WAVE w0 |
| | 420 | | WAVE/WAVE w1 |
| | 421 | | WAVE/WAVE w2 |
| | 422 | | WAVE/WAVE w3 |
| | 423 | | WAVE/WAVE w4 |
| | 424 | | variable/C c0 |
| | 425 | | variable/C c1 |
| | 426 | | variable/C c2 |
| | 427 | | variable/C c3 |
| | 428 | | variable/C c4 |
| | 429 | | EndStructure |
| | 430 | | #endif |
| | 431 | |
|
| 0 | 432 | | static Function/S GetMMDTCSuffix(tdIndex) |
| | 433 | | variable tdIndex |
| | 434 | |
|
| 0 | 435 | | variable i, numVars, index, refIndex |
| 0 | 436 | | string fullFuncName, dgen, lbl |
| 0 | 437 | | string tcSuffix = "" |
| | 438 | |
|
| 0 | 439 | | WAVE/T testRunData = IUTF_Basics#GetTestRunData() |
| 0 | 440 | | WAVE/WAVE dgenWaves = IUTF_Test_MD_Gen#GetDataGeneratorWaves() |
| 0 | 441 | | WAVE/WAVE mdState = GetMMDataState() |
| | 442 | |
|
| 0 | 443 | | fullFuncName = testRunData[tdIndex][%FULLFUNCNAME] |
| 0 | 444 | | refIndex = GetMMDataStateRef(fullFuncName) |
| 0 | 445 | | WAVE/T mdFunState = mdState[refIndex] |
| | 446 | |
|
| 0 | 447 | | numVars = DimSize(mdFunState, UTF_ROW) |
| 0 | 448 | | for(i = 0; i < numVars; i += 1) |
| 0 | 449 | | dgen = mdFunState[i][%DATAGEN] |
| 0 | 450 | | index = str2num(mdFunState[i][%INDEX]) |
| 0 | 451 | | refIndex = IUTF_Test_MD_Gen#GetDataGeneratorRef(dgen) |
| 0 | 452 | | WAVE wGenerator = dgenWaves[refIndex] |
| 0 | 453 | | lbl = GetDimLabel(wGenerator, UTF_ROW, index) |
| 0 | 454 | | if(!IUTF_Utils#IsEmpty(lbl)) |
| 0 | 455 | | tcSuffix += IUTF_TC_SUFFIX_SEP + lbl |
| 0 | 456 | | else |
| 0 | 457 | | tcSuffix += IUTF_TC_SUFFIX_SEP + num2istr(index) |
| 0 | 458 | | endif |
| 0 | 459 | | endfor |
| | 460 | |
|
| 0 | 461 | | return tcSuffix |
| 0 | 462 | | End |