fee47e4039
In the package Pandoc a function called `Get_Type()` is defined, which takes a JSON block and returns the pandoc assigned type. The main code of the `Traverse_Block` function is changed to use an enumeration of Pandoc types instead of comparing string.
33 lines
702 B
Ada
33 lines
702 B
Ada
with League.JSON.Values;
|
|
|
|
package body Pandoc is
|
|
|
|
function Get_Type (B : League.JSON.Objects.JSON_Object)
|
|
return Object_Type is
|
|
begin
|
|
return Type_Map.Element (
|
|
Type_Mapping.Find (
|
|
B (Type_String).To_String
|
|
)
|
|
);
|
|
end Get_Type;
|
|
|
|
function Hash (Item : Ustr.Universal_String)
|
|
return Ada.Containers.Hash_Type is
|
|
begin
|
|
return Ada.Containers.Hash_Type (League.Hash_Type'(Item.Hash));
|
|
end Hash;
|
|
|
|
begin
|
|
|
|
for Key in Object_Type loop
|
|
declare
|
|
Str_Rep : constant Ustr.Universal_String :=
|
|
Obj_String_Representation (Key);
|
|
begin
|
|
Type_Mapping.Insert (Str_Rep, Key);
|
|
end;
|
|
end loop;
|
|
|
|
end Pandoc;
|