Return to builtin.fs CVS log

Up to [Qemu by Fabrice Bellard] / qemu / roms / openbios / forth / device

Annotation of qemu/roms/openbios/forth/device/builtin.fs, revision 1.1.1.1

1.1       root        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!

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.