Snippets

SeanB Native Dictionary Class

Created by SeanB
NativeDictionary.pkg
Raw 
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Struct tKeyValue
    String sKey 
    String sValue
End_Struct

Class cDictionary is a cObject 
    Procedure construct_object 
        Forward Send Construct_Object 
        Property tKeyValue[] pDictionary
    End_Procedure

    Function CompareKey tKeyValue keyValue1 tKeyValue keyValue2 Returns Integer 
        If (keyValue1.sKey > keyValue2.sKey) Function_Return (GT)
        If (keyValue1.sKey < keyValue2.sKey) Function_Return (LT)        
        Function_Return (EQ)
    End_Function
    
    Procedure Set key String sKey String sValue 
        tKeyValue[] Dictionary 
        tKeyValue KeyValueItem
        Integer iSearchIndex
        Integer iMax
        
        Move (Uppercase(sKey)) to sKey 
        Get pDictionary to Dictionary

        Move sKey to KeyValueItem.sKey
        Move sValue to KeyValueItem.sValue

        Move (SearchArray(KeyValueItem, Dictionary, Self, (RefFunc(CompareKey)))) to iSearchIndex
        Move (SizeOfArray(Dictionary)) to iMax 
        
        If (iSearchIndex = -1) Move KeyValueItem to Dictionary[iMax]
        Else Move KeyValueItem to Dictionary[iSearchIndex]
        
        Set pDictionary to Dictionary
    End_Procedure
    
    Procedure delete_data 
        tKeyValue[] Dictionary 
        Set pDictionary to Dictionary
    End_Procedure
    
    Function key String sKey Returns String 
        Integer iSearchIndex
        tKeyValue[] Dictionary 
        tKeyValue KeyValueItem

        Move (Uppercase(sKey)) to sKey 
        Move sKey to KeyValueItem.sKey
        
        Get pDictionary to Dictionary
        Move (SearchArray(KeyValueItem, Dictionary, Self, (RefFunc(CompareKey)))) to iSearchIndex
        If (iSearchIndex = -1) Function_Return (False) 

        Function_Return Dictionary[iSearchIndex].sValue
    End_Function
End_Class

Comments (0)

HTTPS SSH

You can clone a snippet to your computer for local editing. Learn more.