Skip to content

Commit

Permalink
#141 gespeichert und einfache Fehlerbehandlungen zentralisieren
Browse files Browse the repository at this point in the history
planetAuswahlDialog: Fehlerbehandlung nach server modul umgezogen
planetenEigenschaftenDialog: Gespeichert und Fehlerbehandlung  nach server modul umgezogen
planetMondNameDialog: Gespeichert und Fehlerbehandlung  nach server modul umgezogen
planetSammelEigenschaftenDialog: Gespeichert und Fehlerbehandlung  nach server modul umgezogen
rezepteBekanntDialog: Gespeichert und Fehlerbehandlung  nach server modul umgezogen
server: Gespeichert und Fehlerbehandlung  neu
spielStatusDialog: Gespeichert und Fehlerbehandlung  nach server modul umgezogen
sprachUmschaltung: Gespeichert und Fehlerbehandlung  nach server modul umgezogen
stoffErlangenDialog: Gespeichert und Fehlerbehandlung  nach server modul umgezogen
systemNamenDialog: Gespeichert und Fehlerbehandlung  nach server modul umgezogen
  • Loading branch information
SchwertAs committed Sep 24, 2020
1 parent 9bc1daa commit 2845d1e
Show file tree
Hide file tree
Showing 10 changed files with 48 additions and 148 deletions.
18 changes: 2 additions & 16 deletions planetAuswahlDialog.pl
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
:- module(planetAuswahlDialog, [systemAuswahlDialog/2, planetAuswahlDialog/3, fehlerBehandlung/0]).
:- module(planetAuswahlDialog, [systemAuswahlDialog/2, planetAuswahlDialog/3]).

:- use_module(library(http/http_error)).
:- use_module(library(http/html_write)).
Expand Down Expand Up @@ -54,7 +54,7 @@
textResources:getText(txtReset, TxtReset),
http_parameters(Request,
[auswahlSystem(AuswahlSystem, [length > 0])]),
((AuswahlSystem = TxtBitteWaehlen, fehlerBehandlung);
((AuswahlSystem = TxtBitteWaehlen, server:fehlerBehandlung);
(
findall(Planet, (spielStatus:planeten(_, AuswahlSystem, Planet, _), Planet \= 'MeinPlanet'), Planeten),
server:baueOptionsFeld('auswahlPlanet', Planeten, 2, OptionList),
Expand Down Expand Up @@ -110,17 +110,3 @@
])
])
).

fehlerBehandlung :-
server:holeCssAlsStyle(StyleString),
textResources:getText(txtNoMansSkyTrainerFehlerAuswahl, TxtNoMansSkyTrainerFehlerAuswahl),
TermerizedHead = [\[StyleString], title(TxtNoMansSkyTrainerFehlerAuswahl)],
textResources:getText(txtBitteEineAuswahlTreffen, TxtBitteEineAuswahlTreffen),
TermerizedBody = [
\['<redHeader>'],
h3(align(center), TxtBitteEineAuswahlTreffen),
\['</redHeader>']
],
reply_html_page(TermerizedHead, TermerizedBody).


20 changes: 2 additions & 18 deletions planetMondNameDialog.pl
Original file line number Diff line number Diff line change
Expand Up @@ -27,7 +27,7 @@
http_parameters(Request,
[auswahlSystem(AuswahlSystem, [length > 0])
]),
(AuswahlSystem = TxtBitteWaehlen -> planetAuswahlDialog:fehlerBehandlung;
(AuswahlSystem = TxtBitteWaehlen -> server:fehlerBehandlung;
planetMondNameAnzeigen(AuswahlSystem)
).

Expand Down Expand Up @@ -166,7 +166,7 @@
);
(nth1(1, VarValueList, AuswahlSystem),
\+ablegen(AuswahlSystem, GesamtZeilenZahl, VarValueList),
gespeichert
server:gespeichert
)
).

Expand Down Expand Up @@ -260,22 +260,6 @@
defaultBehandlung(PlanetenTyp0, PlanetenTyp) :-
PlanetenTyp = PlanetenTyp0.

gespeichert :-
server:holeCssAlsStyle(StyleString),
textResources:getText(txtNoMansSkyTrainerGespeichert, TxtNoMansSkyTrainerGespeichert),
TermerizedHead = [\[StyleString], title(TxtNoMansSkyTrainerGespeichert)],
textResources:getText(txtGespeichert, TxtGespeichert),
textResources:getText(txtFunktionsAuswahl, TxtFunktionsAuswahl),
TermerizedBody = [
\['<header>'],
h1(align(center), TxtGespeichert),
\['</header>'],
\['<formSpace>'],
p(a(['href="/"'],[TxtFunktionsAuswahl])),
\['</formSpace>']
],
reply_html_page(TermerizedHead, TermerizedBody).

/* unverändert */
insUpdDel(System, PlanetNew, RecNo, PlanetenTyp) :-
gueltigeZeile(PlanetNew, PlanetenTyp),
Expand Down
22 changes: 3 additions & 19 deletions planetSammelEigenschaftenDialog.pl
Original file line number Diff line number Diff line change
Expand Up @@ -54,7 +54,7 @@
[auswahlSystem(AuswahlSystem, [length > 0]),
auswahlPlanet(AuswahlPlanet, [length > 0])
]),
((AuswahlPlanet = TxtBitteWaehlen, planetAuswahlDialog:fehlerBehandlung);
((AuswahlPlanet = TxtBitteWaehlen, server:fehlerBehandlung);
(
findall(SammelArt,
(sammelAktion:sammelAktion(SammelArt0),
Expand Down Expand Up @@ -96,7 +96,7 @@
auswahlPlanet(AuswahlPlanet, [length > 0]),
auswahlSammelArt(AuswahlSammelArt, [length > 0])
]),
(AuswahlSammelArt = TxtBitteWaehlen -> planetAuswahlDialog:fehlerBehandlung;
(AuswahlSammelArt = TxtBitteWaehlen -> server:fehlerBehandlung;
planetenSammelEigenschaftenAnzeigen(AuswahlSystem, AuswahlPlanet, AuswahlSammelArt)
).

Expand Down Expand Up @@ -351,7 +351,7 @@
ignore(retractall(sammlung:sammlung(_, AuswahlSystem, AuswahlPlanet, AuswahlSammelArt, _, _, _, _))),
\+ablegen(AuswahlSystem, AuswahlPlanet, AuswahlSammelArt, GesamtZeilenZahl, VarValueList),
sammlung:vorgefertigeLoesungenErstellen,
gespeichert
server:gespeichert
)
).

Expand Down Expand Up @@ -390,22 +390,6 @@
assertz(sammlung:sammlung(ZeileNo, AuswahlSystem, AuswahlPlanet, AuswahlSammelArt, RohStoff, Ruest, Haupt, Neben)),
fail.

gespeichert :-
server:holeCssAlsStyle(StyleString),
textResources:getText(txtGespeichert, TxtGespeichert),
textResources:getText(txtFunktionsAuswahl, TxtFunktionsAuswahl),
textResources:getText(txtNoMansSkyTrainerGespeichert, TxtNoMansSkyTrainerGespeichert),
TermerizedHead = [\[StyleString], title(TxtNoMansSkyTrainerGespeichert)],
TermerizedBody = [
\['<header>'],
h1(align(center), TxtGespeichert),
\['</header>'],
\['<formSpace>'],
p(a(['href="/"'],[TxtFunktionsAuswahl])),
\['</formSpace>']
],
reply_html_page(TermerizedHead, TermerizedBody).

fehlerZeile(FeldNo) :-
textResources:getText(txtDieZeile, TxtDieZeile),
textResources:getText(txtIstUnvollstaendig, TxtIstUnvollstaendig),
Expand Down
19 changes: 2 additions & 17 deletions planetenEigenschaftenDialog.pl
Original file line number Diff line number Diff line change
Expand Up @@ -41,7 +41,7 @@
[auswahlSystem(AuswahlSystem, [length > 0]),
auswahlPlanet(AuswahlPlanet, [length > 0])
]),
(AuswahlPlanet = TxtBitteWaehlen -> planetAuswahlDialog:fehlerBehandlung;
(AuswahlPlanet = TxtBitteWaehlen -> server:fehlerBehandlung;
planetenEigenschaftenAnzeigen(AuswahlSystem, AuswahlPlanet)
).

Expand Down Expand Up @@ -469,24 +469,9 @@
(PlantageVorhanden= off;
assertz(spielStatus:systemAusstattung([AuswahlSystem, AuswahlPlanet, ortPlantage], PlantageEntfernungNum))
),
gespeichert
server:gespeichert
)).


gespeichert :-
server:holeCssAlsStyle(StyleString),
textResources:getText(txtNoMansSkyTrainerGespeichert, TxtNoMansSkyTrainerGespeichert),
TermerizedHead = [\[StyleString], title(TxtNoMansSkyTrainerGespeichert)],
TermerizedBody = [
\['<header>'],
h3(align(center),'gespeichert!'),
\['</header>'],
\['<formSpace>'],
p(\['<a href="/" > Funktionsauswahl </a>']),
\['</formSpace>']
],
reply_html_page(TermerizedHead, TermerizedBody).

fehlerBehandlungGruppe(Gruppe) :-
server:holeCssAlsStyle(StyleString),
textResources:getText(Gruppe, TxtGruppe),
Expand Down
20 changes: 2 additions & 18 deletions rezepteBekanntDialog.pl
Original file line number Diff line number Diff line change
Expand Up @@ -61,7 +61,7 @@
]),
textResources:getText(txtBitteWaehlen, BitteWaehlen),
debug(myTrace, 'AuswahlStoffKlasse=~k', AuswahlStoffKlasse),
((AuswahlStoffKlasse = BitteWaehlen, planetAuswahlDialog:fehlerBehandlung);
((AuswahlStoffKlasse = BitteWaehlen, server:fehlerBehandlung);
rezeptBekanntAnzeigen(AuswahlStoffKlasse)
).

Expand Down Expand Up @@ -219,7 +219,7 @@
VarValueList =[AuswahlStoffKlasse|_],
baueRezeptListe(AuswahlStoffKlasse, RezeptListe),
\+ablegen(RezeptListe, VarValueList),
gespeichert.
server:gespeichert.

baueRezeptListe(AuswahlStoffKlasse, RezeptListe) :-
findall(Rezept, (rezeptVonStoffKlasse(AuswahlStoffKlasse, Rezept), rezeptSchonBekannt(Rezept, _)), RezeptListe0),
Expand Down Expand Up @@ -249,19 +249,3 @@
nth1(OffsetRezept, RezeptListe, Rezept),
OffsetChecked is 1 + (Spalte - 1) * (ParamStep - 1) + Zeile,
nth1(OffsetChecked, VarValueList, Checked).

gespeichert :-
server:holeCssAlsStyle(StyleString),
textResources:getText(txtNoMansSkyTrainerGespeichert, TxtNoMansSkyTrainerGespeichert),
TermerizedHead = [\[StyleString], title(TxtNoMansSkyTrainerGespeichert)],
textResources:getText(txtFunktionsAuswahl, TxtFunktionsAuswahl),
textResources:getText(txtGespeichert, TxtGespeichert),
TermerizedBody = [
\['<header>'],
h1(align(center),TxtGespeichert),
\['</header>'],
\['<formSpace>'],
p(a(['href="/"'],[TxtFunktionsAuswahl])),
\['</formSpace>']
],
reply_html_page(TermerizedHead, TermerizedBody).
29 changes: 28 additions & 1 deletion server.pl
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
:- module(server, [server/1, holeCssAlsStyle/1, baueOptionsFeld/4]).
:- module(server, [server/1, holeCssAlsStyle/1, baueOptionsFeld/4, gespeichert/0, fehlerBehandlung/0]).

:- use_module(library(dcg/basics)).
:- use_module(library(http/thread_httpd)).
Expand Down Expand Up @@ -207,5 +207,32 @@
string_concat(BisherList, OptionString1, BisherList2),
baueOption(Rest, BisherList2, NextList).

gespeichert :-
server:holeCssAlsStyle(StyleString),
textResources:getText(txtNoMansSkyTrainerGespeichert, TxtNoMansSkyTrainerGespeichert),
TermerizedHead = [\[StyleString], title(TxtNoMansSkyTrainerGespeichert)],
TermerizedBody = [
\['<header>'],
h3(align(center),'gespeichert!'),
\['</header>'],
\['<formSpace>'],
p(\['<a href="/" > Funktionsauswahl </a>']),
\['</formSpace>']
],
reply_html_page(TermerizedHead, TermerizedBody).

fehlerBehandlung :-
server:holeCssAlsStyle(StyleString),
textResources:getText(txtNoMansSkyTrainerFehlerAuswahl, TxtNoMansSkyTrainerFehlerAuswahl),
TermerizedHead = [\[StyleString], title(TxtNoMansSkyTrainerFehlerAuswahl)],
textResources:getText(txtBitteEineAuswahlTreffen, TxtBitteEineAuswahlTreffen),
TermerizedBody = [
\['<redHeader>'],
h3(align(center), TxtBitteEineAuswahlTreffen),
\['</redHeader>']
],
reply_html_page(TermerizedHead, TermerizedBody).


dummy(_) :-
format('').
20 changes: 1 addition & 19 deletions spielStatusDialog.pl
Original file line number Diff line number Diff line change
Expand Up @@ -179,23 +179,5 @@
(Spaere = off -> assertz(spielStatus:spielStatus(sphaereRufbar, false)); assertz(spielStatus:spielStatus(sphaereRufbar, true))),
assertz(spielStatus:spielStatus(konfiguriert, true)),
sammlung:vorgefertigeLoesungenErstellen,
gespeichert.

gespeichert :-
server:holeCssAlsStyle(StyleString),
textResources:getText(txtGespeichert, TxtGespeichert),
textResources:getText(txtFunktionsAuswahl, TxtFunktionsAuswahl),
textResources:getText(txtNoMansSkyTrainerGespeichert, TxtNoMansSkyTrainerGespeichert),
TermerizedHead = [\[StyleString], title(TxtNoMansSkyTrainerGespeichert)],
TermerizedBody = [
\['<header>'],
h1(align(center),TxtGespeichert),
\['</header>'],
\['<formSpace>'],
p(a(['href="/"'],[TxtFunktionsAuswahl])
),
\['</formSpace>']
],
reply_html_page(TermerizedHead, TermerizedBody).

server:gespeichert.

21 changes: 2 additions & 19 deletions sprachUmschaltung.pl
Original file line number Diff line number Diff line change
Expand Up @@ -61,25 +61,8 @@
]),
textResources:getText(txtBitteWaehlen, BitteWaehlen),
debug(myTrace, 'AuswahlSprache=~k', AuswahlSprache),
((AuswahlSprache = BitteWaehlen, planetAuswahlDialog:fehlerBehandlung);
((AuswahlSprache = BitteWaehlen, server:fehlerBehandlung);
(retractall(spielStatus:sprache(_)),
assertz(spielStatus:sprache(AuswahlSprache)),
gespeichert)
server:gespeichert)
).

gespeichert :-
server:holeCssAlsStyle(StyleString),
textResources:getText(txtNoNansSkyTrainerSprachAuswahl, TxtNoNansSkyTrainerSprachAuswahl),
TermerizedHead = [\[StyleString], title(TxtNoNansSkyTrainerSprachAuswahl)],
textResources:getText(txtFunktionsAuswahl, TxtFunktionsAuswahl),
textResources:getText(txtGespeichert, TxtGespeichert),
TermerizedBody = [
\['<header>'],
h1(align(center),TxtGespeichert),
\['</header>'],
\['<formSpace>'],
p(a(['href="/"'],[TxtFunktionsAuswahl])),
\['</formSpace>']
],
reply_html_page(TermerizedHead, TermerizedBody).

10 changes: 5 additions & 5 deletions stoffErlangenDialog.pl
Original file line number Diff line number Diff line change
Expand Up @@ -42,7 +42,7 @@
[auswahlSystem(AuswahlSystem, [length > 0]),
auswahlPlanet(AuswahlPlanet, [length > 0])
]) ,
((AuswahlPlanet = TxtBitteWaehlen, planetAuswahlDialog:fehlerBehandlung);
((AuswahlPlanet = TxtBitteWaehlen, server:fehlerBehandlung);
stoffErlangenAnzeigen(AuswahlSystem, AuswahlPlanet)
).

Expand Down Expand Up @@ -167,11 +167,11 @@
((nurEinStoffGewaehlt(Stoff1, Stoff2, Stoff3, Stoff4, Stoff5, Stoff),
ergebnisAusgeben(AuswahlSystem, AuswahlPlanet, Anzahl, Ziel, Stoff)
);
fehlerBehandlung(Stoff1, Stoff2, Stoff3, Stoff4, Stoff5)
fehlerBehandlungNurEinStoff(Stoff1, Stoff2, Stoff3, Stoff4, Stoff5)
),
!.

fehlerBehandlung(Stoff1, Stoff2, Stoff3, Stoff4, Stoff5) :-
fehlerBehandlungNurEinStoff(Stoff1, Stoff2, Stoff3, Stoff4, Stoff5) :-
textResources:getText(txtBitteWaehlen, TxtBitteWaehlen),
((Stoff1 == TxtBitteWaehlen, Stoff2 = TxtBitteWaehlen, Stoff3 = TxtBitteWaehlen,
Stoff4 = TxtBitteWaehlen, Stoff5 = TxtBitteWaehlen,
Expand All @@ -187,7 +187,7 @@
TermerizedHead = [\[StyleString], title(TxtNoNansSkyTrainerStoffErlangen)],
TermerizedBody = [
\['<redHeader>'],
h1(align(center), TxtBitteGenauEineAuswahlTreffen),
h3(align(center), TxtBitteGenauEineAuswahlTreffen),
\['</redHeader>']
],

Expand All @@ -200,7 +200,7 @@
TermerizedHead = [\[StyleString], title(TxtNoNansSkyTrainerStoffErlangen)],
TermerizedBody = [
\['<redHeader>'],
h1(align(center), TxtBitteNurEineAuswahlTreffen),
h3(align(center), TxtBitteNurEineAuswahlTreffen),
\['</redHeader>']
],

Expand Down
17 changes: 1 addition & 16 deletions systemNamenDialog.pl
Original file line number Diff line number Diff line change
Expand Up @@ -125,7 +125,7 @@
fehlerZeile(ZeileNoFehler, SpalteNoFehler)
);
(\+ablegen(GesamtZeilenZahl, VarValueList),
gespeichert
server:gespeichert
)
).

Expand Down Expand Up @@ -225,21 +225,6 @@
retractall(spielStatus:systeme(_, SystemOld, _)),
!.

gespeichert :-
server:holeCssAlsStyle(StyleString),
textResources:getText(txtGespeichert, TxtGespeichert),
TermerizedHead = [\[StyleString], title(TxtGespeichert)],
textResources:getText(txtFunktionsAuswahl, TxtFunktionsAuswahl),
TermerizedBody = [
\['<header>'],
h1(align(center),TxtGespeichert),
\['</header>'],
\['<formSpace>'],
p(a(['href="/"'],[TxtFunktionsAuswahl])),
\['</formSpace>']
],
reply_html_page(TermerizedHead, TermerizedBody).

fehlerZeile(Zeile, Spalte) :-
server:holeCssAlsStyle(StyleString),
textResources:getText(txtDieZeile, TxtDieZeile),
Expand Down

0 comments on commit 2845d1e

Please sign in to comment.