\ *****************************************************************************
\ * Copyright (c) 2006, 2012, 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
\ ****************************************************************************/
\ *
\ * [OEX]HCI functions
\ *
\ ****************************************************************************

\ ( num $name type )

VALUE usb_type \ USB type

\ Open Firmware Properties
device-type
" usb" 2dup device-name

rot
VALUE usb_num                           \ controller number
usb_num $cathex strdup			\ create alias name
2dup find-alias 0= IF
   get-node node>path set-alias
ELSE 3drop THEN

/hci-dev BUFFER: hcidev
usb_num hcidev usb-setup-hcidev
TRUE VALUE first-time-init?
0 VALUE open-count

false VALUE dev-hci-debug?

1 encode-int s" #address-cells" property
0 encode-int s" #size-cells" property

\ converts physical address to text unit string
: encode-unit ( port -- unit-str unit-len ) 1 hex-encode-unit ;

\ Converts text unit string to phyical address
: decode-unit ( addr len -- port ) 1 hex-decode-unit ;

: get-hci-dev ( -- hcidev )
    hcidev
;

: hc-cleanup ( -- )
    my-phandle set-node
    dev-hci-debug? IF ." USB-HCI: Cleaning up " pwd cr THEN
    hcidev USB-HCD-EXIT
    0 set-node
;

: open   ( -- true | false )
    true
;

: close
;

\ create a new entry to cleanup and suspend HCI
\ after first init
first-time-init? IF
   ['] hc-cleanup add-quiesce-xt
   false to first-time-init?
THEN