Changeset 3562

Timestamp:

Feb 20, 2013 3:43:47 AM (3 months ago)

Author:

quozl

Message:

core - mux, add console add and remove, for use by telnetd

File:

• ofw/core/muxdev.fth (modified) (1 diff)

ofw/core/muxdev.fth

@@ -192 +192 @@
 
    console-io
+;
+
+: add-console  ( ih -- )
+   dup add-output  add-input
+;
+
+: remove-console  ( ih -- )
+   dup remove-output  remove-input
+;
+
+: omit  ( "command" -- )  \ do a command to added consoles only
+   screen-ih remove-output
+   fallback-out-ih remove-output
+   0 parse ['] evaluate catch
+   fallback-out-ih add-output
+   screen-ih add-output
+   throw
 ;