/*--------------------------------------------------------------------
 * FICHERO:  TecVaRap.c
 * OBJETIVO: Definir la funcin Tec_ValidadaRapido()
 * AUTOR:    Pedro Reina
 * FECHA:    V.14.7.1995
 *------------------------------------------------------------------*/

/*--------------------------------------------------------------------
 * Ficheros de cabecera
 *------------------------------------------------------------------*/

#include "Tecla.h"

/*--------------------------------------------------------------------
 * Definicin de funciones
 *------------------------------------------------------------------*/

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Tec_ValidadaRapido()
 * OBJETIVO: Devolver una tecla de un determinado rango o NIL
 *           si no hay disponible ninguna tecla correcta
 * ENTRADAS: Un vector con las teclas admitidas, terminado 
 *           en NIL
 * SALIDAS:  La tecla pulsada o NIL
 * EJEMPLO:  Tec_ValidadaRapido ( {TEC_ESC,NIL} )
 * ALGORITMO:
 *     Si hay disponible alguna tecla
 *       Si pertenece a la lista de vlidas
 *         Devolver esa tecla
 *       Si no, avisar de que es tecla mala y devolver NIL
 *     Si no hay disponible ninguna, devolver NIL
 *------------------------------------------------------------------*/
tecla Tec_ValidadaRapido (Rango)
tecla Rango[];
  {
  tecla Tecla, Respuesta;

  Respuesta = NIL;
  if ( Tec_Disponible() )
    {
    Tecla = Tec_Pulsada();
    if ( Tec_Pertenece (Tecla,Rango) ) { Respuesta = Tecla; }
    else                               { Son_MalaTecla(); }
    }

  return ( Respuesta );
  }