Codigo fuente de la función tsearch