Blitz_Basic_HexToInt.bb

; ----------------------------------------------------------------------
; -- Blitz_Basic_HexToInt.bb
; --
; -- Converts a hexadecimal string value into an integer.
; --
; -- Version : 1.0
; -- Licence : Public Domain
; ----------------------------------------------------------------------

;;; <summary>Converts a hex value to an integer value.</summary>
;;; <param name="hexValue">The hex value to convert.</param>

;;; <returns>Integer value.</returns>
;;; <subsystem>Blitz.Basic</subsystem>
Function HexToInt(hexValue$)

	Local hexDigit%
	Local strPos% 		= 1
	Local strLen% 		= Len(hexValue$)
	Local integerValue% = 0

	Repeat

		hexDigit = (Asc(Mid$(hexValue$, strPos, 1)) - 48) And $1f
		If hexDigit > 9 Then hexDigit = hexDigit - 7
		integerValue = (integerValue Shl 4) + hexDigit

		strPos = strPos + 1

	Until strPos > strLen

	Return integerValue

End Function