/////////////////////
//Read lines from file
/////////////////////
global proc string[] jpReadLines(string $file)
{
string $lines[];

if(!`filetest -r $file`)
{
	warning ("File Not Found: " + $file);
}//end if
int $fileID = `fopen $file r`;
string $nextLine = `fgetline $fileID`;

int $i = 0;
while ( size( $nextLine ) > 0 ) 
{
	string $tokContents[];
	int $tokNumber = `tokenize $nextLine "\n" $tokContents`;
	if($tokNumber > 0)
	{
		$lines[$i] = $tokContents[0];
		$i++;
	}//end if

	$nextLine = `fgetline $fileID`;
}//end while
fclose $fileID;

return $lines;
}//end proc