qemu/roms/SLOF/board-qemu/slof/virtio-net.fs

   1 \ *****************************************************************************
   2 \ * Copyright (c) 2011 IBM Corporation
   3 \ * All rights reserved.
   4 \ * This program and the accompanying materials
   5 \ * are made available under the terms of the BSD License
   6 \ * which accompanies this distribution, and is available at
   7 \ * http://www.opensource.org/licenses/bsd-license.php
   8 \ *
   9 \ * Contributors:
  10 \ *     IBM Corporation - initial implementation
  11 \ ****************************************************************************/
  12
  13 \ ." Populating " pwd cr
  14
  15 s" network" device-type
  16
  17 INSTANCE VARIABLE obp-tftp-package
  18
  19 virtio-setup-vd VALUE virtiodev
  20 0 VALUE virtio-net-priv
  21 0 VALUE open-count
  22
  23 \ Set up MAC address from config virtqueue
  24 6 BUFFER: local-mac
  25 : setup-mac  ( -- )
  26    s" local-mac-address" get-node get-property not IF 2drop EXIT THEN
  27    6 0 DO
  28       virtiodev i 1 virtio-get-config
  29       local-mac i + c!
  30    LOOP
  31    local-mac 6 encode-bytes  s" local-mac-address"  property
  32 ;
  33
  34 : open  ( -- okay? )
  35    open-count 0= IF
  36       open IF
  37          \ my-unit 1 rtas-set-tce-bypass
  38          virtiodev virtio-net-open not IF ." virtio-net-open failed" false EXIT THEN
  39          TO virtio-net-priv
  40          setup-mac true
  41       ELSE
  42          false
  43       THEN
  44    ELSE
  45       true
  46    THEN
  47    my-args s" obp-tftp" $open-package obp-tftp-package !
  48    open-count 1 + to open-count
  49 ;
  50
  51
  52 : close  ( -- )
  53     open-count 0> IF
  54       open-count 1 - dup to open-count
  55       0= IF
  56          virtio-net-priv virtio-net-close
  57          \ my-unit 0 rtas-set-tce-bypass
  58          close
  59       THEN
  60    THEN
  61    s" close" obp-tftp-package @ $call-method
  62 ;
  63
  64 : read ( buf len -- actual )
  65    dup IF
  66       virtio-net-read
  67    ELSE
  68       nip
  69    THEN
  70 ;
  71
  72 : write ( buf len -- actual )
  73    dup IF
  74       virtio-net-write
  75    ELSE
  76       nip
  77    THEN
  78 ;
  79
  80 : load  ( addr -- len )
  81    s" load" obp-tftp-package @ $call-method
  82 ;
  83
  84 : ping  ( -- )
  85    s" ping" obp-tftp-package @ $call-method
  86 ;
  87
  88 : setup-alias  ( -- )
  89    " net" get-next-alias ?dup IF
  90       get-node node>path set-alias
  91    THEN
  92 ;
  93 setup-alias