diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-04-18 20:13:41 +1200 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-04-18 20:13:41 +1200 |
| commit | 525b5641fee7154d5be1a66420ca15d54bb6f6ce (patch) | |
| tree | b0f6944bbfc5626096c7cd47702c8d4b7ebccaf0 /src/misc.ads | |
| parent | ce2ba2c8bdd7070d7688eff83173b6725c0fe657 (diff) | |
Consolidated image data
Diffstat (limited to 'src/misc.ads')
| -rw-r--r-- | src/misc.ads | 47 |
1 files changed, 0 insertions, 47 deletions
diff --git a/src/misc.ads b/src/misc.ads deleted file mode 100644 index 7108f63..0000000 --- a/src/misc.ads +++ /dev/null @@ -1,47 +0,0 @@ - - --- Programmed by Jedidiah Barber --- Licensed under the Sunset License v1.0 - --- See license.txt for further details - - -private with - - Ada.Directories, - Here_I_Am; - - -package Misc is - - - pragma Elaborate_Body; - - - Origin, Image_Path, Level_Path : constant String; - - -private - - - package ADir renames Ada.Directories; - - - Origin : constant String := ADir.Containing_Directory (Here_I_Am.Executable); - - Image_Path : constant String := - ADir.Compose - (ADir.Compose - (ADir.Compose - (ADir.Compose (Origin, ".."), "share"), "sokoban"), "img"); - - Level_Path : constant String := - ADir.Compose - (ADir.Compose - (ADir.Compose - (ADir.Compose (Origin, ".."), "share"), "sokoban"), "level"); - - -end Misc; - - |