CommonUtils.brs

  1. ' /**
  2. '  * @module CommonUtils
  3. '  */
  4. ' /******************
  5. ' Common utility functions
  6. ' /******************
  8. ' /**
  9. '  * @name IsXmlElement
  10. '  * @function
  11. '  * @description check if value contains XMLElement interface
  12. '  * @memberof module:CommonUtils
  13. '  * @param {Dynamic} value - value to check
  14. '  * @returns {Boolean} - true if value contains XMLElement interface, else return false
  15. '  */
  16. function Rooibos_Common_isXmlElement(value) as boolean
  17.     return Rooibos_Common_isValid(value) and GetInterface(value, "ifXMLElement") <> invalid
  18. end function
  20. ' /**
  21. '  * @name IsFunction
  22. '  * @function
  23. '  * @description check if value contains Function interface
  24. '  * @memberof module:CommonUtils
  25. '  * @param {Dynamic} value - value to check
  26. '  * @returns {Boolean} - true if value contains Function interface, else return false
  27. '  */
  28. function Rooibos_Common_isFunction(value) as boolean
  29.     return Rooibos_Common_isValid(value) and GetInterface(value, "ifFunction") <> invalid
  30. end function
  32. ' /**
  33. '  * @name Rooibos.Common.getFunction
  34. '  * @function
  35. '  * @description looks up the function by name, for the function map
  36. '  * @memberof module:CommonUtils
  37. '  * @param {filename} string - name of the file where the function was found
  38. '  * @param {String} functionName - name of the function to locate
  39. '  * @returns {Function} - function pointer or invalid
  40. '  */
  41. function Rooibos_Common_getFunction(filename, functionName) as object
  42.     if (not Rooibos_Common_isNotEmptyString(functionName)) then
  43.         return invalid
  44.     end if
  45.     if (not Rooibos_Common_isNotEmptyString(filename)) then
  46.         return invalid
  47.     end if
  48.     'bs:disable-next-line
  49.     mapFunction = RBSFM_getFunctionsForFile(filename)
  50.     if mapFunction <> invalid then
  51.         map = mapFunction()
  52.         if (type(map) = "roAssociativeArray") then
  53.             functionPointer = map[functionName]
  54.             return functionPointer
  55.         else
  56.             return invalid
  57.         end if
  58.     end if
  59.     return invalid
  60. end function
  62. ' /**
  63. '  * @name Rooibos.Common.getFunctionBruteforce
  64. '  * @function
  65. '  * @description looks up the function by name, from any function map
  66. '  *            in future
  67. '  * @memberof module:CommonUtils
  68. '  * @param {filename} string - name of the file where the function was found
  69. '  * @param {String} functionName - name of the function to locate
  70. '  * @returns {Function} - function pointer or invalid
  71. '  */
  72. function Rooibos_Common_getFunctionBruteForce(functionName) as object
  73.     if (not Rooibos_Common_isNotEmptyString(functionName)) then
  74.         return invalid
  75.     end if
  76.     'bs:disable-next-line
  77.     filenames = RBSFM_getFilenames()
  78.     for i = 0 to filenames.count() - 1
  79.         filename = filenames[i]
  80.         'bs:disable-next-line
  81.         mapFunction = RBSFM_getFunctionsForFile(filename)
  82.         if mapFunction <> invalid then
  83.             map = mapFunction()
  84.             if (type(map) = "roAssociativeArray") then
  85.                 functionPointer = map[functionName]
  86.                 if functionPointer <> invalid then
  87.                     return functionPointer
  88.                 end if
  89.             end if
  90.         end if
  91.     end for
  92.     return invalid
  93. end function
  95. ' /**
  96. '  * @name IsBoolean
  97. '  * @function
  98. '  * @description check if value contains Boolean interface
  99. '  * @memberof module:CommonUtils
  100. '  * @param {Dynamic} value - value to check
  101. '  * @returns {Boolean} - true if value contains Boolean interface, else return false
  102. '  */
  103. function Rooibos_Common_isBoolean(value) as boolean
  104.     return Rooibos_Common_isValid(value) and GetInterface(value, "ifBoolean") <> invalid
  105. end function
  107. ' /**
  108. '  * @name IsInteger
  109. '  * @function
  110. '  * @description check if value type equals Integer
  111. '  * @memberof module:CommonUtils
  112. '  * @param {Dynamic} value - value to check
  113. '  * @returns {Boolean} - true if value type equals Integer, else return false
  114. '  */
  115. function Rooibos_Common_isInteger(value) as boolean
  116.     return Rooibos_Common_isValid(value) and GetInterface(value, "ifInt") <> invalid and (Type(value) = "roInt" or Type(value) = "roInteger" or Type(value) = "Integer")
  117. end function
  119. ' /**
  120. '  * @name IsFloat
  121. '  * @function
  122. '  * @description check if value contains Float interface
  123. '  * @memberof module:CommonUtils
  124. '  * @param {Dynamic} value - value to check
  125. '  * @returns {Boolean} - true if value contains Float interface, else return false
  126. '  */
  127. function Rooibos_Common_isFloat(value) as boolean
  128.     return Rooibos_Common_isValid(value) and GetInterface(value, "ifFloat") <> invalid
  129. end function
  131. ' /**
  132. '  * @name IsDouble
  133. '  * @function
  134. '  * @description check if value contains Double interface
  135. '  * @memberof module:CommonUtils
  136. '  * @param {Dynamic} value - value to check
  137. '  * @returns {Boolean} - true if value contains Double interface, else return false
  138. '  */
  139. function Rooibos_Common_isDouble(value) as boolean
  140.     return Rooibos_Common_isValid(value) and GetInterface(value, "ifDouble") <> invalid
  141. end function
  143. ' /**
  144. '  * @name IsLongInteger
  145. '  * @function
  146. '  * @description check if value contains LongInteger interface
  147. '  * @memberof module:CommonUtils
  148. '  * @param {Dynamic} value - value to check
  149. '  * @returns {Boolean} - true if value contains LongInteger interface, else return false
  150. '  */
  151. function Rooibos_Common_isLongInteger(value) as boolean
  152.     return Rooibos_Common_isValid(value) and GetInterface(value, "ifLongInt") <> invalid
  153. end function
  155. ' /**
  156. '  * @name IsNumber
  157. '  * @function
  158. '  * @description check if value contains LongInteger or Integer or Double or Float interface
  159. '  * @memberof module:CommonUtils
  160. '  * @param {Dynamic} value - value to check
  161. '  * @returns {Boolean} - true if value is number, else return false
  162. '  */
  163. function Rooibos_Common_isNumber(value) as boolean
  164.     return Rooibos_Common_isLongInteger(value) or Rooibos_Common_isDouble(value) or Rooibos_Common_isInteger(value) or Rooibos_Common_isFloat(value)
  165. end function
  167. ' /**
  168. '  * @name IsList
  169. '  * @function
  170. '  * @description check if value contains List interface
  171. '  * @memberof module:CommonUtils
  172. '  * @param {Dynamic} value - value to check
  173. '  * @returns {Boolean} - true if value contains List interface, else return false
  174. '  */
  175. function Rooibos_Common_isList(value) as boolean
  176.     return Rooibos_Common_isValid(value) and GetInterface(value, "ifList") <> invalid
  177. end function
  179. ' /**
  180. '  * @name IsArray
  181. '  * @function
  182. '  * @description check if value contains Array interface
  183. '  * @memberof module:CommonUtils
  184. '  * @param {Dynamic} value - value to check
  185. '  * @returns {Boolean} - true if value contains Array interface, else return false
  186. '  */
  187. function Rooibos_Common_isArray(value) as boolean
  188.     return Rooibos_Common_isValid(value) and GetInterface(value, "ifArray") <> invalid
  189. end function
  191. ' /**
  192. '  * @name IsAssociativeArray
  193. '  * @function
  194. '  * @description check if value contains AssociativeArray interface
  195. '  * @memberof module:CommonUtils
  196. '  * @param {Dynamic} value - value to check
  197. '  * @returns {Boolean} - true if value contains AssociativeArray interface, else return false
  198. '  */
  199. function Rooibos_Common_isAssociativeArray(value) as boolean
  200.     return Rooibos_Common_isValid(value) and GetInterface(value, "ifAssociativeArray") <> invalid
  201. end function
  203. ' /**
  204. '  * @name IsSGNode
  205. '  * @function
  206. '  * @description check if value contains SGNodeChildren interface
  207. '  * @memberof module:CommonUtils
  208. '  * @param {Dynamic} value - value to check
  209. '  * @returns {Boolean} - true if value contains SGNodeChildren interface, else return false
  210. '  */
  211. function Rooibos_Common_isSGNode(value) as boolean
  212.     return Rooibos_Common_isValid(value) and GetInterface(value, "ifSGNodeChildren") <> invalid
  213. end function
  215. ' /**
  216. '  * @name IsString
  217. '  * @function
  218. '  * @description check if value contains String interface
  219. '  * @memberof module:CommonUtils
  220. '  * @param {Dynamic} value - value to check
  221. '  * @returns {Boolean} - true if value contains String interface, else return false
  222. '  */
  223. function Rooibos_Common_isString(value) as boolean
  224.     return Rooibos_Common_isValid(value) and GetInterface(value, "ifString") <> invalid
  225. end function
  227. ' /**
  228. '  * @name IsNotEmptyString
  229. '  * @function
  230. '  * @description check if value contains String interface and length more 0
  231. '  * @memberof module:CommonUtils
  232. '  * @param {Dynamic} value - value to check
  233. '  * @returns {Boolean} - true if value contains String interface and length more 0, else return false
  234. '  */
  235. function Rooibos_Common_isNotEmptyString(value) as boolean
  236.     return Rooibos_Common_isString(value) and len(value) > 0
  237. end function
  239. ' /**
  240. '  * @name IsDateTime
  241. '  * @function
  242. '  * @description check if value contains DateTime interface
  243. '  * @memberof module:CommonUtils
  244. '  * @param {Dynamic} value - value to check
  245. '  * @returns {Boolean} - true if value contains DateTime interface, else return false
  246. '  */
  247. function Rooibos_Common_isDateTime(value) as boolean
  248.     return Rooibos_Common_isValid(value) and (GetInterface(value, "ifDateTime") <> invalid or Type(value) = "roDateTime")
  249. end function
  251. ' /**
  252. '  * @name IsValid
  253. '  * @function
  254. '  * @description check if value initialized and not equal invalid
  255. '  * @memberof module:CommonUtils
  256. '  * @param {Dynamic} value - value to check
  257. '  * @returns {Boolean} - true if value initialized and not equal invalid, else return false
  258. '  */
  259. function Rooibos_Common_isValid(value) as boolean
  260.     return not Rooibos_Common_isUndefined(value) and value <> invalid
  261. end function
  263. function Rooibos_Common_isUndefined(value) as boolean
  264.     return type(value) = "" or Type(value) = "<uninitialized>"
  265. end function
  267. ' /**
  268. '  * @name ValidStr
  269. '  * @function
  270. '  * @description return value if his contains String interface else return empty string
  271. '  * @memberof module:CommonUtils
  272. '  * @param {Dynamic} value - value to check
  273. '  * @returns {String} - value if his contains String interface else return empty string
  274. '  */
  275. function Rooibos_Common_validStr(obj) as string
  276.     if obj <> invalid and GetInterface(obj, "ifString") <> invalid then
  277.         return obj
  278.     else
  279.         return ""
  280.     end if
  281. end function
  283. ' /**
  284. '  * @name AsString
  285. '  * @function
  286. '  * @description convert input to String if this possible, else return empty string
  287. '  * @memberof module:CommonUtils
  288. '  * @param {Dynamic} input - value to check
  289. '  * @returns {String} - converted string
  290. '  */
  291. function Rooibos_Common_asString(input) as string
  292.     if Rooibos_Common_isValid(input) = false then
  293.         return "Invalid"
  294.     else if Rooibos_Common_isString(input) then
  295.         return input
  296.     else if Rooibos_Common_isInteger(input) or Rooibos_Common_isLongInteger(input) or Rooibos_Common_isBoolean(input) then
  297.         return input.ToStr()
  298.     else if Rooibos_Common_isFloat(input) or Rooibos_Common_isDouble(input) then
  299.         return Str(input).Trim()
  300.     else if type(input) = "roSGNode" then
  301.         return "Node(" + input.subType() + ")"
  302.     else if type(input) = "roAssociativeArray" then
  303.         isFirst = true
  304.         text = "{"
  305.         if (not isFirst) then
  306.             text = text + ","
  307.             isFirst = false
  308.         end if
  309.         for each key in input
  310.             if key <> "__mocks" and key <> "__stubs" then
  311.                 text = text + key + ":" + Rooibos_Common_asString(input[key])
  312.             end if
  313.         end for
  314.         text = text + "}"
  315.         return text
  316.     else if Rooibos_Common_isFunction(input) then
  317.         return input.toStr()
  318.     else
  319.         return ""
  320.     end if
  321. end function
  323. ' /**
  324. '  * @name AsInteger
  325. '  * @function
  326. '  * @description convert input to Integer if this possible, else return 0
  327. '  * @memberof module:CommonUtils
  328. '  * @param {Dynamic} input - value to check
  329. '  * @returns {Integer} - converted Integer
  330. '  */
  331. function Rooibos_Common_asInteger(input) as integer
  332.     if Rooibos_Common_isValid(input) = false then
  333.         return 0
  334.     else if Rooibos_Common_isString(input) then
  335.         return input.ToInt()
  336.     else if Rooibos_Common_isInteger(input) then
  337.         return input
  338.     else if Rooibos_Common_isFloat(input) or Rooibos_Common_isDouble(input) or Rooibos_Common_isLongInteger(input) then
  339.         return Int(input)
  340.     else
  341.         return 0
  342.     end if
  343. end function
  345. ' /**
  346. '  * @name AsLongInteger
  347. '  * @function
  348. '  * @description convert input to LongInteger if this possible, else return 0
  349. '  * @memberof module:CommonUtils
  350. '  * @param {Dynamic} input - value to check
  351. '  * @returns {Integer} - converted LongInteger
  352. '  */
  353. function Rooibos_Common_asLongInteger(input) as longinteger
  354.     if Rooibos_Common_isValid(input) = false then
  355.         return 0
  356.     else if Rooibos_Common_isString(input) then
  357.         return Rooibos_Common_asInteger(input)
  358.     else if Rooibos_Common_isLongInteger(input) or Rooibos_Common_isFloat(input) or Rooibos_Common_isDouble(input) or Rooibos_Common_isInteger(input) then
  359.         return input
  360.     else
  361.         return 0
  362.     end if
  363. end function
  365. ' /**
  366. '  * @name AsFloat
  367. '  * @function
  368. '  * @description convert input to Float if this possible, else return 0.0
  369. '  * @memberof module:CommonUtils
  370. '  * @param {Dynamic} input - value to check
  371. '  * @returns {Float} - converted Float
  372. '  */
  373. function Rooibos_Common_asFloat(input) as float
  374.     if Rooibos_Common_isValid(input) = false then
  375.         return 0
  376.     else if Rooibos_Common_isString(input) then
  377.         return input.ToFloat()
  378.     else if Rooibos_Common_isInteger(input) then
  379.         return (input / 1)
  380.     else if Rooibos_Common_isFloat(input) or Rooibos_Common_isDouble(input) or Rooibos_Common_isLongInteger(input) then
  381.         return input
  382.     else
  383.         return 0
  384.     end if
  385. end function
  387. ' /**
  388. '  * @name AsDouble
  389. '  * @function
  390. '  * @description convert input to Double if this possible, else return 0.0
  391. '  * @memberof module:CommonUtils
  392. '  * @param {Dynamic} input - value to check
  393. '  * @returns {Float} - converted Double
  394. '  */
  395. function Rooibos_Common_asDouble(input) as double
  396.     if Rooibos_Common_isValid(input) = false then
  397.         return 0
  398.     else if Rooibos_Common_isString(input) then
  399.         return Rooibos_Common_asFloat(input)
  400.     else if Rooibos_Common_isInteger(input) or Rooibos_Common_isLongInteger(input) or Rooibos_Common_isFloat(input) or Rooibos_Common_isDouble(input) then
  401.         return input
  402.     else
  403.         return 0
  404.     end if
  405. end function
  407. ' /**
  408. '  * @name AsBoolean
  409. '  * @function
  410. '  * @description convert input to Boolean if this possible, else return False
  411. '  * @memberof module:CommonUtils
  412. '  * @param {Dynamic} input - value to check
  413. '  * @returns {Boolean} - converted boolean
  414. '  */
  415. function Rooibos_Common_asBoolean(input) as boolean
  416.     if Rooibos_Common_isValid(input) = false then
  417.         return false
  418.     else if Rooibos_Common_isString(input) then
  419.         return LCase(input) = "true"
  420.     else if Rooibos_Common_isInteger(input) or Rooibos_Common_isFloat(input) then
  421.         return input <> 0
  422.     else if Rooibos_Common_isBoolean(input) then
  423.         return input
  424.     else
  425.         return false
  426.     end if
  427. end function
  429. ' /**
  430. '  * @name AsArray
  431. '  * @function
  432. '  * @description if type of value equals array return value, else return array with one element [value]
  433. '  * @memberof module:CommonUtils
  434. '  * @param {Dynamic} value - value to check
  435. '  * @returns {Array} - converted array
  436. '  */
  437. function Rooibos_Common_asArray(value) as object
  438.     if Rooibos_Common_isValid(value) then
  439.         if not Rooibos_Common_isArray(value) then
  440.             return [
  441.                 value
  442.             ]
  443.         else
  444.             return value
  445.         end if
  446.     end if
  447.     return []
  448. end function
  449. '=====================
  450. ' Strings
  451. '=====================
  453. ' /**
  454. '  * @name IsNullOrEmpty
  455. '  * @function
  456. '  * @description check if value is invalid or empty
  457. '  * @memberof module:CommonUtils
  458. '  * @param {Dynamic} value - value to check
  459. '  * @returns {Boolean} - true if value is null or empty string, else return false
  460. '  */
  461. function Rooibos_Common_isNullOrEmpty(value) as boolean
  462.     if Rooibos_Common_isString(value) then
  463.         return Len(value) = 0
  464.     else
  465.         return not Rooibos_Common_isValid(value)
  466.     end if
  467. end function
  468. '=====================
  469. ' Arrays
  470. '=====================
  472. ' /**
  473. '  * @name FindElementIndexInArray
  474. '  * @function
  475. '  * @description find an element index in array
  476. '  * @memberof module:CommonUtils
  477. '  * @param {Dynamic} array - array to search
  478. '  * @param {Dynamic} value - value to check
  479. '  * @param {Dynamic} compareAttribute - attribue to use for comparisons
  480. '  * @param {Boolean} caseSensitive - indicates if comparisons are case sensitive
  481. '  * @returns {Integer} - element index if array contains a value, else return -1
  482. '  */
  483. function Rooibos_Common_findElementIndexInArray(array, value, compareAttribute = invalid, caseSensitive = false) as integer
  484.     if Rooibos_Common_isArray(array) then
  485.         for i = 0 to Rooibos_Common_asArray(array).Count() - 1
  486.             compareValue = array[i]
  487.             if compareAttribute <> invalid and Rooibos_Common_isAssociativeArray(compareValue) then
  488.                 compareValue = compareValue.lookupCI(compareAttribute)
  489.             end if
  490.             if Rooibos_Common_eqValues(compareValue, value) then
  491.                 return i
  492.             end if
  493.             item = array[i]
  494.         end for
  495.     end if
  496.     return - 1
  497. end function
  499. ' /**
  500. '  * @name ArrayContains
  501. '  * @function
  502. '  * @description check if array contains specified value
  503. '  * @memberof module:CommonUtils
  504. '  * @param {Dynamic} array - array to search in
  505. '  * @param {Dynamic} value - value to check
  506. '  * @param {Dynamic} compareAttribute - attribute to compare on
  507. '  * @returns {Boolean} - true if array contains a value, else return false
  508. '  */
  509. function Rooibos_Common_arrayContains(array, value, compareAttribute = invalid) as boolean
  510.     return (Rooibos_Common_findElementIndexInArray(array, value, compareAttribute) > - 1)
  511. end function
  512. '=====================
  513. ' NODES
  514. '=====================
  516. ' /**
  517. '  * @name FindElementIndexInNode
  518. '  * @function
  519. '  * @description find an element index in node
  520. '  * @memberof module:CommonUtils
  521. '  * @param {Dynamic} node - node to search in
  522. '  * @param {Dynamic} value - child to search for
  523. '  * @returns {Integer} - element index if node contains a value, else return -1
  524. '  */
  525. function Rooibos_Common_findElementIndexInNode(node, value) as integer
  526.     if type(node) = "roSGNode" then
  527.         for i = 0 to node.getChildCount() - 1
  528.             compareValue = node.getChild(i)
  529.             if type(compareValue) = "roSGNode" and compareValue.isSameNode(value) then
  530.                 return i
  531.             end if
  532.         end for
  533.     end if
  534.     return - 1
  535. end function
  537. ' /**
  538. '  * @name NodeContains
  539. '  * @description check if node contains specified child
  540. '  * @memberof module:CommonUtils
  541. '  * @param {Dynamic} node - the node to check on
  542. '  * @param {Dynamic} value - child to look for
  543. '  * @returns {Boolean} - true if node contains a value, else return false
  544. '  */
  545. function Rooibos_Common_nodeContains(node, value) as boolean
  546.     return (Rooibos_Common_findElementIndexInNode(node, value) > - 1)
  547. end function
  549. ' /**
  550. '  * @memberof module:CommonUtils
  551. '  * @name EqValues
  552. '  * @function
  553. '  * @instance
  554. '  * @description Compare two arbtrary values to eachother.
  555. '  * @param {Dynamic} Vallue1 - first item to compare
  556. '  * @param {Dynamic} Vallue2 - second item to compare
  557. '  * @returns {boolean} - True if values are equal or False in other case.
  558. '  */
  559. function Rooibos_Common_eqValues(Value1, Value2) as dynamic
  560.     ' Workaraund for bug with string boxing, and box everything else
  561.     val1Type = type(Value1)
  562.     val2Type = type(Value2)
  563.     if val1Type = "<uninitialized>" or val2Type = "<uninitialized>" or val1Type = "" or val2Type = "" then
  564.         print "ERROR!!!! - undefined value passed"
  565.         return false
  566.     end if
  567.     if val1Type = "roString" or val1Type = "String" then
  568.         Value1 = Rooibos_Common_asString(Value1)
  569.     else
  570.         Value1 = box(Value1)
  571.     end if
  572.     if val2Type = "roString" or val2Type = "String" then
  573.         Value2 = Rooibos_Common_asString(Value2)
  574.     else
  575.         Value2 = box(Value2)
  576.     end if
  577.     'update types after boxing
  578.     val1Type = type(Value1)
  579.     val2Type = type(Value2)
  580.     'Upcast int to float, if other is float
  581.     if val1Type = "roFloat" and val2Type = "roInt" then
  582.         Value2 = box(Cdbl(Value2))
  583.     else if val2Type = "roFloat" and val1Type = "roInt" then
  584.         Value1 = box(Cdbl(Value1))
  585.     end if
  586.     if val1Type <> val2Type then
  587.         return false
  588.     else
  589.         valtype = val1Type
  590.         if valtype = "roList" then
  591.             return Rooibos_Common_eqArray(Value1, Value2)
  592.         else if valtype = "roAssociativeArray" then
  593.             return Rooibos_Common_eqAssocArray(Value1, Value2)
  594.         else if valtype = "roArray" then
  595.             return Rooibos_Common_eqArray(Value1, Value2)
  596.         else if (valtype = "roSGNode") then
  597.             if (val2Type <> "roSGNode") then
  598.                 return false
  599.             else
  600.                 return Value1.isSameNode(Value2)
  601.             end if
  602.         else 'If you crashed on this line, then you're trying to compare
  603.             '2 things which can't be compared - check what value1 and value2
  604.             'are in your debug log
  605.             return Value1 = Value2
  606.         end if
  607.     end if
  608. end function
  610. ' /**
  611. '  * @memberof module:CommonUtils
  612. '  * @name EqAssocArray
  613. '  * @function
  614. '  * @instance
  615. '  * @description Compare to roAssociativeArray objects for equality.
  616. '  * @param {Dynamic} Vallue1 - first associative array
  617. '  * @param {Dynamic} Vallue2 - second associative array
  618. '  * @returns {boolean} - True if arrays are equal or False in other case.
  619. '  */
  620. function Rooibos_Common_eqAssocArray(Value1, Value2) as dynamic
  621.     l1 = Value1.Count()
  622.     l2 = Value2.Count()
  623.     if not l1 = l2 then
  624.         return false
  625.     else
  626.         for each k in Value1
  627.             if k <> "__mocks" and k <> "__stubs" then 'fix infinite loop/box crash when doing equals on an aa with a mock
  628.                 if not Value2.DoesExist(k) then
  629.                     return false
  630.                 else
  631.                     v1 = Value1[k]
  632.                     v2 = Value2[k]
  633.                     if not Rooibos_Common_eqValues(v1, v2) then
  634.                         return false
  635.                     end if
  636.                 end if
  637.             end if
  638.         end for
  639.         return true
  640.     end if
  641. end function
  643. ' /**
  644. '  * @memberof module:CommonUtils
  645. '  * @name EqArray
  646. '  * @function
  647. '  * @instance
  648. '  * @description Compare to roArray objects for equality.
  649. '  * @param {Dynamic} Vallue1 - first array
  650. '  * @param {Dynamic} Vallue2 - second array
  651. '  * @returns {boolean} - True if arrays are equal or False in other case.
  652. '  */
  653. function Rooibos_Common_eqArray(Value1, Value2) as dynamic
  654.     if not (Rooibos_Common_isArray(Value1)) or not Rooibos_Common_isArray(Value2) then
  655.         return false
  656.     end if
  657.     l1 = Value1.Count()
  658.     l2 = Value2.Count()
  659.     if not l1 = l2 then
  660.         return false
  661.     else
  662.         for i = 0 to l1 - 1
  663.             v1 = Value1[i]
  664.             v2 = Value2[i]
  665.             if not Rooibos_Common_eqValues(v1, v2) then
  666.                 return false
  667.             end if
  668.         end for
  669.         return true
  670.     end if
  671. end function
  673. ' /**
  674. '  * @member fillText
  675. '  * @memberof module:CommonUtils
  676. '  * @instance
  677. '  * @description Fills text with count of fillChars
  678. '  * @param {string} text - text to fill
  679. '  * @param {string} fillChar - char to fill with
  680. '  * @param {integer} numChars - target length
  681. '  * @returns {string} filled string
  682. '  */
  683. function Rooibos_Common_fillText(text as string, fillChar = " ", numChars = 40) as string
  684.     if (len(text) >= numChars) then
  685.         text = left(text, numChars - 5) + "..." + fillChar + fillChar
  686.     else
  687.         numToFill = numChars - len(text) - 1
  688.         for i = 0 to numToFill
  689.             text = text + fillChar
  690.         end for
  691.     end if
  692.     return text
  693. end function
  695. 'Static, becuase the result might be created across node boundaries, therefore stripping methods
  696. function Rooibos_Common_getAssertLine(testCase, index)
  697.     if (testCase.assertLineNumberMap.doesExist(stri(index).trim())) then
  698.         return testCase.assertLineNumberMap[stri(index).trim()]
  699.     else if (testCase.assertLineNumberMap.doesExist(stri(index + 1000).trim())) then 'this is where we store line numbers for our
  700.         return testCase.assertLineNumberMap[stri(index + 1000).trim()]
  701.         return testCase.lineNumber
  702.     end if
  703. end function