Virtualization
/
SLOF
mirror of https://gitlab.com/qemu-project/SLOF.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Enumerate disk/cdrom aliases for multiple disks or cdroms 

This patch enumerates aliases (e.g. disk, disk1, disk2 etc.)
for multiple disk or cdrom provided

Signed-off-by: Avik Sil <aviksil@linux.vnet.ibm.com>
Signed-off-by: Nikunj A Dadhania <nikunj@linux.vnet.ibm.com>
This commit is contained in:
Avik Sil 2013-07-24 14:26:16 +05:30 committed by Nikunj A Dadhania
parent 2fe02a36df
commit 18a5c483e8
1 changed files with 19 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
slof/fs/scsi-probe-helpers.fs
View File

@ -42,6 +42,21 @@
nip nip
; ;
8 CONSTANT MAX-ALIAS
0 VALUE srplun
: make-media-alias ( $name srplun -- )
TO srplun
2dup find-alias IF
drop MAX-ALIAS 1 DO
i $cathex 2dup find-alias 0= IF
strdup srplun make-disk-alias UNLOOP EXIT
ELSE drop THEN
LOOP
ELSE
srplun make-disk-alias
THEN
;
: scsi-find-disks ( -- ) : scsi-find-disks ( -- )
." SCSI: Looking for devices" cr ." SCSI: Looking for devices" cr
vscsi-report-luns vscsi-report-luns
@ -56,10 +71,10 @@
\ and maybe provide better printout & more cases \ and maybe provide better printout & more cases
\ XXX FIXME: Actually check for LUNs \ XXX FIXME: Actually check for LUNs
sector inquiry-data>peripheral c@ CASE sector inquiry-data>peripheral c@ CASE
0 OF ." DISK : " " disk" current-target make-disk-alias ENDOF 0 OF ." DISK : " " disk" current-target make-media-alias ENDOF
5 OF ." CD-ROM : " " cdrom" current-target make-disk-alias ENDOF 5 OF ." CD-ROM : " " cdrom" current-target make-media-alias ENDOF
7 OF ." OPTICAL : " " cdrom" current-target make-disk-alias ENDOF 7 OF ." OPTICAL : " " cdrom" current-target make-media-alias ENDOF
e OF ." RED-BLOCK: " " disk" current-target make-disk-alias ENDOF e OF ." RED-BLOCK: " " disk" current-target make-media-alias ENDOF
dup dup OF ." ? (" . 8 emit 29 emit 5 spaces ENDOF dup dup OF ." ? (" . 8 emit 29 emit 5 spaces ENDOF
ENDCASE ENDCASE
sector .inquiry-text cr sector .inquiry-text cr