/***********************************************
 (C) Copyright 1992-1993; dit/upm
   Distributed under the conditions stated in the
   EPS General Public License (see file LICENSE)
 ***********************************************
 $Log: clrint.c,v $
 * Revision 2.3  1993/01/12  16:34:23  eps
 * portability issues
 *
 * Revision 2.2  1992/01/14  15:42:59  eps
 * distribution issues
 *
 * Revision 2.1  90/10/30  08:32:31  eps
 * hardwired colours added
 * new colours I2, IAT, AT
 * ! is no longer used as colour delimiter
 * still some bugs are known w.r.t. colour deallocation
 * 
 * Revision 1.3  90/03/16  15:54:18  eps
 * get and put do direct file access
 * 
 * Revision 1.2  90/01/29  14:51:50  eps
 * fixing license details
 * 
 * Revision 1.1  90/01/25  18:00:10  eps
 * Initial revision
 * 
 **********************************************/

#ifndef lint
static char rcsid[]= "$Id: clrint.c,v 2.3 1993/01/12 16:34:23 eps Exp $";
#endif

/***********************************************************************
        Tomas P. de Miguel Moro
	Jose A. Manas
        dpt. Ingenieria Telematica
        E.T.S.I. Telecomunicacion
        Ciudad Universitaria
        E-28040  MADRID

        tmiguel@dit.upm.es
        jmanas@dit.upm.es

        functions for int valued colours
 **********************************************************************/

/* LINTLIBRARY */

# define cast_IMP
# include "cast.hh"

# include <stdio.h>

PUBLIC CLR_TYPE
getint (fp)
    FILE* fp;
{
  int i;

  (void) fscanf (fp, "%d", &i);
  return (CLR_TYPE) i;
}

PUBLIC void
putint (fp, val)
    FILE* fp;
    CLR_TYPE val;
{
  (void) fprintf (fp, "%d", (int) val);
}
