29 lines
789 B
Ada
29 lines
789 B
Ada
with League.JSON.Values;
|
|
with League.JSON.Arrays.JSON_Array;
|
|
|
|
package Pandoc.Blocks is
|
|
|
|
function Create_Block
|
|
(T : Object_Type;
|
|
Content : League.JSON.Values.JSON_Value)
|
|
return League.JSON.Values.JSON_Value;
|
|
|
|
function Create_Block
|
|
(T : Object_Type;
|
|
Attr : League.JSON.Values.JSON_Value;
|
|
Content : League.JSON.Values.JSON_Value)
|
|
return League.JSON.Values.JSON_Value;
|
|
|
|
function Raw_Block
|
|
(T : League.Strings.Universal_String;
|
|
Content : League.Strings.Universal_String)
|
|
return League.JSON.Values.JSON_Value;
|
|
|
|
function Raw_Block
|
|
(Attr : League.JSON.Values.JSON_Value;
|
|
T : League.Strings.Universal_String;
|
|
Content : League.Strings.Universal_String)
|
|
return League.JSON.Values.JSON_Value;
|
|
|
|
end Pandoc.Blocks;
|