alias function in rc

[malte@techfak.uni-bielefeld.de]

I as a nasty sytem administrator, I'm planning to let csh slowly die
( if the users let me, of course! ). I'd like to make rc the standart shell.
To make life easier for them I wrote a little rc function which provides
the functionality of the common alias definitions. I post it here hoping
you will benefit from it. Let me here of bugs and incompabilities!

fn alias {
	fn deffn {
		name = $^1; shift 1
		newfn = 'fn ' ^ $^name ^ ' { builtin ' ^ $^* ^ ' $* }'
		eval $newfn
	}
	switch( $#* ){
		case 0; whatis | grep '^fn ';
		case 1; whatis $^1;
		case 2; name=() newfn=() deffn $*;
		case 3; echo 'usage:' $0 '[alias_name [''definition'']]' >[1=2]
			return 1
	}
}

Malte.