/*--------------------------------------------------------------------
 * FICHERO:  CadDupl.c
 * OBJETIVO: Definir la funcin Cad_Duplica()
 * AUTOR:    Pedro Reina
 * FECHA:    J.13.7.1995
 *------------------------------------------------------------------*/

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

#include "Cadena.h"

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

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Cad_Duplica()
 * OBJETIVO: Duplicar una cadena
 * ENTRADAS: Una cadena
 * SALIDAS:  Una nueva cadena con el mismo contenido que 
 *           la entrada
 * NOTA:     La cadena devuelta hay que destruirla cuando no 
 *           sea necesaria
 * EJEMPLO:  Cad_Duplica ("Artesonado")
 *------------------------------------------------------------------*/
cadena Cad_Duplica (Cadena)
cadena Cadena;
  {
  contador Longitud;
  cadena   Respuesta;

  Longitud = Cad_Longitud (Cadena);
  Respuesta = Cad_Crea (Longitud);
  Cad_Copia (Respuesta,Cadena);

  return ( Respuesta );
  }