Lua-Scripting zur vorbildgerechten Steuerung von Ks-Signalen in EEP 16
Go to file
2023-07-21 22:26:42 +00:00
.gitattributes Windows-Konvention bei Zeilenenden 2022-06-23 11:51:07 +00:00
.gitignore Feature: Verteilen via Zip-Datei 2022-04-08 21:44:25 +00:00
install.ini Installation ab jetzt in den LUA/kskit Ordner 2023-07-21 22:25:15 +00:00
Installation.eep Installation ab jetzt in den LUA/kskit Ordner 2023-07-21 22:25:15 +00:00
mkinstallscript Installation ab jetzt in den LUA/kskit Ordner 2023-07-21 22:25:15 +00:00
On.lua Neuer Callback-Handler 2023-07-21 22:26:42 +00:00
README.md Neuer Callback-Handler 2023-07-21 22:26:42 +00:00
Serializer.lua Serializer: Extra Handling, weil Ganzzahlen von tostring() doch manchmal als Kommazahl zurueckgegeben werden 2023-07-21 20:56:42 +00:00
Zuggreifer.lua Zuggreifer: Fixes und Melden-Funktion 2022-07-03 12:59:27 +00:00

author title lang
Nero KsKit für Eisenbahn.exe de

KsKit für Eisenbahn.exe

KsKit sind ein paar Lua-Scripte, welche ich auf meinen Anlagen nutze. Von denen habe ich ein paar Dokumentiert, sie sind bisweilen recht nützlich. Es ist auch immer dazugeschrieben, welche Vorraussetzungen man braucht.

Alle Scripte können hier als Zip-Datei heruntergeladen werden, die lässt sich dann wie ein Modell installieren. Die Scripte werden unterhalb vom LUA-Ordner im EEP-Stammverzeichnis installiert.

Serializer: Tabellen in EEP-Slots speichern

Die Lua-Umgebung wird von EEP in bestimmten Situationen zurückgesetzt und verliert dabei die Inhalte aller Variablen. Daher müssen persistente Werte via EEPSaveData gespeichert und nach dem Reset wieder geladen werden. Bei Zeichenketten und Zahlen ist das kein Problem, das Speichern von Tabellen ist nicht ohne umwege möglich.

KsKit bringt einen Serializer mit, der in der Lage ist, die gängigen Lua-Daten und Tabellen in eine Zeichenkette zu serialisieren.

Funktion serialize

Die serialize-Funktion ist das Herz des Serializers. Sie nimmt ein Argument und gibt eine Zeichenkette zurück.

Der Return-Wert ist gültiges Lua und kann mittels load()-Funktion wieder in die Tabellenform zurückgewandelt werden.

require("kskit\\Serializer")

Tabelle={
  str = "abcdef",
  lst = {1,2,3},
  bol = true
}

print(serialize(Tabelle))
-- Ausgabe: {bol=true,lst={1,2,3},str="abcdef"}

Unterstützt werden Wahrheitswerte, Zeichenketten, Zahlen und einfach verschachtelte Tabellen. Lambda-Funktionen werden ignoriert, ebenso wie rekursiv in sich selbst verschachtelte Tabellen.

Funktion speicherTabelle

Diese Funktion macht genau das, was der Name vermuten lässt. Eine Lua-Tabelle wird in einem EEPSlot abgespeichert.

Das erste Argument zu der Funktion ist dabei die Slotnummer, das zweite Argument eine Lua-Tabelle.

Die Tabelle wird mittels serialize in eine Zeichenkette umgewandelt. Die EEPSlots unterstützen jedoch nicht alle möglichen Zeichen. Daher wird das Zwischenergebnis nochmal in ein urlencode-ähnliches Format umkonvertiert. Dabei werden sämtliche Steuerzeichen und Hochkommas sicher verpackt.

require("kskit\\Serializer")

Tabelle={
  str = "abcdef",
  lst = {1,2,3},
  bol = true
}

speicherTabelle(1, Tabelle)

-- So sieht der Datenslot hinterher in der Lua-Datei aus:
-- [EEPLuaData]
-- DS_1 = "{bol=true,lst={1,2,3},str=%22abcdef%22}"

Funktion ladeTabelle

Das pendant zu speicherTabelle. Als Argument wird die Slotnummer übergeben, als Return-Wert erhält man die vorher gespeicherte Tabelle zurück.

Dabei wird das urlencode wieder entfernt und die Daten mittels load-Funktion wieder eingelesen.

Ist der Slot unleserlich oder wurde in diesen noch keine Tabelle geschrieben, wird eine Warnmeldung in das Ereignisfenster geschrieben und eine leere Tabelle zurückgegeben.

require("kskit\\Serializer")

print(serialize(ladeTabelle(1)))
-- Ausgabe: {bol=true,lst={1,2,3},str="abcdef"}

Praxisbeispiel

Es ist nicht notwendig, eine Tabelle vor jeder Benutzung zu laden und wieder zu speichern.

Viel schneller ist es, die Tabelle als globale Variable zu halten und nur beim Lua-Start einmal einzulesen. Die Tabelle kann dann wie jede andere Tabelle verwendet werden.

Die EEPMain wird innerhalb eines Zyklus zuletzt aufgerufen. Die Kontakte und Callbacks werden davor abgearbeitet. Daher reicht es aus, wenn die Tabelle nur einmalig am Ende der EEPMain zurückgeschrieben wird.

require("kskit\\Serializer")

-- Die Tabelle wird nur beim Starten von Lua einmal geladen
Zugdaten_Slotnummer = 1
Zugdaten = ladeTabelle(Zugdaten_Slotnummer)

-- Diese Funktion wird in Kontakten eingetragen
function Richtung_Merken(Zugname)
  local ok, V = EEPGetTrainSpeed(Zugname)
  Zugdaten[Zugname].V = V
end

function Zug_Wenden(Zugname)
  local Vneu = -Zugdaten[Zugname].V
  EEPSetTrainSpeed(Zugname, Vneu)
  Zugdaten[Zugname].V = Vneu
end

function EEPMain()
  -- andere Dinge tun
  -- ...

  -- Wir sind am Ende des EEP-Zyklus, nur einmal hier speichern
  speicherTabelle(Zugdaten_Slotnummer, Zugdaten)
  return 1
end

On: Multiple Callbacks

Bestimmte Mechanismen erfordern das automatische Registrieren von zahlreichen Signal- oder Weichencallbacks. Bei KsKit ist es erforderlich, das unterschiedliche Module ihre eigenen Callbacks registrieren können, ohne voneinander Wissen zu müssen. Daher bietet das On-Modul die Möglichkeit, beliebig viele Funktionen für einen Callback zu registrieren. Ruft EEP dann den Callback auf, werden alle für diesen Callback registrierten Funktionen aufgerufen.

Das ganze ist sehr bequem, wenn man eine große Anzahl Callbacks mittels for-Schleife aus einer Tabelle erzeugt.

On

So wie das Modul heisst auch die zentrale Funktion. Diese registriert eine Funktion für einen EEP-Callback. Das Anlegen der Callback-Funktion wird bei dem Registrieren der ersten Funktion vorgenommen. Dabei wird, falls notwendig, der Callback von On auch bei EEP registriert. Das händische Aufrufen von EEPRegister* entfällt!

Als erster Parameter wird dabei der Name des Callbacks als String übergeben. Als zweiter Parameter wird eine Funktion übergeben.

Man beachte die Syntax: Es wird eine Funktion ohne Namen verwendet, ebenfalls ist die Funktion innerhalb der Parameterübergabe definiert. Die Funktion wird nicht ausgeführt, sondern selbst als Wert übergeben.

Der übergebenen Funktion werden die Callback-Parameter weitergeleitet, als wäre sie selbst von EEP aufgerufen worden.

require("kskit\\On")

On("EEPOnTrainCoupling", function(Zug_A, Zug_B, Zug_neu)
  print(" Aus "Zug_A.." und "..Zug_B.." wurde "..Zug_neu)
end)

Das ganze in längerer Form mit Umweg über eine Variable:

require("kskit\\On")

callback4=function(Zug_A, Zug_B, Zug_neu)
  print(" Aus "Zug_A.." und "..Zug_B.." wurde "..Zug_neu)
end

On("EEPOnTrainCoupling", callback4)

Diese Funktion wird im Hintergrund von allen anderen Funktionen des On-Moduls benutzt.

OnSignal

Die wohl meistgenutzte Funktion dieses Modules. Als ersten Parameter nimmt sie die ID eines Signales, als zweiten Parameter nimmt sie eine Funktion. Die übergebene Funktion bekommt die Parameter wie üblich übergeben. Der Aufruf von EEPRegisterSignal erfolgt automatisch.

Hier werden zwei anonyme Funktionen an ein Signal gebunden:

require("kskit\\On")

OnSignal(3, function(Stellung)
  print("Signal 3 zeigt "..tonumber(Stellung))
end)

OnSignal(3, function(Stellung)
  print("Signal umgestellt")
end)

Man beachte die sich schließende Klammer nach dem end.

Es können auch vorhandene Funktionen mittels Namen an OnSignal übergeben werden:

require("kskit\\On")

OnSignal(4, print)

In dem Falle wird die neue Signalstellung direkt an print weitergegeben und ausgegeben.

OnSwitch

Das selbe wie OnSignal, nur für Weichen statt für Signale.

Main

Jetzt muss man wissen, die EEPMain ist auch nur ein Callback, mit dem Unterschied, das er ohne Grund immer wieder aufgerufen wird. Dafür gibt es in diesem Modul eine Main-Funktion. Diese Funktion nimmt nur einen Parameter, jener beinhaltet die Funktion, welche an die EEPMain gebunden werden soll.

require("kskit\\On")
require("Zugtuersteuerung_FS2.lua")

-- Definitionen für RUS-Packet hier

# RUS-Packet von Parry36 aktivieren
Main(inEEPMain)
# Zugtuersteuerung vom Fried aktivieren
Main(BewegeZugtueren)

Main(...) ist auch nichts weiteres als ein Bequemlichkeits-Aufruf von On("EEPMain", ...)