retroforth/example/detect-devices.retro

24 lines
695 B
Forth
Raw Normal View History

This will iterate over the attached devices, displaying a short
description of each.
~~~
:id
#0 [ 'generic-output s:put nl ] case
#1 [ 'generic-input s:put nl ] case
#2 [ 'floating-point s:put nl ] case
#3 [ 'block-store s:put nl ] case
#4 [ 'filesystem s:put nl ] case
#5 [ 'clock s:put nl ] case
#6 [ 'reserved s:put nl ] case
#7 [ 'sockets s:put nl ] case
#8 [ 'unix-syscalls s:put nl ] case
#9 [ 'scripting s:put nl ] case
#10 [ 'random-number-generator s:put nl ] case
#1000 [ 'saving-image s:put nl ] case
'unknown:_ s:put n:put nl ;
'Detecting_devices... s:put nl
io:enumerate [ $# c:put I dup n:put io:query nip tab id ] indexed-times
'Complete. s:put nl
~~~