Return to virtio-fs.fs CVS log

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

Annotation of qemu/roms/SLOF/board-qemu/slof/virtio-fs.fs, revision 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" network" device-type
        !            16: 
        !            17: 0 VALUE virtfs-rx-buffer
        !            18: 0 VALUE virtfs-tx-buffer
        !            19: FALSE VALUE initialized?
        !            20: 
        !            21: 2000 CONSTANT VIRTFS-BUF-SIZE \ 8k
        !            22: 
        !            23: /vd-len BUFFER: virtiodev
        !            24: virtiodev virtio-setup-vd
        !            25: 
        !            26: \
        !            27: \ Support methods.
        !            28: 
        !            29: : shutdown  ( -- )
        !            30:    initialized? 0= IF EXIT THEN
        !            31:    virtiodev virtio-fs-shutdown
        !            32:    virtfs-rx-buffer VIRTFS-BUF-SIZE free-mem
        !            33:    virtfs-tx-buffer VIRTFS-BUF-SIZE free-mem
        !            34:    FALSE to initialized?
        !            35: ;
        !            36: 
        !            37: : init  ( -- success )
        !            38:    VIRTFS-BUF-SIZE alloc-mem to virtfs-rx-buffer
        !            39:    VIRTFS-BUF-SIZE alloc-mem to virtfs-tx-buffer
        !            40:    
        !            41:    virtiodev                   ( dev )
        !            42:    virtfs-tx-buffer            ( dev tx )
        !            43:    virtfs-rx-buffer            ( reg tx rx )
        !            44:    VIRTFS-BUF-SIZE             ( reg tx rx size )   
        !            45:    virtio-fs-init              ( success )
        !            46:    
        !            47:    dup IF
        !            48:       TRUE to initialized?
        !            49:       ['] shutdown add-quiesce-xt
        !            50:    THEN
        !            51: ;
        !            52: 
        !            53: \
        !            54: \ Standard network interface.
        !            55: 
        !            56: : open  ( -- okay? )
        !            57:    open 0= IF false EXIT THEN
        !            58:    initialized? 0= IF
        !            59:       init 0= IF false EXIT THEN
        !            60:    THEN   
        !            61:    true
        !            62: ;
        !            63: 
        !            64: : load ( addr -- len )
        !            65:    virtiodev swap              ( dev addr )   
        !            66:    my-args                     ( dev addr str strlen )
        !            67:    1 +         \ hack to make the following allocate 1 more byte
        !            68:    \-to-/      \ convert path elements
        !            69:    1 - 2dup + 0 swap c! drop
        !            70:    virtio-fs-load              ( length )
        !            71: ;
        !            72: 
        !            73: : close  ( -- )
        !            74:    initialized? IF
        !            75:       shutdown
        !            76:    THEN
        !            77:    close
        !            78: ;
        !            79: 
        !            80: : ping ( -- )
        !            81:    cr s" ping not supported for this device" type cr cr
        !            82: ;
        !            83: 
        !            84: 
        !            85: : (set-alias)
        !            86:     " virtfs" find-alias 0= IF
        !            87:         " virtfs" get-node node>path set-alias
        !            88:     ELSE THEN 
        !            89: ;
        !            90: 
        !            91: \
        !            92: \ Init the module.
        !            93: 
        !            94: (set-alias)

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