Differences From Artifact [3cac70d086]:
- File src/natools-smaz-tools.adb — part of check-in [8a9dabe25e] at 2016-09-06 21:24:39 on branch trunk — smaz-tools: new primitive to output Ada code for a dictionary (user: nat, size: 12062) [annotate] [blame] [check-ins using]
To Artifact [2480b82e45]:
- File src/natools-smaz-tools.adb — part of check-in [418b41afc4] at 2016-09-22 21:26:06 on branch trunk — smaz-tools: add a function for Hash in dynamically created dictionaries (user: nat, size: 12356) [annotate] [blame] [check-ins using]
| ︙ | |||
47 48 49 50 51 52 53 54 55 56 57 58 59 60 | 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 | + + + + + + + + + + + + |
end Image;
----------------------
-- Public Interface --
----------------------
function Linear_Search (Value : String) return Natural is
Result : Ada.Streams.Stream_Element := 0;
begin
for S of List_For_Linear_Search loop
exit when S = Value;
Result := Result + 1;
end loop;
return Natural (Result);
end Linear_Search;
procedure Print_Dictionary_In_Ada
(Dict : in Dictionary;
Hash_Image : in String := "TODO";
Max_Width : in Positive := 70;
First_Prefix : in String := " := (";
Prefix : in String := " ";
|
| ︙ |