crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

new example of probing the devices

Browse source 
FossilOrigin-Name: 70d09831db15ed3595ebc761f09f9ec0c7ca0e6b398c2b0c92f3dc92e9c9720f
This commit is contained in:
crc 2019-09-04 15:13:58 +00:00
parent 32b97e4dfc
commit b6778a0546
1 changed files with 22 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
example/detect-devices.retro Normal file
View file

@ -0,0 +1,22 @@
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 [ 'reserved 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
#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 ] times<with-index>
'Complete. s:put nl
~~~