HASHMAP Methods: Examples of Usage

GetLength()

MAIN

DEFINE ht HASHMAP

LET ht["k2"] = "val1"

LET ht["k1"] = "val2"

DISPLAY ht.GetLength()

END MAIN

GetKeys()

MAIN

DEFINE ht HASHMAP

LET ht["k2"] = "val1"

LET ht["k1"] = "val2"

DISPLAY ht.GetKeys()

END MAIN

Delete(INT index)

MAIN

DEFINE ht HASHMAP

LET ht["k2"] = "val1"

LET ht["k1"] = "val2"

DISPLAY ht

CALL ht.Delete(1)

DISPLAY ht

END MAIN

Delete(INT first, INT last)

MAIN

DEFINE ht HASHMAP

LET ht["k2"] = "val1"

LET ht["k1"] = "val2"

LET ht["k3"] = "val3"

DISPLAY ht

CALL ht.Delete(1,2)

DISPLAY ht

END MAIN

Remove(VARIANT key)

MAIN

DEFINE ht HASHMAP

LET ht["k2"] = "val1"

LET ht["k1"] = "val2"

LET ht["k3"] = "val3"

DISPLAY ht

CALL ht.remove("k2")

DISPLAY ht

END MAIN

Insert(VARIANT key, VARIANT value)

MAIN

DEFINE ht HASHMAP

LET ht["k2"] = "val1"

LET ht["k1"] = "val2"

LET ht["k3"] = "val3"

DISPLAY ht

CALL ht2.Insert("k_ins","val_ins")

DISPLAY ht

END MAIN

Modify(VARIANT key, VARIANT value)

MAIN

DEFINE ht HASHMAP

LET ht["key1"] = "value1"

DISPLAY ht

DISPLAY ht.modify("key1","new_val")

DISPLAY ht

END MAIN

Clear()

MAIN

DEFINE ht HASHMAP

LET ht["k2"] = "val1"

LET ht["k1"] = "val2"

LET ht["k3"] = "val3"

DISPLAY ht

CALL ht.Clear()

DISPLAY ht

END MAIN

Join(HASHMAP ht)

MAIN

DEFINE ht1,ht2 HASHMAP

LET ht1["k2"] = "val1"

LET ht1["k1"] = "val2"

LET ht2["k3"] = "val3"

LET ht2["k4"] = "val4"

CALL ht1.Join(ht2)

DISPLAY ht1

END MAIN

Find(VARIANT key)

MAIN

DEFINE ht1,ht2 HASHMAP

LET ht1["k2"] = "val1"

LET ht1["k1"] = "val2"

DISPLAY ht1.Find("k2")

END MAIN

GetKey(INT index)

MAIN

DEFINE ht HASHMAP

LET ht["k2"] = "val1"

LET ht["k1"] = "val2"

DISPLAY ht.GetKey(1)

END MAIN

GetValue(INT index)

MAIN

DEFINE ht HASHMAP

LET ht["k2"] = "val1"

LET ht["k1"] = "val2"

DISPLAY ht.GetValue(1)

END MAIN

KeySort(INT direction)

MAIN

DEFINE ht HASHMAP

LET ht["k2"] = "val1"

LET ht["k1"] = "val2"

CALL ht.KeySort(0)

DISPLAY ht

CALL ht.KeySort(1)

DISPLAY ht

END MAIN

ValueSort(INT direction)

MAIN

DEFINE ht HASHMAP

LET ht["k2"] = "val1"

LET ht["k1"] = "val2"

CALL ht.ValueSort(1)

DISPLAY ht

CALL ht.ValueSort(0)

DISPLAY ht

END MAIN

CustomSort(STRING funcName)

MAIN

DEFINE ht HASHMAP

LET ht["key_1"] = "val1"

LET ht["key_3"] = "val3"

LET ht["key_2"] = "val2"

DISPLAY "Sorting Asc by value using function CompareDesc:"

CALL ht.CustomSort("CompareDesc")

DISPLAY ht

DISPLAY "\nSorting Asc by value using function CompareAsc:"

CALL ht.CustomSort("CompareAsc")

DISPLAY ht

END MAIN

FUNCTION CompareAsc(a, b)

DEFINE a, b RECORD key REFERENCE, val STRING END RECORD

RETURN a.val < b.val

END FUNCTION

FUNCTION CompareDesc(a, b)

DEFINE a, b RECORD key REFERENCE, val STRING END RECORD

RETURN a.val >= b.val

END FUNCTION

ResetSorting()

MAIN

DEFINE ht HASHMAP

LET ht["k2"] = "val1"

LET ht["k1"] = "val2"

CALL ht.ValueSort(1)

DISPLAY ht

CALL ht.resetSorting()

DISPLAY ht

END MAIN

CopyTo(HASHMAP dst)

MAIN

DEFINE ht1,ht2,ht3 HASHMAP

LET ht1["k2"] = "val1"

LET ht1["k1"] = "val2"

LET ht2["k3"] = "val3"

LET ht2["k4"] = "val4"

CALL ht1.CopyTo(ht2)

DISPLAY ht2

CALL ht1.CopyTo(ht3)

DISPLAY ht3

END MAIN

KeyExists(VARIANT key)

MAIN

DEFINE ht HASHMAP

LET ht["k2"] = "val1"

LET ht["k1"] = "val2"

CALL ht.ValueSort(1)

IF ht.keyExists("k2") THEN

DISPLAY "k2 KEY EXISTS"

ELSE

DISPLAY "k2 KEY DOES NOT EXIST"

END IF

END MAIN

ValueExists(VARIANT value)

MAIN

DEFINE ht HASHMAP

LET ht["k2"] = "val1"

LET ht["k1"] = "val2"

CALL ht.ValueExists("val2")

IF ht.keyExists("k2") THEN

DISPLAY "val2 VALUE EXISTS"

ELSE

DISPLAY "val2 VALUE DOES NOT EXIST"

END IF

END MAIN