/* -*- LPC -*- */ /* * $Locker: $ * $Id: nickname.c,v 1.1 1998/01/06 04:54:05 ceres Exp $ * $Log: nickname.c,v $ * Revision 1.1 1998/01/06 04:54:05 ceres * Initial revision * */ /* * The great and wonderful alias driver by me ;) * pinkfish. */ mapping map_nicknames; void nickname_commands() { } mapping query_nicknames() { return map_nicknames; } void set_nicknames(mapping map) { map_nicknames = map; } string expand_nickname( string phrase ) { int i; string new_n, *words; if ( stringp( phrase ) ) words = explode( phrase, " " ); else return phrase; if ( !map_nicknames ) map_nicknames = ([ ]); for ( i = 0; i < sizeof( words ); i++ ) { new_n = map_nicknames[ lower_case( words[ i ] ) ]; if ( new_n ) words[ i ] = new_n; } return implode( words, " " ); } /* expand_nickname() */