Return to vio-vscsi-device.fs CVS log

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

Annotation of qemu/roms/SLOF/board-qemu/slof/vio-vscsi-device.fs, revision 1.1.1.2

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: \ Create new VSCSI child device
                     14: \ ( lun id $name is_cdrom -- )
                     15: 
                     16: \ Create device
                     17: new-device
                     18: 
                     19: VALUE is_cdrom
                     20: 
                     21: 2swap  ( $name lun id )
                     22: 
                     23: \ Set reg & unit
                     24: 2dup set-unit encode-phys " reg" property
                     25: 
                     26: \ Set name
                     27: 2dup device-name
                     28: 
                     29: 2dup find-alias 0= IF
                     30:     get-node node>path set-alias
                     31: ELSE 2drop THEN 
                     32: 
                     33: s" block" device-type      
                     34: 
                     35: \ Required interface for deblocker
                     36: 
                     37: 0 INSTANCE VALUE block-size
                     38: 0 INSTANCE VALUE max-block-num
                     39: 0 INSTANCE VALUE max-transfer
                     40: 
                     41: : read-blocks ( addr block# #blocks -- #read )
                     42:     block-size " dev-read-blocks" $call-parent
                     43:     not IF
                     44:         ." Read blocks failed !" cr -1 throw
                     45:     THEN
                     46: ;    
                     47: 
                     48: INSTANCE VARIABLE deblocker
                     49: 
                     50: : open ( -- true | false )
                     51:     my-unit " set-address" $call-parent
                     52:     is_cdrom IF " dev-prep-cdrom" ELSE " dev-prep-disk" THEN $call-parent
                     53:     " dev-max-transfer" $call-parent to max-transfer
                     54: 
1.1.1.2 ! root       55:     " dev-get-capacity" $call-parent to max-block-num to block-size
        !            56:     max-block-num 0=  block-size 0= OR IF
        !            57:        ." Failed to get disk capacity!" cr
        !            58:        FALSE EXIT
        !            59:     THEN
        !            60: 
1.1       root       61:     0 0 " deblocker" $open-package dup deblocker ! dup IF 
                     62:         " disk-label" find-package IF
1.1.1.2 ! root       63:             my-args rot interpose
1.1       root       64:         THEN
                     65:    THEN 0<>
                     66: ;
                     67: 
                     68: : close ( -- )
                     69:     deblocker @ close-package ;
                     70: 
                     71: : seek ( pos.lo pos.hi -- status )
                     72:     s" seek" deblocker @ $call-method ;
                     73: 
                     74: : read ( addr len -- actual )
                     75:     s" read" deblocker @ $call-method ;
                     76: 
                     77: finish-device

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