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