Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
Showing
90 changed files
with
16,272 additions
and
56,740 deletions.
There are no files selected for viewing
43 changes: 16 additions & 27 deletions
43
Engine/neo-core-arrays.adb → ...ettings/Debugging No/neo-is_debugging.adb
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,27 +1,16 @@ | ||
|
||
-- -- | ||
-- N E O E N G I N E -- | ||
-- -- | ||
-- Copyright (C) 2016 Justin Squirek -- | ||
-- -- | ||
-- Neo is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the -- | ||
-- Free Software Foundation, either version 3 of the License, or (at your option) any later version. -- | ||
-- -- | ||
-- Neo is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of -- | ||
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. -- | ||
-- -- | ||
-- You should have received a copy of the GNU General Public License along with Neo. If not, see gnu.org/licenses -- | ||
-- -- | ||
|
||
package body Neo.Core.Arrays is | ||
|
||
------------- | ||
-- Sorting -- | ||
------------- | ||
|
||
procedure Sort (Item : in out Array_Str_Unbound) is procedure Internal_Sort is new Ada.Containers.Generic_Array_Sort (Positive, Str_Unbound, Array_Str_Unbound, "<"); begin Internal_Sort (Item); end; | ||
procedure Sort (Item : in out Array_Int) is procedure Internal_Sort is new Ada.Containers.Generic_Array_Sort (Positive, Int, Array_Int, "<"); begin Internal_Sort (Item); end; | ||
procedure Sort (Item : in out Array_Int_64) is procedure Internal_Sort is new Ada.Containers.Generic_Array_Sort (Positive, Int_64, Array_Int_64, "<"); begin Internal_Sort (Item); end; | ||
procedure Sort (Item : in out Array_Real) is procedure Internal_Sort is new Ada.Containers.Generic_Array_Sort (Positive, Real, Array_Real, "<"); begin Internal_Sort (Item); end; | ||
procedure Sort (Item : in out Array_Real_64) is procedure Internal_Sort is new Ada.Containers.Generic_Array_Sort (Positive, Real_64, Array_Real_64, "<"); begin Internal_Sort (Item); end; | ||
end; | ||
|
||
-- -- | ||
-- N E O E N G I N E -- | ||
-- -- | ||
-- Copyright (C) 2016 Justin Squirek -- | ||
-- -- | ||
-- Neo is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the -- | ||
-- Free Software Foundation, either version 3 of the License, or (at your option) any later version. -- | ||
-- -- | ||
-- Neo is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of -- | ||
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. -- | ||
-- -- | ||
-- You should have received a copy of the GNU General Public License along with Neo. If not, see gnu.org/licenses -- | ||
-- -- | ||
|
||
separate (Neo) function Is_Debugging return Bool is begin return False; end; |
69 changes: 16 additions & 53 deletions
69
Engine/neo-core-strings.ads → ...ttings/Debugging Yes/neo-is_debugging.adb
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,53 +1,16 @@ | ||
|
||
-- -- | ||
-- N E O E N G I N E -- | ||
-- -- | ||
-- Copyright (C) 2016 Justin Squirek -- | ||
-- -- | ||
-- Neo is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the -- | ||
-- Free Software Foundation, either version 3 of the License, or (at your option) any later version. -- | ||
-- -- | ||
-- Neo is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of -- | ||
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. -- | ||
-- -- | ||
-- You should have received a copy of the GNU General Public License along with Neo. If not, see gnu.org/licenses -- | ||
-- -- | ||
|
||
with Neo.Core.Arrays; use Neo.Core.Arrays; | ||
|
||
-- Miscellaneous string utilities | ||
package Neo.Core.Strings is | ||
|
||
-------------------- | ||
-- C String Array -- Nasty stuff | ||
-------------------- | ||
|
||
type C_String_Array (Length : Int) is new Controlled with record | ||
Data : Array_Ptr_Str_8_C (1..Length); | ||
Ptrs : Array_Ptr_Char_8_C (1..Length); | ||
end record; | ||
function To_C_String_Array (Item : Array_Str_Unbound) return C_String_Array; | ||
--procedure Finalize (Item : in out C_String_Array); | ||
|
||
----------- | ||
-- Split -- | ||
----------- | ||
|
||
-- function Split (Item : Str; On : Str := " ") return Vector_Str_16_Unbound.Unsafe.Vector; | ||
function Split (Item : Str; On : Str := " ") return Array_Str_Unbound; -- is (Vector_Str_16_Unbound.To_Unsafe_Array (Split (Item, On))); | ||
|
||
------------- | ||
-- Replace -- | ||
------------- | ||
|
||
function Replace (Item : Str_Unbound; From : Str; To : Str) return Str_Unbound; | ||
function Replace (Item : Str; From : Str; To : Str) return Str is (S (Replace (U (Item), From, To))); | ||
procedure Replace (Item : in out Str_Unbound; From : Str; To : Str); | ||
|
||
----------- | ||
-- Count -- | ||
----------- | ||
|
||
function Count (Text : Str; Item : Char) return Natural; | ||
function Count (Text : Str_Unbound; Item : Char) return Natural is (Count (S (Text), Item)); | ||
end; | ||
|
||
-- -- | ||
-- N E O E N G I N E -- | ||
-- -- | ||
-- Copyright (C) 2016 Justin Squirek -- | ||
-- -- | ||
-- Neo is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the -- | ||
-- Free Software Foundation, either version 3 of the License, or (at your option) any later version. -- | ||
-- -- | ||
-- Neo is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of -- | ||
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. -- | ||
-- -- | ||
-- You should have received a copy of the GNU General Public License along with Neo. If not, see gnu.org/licenses -- | ||
-- -- | ||
|
||
separate (Neo) function Is_Debugging return Bool is begin return True; end; |
58 changes: 29 additions & 29 deletions
58
Engine/SDL/neo-api-sdl.ads → Engine/System/SDL/neo-api-sdl.ads
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,30 +1,30 @@ | ||
|
||
-- -- | ||
-- N E O E N G I N E -- | ||
-- -- | ||
-- Copyright (C) 2016 Justin Squirek -- | ||
-- -- | ||
-- Neo is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the -- | ||
-- Free Software Foundation, either version 3 of the License, or (at your option) any later version. -- | ||
-- -- | ||
-- Neo is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of -- | ||
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. -- | ||
-- -- | ||
-- You should have received a copy of the GNU General Public License along with Neo. If not, see gnu.org/licenses -- | ||
-- -- | ||
|
||
-- Custom binding to the SDL API: https://web.archive.org/web/20070815191510/http://www.tr0ll.net/libsdl/docs/sdldoc.pdf | ||
package Neo.API.SDL is | ||
|
||
----------- | ||
-- Types -- | ||
----------- | ||
|
||
---------------- | ||
-- Structures -- | ||
---------------- | ||
|
||
----------------- | ||
-- Subprograms -- | ||
----------------- | ||
|
||
-- -- | ||
-- N E O E N G I N E -- | ||
-- -- | ||
-- Copyright (C) 2016 Justin Squirek -- | ||
-- -- | ||
-- Neo is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the -- | ||
-- Free Software Foundation, either version 3 of the License, or (at your option) any later version. -- | ||
-- -- | ||
-- Neo is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of -- | ||
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. -- | ||
-- -- | ||
-- You should have received a copy of the GNU General Public License along with Neo. If not, see gnu.org/licenses -- | ||
-- -- | ||
|
||
-- Custom binding to the SDL API: https://web.archive.org/web/20070815191510/http://www.tr0ll.net/libsdl/docs/sdldoc.pdf | ||
package Neo.API.SDL is | ||
|
||
----------- | ||
-- Types -- | ||
----------- | ||
|
||
---------------- | ||
-- Structures -- | ||
---------------- | ||
|
||
----------------- | ||
-- Subprograms -- | ||
----------------- | ||
end; |
Oops, something went wrong.