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

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

#include "Cadena.h"

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

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Cad_Crea()
 * OBJETIVO: Reservar memoria para almacenar una cadena
 * ENTRADAS: El nmero mximo de caracteres de la cadena
 * SALIDAS:  Una cadena
 * NOTAS:    1. Se reserva espacio automticamente para el NULO
 *           2. La cadena queda iniciada a cadena vaca
 *           3. La cadena devuelta hay que destruirla cuando no
 *              sea necesaria
 * EJEMPLO:  Cad_Crea (80)
 *------------------------------------------------------------------*/
cadena Cad_Crea (n)
contador n;
  {
  cadena Respuesta;

  if ( Respuesta = (cadena) Mem_Crea (n+1) ) 
    { Respuesta[0] = NULO; }

  return ( Respuesta );
  }