/*--------------------------------------------------------------------
 * FICHERO:  CadCamb.c
 * OBJETIVO: Definir la funcin Cad_Cambia()
 * AUTOR:    Pedro Reina
 * FECHA:    J.20.4.1995
 *------------------------------------------------------------------*/

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

#include "Cadena.h"

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

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Cad_Cambia()
 * OBJETIVO: Cambiar en una cadena un carcter por otro
 * ENTRADAS: Cadena destino, carcter viejo, carcter nuevo
 * SALIDAS:  La cadena queda modificada y se devuelve
 * EJEMPLO:  Cad_Cambia (Cadena,'a','b')
 *------------------------------------------------------------------*/
cadena Cad_Cambia (Cadena, Viejo, Nuevo)
cadena Cadena;
char Viejo, Nuevo;
  {
  contador i;

  for ( i=0 ; Cadena[i] ; i++ )
    {
    if ( Cadena[i] == Viejo ) { Cadena[i] = Nuevo; }
    }

  return (Cadena);
  }