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 /vd-len BUFFER: virtiodev
  20 virtiodev virtio-setup-vd
  21 0 VALUE virtio-net-priv
  22 0 VALUE open-count
  23
  24 : open  ( -- okay? )
  25    open-count 0= IF
  26       open IF
  27          \ my-unit 1 rtas-set-tce-bypass
  28          s" local-mac-address" get-node get-property not IF
  29             virtiodev virtio-net-open dup not IF ." virtio-net-open failed" EXIT THEN
  30             drop TO virtio-net-priv
  31          THEN
  32          true
  33       ELSE
  34          false
  35       THEN
  36    ELSE
  37       true
  38    THEN
  39    my-args s" obp-tftp" $open-package obp-tftp-package !
  40    open-count 1 + to open-count
  41 ;
  42
  43
  44 : close  ( -- )
  45     open-count 0> IF
  46       open-count 1 - dup to open-count
  47       0= IF
  48          virtio-net-priv virtio-net-close
  49          \ my-unit 0 rtas-set-tce-bypass
  50          close
  51       THEN
  52    THEN
  53    s" close" obp-tftp-package @ $call-method
  54 ;
  55
  56 : read ( buf len -- actual )
  57    dup IF
  58       virtio-net-read
  59    ELSE
  60       nip
  61    THEN
  62 ;
  63
  64 : write ( buf len -- actual )
  65    dup IF
  66       virtio-net-write
  67    ELSE
  68       nip
  69    THEN
  70 ;
  71
  72 : load  ( addr -- len )
  73    s" load" obp-tftp-package @ $call-method
  74 ;
  75
  76 : ping  ( -- )
  77    s" ping" obp-tftp-package @ $call-method
  78 ;
  79
  80 \ Set up MAC address from config virtqueue
  81 6 BUFFER: local-mac
  82 : setup-mac  ( -- )
  83    6 0 DO
  84       virtiodev i 1 virtio-get-config
  85       local-mac i + c!
  86    LOOP
  87    local-mac 6 encode-bytes  s" local-mac-address"  property
  88 ;
  89 setup-mac
  90
  91 : setup-alias  ( -- )
  92    " net" get-next-alias ?dup IF
  93       get-node node>path set-alias
  94    THEN
  95 ;
  96 setup-alias