--  SPDX-License-Identifier: Apache-2.0
--
--  Copyright (c) 2016 onox <denkpadje@gmail.com>
--
--  Licensed under the Apache License, Version 2.0 (the "License");
--  you may not use this file except in compliance with the License.
--  You may obtain a copy of the License at
--
--      http://www.apache.org/licenses/LICENSE-2.0
--
--  Unless required by applicable law or agreed to in writing, software
--  distributed under the License is distributed on an "AS IS" BASIS,
--  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--  See the License for the specific language governing permissions and
--  limitations under the License.

with Ada.Strings.Bounded;
with Ada.Strings.Unbounded;

with JSON.Types;

private package Orka.glTF is
   pragma Preelaborate;

   package SU renames Ada.Strings.Unbounded;

   Maximum_Name_Length : constant := 64;

   package Name_Strings is new Ada.Strings.Bounded.Generic_Bounded_Length
     (Max => Maximum_Name_Length);

   function To_String (Value : Name_Strings.Bounded_String) return String
     renames Name_Strings.To_String;

   package Types is new JSON.Types (Long_Integer, Float_32);

   subtype Natural_Optional is Integer range -1 .. Integer'Last;

   Undefined : constant := Natural_Optional'First;

end Orka.glTF;