#!/usr/local/bin/perl
#
# CDDL HEADER START
#
# The contents of this file are subject to the terms of the
# Common Development and Distribution License (the "License").
# You may not use this file except in compliance with the License.
#
# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
# or http://www.opensolaris.org/os/licensing.
# See the License for the specific language governing permissions
# and limitations under the License.
#
# When distributing Covered Code, include this CDDL HEADER in each
# file and include the License file at usr/src/OPENSOLARIS.LICENSE.
# If applicable, add the following below this CDDL HEADER, with the
# fields enclosed by brackets "[]" replaced with your own identifying
# information: Portions Copyright [yyyy] [name of copyright owner]
#
# CDDL HEADER END
#
#
# Copyright 2008 Sun Microsystems, Inc. All rights reserved.
# Use is subject to license terms.
#
#pragma ident "%Z%%M% %I% %E% SMI"
$num_bays = 4;
$bay_label = "HD";
print <<EOF;
<topology name='disk' scheme='hc'>
<range name='bay' min='0' max='3'>
EOF
$controller = 0;
for ($bay = 0; $bay < $num_bays; $bay++) {
$hpath = "/pci\@7b,0/pci1022,7458\@11/pci1000,3060\@2";
$tpath = sprintf("/sd\@%x,0", $bay);
$apoint = sprintf(":scsi::dsk/c%dt%dd0",
$controller + 1, $bay);
print <<EOF;
<node instance='$bay'>
<propgroup name='protocol' version='1' name-stability='Private'
data-stability='Private'>
<propval name='label' type='string' value='$bay_label$bay' />
</propgroup>
<propgroup name='io' version='1' name-stability='Private'
data-stability='Private'>
<propval name='ap-path' type='string' value='/devices$hpath$apoint' />
</propgroup>
<propgroup name='binding' version='1' name-stability='Private'
data-stability='Private'>
<propval name='occupant-path' type='string'
value='$hpath$tpath' />
</propgroup>
</node>
EOF
}
print <<EOF;
<dependents grouping='children'>
<range name='disk' min='0' max='0'>
<enum-method name='disk' version='1' />
</range>
</dependents>
</range>
</topology>
EOF