/*
 * Verrückte Turing-Maschinen — A turing complete game
 * Copyright (C) 2016 Christian Fraß <vidofnir@folksprak.org>
 * 
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 * 
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 * 
 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <https://www.gnu.org/licenses/>.
 */

module mod_vtm
	{
		
		export module mod_aufbau
			{
				
				export module mod_aktor_leser
					{
						
						/**
						 * @author kcf <vidofnir@folksprak.org>
						 */
						let art : string = "leser";
						
						
						/**
						 * @author kcf <vidofnir@folksprak.org>
						 */
						export type typ_leser =
							{
								"richtung": mod_richtung.typ_richtung,
								"symbol_links": mod_symbol.typ_symbol,
								"symbol_rechts": mod_symbol.typ_symbol,
							}
						;
						
						
						/**
						 * @author kcf <vidofnir@folksprak.org>
						 */
						 function erstellen
							(
								richtung : mod_richtung.typ_richtung,
								symbol_links : mod_symbol.typ_symbol,
								symbol_rechts : mod_symbol.typ_symbol
							)
							: typ_leser
							{
								return {
									"richtung": richtung,
									"symbol_links": symbol_links,
									"symbol_rechts": symbol_rechts,
								};
							}
						
						
						/**
						 * @author kcf <vidofnir@folksprak.org>
						 */
						export function erstellen_aktor
							(
								richtung : mod_richtung.typ_richtung,
								symbol_links : mod_symbol.typ_symbol,
								symbol_rechts : mod_symbol.typ_symbol
							)
							: mod_aktor.typ_aktor
							{
								return einpacken(art, erstellen(richtung, symbol_links, symbol_rechts));
							}
						
						
						/**
						 * @author kcf <vidofnir@folksprak.org>
						 */
						function beispiel
							(
							)
							: typ_leser
							{
								return erstellen(0, 0, 1);
							}
						
						
						/**
						 * @author kcf <vidofnir@folksprak.org>
						 */
						export function richtung_lesen
							(
								leser : typ_leser
							)
							: mod_richtung.typ_richtung
							{
								return leser.richtung;
							}
						
						
						/**
						 * @author kcf <vidofnir@folksprak.org>
						 */
						export function symbol_links_lesen
							(
								leser : typ_leser
							)
							: mod_symbol.typ_symbol
							{
								return leser.symbol_links;
							}
						
						
						/**
						 * @author kcf <vidofnir@folksprak.org>
						 */
						export function symbol_rechts_lesen
							(
								leser : typ_leser
							)
							: mod_symbol.typ_symbol
							{
								return leser.symbol_rechts;
							}
						
						
						/**
						 * @author kcf <vidofnir@folksprak.org>
						 */
						function drehen
							(
								leser : typ_leser,
								inkrement : int = +1
							)
							: void
							{
								leser.richtung = mod_richtung.addieren(leser.richtung, inkrement);
							}
						
						
						/**
						 * @author kcf <vidofnir@folksprak.org>
						 */
						function verwenden
							(
								leser : typ_leser,
								figur : mod_figur.typ_figur
							)
							: void
							{
								let symbol_ : schnittstelle_fehlermonade<mod_symbol.typ_symbol> = mod_figur.lesen(figur);
								let summand : mod_richtung.typ_richtung;
								if (symbol_.ist_schlicht())
									{
										let symbol : mod_symbol.typ_symbol = symbol_.lesen();
											 if (symbol === leser.symbol_links)
											{
												mod_figur.schieben(figur);
												summand = +2;
											}
										else if (symbol === leser.symbol_rechts)
											{
												mod_figur.schieben(figur);
												summand = -2;
											}
										else
											{
												summand = 0;
											}
									}
								else
									{
										summand = 0;
									}
								let richtung : mod_richtung.typ_richtung = mod_richtung.addieren(leser.richtung, summand);
								mod_figur.bewegen(figur, richtung);
							}
						
						
						/**
						 * @author kcf <vidofnir@folksprak.org>
						 */
						function exportieren
							(
								leser : typ_leser
							)
							: any
							{
								return {
									"richtung": mod_richtung.exportieren(leser.richtung),
									"symbol_links": mod_symbol.exportieren(leser.symbol_links),
									"symbol_rechts": mod_symbol.exportieren(leser.symbol_rechts),
								};
							}
						
						
						/**
						 * @author kcf <vidofnir@folksprak.org>
						 */
						function importieren
							(
								roh : any
							)
							: typ_leser
							{
								return (
									erstellen
										(
											mod_richtung.importieren(roh["richtung"]),
											mod_symbol.importieren(roh["symbol_links"]),
											mod_symbol.importieren(roh["symbol_rechts"])
										)
								);
							}
						
						
						/**
						 * @author kcf <vidofnir@folksprak.org>
						 */
						mod_aktor.implementierung_aktor[art] =
							{
								"beispiel": () => einpacken(art, beispiel()),
								"drehen": (aktor, inkrement) => drehen(auspacken(aktor), inkrement),
								"verwenden": (aktor, figur) => verwenden(auspacken(aktor), figur),
								"exportieren": (aktor) => ({"art": "leser", "angaben": exportieren(aktor.angaben)}),
								"importieren": (roh) => einpacken(art, importieren(roh["angaben"])),
							}
						;
						
					}
				
			}
		
	}