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