blob: 47db7276a54abeb609c7a3178175c75e74e70131 (
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
\ *****************************************************************************
\ * Copyright (c) 2004, 2011, 2013 IBM Corporation
\ * All rights reserved.
\ * This program and the accompanying materials
\ * are made available under the terms of the BSD License
\ * which accompanies this distribution, and is available at
\ * http://www.opensource.org/licenses/bsd-license.php
\ *
\ * Contributors:
\ * IBM Corporation - initial implementation
\ ****************************************************************************/
\ Load dev hci
: load-dev-hci ( num name-str name-len )
s" dev-hci.fs" INCLUDED
;
0 VALUE ohci-init
0 VALUE ehci-init
0 VALUE xhci-init
0 VALUE usb-alias-num
: get-usb-alias-num
usb-alias-num dup 1+ to usb-alias-num
;
\ create a new ohci device alias for the current node
: set-ohci-alias ( -- )
1 to ohci-init
get-usb-alias-num ( num )
s" ohci" 1 load-dev-hci
;
\ create a new ehci device alias for the current node
: set-ehci-alias ( -- )
1 to ehci-init
get-usb-alias-num ( num )
s" ehci" 2 load-dev-hci
;
\ create a new xhci device alias for the current node
: set-xhci-alias ( -- )
1 to xhci-init
get-usb-alias-num ( num )
s" xhci" 3 load-dev-hci
;
: usb-enumerate ( hcidev -- )
USB-HCD-INIT
;
: usb-scan ( -- )
." Scanning USB " cr
ohci-init 1 = IF USB-OHCI-REGISTER THEN
ehci-init 1 = IF USB-EHCI-REGISTER THEN
xhci-init 1 = IF USB-XHCI-REGISTER THEN
usb-alias-num 0 ?DO
" usb" i $cathex find-device
" get-hci-dev" get-node find-method
IF
execute usb-enumerate
ELSE
." get-base-address method not found for usb@" i .
." Device type: "
" device_type" get-node get-property 0= IF decode-string type cr 2drop THEN
THEN
LOOP
0 set-node \ FIXME Setting it back
;
|
