#
# HELP: SYNOPSIS:
# HELP:     generic/multivol/sortvol
# HELP:
# HELP: DESCRIPTION:
# HELP:     Sorts all volumes
#
CECHO ${$root.func.var.new("string","firstvol")}                                     
CECHO ${$firstvol=$root.vol[current].name}
CECHO ${$root.func.var.new("int","numvols")}                                     
CECHO ${$root.func.var.new("int","i")}
CECHO ${$root.func.var.new("int","j")}                                     
CECHO ${$numvols=0}
:NEXTVOL
CECHO ${$numvols=$numvols+1}
VOL_SET
IF ${$root.vol[current].name!=$firstvol} GOTO NEXTVOL

CECHO ${$i=0}
{ OUTERLOOP
	CECHO ${$j=0}
	VOL_SET *TOP*
	{ INNERLOOP
		CECHO ${$firstvol=$root.vol[current].name}
		VOL_SET
		{ SWAP ${$firstvol>=$root.vol[current].name}
			CECHO MOVING ${$root.vol[current].name} to ${$j}
			VOL_MOVETO ${$root.vol[current].name} ${$j}
		} SWAP 0 0
	} INNERLOOP ${$j=$j+1} ${$j<$numvols-1}
} OUTERLOOP ${$i=$i+1} ${$i<$numvols}
