// ==========================================================================
// http://www.tjgalda.com
//
// Copyright (C) 2007 TJ Galda. All rights reserved.
//
// The coded instructions, statements, computer programs, and/or related
// material (collectively the "Data") in these files contain unpublished
// information proprietary to TJ Galda which is protected by U.S. and
// Canadian federal copyright law and by international treaties.
//
// The Data is provided for use exclusively by You. You have the right
// to use, modify, and incorporate this Data into other products for
// purposes authorized by TJ Galda, without fee.
//
// The copyright notices in the Software and this entire statement,
// including the above license grant, this restriction and the
// following disclaimer, must be included in all copies of the
// Software, in whole or in part, and all derivative works of
// the Software, unless such copies or derivative works are solely
// in the form of machine-executable object code generated by a
// source language processor.
//
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND.
// TJ GALDA DOES NOT MAKE AND HEREBY DISCLAIMS ANY EXPRESS OR IMPLIED
// WARRANTIES INCLUDING, BUT NOT LIMITED TO, THE WARRANTIES OF
// NON-INFRINGEMENT, MERCHANTABILITY OR FITNESS FOR A PARTICULAR
// PURPOSE, OR ARISING FROM A COURSE OF DEALING, USAGE, OR
// TRADE PRACTICE. IN NO EVENT WILL TJ GALDA AND/OR ITS LICENSORS
// BE LIABLE FOR ANY LOST REVENUES, DATA, OR PROFITS, OR SPECIAL,
// DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES, EVEN IF TJ GALDA
// AND/OR ITS LICENSORS HAS BEEN ADVISED OF THE POSSIBILITY
// OR PROBABILITY OF SUCH DAMAGES.
//
// http://www.tjgalda.com
// ==========================================================================
//
// TJ Galda Script File
// MODIFY THIS AT YOUR OWN RISK
//
// Creation Date:  tj, aug 12, 2002
//
//  Procedure Name:
//      tj_selectLikeNamed.mel
//
//  Description:
//        selects all nodes with the same name, regardless
//           of hierarchy.
//        handles mass selection
//
//  Input Arguments:
//      None
//
//  Return Value:
//      None.
//
// http://www.tjgalda.com
// ==========================================================================


global proc TJ_selectLikeNamed()
{
string $selected[] = `ls -sl`;
int $findNum = `size($selected)`;
for ($selection in $selected)
 {
 	string	$tokens[];
	int	$numTokens;
	$numTokens = `tokenize $selection "|" $tokens`;
  int $num = `size($tokens)`;
  $num --;
  string $go = ("select -tgl \"\*"+$tokens[$num]+"\"");
  eval $go;
  select -tgl $selection;
 }
string $current[] = `ls -sl`;
int $curNum = `size($current)`;
print ("\n\nFound and selected ["+$curNum+"] that matched your initial ["+$findNum+"] selected.\n\n");
}