Return to virtio-block.fs CVS log

Up to [Qemu by Fabrice Bellard] / qemu / roms / SLOF / board-qemu / slof

Annotation of qemu/roms/SLOF/board-qemu/slof/virtio-block.fs, revision 1.1.1.1

1.1       root        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" block" device-type
                     16: 
                     17: FALSE VALUE initialized?
                     18: 
                     19: \ Required interface for deblocker
                     20: 
                     21: 200 CONSTANT block-size
                     22: 8000 CONSTANT max-transfer 
                     23: 
                     24: INSTANCE VARIABLE deblocker
                     25: 
                     26: /vd-len BUFFER: virtiodev
                     27: virtiodev virtio-setup-vd
                     28: 
                     29: \ Quiesce the virtqueue of this device so that no more background
                     30: \ transactions can be pending.
                     31: : shutdown  ( -- )
                     32:    virtiodev virtio-blk-shutdown
                     33:    FALSE to initialized?
                     34: ;
                     35: 
                     36: \ Basic device initialization - which has only to be done once
                     37: : init  ( -- )
                     38:    virtiodev virtio-blk-init
                     39:    TRUE to initialized?
                     40:    ['] shutdown add-quiesce-xt
                     41: ;
                     42: 
                     43: \ Read multiple blocks - called by deblocker package
                     44: : read-blocks  ( addr block# #blocks -- #read )
                     45:    virtiodev virtio-blk-read
                     46: ;
                     47: 
                     48: \ Standard node "open" function
                     49: : open  ( -- okay? )
                     50:    open 0= IF false EXIT THEN
                     51:    0 0 s" deblocker" $open-package dup deblocker ! dup IF
                     52:       s" disk-label" find-package IF
                     53:          my-args rot interpose
                     54:       THEN
                     55:    THEN
                     56:    dup initialized? 0= AND IF
                     57:       init
                     58:    THEN
                     59:    0<>
                     60: ;
                     61: 
                     62: \ Standard node "close" function
                     63: : close  ( -- )
                     64:    deblocker @ close-package
                     65:    close
                     66: ;
                     67: 
                     68: \ Standard node "seek" function
                     69: : seek  ( pos.lo pos.hi -- status )
                     70:    s" seek" deblocker @ $call-method
                     71: ;
                     72: 
                     73: \ Standard node "read" function
                     74: : read  ( addr len -- actual )
                     75:    s" read" deblocker @ $call-method
                     76: ;
                     77: 
                     78: \ Set disk alias if none is set yet
                     79: : (set-alias)
                     80:    s" disk" find-alias 0= IF
                     81:        s" disk" get-node node>path set-alias
                     82:    ELSE
                     83:       drop
                     84:    THEN
                     85: ;
                     86: (set-alias)

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.