print-all-devices.fth

: process-children ( phandle -- )
  cr ." ========================================================================="
  cr ." Device node: "
  dup get-package-path 2dup find-device type .properties
  cr ." Methods:                 " words
  >dn.child @
    begin dup while
      dup recurse
      >dn.peer @
    repeat
    drop
  ;

: print-all-devices ( -- )
  active-package
  cr " /" find-device
  ?active-package 
    process-children
  active-package!
  ;

print-all-devices