forth/device/builtin.fs

   1 \ tag: builtin devices
   2 \
   3 \ this code implements IEEE 1275-1994
   4 \
   5 \ Copyright (C) 2003 Stefan Reinauer
   6 \
   7 \ See the file "COPYING" for further information about
   8 \ the copyright and warranty status of this work.
   9 \
  10
  11 \ nodes it's children:
  12
  13 " /" find-device
  14
  15 new-device
  16   " builtin" device-name
  17   : open true ;
  18   : close ;
  19
  20 new-device
  21   " console" device-name
  22   : open true ;
  23   : close ;
  24   : write dup >r bounds ?do i c@ (emit) loop r> ;
  25   : read dup >r bounds ?do (key) i c! loop r> ;
  26 finish-device
  27
  28 \ clean up afterwards
  29 finish-device
  30 0 active-package!