/*--------------------------------------------------------------------
 * FICHERO:  CadANaQL.c
 * OBJETIVO: Definir la funcin Cad_ConvierteANSIaQL()
 * AUTOR:    Pedro Reina
 * FECHA:    D.6.8.1995
 *------------------------------------------------------------------*/

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

#include "Cadena.h"

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

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Cad_ConvierteANSIaQL()
 * OBJETIVO: Convertir una cadena del juego de caracteres 
 *           ANSI al del QL
 * ENTRADAS: La cadena
 * SALIDAS:  La cadena queda modificada y se devuelve
 * EJEMPLO:  Cad_ConvierteANSIaQL (Cadena)
 *------------------------------------------------------------------*/
cadena Cad_ConvierteANSIaQL (Cadena)
cadena Cadena;
  {
  contador i;

  for ( i=0 ; Cadena[i] ; i++ )
    { Cadena[i] = Car_ConvierteANSIaQL (Cadena[i]); }

  return (Cadena);
  }