403 lines
11 KiB
TypeScript
403 lines
11 KiB
TypeScript
/*
|
|
* Verrückte Turing-Maschinen — A turing complete game
|
|
* Copyright (C) 2016-2018 kcf <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_model
|
|
{
|
|
|
|
export module mod_world
|
|
{
|
|
|
|
/**
|
|
* @author kcf <vidofnir@folksprak.org>
|
|
*/
|
|
export type type_world =
|
|
{
|
|
tiles : lib_hashmap.type_hashmap<mod_spot.type_spot, mod_actuator.type_actuator>;
|
|
}
|
|
;
|
|
|
|
|
|
/**
|
|
* @author kcf <vidofnir@folksprak.org>
|
|
*/
|
|
export function create
|
|
(
|
|
tiles : lib_hashmap.type_hashmap<mod_spot.type_spot, mod_actuator.type_actuator> = lib_hashmap.create<mod_spot.type_spot, mod_actuator.type_actuator>(mod_spot.hash)
|
|
)
|
|
: type_world
|
|
{
|
|
return {
|
|
"tiles": tiles,
|
|
};
|
|
}
|
|
|
|
|
|
/**
|
|
* @author kcf <vidofnir@folksprak.org>
|
|
*/
|
|
export function tiles_read
|
|
(
|
|
world : type_world
|
|
)
|
|
: Array<{spot : mod_spot.type_spot; actuator : mod_actuator.type_actuator;}>
|
|
{
|
|
let tiles : Array<{spot : mod_spot.type_spot; actuator : mod_actuator.type_actuator;}> = [];
|
|
lib_hashmap.iterate
|
|
(
|
|
world.tiles,
|
|
(spot, actuator) => tiles.push({"spot": spot, "actuator": actuator})
|
|
)
|
|
;
|
|
return tiles;
|
|
}
|
|
|
|
|
|
/**
|
|
* @author kcf <vidofnir@folksprak.org>
|
|
*/
|
|
export function tile_get
|
|
(
|
|
world : type_world,
|
|
spot : mod_spot.type_spot
|
|
)
|
|
: lib_errormonade.type_errormonade<mod_actuator.type_actuator>
|
|
{
|
|
return lib_hashmap.get(world.tiles, spot);
|
|
}
|
|
|
|
|
|
/**
|
|
* @author kcf <vidofnir@folksprak.org>
|
|
*/
|
|
export function tile_set
|
|
(
|
|
world : type_world,
|
|
spot : mod_spot.type_spot,
|
|
actuator : mod_actuator.type_actuator
|
|
)
|
|
: void
|
|
{
|
|
lib_hashmap.set(world.tiles, spot, actuator);
|
|
}
|
|
|
|
|
|
/**
|
|
* @author kcf <vidofnir@folksprak.org>
|
|
*/
|
|
export function tile_change
|
|
(
|
|
world : type_world,
|
|
spot : mod_spot.type_spot,
|
|
inverted : boolean = false
|
|
)
|
|
: void
|
|
{
|
|
let extended : boolean = true;
|
|
let liste : Array<{pruefer : (actuator : mod_actuator.type_actuator)=>boolean; erspotr : ()=>mod_actuator.type_actuator;}> = (
|
|
[]
|
|
.concat
|
|
(
|
|
[
|
|
{
|
|
"pruefer": (actuator) => (actuator.kind === "conveyer"),
|
|
"erspotr": () => mod_actuator.mod_conveyer.create_extended(0),
|
|
},
|
|
]
|
|
)
|
|
.concat
|
|
(
|
|
lib_list.sequence(extended ? 4 : 2).map
|
|
(
|
|
symbol => (
|
|
{
|
|
"pruefer": (actuator) =>
|
|
{
|
|
if (actuator.kind === "writer")
|
|
{
|
|
return (mod_actuator.mod_writer.symbol_read(actuator.data) === symbol);
|
|
}
|
|
else
|
|
{
|
|
return false;
|
|
}
|
|
}
|
|
,
|
|
"erspotr": () => mod_actuator.mod_writer.create_extended(0, symbol)
|
|
}
|
|
)
|
|
)
|
|
)
|
|
.concat
|
|
(
|
|
lib_list.sequence(extended ? 2 : 1).map
|
|
(
|
|
index =>
|
|
{
|
|
let symbol_links : mod_symbol.type_symbol = (2*index+0);
|
|
let symbol_rechts : mod_symbol.type_symbol = (2*index+1);
|
|
return (
|
|
{
|
|
"pruefer": (actuator) =>
|
|
{
|
|
if (actuator.kind === "reader")
|
|
{
|
|
return (
|
|
(mod_actuator.mod_reader.symbol_links_read(actuator.data) === symbol_links)
|
|
&&
|
|
(mod_actuator.mod_reader.symbol_rechts_read(actuator.data) === symbol_rechts)
|
|
);
|
|
}
|
|
else
|
|
{
|
|
return false;
|
|
}
|
|
}
|
|
,
|
|
"erspotr": () => mod_actuator.mod_reader.create_extended(0, symbol_links, symbol_rechts)
|
|
}
|
|
);
|
|
}
|
|
)
|
|
)
|
|
.concat
|
|
(
|
|
[
|
|
{
|
|
"pruefer": (actuator) => (actuator.kind === "rejector"),
|
|
"erspotr": () => mod_actuator.mod_rejector.create_extended(),
|
|
},
|
|
]
|
|
)
|
|
);
|
|
let index_alt : lib_errormonade.type_errormonade<int>;
|
|
let actuator_alt_ : lib_errormonade.type_errormonade<mod_actuator.type_actuator> = lib_hashmap.get(world.tiles, spot);
|
|
if (lib_errormonade.filled<mod_actuator.type_actuator>(actuator_alt_))
|
|
{
|
|
let actuator_alt : mod_actuator.type_actuator = lib_errormonade.read(actuator_alt_);
|
|
let gefunden : boolean = (
|
|
liste.some
|
|
(
|
|
(entry, index) =>
|
|
{
|
|
if (entry.pruefer(actuator_alt))
|
|
{
|
|
index_alt = (lib_errormonade.create_just<int>(index));
|
|
return true;
|
|
}
|
|
else
|
|
{
|
|
return false;
|
|
}
|
|
}
|
|
)
|
|
);
|
|
if (! gefunden)
|
|
{
|
|
index_alt = (lib_errormonade.create_nothing<int>());
|
|
}
|
|
else
|
|
{
|
|
// nothing tun
|
|
}
|
|
}
|
|
else
|
|
{
|
|
let message : string = "kein Aktor gesetzt";
|
|
// console.warn(message);
|
|
index_alt = (lib_errormonade.create_just<int>(0));
|
|
}
|
|
if (lib_errormonade.filled<int>(index_alt))
|
|
{
|
|
let index_neu : int = lib_math.mod(lib_errormonade.read<int>(index_alt) + (inverted ? -1 : +1), liste.length);
|
|
let actuator_neu : mod_actuator.type_actuator = liste[index_neu].erspotr();
|
|
tile_set(world, spot, actuator_neu);
|
|
}
|
|
else
|
|
{
|
|
let message : string = ("Aktor nicht gefunden");
|
|
// throw (new Error(message));
|
|
console.warn(message);
|
|
}
|
|
}
|
|
|
|
|
|
/**
|
|
* @author kcf <vidofnir@folksprak.org>
|
|
*/
|
|
export function tile_rotate
|
|
(
|
|
world : type_world,
|
|
spot : mod_spot.type_spot,
|
|
increment : int = +1
|
|
)
|
|
: void
|
|
{
|
|
let actuator_ : lib_errormonade.type_errormonade<mod_actuator.type_actuator> = lib_hashmap.get(world.tiles, spot);
|
|
if (lib_errormonade.filled<mod_actuator.type_actuator>(actuator_))
|
|
{
|
|
mod_actuator.rotate(lib_errormonade.read<mod_actuator.type_actuator>(actuator_), increment);
|
|
}
|
|
else
|
|
{
|
|
console.warn("kein Aktor gesetzt");
|
|
}
|
|
}
|
|
|
|
|
|
/**
|
|
* @author kcf <vidofnir@folksprak.org>
|
|
* @throws {Error}
|
|
*/
|
|
export function generator_finden
|
|
(
|
|
world : type_world
|
|
)
|
|
: mod_spot.type_spot
|
|
{
|
|
let spot : lib_errormonade.type_errormonade<mod_spot.type_spot> = (lib_errormonade.create_nothing<mod_spot.type_spot>());
|
|
lib_hashmap.iterate
|
|
(
|
|
world.tiles,
|
|
(spot_, actuator) =>
|
|
{
|
|
if (actuator.kind === "generator")
|
|
{
|
|
if (lib_errormonade.filled<mod_spot.type_spot>(spot))
|
|
{
|
|
let message : string = "mehrere Erzeuger gefunden";
|
|
throw (new Error(message));
|
|
}
|
|
else
|
|
{
|
|
spot = (lib_errormonade.create_just<mod_spot.type_spot>(spot_));
|
|
}
|
|
}
|
|
}
|
|
)
|
|
;
|
|
if (lib_errormonade.filled<mod_spot.type_spot>(spot))
|
|
{
|
|
return lib_errormonade.read<mod_spot.type_spot>(spot);
|
|
}
|
|
else
|
|
{
|
|
let message : string = "kein Erzeuger gefunden";
|
|
throw (new Error(message));
|
|
}
|
|
}
|
|
|
|
|
|
/**
|
|
* @author kcf <vidofnir@folksprak.org>
|
|
*/
|
|
export function blanko
|
|
(
|
|
groesse : int = 3
|
|
)
|
|
: type_world
|
|
{
|
|
let world : type_world = create();
|
|
for (let u : int = -groesse; u <= +groesse; u += 1)
|
|
{
|
|
for (let v : int = -groesse; v <= +groesse; v += 1)
|
|
{
|
|
if (Math.abs(u-v) <= groesse)
|
|
{
|
|
let spot : mod_spot.type_spot = {"u": u, "v": v};
|
|
let actuator : mod_actuator.type_actuator;
|
|
if ((u === -groesse) && (v === 0))
|
|
{
|
|
actuator = mod_actuator.mod_generator.create_extended(0);
|
|
}
|
|
else if ((u === +groesse) && (v === 0))
|
|
{
|
|
actuator = mod_actuator.mod_acceptor.create_extended();
|
|
}
|
|
else
|
|
{
|
|
actuator = mod_actuator.mod_rejector.create_extended();
|
|
}
|
|
lib_hashmap.set(world.tiles, spot, actuator);
|
|
}
|
|
}
|
|
}
|
|
return world;
|
|
}
|
|
|
|
|
|
/**
|
|
* @author kcf <vidofnir@folksprak.org>
|
|
*/
|
|
export function export_
|
|
(
|
|
world : type_world
|
|
)
|
|
: any
|
|
{
|
|
let raw : any = {};
|
|
raw["tiles"] = {};
|
|
lib_hashmap.iterate
|
|
(
|
|
world.tiles,
|
|
(spot, actuator) =>
|
|
{
|
|
let spot_ : string = mod_spot.export_(spot);
|
|
let actuator_ : any = mod_actuator.export_(actuator);
|
|
raw["tiles"][spot_] = actuator_;
|
|
}
|
|
)
|
|
;
|
|
return raw;
|
|
}
|
|
|
|
|
|
/**
|
|
* @author kcf <vidofnir@folksprak.org>
|
|
*/
|
|
export function import_
|
|
(
|
|
raw : any
|
|
)
|
|
: type_world
|
|
{
|
|
let tiles : lib_hashmap.type_hashmap<mod_spot.type_spot, mod_actuator.type_actuator> = (lib_hashmap.create<mod_spot.type_spot, mod_actuator.type_actuator>(mod_spot.hash));
|
|
for (let spot_ in raw["tiles"])
|
|
{
|
|
let spot : mod_spot.type_spot = mod_spot.import_(spot_);
|
|
let actuator_ : mod_actuator.type_actuator = raw["tiles"][spot_];
|
|
let actuator : mod_actuator.type_actuator = mod_actuator.import_(actuator_);
|
|
lib_hashmap.set(tiles, spot, actuator);
|
|
}
|
|
return (
|
|
create
|
|
(
|
|
tiles
|
|
)
|
|
);
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|