Re: list operators

[rsalz@osf.org]

	; * = ( 4 5 6 7 )
	; echo $*
	4 5 6 7
	; shift -3
	; echo $*
	4


# rshift varname count
fn rshift { i=() save=() tmp=() {
	count=`{ expr $#$1 - $2 }
	~ $count -* && { echo cannot rshift >[1=2]; return 1 }
	save=$1
	*=( $$1 )
	for (i) {
	    tmp=( $tmp $i )
	    ~ $#tmp $count && break
	}
	$save=( $tmp )
} }

rn rshift-test {
    foo=(1 2 3 4 5 6)
    echo foo before is $foo
    rshift foo 2
    echo foo after is $foo
    echo

    echo foo before is $foo
    rshift foo 12 || echo rshift failed.
    echo foo after is $foo
}

foo before is 1 2 3 4 5 6
foo after is 1 2 3 4

foo before is 1 2 3 4
cannot rshift
rshift failed.
foo after is 1 2 3 4