← Back to branch summary

~pmdj/ubuntu/trusty/qemu/2.9+applesmc+fadtv3

« back to all changes in this revision

Viewing changes to roms/SLOF/board-qemu/slof/vio-veth.fs

  • Committer: Phil Dennis-Jordan
  • Date: 2017-07-21 08:03:43 UTC
  • mfrom: (1.1.1)
  • Revision ID: phil@philjordan.eu-20170721080343-2yr2vdj7713czahv
New upstream release 2.9.0.

Show diffs side-by-side

added added

removed removed

Lines of Context:
roms/SLOF/board-qemu/slof/vio-veth.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
" network" device-type
 
16
 
 
17
INSTANCE VARIABLE obp-tftp-package
 
18
0 VALUE veth-priv
 
19
0 VALUE open-count
 
20
 
 
21
: open  ( -- okay? )
 
22
   open-count 0= IF
 
23
      my-unit 1 rtas-set-tce-bypass
 
24
      s" local-mac-address" get-node get-property not
 
25
      s" reg" get-node get-property not 3 pick and IF
 
26
         >r nip r>
 
27
         libveth-open dup not IF ." libveth-open failed" EXIT THEN
 
28
         drop TO veth-priv
 
29
      THEN
 
30
   THEN
 
31
   my-args s" obp-tftp" $open-package obp-tftp-package !
 
32
   open-count 1 + to open-count
 
33
   true
 
34
;
 
35
 
 
36
: close  ( -- )
 
37
   open-count 0> IF
 
38
      open-count 1 - dup to open-count
 
39
      0= IF
 
40
         veth-priv libveth-close
 
41
         my-unit 0 rtas-set-tce-bypass
 
42
      THEN
 
43
   THEN
 
44
   s" close" obp-tftp-package @ $call-method
 
45
;
 
46
 
 
47
: read ( buf len -- actual )
 
48
   dup IF
 
49
      veth-priv libveth-read
 
50
   ELSE
 
51
      nip
 
52
   THEN
 
53
;
 
54
 
 
55
: write ( buf len -- actual )
 
56
   dup IF
 
57
      veth-priv libveth-write
 
58
   ELSE
 
59
      nip
 
60
   THEN
 
61
;
 
62
 
 
63
: load  ( addr -- len )
 
64
    s" load" obp-tftp-package @ $call-method 
 
65
;
 
66
 
 
67
: ping  ( -- )
 
68
    s" ping" obp-tftp-package @ $call-method
 
69
;
 
70
 
 
71
: setup-alias
 
72
    " net" get-next-alias ?dup IF
 
73
        get-node node>path set-alias
 
74
    THEN
 
75
;
 
76
setup-alias