blob: ba0b3343719ee61cf6dcb9fbb186da6d05b62ee7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
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
|
