new-device | |
VALUE sudev | |
s" slofdev.fs" included | |
sudev slof-dev>port l@ dup set-unit encode-phys " reg" property | |
sudev slof-dev>udev @ VALUE udev | |
s" hub" device-name | |
s" dev-parent-calls.fs" included | |
1 encode-int s" #address-cells" property | |
0 encode-int s" #size-cells" property | |
: decode-unit 1 hex-decode-unit ; | |
: encode-unit 1 hex-encode-unit ; | |
: usb-hub-init ( usbdev -- true | false ) | |
udev USB-HUB-INIT | |
; | |
: open ( -- true | false ) | |
TRUE | |
; | |
: close | |
; | |
." USB HUB " cr | |
usb-hub-init drop | |
finish-device |