// prefixRename.mel
// v0.1
// August 22, 2000
// Soren 'kurgan' Jacobsen
// kurgan@kurgan.dk  (suggestions/bugreports welcome)
// http://www.kurgan.dk/
//
// Description:
// renames all of the selected nodes by putting the 'prefix' in front of its original name
//
// Usage:
// with objects selected
// >prefixRename <prefix>

global proc prefixRename(string $prefixname)
{
string $selectedObjects[] = `ls -sl`;
for( $current in $selectedObjects)
 {
  $newname = $prefixname+ $current;
  rename $current $newname;
  print ($current + "renamed to " + $newname + "/n");
 }
}