Signed-off-by: Mark Cave-Ayland mark.cave-ayland@ilande.co.uk --- forth/admin/build.xml | 1 + forth/admin/power.fs | 9 +++++++++ 2 files changed, 10 insertions(+) create mode 100644 forth/admin/power.fs
diff --git a/forth/admin/build.xml b/forth/admin/build.xml index 6654496..c1dfbc9 100644 --- a/forth/admin/build.xml +++ b/forth/admin/build.xml @@ -16,6 +16,7 @@ <object source="iocontrol.fs"/> <object source="banner.fs"/> <object source="reset.fs"/> + <object source="power.fs"/> <object source="script.fs"/> <object source="security.fs"/> <object source="selftest.fs"/> diff --git a/forth/admin/power.fs b/forth/admin/power.fs new file mode 100644 index 0000000..237bc72 --- /dev/null +++ b/forth/admin/power.fs @@ -0,0 +1,9 @@ +\ Power + +defer power-off ( -- ) + +: no-power-off + s" power-off is not available on this platform." type cr + ; + +' no-power-off to power-off