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