[OpenBIOS] [PATCH 1/5] admin: add power.fs with initial dummy power-off implementation

Mark Cave-Ayland mark.cave-ayland at ilande.co.uk
Mon Jan 15 22:04:32 CET 2018


Signed-off-by: Mark Cave-Ayland <mark.cave-ayland at 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
-- 
2.11.0




More information about the OpenBIOS mailing list