---

number.h

Go to the documentation of this file.

 /*
  * plint/data/val/number.h : numbers data structures
  * 
  * Time-stamp: <2002-10-07 04:52:19 gseba>
  * 
  * Copyright (C) Sebastian Glita, email: gseba@users.sourceforge.net
  * 
  * This file is part of plint.
  * 
  * plint is free software; you can  redistribute it and/or modify it under the
  * terms of the  GNU General Public License as published  by the Free Software
  * Foundation; either version 2, or (at your option) any later version.
  *
  * plint  is distributed  in the  hope  that it  will be  useful, but  WITHOUT
  * ANY  WARRANTY; without  even  the implied  warranty  of MERCHANTABILITY  or
  * FITNESS FOR A  PARTICULAR PURPOSE.  See the GNU  General Public License for
  * more details.
  * 
  * You should  have received a  copy of the  GNU General Public  License along
  * with  plint; see  the file  COPYING.  If  not, write  to the  Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA USA.
  *
  */

#ifndef PLINT_DATA_TYPE_H
#error Dont include me directly, but through data/type.h
#endif

struct _plint_num
{

  plint_typ_t typ;                      
  union {

    int num_int;                                
    double num_dbl;                             
  } val;                                
  /* TODO: are these correct ? */
#define PLINT_INT_MAX "-2147483647"
#define PLINT_DBL_MAX "-2147483647.99999999999999"

};

__BEGIN_DECLS

#define plint_num_int_cpy(__i__) (__i__)
#define plint_num_int_dup plint_num_int_cpy
#define plint_num_int_fre(__i__) 

#define plint_num_dbl_cpy(__d__) (__d__)
#define plint_num_dbl_dup plint_num_dbl_cpy
#define plint_num_dbl_fre(__d__) 

#define plint_num_cpy(__n__) (__n__)
#define plint_num_dup plint_num_cpy
#define plint_num_fre(__n__) 

#define PLINT_num_int_INIT(__i__) { typ: PLINT_num_int, val:num_int:__i__ }
#define PLINT_num_dbl_INIT(__d__) { typ: PLINT_num_dbl, val:num_dbl:__d__ }

inline int plint_num_n2i(plint_num_t NUMBER);
inline double plint_num_n2d(plint_num_t NUMBER);
inline plint_num_t plint_num_INT(int INTEGER);
inline plint_num_t plint_num_DBL(double REAL);

plint_val_t plint_num_val(plint_num_t NUMBER);
#define plint_val_num(__pval__, __type__) (((__type__) != PLINT_num_dbl) ? plint_num_INT((__pval__)->num_int) : plint_num_DBL((__pval__)->num_dbl))

inline plint_num_t plint_ptr_num(plint_ptr_t VALUE);
inline plint_ptr_t plint_num_ptr(plint_num_t NUMBER);
inline plint_ptr_t plint_num_set(plint_ptr_t VALUE, plint_num_t NUMBER);

__END_DECLS

---