folkert/import-style-guide
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Rename Package to reduce text

Browse Source
This commit is contained in:
Folkert Kevelam 2025-05-23 18:15:01 +02:00
parent fee47e4039
commit 6b1d8a59f0
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
source/pandoc.ads
View File

@ -1,13 +1,16 @@
with Ada.Containers; with Ada.Containers;
with Ada.Containers.Hashed_Maps; with Ada.Containers.Hashed_Maps;
with League.Strings;
with League.JSON;
with League.JSON.Objects; with League.JSON.Objects;
with League.Strings;
package Pandoc is package Pandoc is
Pandoc_Type_Error : exception;
package Ustr renames League.Strings; package Ustr renames League.Strings;
type Ustr_Array is array (Natural range <>) of Ustr.Universal_String;
type Object_Type is ( type Object_Type is (
Block_Plain, Block_Plain,
Block_Para, Block_Para,
@ -56,6 +59,9 @@ package Pandoc is
private private
function Hash (Item : Ustr.Universal_String)
return Ada.Containers.Hash_Type;
Obj_String_Representation : Obj_String_Representation :
constant array (Object_Type) of Ustr.Universal_String := ( constant array (Object_Type) of Ustr.Universal_String := (
+"Plain", +"Plain",
@ -94,9 +100,6 @@ private
+"Span" +"Span"
); );
function Hash (Item : Ustr.Universal_String)
return Ada.Containers.Hash_Type;
package Type_Map is new Ada.Containers.Hashed_Maps ( package Type_Map is new Ada.Containers.Hashed_Maps (
Key_Type => Ustr.Universal_String, Key_Type => Ustr.Universal_String,
Element_Type => Object_Type, Element_Type => Object_Type,