PeopleCode中使用Map

参考 HRTR_UTILITIES

[plain] view plain copy print ?

1. /** 
2. *@author Vinay Vegunta 
3. *@date 03/09/2004 
4. * 
5. *This class provides a simple Hashtable implementation for storing and looking up objects based on String keys 
6. */ 
7.  
8. class Hashtable 
9.    method Hashtable(); 
10.    method Put(&key As string, &value As object); 
11.    method Get(&key As string) Returns object; 
12.    method GetKeys() Returns array of string; 
13.    method IsKey(&key As string) Returns boolean; 
14.    method GetValues() Returns array of object; 
15. private 
16.    method GetKeyPosition(&key As string) Returns number; 
17.    instance array of string &keyArray; 
18.    instance array of object &valueArray; 
19.     
20. end-class; 
21.  
22. /* 
23. *Constructor 
24. */ 
25. method Hashtable 
26.    /*Instantiate the arrays */ 
27.    &keyArray = CreateArrayRept("", 0); 
28.    &valueArray = CreateArrayRept( Null, 0); 
29. end-method; 
30.  
31. /** 
32. *Put a value in the Hashtable. If the key already exists, it's value will be replaced with a new one . 
33. */ 
34. method Put 
35.    /+ &key as String, +/ 
36.    /+ &value as Object +/ 
37.    Local number &nbr_pos = %This.GetKeyPosition(&key); 
38.    /**Check if a new entry is to be made or an old value has to be replaced **/ 
39.    If (&nbr_pos <> - 1) Then 
40.       &keyArray [&nbr_pos] = &key; 
41.       &valueArray [&nbr_pos] = &value; 
42.    Else 
43.       &keyArray.Push(&key); 
44.       &valueArray.Push(&value); 
45.    End-If; 
46. end-method; 
47.  
48. /** 
49. *Get the value for a given key. Returns null if no value is found . 
50. */ 
51. method Get 
52.    /+ &key as String +/ 
53.    /+ Returns Object +/ 
54.    Local number &nbr_pos = %This.GetKeyPosition(&key); 
55.    If (&nbr_pos <> - 1) Then 
56.       Return &valueArray [&nbr_pos]; 
57.    End-If; 
58.    Return Null; 
59. end-method; 
60.  
61. /** 
62. *Returns the  array of keys  
63. */ 
64. method GetKeys 
65.    /+ Returns Array of String +/ 
66.    /**Return a clone of the array so that the original array cannot be tampered with **/ 
67.    Return &keyArray.Clone(); 
68. end-method; 
69.  
70. /** 
71. *Returns the array of values   
72. */ 
73. method GetValues 
74.    /+ Returns Array of Object +/; 
75.    /**Return a clone of the array so that the original array cannot be tampered with **/ 
76.    Return &valueArray.Clone(); 
77. end-method; 
78.  
79. /** 
80. *Returns a bolean indicating if the provided String is a key or not  
81. */ 
82. method IsKey 
83.    /+ &key as String +/ 
84.    /+ Returns Boolean +/ 
85.    Local number &nbr_pos = %This.GetKeyPosition(&key); 
86.    If (&nbr_pos <> - 1) Then 
87.       Return True; 
88.    End-If; 
89.    Return False; 
90. end-method; 
91.  
92. /** 
93. *Returns the position in the array of the requested key. Will return -1 if the key is not present . 
94. */ 
95. method GetKeyPosition 
96.    /+ &key as String +/ 
97.    /+ Returns Number +/ 
98.     
99.    Local number &nbr_Len = &keyArray.Len; 
100.    Local number &i; 
101.    For &i = 1 To &nbr_Len 
102.       If (Exact(&key, &keyArray [&i])) Then 
103.          Return &i; 
104.       End-If; 
105.    End-For; 
106.    Return - 1; 
107. end-method;