1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135 | with Ada.Directories; use Ada.Directories;
with Ada.Strings.UTF_Encoding.Wide_Wide_Strings; use Ada.Strings.UTF_Encoding.Wide_Wide_Strings;
with Sf.Audio.Music;
with VerzeichnisKonstanten;
with SpeziesKonstanten;
with EingeleseneMusik;
with Fehlermeldungssystem;
with EinlesenAllgemeinesLogik;
package body EinlesenMusikLogik is
procedure EinlesenMusik
is begin
if
Platzhalter
then
return;
else
null;
end if;
case
Exists (Name => VerzeichnisKonstanten.Audio & VerzeichnisKonstanten.Musik & VerzeichnisKonstanten.NullDatei)
is
when False =>
Fehlermeldungssystem.Logik (FehlermeldungExtern => "EinlesenMusikLogik.EinlesenMusik: Es fehlt: " & Decode (Item => VerzeichnisKonstanten.Audio & VerzeichnisKonstanten.Musik & VerzeichnisKonstanten.NullDatei));
return;
when True =>
AktuelleZeile := 1;
Open (File => DateiVerzeichnisse,
Mode => In_File,
Name => VerzeichnisKonstanten.Audio & VerzeichnisKonstanten.Musik & VerzeichnisKonstanten.NullDatei,
Form => "WCEM=8");
end case;
VerzeichnisseSchleife:
for VerzeichnisSchleifenwert in EingeleseneMusik.MusikArray'Range (1) loop
case
EinlesenAllgemeinesLogik.VorzeitigesDateienende (AktuelleDateiExtern => DateiVerzeichnisse,
AktuelleZeileExtern => AktuelleZeile,
DateinameExtern => "EinlesenMusikLogik.EinlesenMusik")
is
when True =>
Fehlermeldungssystem.Logik (FehlermeldungExtern => "EinlesenMusikLogik.EinlesenMusik: Fehlende Zeilen: "
& Decode (Item => VerzeichnisKonstanten.Audio & VerzeichnisKonstanten.Musik & VerzeichnisKonstanten.NullDatei) & ", aktuelle Zeile: " & AktuelleZeile'Wide_Wide_Image);
exit VerzeichnisseSchleife;
when False =>
EinlesenLieder (DateipfadExtern => EinlesenAllgemeinesLogik.TextEinlesen (DateiExtern => DateiVerzeichnisse,
AktuelleZeileExtern => AktuelleZeile,
DateinameExtern => "EinlesenMusikLogik.EinlesenMusik"),
SpeziesExtern => VerzeichnisSchleifenwert);
AktuelleZeile := AktuelleZeile + 1;
end case;
end loop VerzeichnisseSchleife;
Close (File => DateiVerzeichnisse);
end EinlesenMusik;
procedure EinlesenLieder
(DateipfadExtern : in Wide_Wide_String;
SpeziesExtern : in SpeziesDatentypen.Spezies_Enum)
is begin
case
SpeziesExtern
is
when SpeziesKonstanten.LeerSpezies =>
null;
when others =>
null;
end case;
case
Exists (Name => Encode (Item => DateipfadExtern))
is
when False =>
Fehlermeldungssystem.Logik (FehlermeldungExtern => "EinlesenMusikLogik.EinlesenLieder: Es fehlt: " & DateipfadExtern);
return;
when True =>
Open (File => DateiMusik,
Mode => In_File,
Name => Encode (Item => DateipfadExtern),
Form => "WCEM=8");
end case;
MusikSchleife:
for MusikSchleifenwert in EingeleseneMusik.MusikArray'Range (2) loop
case
EinlesenAllgemeinesLogik.VorzeitigesDateienende (AktuelleDateiExtern => DateiMusik,
AktuelleZeileExtern => Positive (MusikSchleifenwert),
DateinameExtern => "EinlesenMusikLogik.EinlesenLieder")
is
when True =>
Fehlermeldungssystem.Logik (FehlermeldungExtern => "EinlesenMusikLogik.EinlesenLieder: Fehlende Zeilen: " & DateipfadExtern & ", aktuelle Zeile: " & MusikSchleifenwert'Wide_Wide_Image);
exit MusikSchleife;
when False =>
Lied := EinlesenAllgemeinesLogik.TextEinlesenUngebunden (DateiExtern => DateiMusik,
AktuelleZeileExtern => Positive (MusikSchleifenwert),
DateinameExtern => "EinlesenMusikLogik.EinlesenLieder");
end case;
case
Exists (Name => Encode (Item => To_Wide_Wide_String (Source => Lied)))
is
when False =>
Fehlermeldungssystem.Logik (FehlermeldungExtern => "EinlesenMusikLogik.EinlesenLieder: Es fehlt: " & To_Wide_Wide_String (Source => Lied));
when True =>
EingeleseneMusik.Musik (SpeziesExtern, MusikSchleifenwert) := Sf.Audio.Music.createFromFile (filename => Encode (Item => To_Wide_Wide_String (Source => Lied)));
end case;
end loop MusikSchleife;
Close (File => DateiMusik);
end EinlesenLieder;
end EinlesenMusikLogik;
|