32 lines
524 B
Forth
32 lines
524 B
Forth
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
|