qemu/roms/SLOF/slof/fs/usb/dev-hub.fs

   1 new-device
   2
   3 VALUE sudev
   4
   5 s" slofdev.fs" included
   6 sudev slof-dev>port l@ dup set-unit encode-phys " reg" property
   7 sudev slof-dev>udev @ VALUE udev
   8
   9 s" hub" device-name
  10
  11 s" dev-parent-calls.fs" included
  12
  13 1 encode-int s" #address-cells" property
  14 0 encode-int s" #size-cells" property
  15 : decode-unit  1 hex-decode-unit ;
  16 : encode-unit  1 hex-encode-unit ;
  17
  18 : usb-hub-init ( usbdev -- true | false )
  19     udev USB-HUB-INIT
  20 ;
  21
  22 : open   ( -- true | false )
  23     TRUE
  24 ;
  25
  26 : close
  27 ;
  28
  29 ."     USB HUB " cr
  30 usb-hub-init drop
  31
  32 finish-device