ausgabe.pl

:- module(ausgabe, [ausgabeSammlung/3, ausgabeVorgaenge/3, ausgabeSummen/6, 
          baueBegruendung/2, zeitFeldToNumber/2, partialList/4, 
          letzesListenElement/2]).

baueStoffListeFuerStoffKlassen(StoffKlassen, Stoffe) :-
	findall(StoffText, 
	  (select(Stoffklasse, StoffKlassen, _), 
	   stoff:stoff(Stoffklasse, Stoff0, _),
	   textResources:getText(Stoff0, StoffText)
	  ), Stoffe).
	
ausgabeSammlung(SammelSet, SammelList, SammelListDanach) :-
	dict_create(SammelSet0, 'SammelStueckliste', []),
	SammelSet = SammelSet0,
	SammelListDanach = SammelList.
	
ausgabeSammlung(SammelSet, SammelList, SammelListDanach) :-
	get_dict(Stoff, SammelSet, Vorgang),
	Vorgang = [Operation, _],
	Operation = bekannt,
	textResources:getText(Stoff, StoffString),
	append(SammelList, [sam('1', StoffString)], SammelList0),
	del_dict(Stoff, SammelSet, Vorgang, SammelSetDanach),
	ausgabeSammlung(SammelSetDanach, SammelList0, SammelListDanach),
	!. 

ausgabeSammlung(SammelSet, SammelList, SammelListDanach) :-
	get_dict(Stoff, SammelSet, Vorgang),
	Vorgang = [Operation, SammelAnzahl],
	Operation \= bekannt,
	number_string(SammelAnzahl, SammelAnzahlString),
	textResources:getText(Stoff, StoffString),
	append(SammelList, [sam(SammelAnzahlString, StoffString)], SammelList0),
	del_dict(Stoff, SammelSet, Vorgang, SammelSetDanach),
	ausgabeSammlung(SammelSetDanach, SammelList0, SammelListDanach),
	!. 

ausgabeVorgaenge(Vorgaenge, VorgaengePred, VorgaengePredDanach) :-
	Vorgaenge = [],
	VorgaengePred = VorgaengePredDanach,
	!.

ausgabeVorgaenge(Vorgaenge, VorgaengePred, VorgaengePredDanach) :-
	Vorgaenge = [ Kopf | Rest], 
	Kopf = [_, _, WandelAnz, Operation, Komponenten, [ProduktAnzahl, Produkt]],
	wandelAktion:wandelAktion(Operation, _),
	arbeitsVorbereitung:bildeAvZeiten([Kopf], 0, GesamtVorgaengeZeit),
	bildeOperation(GesamtVorgaengeZeit, Operation, OperationStringMaske),
	gebeKomponenteAus(Komponenten, '', KompPred),
	atom_string(WandelAnz, WandelAnzString),
	textResources:getText(Produkt, ProduktString),
	textResources:getText(Operation, OperationString),

	textResources:getText(txtFuerenSie, TxtFuerenSie),
 	string_concat(TxtFuerenSie, WandelAnzString, Anweisung0),
	textResources:getText(txtLeerMal, Mal),
 	string_concat(Anweisung0, Mal, Anweisung1),
 	string_concat(Anweisung1, OperationString, Anweisung2),
 	textResources:getText(txtLeerVon, Von),
 	string_concat(Anweisung2, Von, Anweisung3),
 	string_concat(Anweisung3, ProduktString, Anweisung4),
 	textResources:getText(txtLeerMit, Mit),
 	string_concat(Anweisung4, Mit, Anweisung5),
 	string_concat(Anweisung5, KompPred, Anweisung6),
 	textResources:getText(txtLeerAus, Aus),
 	string_concat(Anweisung6, Aus, Anweisung),

    bildeErgebnis(ProduktAnzahl, Produkt, Ergebnis),
	append(VorgaengePred, [vorg(Anweisung, OperationStringMaske, Ergebnis)], VorgaengePred0),
	ausgabeVorgaenge(Rest, VorgaengePred0, VorgaengePredDanach),
	!.		

ausgabeVorgaenge(Vorgaenge, VorgaengePred, VorgaengePredDanach) :-
	Vorgaenge = [ Kopf | Rest], 
	Kopf = [_, _, _, Operation, _, [_, Produkt]],
	Operation = bekannt,
	textResources:getText(txtDas, Das),
	textResources:getText(Produkt, ProduktString),
	string_concat(Das, ProduktString, Anweisung0),
	textResources:getText(txtLeerIstBekannt, TxtLeerIstBekannt),
	textResources:getText(Operation, TxtOperation),
	string_concat(Anweisung0, TxtLeerIstBekannt, Anweisung),
	append(VorgaengePred, [vorg(Anweisung, TxtOperation, '')], VorgaengePred0),
	ausgabeVorgaenge(Rest, VorgaengePred0, VorgaengePredDanach),
	!.		

ausgabeVorgaenge(Vorgaenge, VorgaengePred, VorgaengePredDanach) :-
	Vorgaenge = [ Kopf | Rest], 
	Kopf = [System, Planet, _, Operation, _, [ProduktAnzahl, Produkt]],
	sammelAktion:sammelAktion(Operation),
	sammlung:sammlung(_, System, Planet, Operation, Produkt, HauptZeit, NebenZeit, RuestZeit),
	Zeit is (ProduktAnzahl * HauptZeit + RuestZeit + (ProduktAnzahl - 1) * NebenZeit),
	bildeOperation(Zeit, Operation, OperationStringMaske),
	atom_string(ProduktAnzahl, WandelAnzString),
	textResources:getText(Operation, OperationString),
	textResources:getText(Produkt, ProduktString),

 	textResources:getText(txtErlangenSie, TxtErlangenSie),
	string_concat(TxtErlangenSie, WandelAnzString, Anweisung0),
 	textResources:getText(txtLeerEinheiten, TxtLeerEinheiten),
	string_concat(Anweisung0, TxtLeerEinheiten, Anweisung1),
 	string_concat(Anweisung1, ProduktString, Anweisung2),
 	textResources:getText(txtLeerMit, Mit),
	string_concat(Anweisung2, Mit, Anweisung3),
 	string_concat(Anweisung3, OperationString, Anweisung),
 	bildeErgebnis(ProduktAnzahl, Produkt, Ergebnis),
 	append(VorgaengePred, [vorg(Anweisung, OperationStringMaske, Ergebnis)], VorgaengePred0),
	ausgabeVorgaenge(Rest, VorgaengePred0, VorgaengePredDanach),
	!.		

ausgabeVorgaenge(Vorgaenge, VorgaengePred, VorgaengePredDanach) :-
	Vorgaenge = [ Kopf | Rest], 
	Kopf = [_, _, _, Operation, [[_, _], [_, NachOrt]], [ReiseZeit, Produkt]],
	Operation = reisen,
	NachOrt = [NachSystem, NachPlanet, NachOrtsTeil],
	
	bildeOperation(ReiseZeit, Operation, OperationString),
	
	atom_string(NachSystem, SystemNachString),
	atom_string(NachPlanet, PlanetNachString),
	textResources:getText(NachOrtsTeil, NachString),
	textResources:getText(Produkt, ProduktString),
	textResources:getText(txtBitteReisenSieNachSystem, TxtBitteReisenSieNachSystem),
 	string_concat(TxtBitteReisenSieNachSystem, SystemNachString, Anweisung6),
 	textResources:getText(txtLeerPlanet, Plan),
 	string_concat(Anweisung6, '-', Anweisung7),
 	string_concat(Anweisung7, Plan, Anweisung8),
 	string_concat(Anweisung8, PlanetNachString, Anweisung9), 
 	string_concat(Anweisung9, ' ', Anweisung10),
 	string_concat(Anweisung10, NachString, Anweisung11),
	
 	textResources:getText(txtIn, In),
 	string_concat(In, NachString, Ergebnis0),
 	string_concat(Ergebnis0, ' ', Ergebnis1),
 	string_concat(Ergebnis1, ProduktString, Ergebnis),

 	append(VorgaengePred, [vorg(Anweisung11, OperationString, Ergebnis)], VorgaengePred0),
	ausgabeVorgaenge(Rest, VorgaengePred0, VorgaengePredDanach),
	!.		

ausgabeVorgaenge(Vorgaenge, VorgaengePred, VorgaengePredDanach) :-
	Vorgaenge = [ _ | Rest], 
	ausgabeVorgaenge(Rest, VorgaengePred, VorgaengePredDanach),
	!.		 

bildeOperation(Zeit, Operation, OperationString) :-
	atom_string(Zeit, ZeitString),
	textResources:getText(Operation, OperationString0),
	textResources:getText(txtLeerEinHundertstel, EHstl),
	string_concat(ZeitString, EHstl, OperationString1),
	string_concat(OperationString1, OperationString0, OperationString).
		
bildeErgebnis(ProduktAnzahl, Produkt, Ergebnis) :-
	atom_string(ProduktAnzahl, ProduktAnzahlString),
	textResources:getText(Produkt, ProduktString),
 	textResources:getText(txtLeerEinheiten, EH),
 	string_concat(ProduktAnzahlString, EH, Ergebnis0),
 	string_concat(Ergebnis0, ProduktString, Ergebnis).	

gebeKomponenteAus(Komponenten, KompPred, KompPredDanach) :-
	Komponenten = [],
	KompPredDanach = KompPred.
	
gebeKomponenteAus(Komponenten, KompPred, KompPredDanach) :-
	Komponenten = [ Kopf | Rest ],
	Kopf = [Anzahl, Stoff],
	atom_string(Anzahl, AnzahlString),
	textResources:getText(Stoff, StoffString),
	string_concat(KompPred, AnzahlString, KompPred0),
	string_concat(KompPred0, ' x ', KompPred1),
	string_concat(KompPred1, StoffString, KompPred2),
	(Rest \= [], string_concat(KompPred2, ', ', KompPred3); string_concat(KompPred2, '', KompPred3)),
	gebeKomponenteAus(Rest, KompPred3, KompPredDanach),
	!.

baueBegruendung(Ziel, BegrTupel) :-
	findall(FehlStoffTupel, (suchAlgorithmus:ersterNichtBeschaffbarerStoff(Ziel, FehlStoff, Vorgaenge), 
	                    FehlStoff \= none,
	                    FehlStoffTupel=[FehlStoff, Vorgaenge]
	                    ), FehlStoffTupels),
	baueBegruendungSub(FehlStoffTupels, [], BegrTupel).
	
baueBegruendungSub(BegrTupel, BegrTupelVorher, BegrTupelDanach) :-
	BegrTupel = [],
	BegrTupelVorher = BegrTupelDanach,
	!.
	
baueBegruendungSub([BegrTupel|RestBegrTupel], BegrTupelVorher, BegrTupelDanach) :-
	BegrTupel = [FehlStoff, Vorgaenge],  
	ausgabe:ausgabeVorgaenge(Vorgaenge, [], VorgaengePred),
	append(BegrTupelVorher, [begr(FehlStoff, VorgaengePred)], BegrTupelPred0),
	baueBegruendungSub(RestBegrTupel, BegrTupelPred0, BegrTupelDanach).


ausgabeSummen(GesamtZahl, GesamtWertSammlung, GesamtZeit, GesamtKosten, GesamtWertEndProdukt, SummenPred) :-
    MehrWert is GesamtWertEndProdukt - GesamtKosten,
	berechneStundenLohn(GesamtZeit, MehrWert, StundenLohn),

	textResources:getText(txtEinheiten, TxtEinheiten),
	textResources:getText(txtUnits, TxtUnits),
	textResources:getText(txtEinHundertstel, TxtEinHundertstel),
	textResources:getText(txtUnitsProStunde, TxtUnitsProStunde),
	textResources:getText(txtSammelnGesamtbedarf, TxtSammelnGesamtbedarf),
	textResources:getText(txtGesamtwertSammlung, TxtGesamtwertSammlung),
	textResources:getText(txtGesamterZeitAufwand, TxtGesamterZeitAufwand),
	textResources:getText(txtKostenEingangsstoffe, TxtKostenEingangsstoffe),
	textResources:getText(txtGesamtwertEndstoff, TxtGesamtwertEndstoff),
	textResources:getText(txtMehrwert, TxtMehrwert),
	textResources:getText(txtStundenlohn, TxtStundenlohn),
	SummenPred0 =[sum(TxtSammelnGesamtbedarf, GesamtZahl, TxtEinheiten)],
	append(SummenPred0, [sum(TxtGesamtwertSammlung, GesamtWertSammlung, TxtUnits)], SummenPred1),
	append(SummenPred1, [sum(TxtGesamterZeitAufwand, GesamtZeit, TxtEinHundertstel)], SummenPred2),
	append(SummenPred2, [sum(TxtKostenEingangsstoffe, GesamtKosten, TxtUnits)], SummenPred3),
	append(SummenPred3, [sum(TxtGesamtwertEndstoff, GesamtWertEndProdukt, TxtUnits)], SummenPred4),
	append(SummenPred4, [sum(TxtMehrwert, MehrWert, TxtUnits)], SummenPred5),
	append(SummenPred5, [sum(TxtStundenlohn, StundenLohn, TxtUnitsProStunde)], SummenPred).

berechneStundenLohn(GesamtZeit, _, StundenLohn) :-
		GesamtZeit = 0,
		StundenLohn = 0.
	
berechneStundenLohn(GesamtZeit, MehrWert, StundenLohn) :-
	StundenLohn is round(MehrWert * 360000 / GesamtZeit).
	
zeitFeldToNumber(ZeitFeld, _) :-
	ZeitFeld = 'Zeit'.
	
zeitFeldToNumber(ZeitFeld, ZeitFeldZahl) :-
	ZeitFeld \= 'Zeit', atom_number(ZeitFeld, ZeitFeldZahl).

joinRecordsNumbering(ListOfLists1, _, _, KombinierteListOfLists) :-
	ListOfLists1 = [[]],
	KombinierteListOfLists = [[]].
	
joinRecordsNumbering(ListOfLists1, _, InnereLaenge2, _) :-
	ListOfLists1 = [Elem1|_],
	length(Elem1, Len),
	(Len \= 1; InnereLaenge2 < 1),
	!, fail.
	
joinRecordsNumbering(ListOfLists1, ListOfLists2, InnereLaenge2, KombinierteListOfLists) :-
	baueLeerStringList(InnereLaenge2, [], LeerStringList2),
	joinLists(ListOfLists1, ListOfLists2, LeerStringList2, [], KombinierteListOfLists),
	!.

joinLists(ListOfLists1, _, _, Bisher, Danach) :-
	ListOfLists1 = [],
	Bisher = Danach.
	
joinLists(ListOfLists1, ListOfLists2, LeerStringList2, Bisher, Danach) :-
	ListOfLists1 = [Elem1|Rest1],
	((ListOfLists2 = [], Record = LeerStringList2, Rest2=[]); (ListOfLists2 = [Record|Rest2])),
	append(Elem1, Record, KombinierterRecord),
	append(Bisher, [KombinierterRecord], Bisher0),
	joinLists(Rest1, Rest2, LeerStringList2, Bisher0, Danach),
	!.
	
joinRecordsByRecordNo(ListOfLists1, _, _, KombinierteListOfLists) :-
	ListOfLists1 = [[]],
	KombinierteListOfLists = [[]].
	
joinRecordsByRecordNo(ListOfLists1, _, InnereLaenge2, _) :-
	ListOfLists1 = [Elem1|_],
	length(Elem1, Len),
	(Len \= 1; InnereLaenge2 < 1),
	!, fail.
	
joinRecordsByRecordNo(ListOfLists1, ListOfLists2, InnereLaenge2, KombinierteListOfLists) :-
	baueLeerStringList(1, [], LeerStringList1),
	baueLeerStringList(InnereLaenge2, [], LeerStringList2),
	joinListsByRecordNo(ListOfLists1, ListOfLists2, LeerStringList1, LeerStringList2, [], KombinierteListOfLists),
	!.

baueLeerStringList(InnerLen, LeerStringListDavor, LeerStringListDanach) :-
	InnerLen = 0,
	LeerStringListDavor = LeerStringListDanach.
	
baueLeerStringList(InnerLen, LeerStringListDavor, LeerStringListDanach) :-
	append(LeerStringListDavor, [''], LeerStringListDavor0),
	InnerLen0 is InnerLen - 1,
	baueLeerStringList(InnerLen0, LeerStringListDavor0, LeerStringListDanach).
	

joinListsByRecordNo(ListOfLists1, _, _, _, Bisher, Danach) :-
	ListOfLists1 = [],
	Bisher = Danach.
	
joinListsByRecordNo(ListOfLists1, ListOfLists2, LeerStringList1, LeerStringList2, Bisher, Danach) :-
	ListOfLists1 = [Elem1|Rest1],
	((ListOfLists2 = [], Elem2 = [0, LeerStringList2]); (ListOfLists2 = [Elem2|_])),
	Elem1 = [FeldNo|_], Elem2 = [RecordNo|Record],
	(((FeldNo = RecordNo; RecordNo = 0),
	  append(Elem1, Record, KombinierterRecord),
	  ListOfLists2 = [_|Rest2]
	 );
	 (append(Elem1, LeerStringList2, KombinierterRecord),
	  Rest2 = ListOfLists2
	)),	  
	append(Bisher, [KombinierterRecord], Bisher0),
	joinListsByRecordNo(Rest1, Rest2, LeerStringList1, LeerStringList2, Bisher0, Danach),
	!.
	 
partialList(List, Von, Bis, TeilListe) :-
	Von > 0,
	Bis > 0,
	findall(Elem, (member(Elem, List), nth1(Pos, List, Elem), Pos >= Von, Pos =< Bis), TeilListe).

letzesListenElement(Liste, Ende) :-
	Liste = [Ende],
	!.

letzesListenElement([_|Rest], Ende) :-
	letzesListenElement(Rest, Ende).