with Ada.Directories; use Ada.Directories;
with Ada.Strings.UTF_Encoding.Wide_Wide_Strings; use Ada.Strings.UTF_Encoding.Wide_Wide_Strings;
with Ada.Exceptions; use Ada.Exceptions;
with VerzeichnisKonstanten;
with Fehlermeldungssystem;
package body SchreibenVerzeichnisseLogik is
procedure Verzeichnisse
is begin
case
Exists (Name => VerzeichnisKonstanten.Spielstand)
is
when True =>
null;
when False =>
Create_Directory (New_Directory => VerzeichnisKonstanten.Spielstand);
end case;
case
Exists (Name => VerzeichnisKonstanten.Datenbanken)
is
when True =>
null;
when False =>
Create_Directory (New_Directory => VerzeichnisKonstanten.Datenbanken);
end case;
case
Exists (Name => VerzeichnisKonstanten.Einstellungen)
is
when True =>
null;
when False =>
Create_Directory (New_Directory => VerzeichnisKonstanten.Einstellungen);
end case;
exception
when StandardAdaFehler : others =>
Fehlermeldungssystem.Logik (FehlermeldungExtern => "SchreibenVerzeichnisseLogik.Verzeichnisse: Konnte nicht gespeichert werden: " & Decode (Item => Exception_Information (X => StandardAdaFehler)));
end Verzeichnisse;
end SchreibenVerzeichnisseLogik;