Author: wmb Date: 2009-08-20 08:24:07 +0200 (Thu, 20 Aug 2009) New Revision: 1307
Modified: ofw/core/ofwcore.fth Log: Added "stdin-idle" hook for reducing power consumption; you can set it to call for example x86 halt.
Modified: ofw/core/ofwcore.fth =================================================================== --- ofw/core/ofwcore.fth 2009-08-20 06:21:29 UTC (rev 1306) +++ ofw/core/ofwcore.fth 2009-08-20 06:24:07 UTC (rev 1307) @@ -2946,6 +2946,8 @@ nuser pending-char nuser char-pending?
+defer stdin-idle ' noop is stdin-idle \ Hook for power savings + : "read" ( -- adr len ) " read" ; \ Space savings : "write" ( -- adr len ) " write" ; \ Space savings : stdin-getchar ( -- okay? ) @@ -2962,7 +2964,10 @@ char-pending? @ if pending-char c@ char-pending? off else - begin stdin-getchar until + begin + stdin-getchar + dup 0= if stdin-idle then + until pending-char c@ then ;