/*--------------------------------------------------------------------
 * FICHERO:  CadEnter.c
 * OBJETIVO: Definir las funciones que implementan Cad_Entero()
 * AUTOR:    Pedro Reina
 * FECHA:    V.14.4.1995
 *------------------------------------------------------------------*/

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

#include "Cadena.h"

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

/*--------------------------------------------------------------------
 * FUNCION:  Cad_EntPos()
 * OBJETIVO: Convertir un entero positivo en una cadena
 * ENTRADAS: El nmero
 * SALIDAS:  La cadena
 * NOTA:     La cadena devuelta hay que destruirla cuando no sea necesaria
 * EJEMPLO:  Cad_Entero (4000111000)
 *------------------------------------------------------------------*/
cadena Cad_EntPos (n)
entpos n;
  {
  cadena Respuesta;

  Respuesta = Cad_Crea (10);
  sprintf ((char *)Respuesta, "%lu", n);

  return ( Respuesta );
  }

/*--------------------------------------------------------------------
 * FUNCION:  Cad_EntSig()
 * OBJETIVO: Convertir un entero con signo en una cadena
 * ENTRADAS: El nmero
 * SALIDAS:  La cadena
 * NOTA:     La cadena devuelta hay que destruirla cuando no sea necesaria
 * EJEMPLO:  Cad_Entero (-2000111000)
 *------------------------------------------------------------------*/
cadena Cad_EntSig (n)
entero n;
  {
  cadena Respuesta;

  Respuesta = Cad_Crea (11);
  sprintf ((char *)Respuesta, "%ld", n);

  return ( Respuesta );
  }
