summaryrefslogtreecommitdiffstats
path: root/qemu/roms/SLOF/board-qemu/slof/virtio-fs.fs
blob: 3898d0b7d468835bdc2f756a9a92f13e96cc6dda (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
\ *****************************************************************************
\ * Copyright (c) 2011 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
\ ****************************************************************************/

." Populating " pwd cr

s" network" device-type

0 VALUE virtfs-rx-buffer
0 VALUE virtfs-tx-buffer
FALSE VALUE initialized?

2000 CONSTANT VIRTFS-BUF-SIZE \ 8k

virtio-setup-vd VALUE virtiodev

\
\ Support methods.

: shutdown  ( -- )
   initialized? 0= IF EXIT THEN
   virtiodev virtio-fs-shutdown
   virtfs-rx-buffer VIRTFS-BUF-SIZE free-mem
   virtfs-tx-buffer VIRTFS-BUF-SIZE free-mem
   FALSE to initialized?
;

: init  ( -- success )
   VIRTFS-BUF-SIZE alloc-mem to virtfs-rx-buffer
   VIRTFS-BUF-SIZE alloc-mem to virtfs-tx-buffer
   
   virtiodev			( dev )
   virtfs-tx-buffer		( dev tx )
   virtfs-rx-buffer		( reg tx rx )
   VIRTFS-BUF-SIZE		( reg tx rx size )   
   virtio-fs-init		( success )
   
   dup IF
      TRUE to initialized?
      ['] shutdown add-quiesce-xt
   THEN
;

\
\ Standard network interface.

: open  ( -- okay? )
   open 0= IF false EXIT THEN
   initialized? 0= IF
      init 0= IF false EXIT THEN
   THEN   
   true
;

: load ( addr -- len )
   virtiodev swap		( dev addr )   
   my-args   			( dev addr str strlen )
   1 +		\ hack to make the following allocate 1 more byte
   \-to-/	\ convert path elements
   1 - 2dup + 0 swap c! drop
   virtio-fs-load		( length )
;

: close  ( -- )
   initialized? IF
      shutdown
   THEN
   close
;

: ping ( -- )
   cr s" ping not supported for this device" type cr cr
;


: (set-alias)
    " virtfs" find-alias 0= IF
        " virtfs" get-node node>path set-alias
    ELSE
        drop
    THEN
;

\
\ Init the module.

(set-alias)