---

type.h

Go to the documentation of this file.

 /*
  * plint/data/type.h : standard `plint' data types (header)
  * 
  * Time-stamp: <2002-12-21 14:28:10 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
#define PLINT_DATA_TYPE_H

#include "share/defines.h"

#include "gc.h"



/* forward type declarations */
#include "types.h"



typedef enum
{

  PLINT_ASG_REF = 1 << 0,       
  PLINT_ASG_VAL = 1 << 1,       
  PLINT_ASG_MSK = (1 << 2) - 1, 
  PLINT_ASG_CPY = 1 << 2,       
} plint_easg_t;



typedef enum
{
  _PLINT_typ = 0,       
  _PLINT_typ_start = _PLINT_typ,

  /* scalars */
  PLINT_nul,            
  PLINT_num,            
  PLINT_num_int,        
  PLINT_num_dbl,        
  PLINT_pnt,            
  PLINT_str,            
  PLINT_bol,            
  /* memories */
  PLINT_var,            
  PLINT_tab,            
  PLINT_hsh,            
  /*
  soon to come...
  PLINT_opq,
  PLINT_txt,
  PLINT_bin,
  PLINT_sok,
  */
  PLINT_err,            
  _PLINT_typ_stop,
  _PLINT_typ_NO = _PLINT_typ_stop,      
} plint_typ_t;



#include "val/number.h"
#include "val/point.h"
#include "val/2points.h"
#include "val/string.h"
#include "val/boolean.h"
#include "val/table.h"
#include "val/hash.h"



union _plint_value
{

  int           num_int;        
  double        num_dbl;        
  plint_pnt_t   pnt;            
  plint_str_t   str;            
  plint_bol_t   bol;            
  plint_var_t   var;            
  plint_tab_t   tab;            
  plint_hsh_t   hsh;            
};



#include "index.h"
#include "range.h"
#include "iterator.h"


#include "memref.h"
#include "variable.h"
#include "value.h"



extern plint_typkey_t plint_builtin_key;



__BEGIN_DECLS

void plint_data_type_init();
void plint_data_type_finish();

int plint_typ_equ(plint_typ_t LEFT, plint_typ_t RIGHT);
int plint_typ_neq(plint_typ_t LEFT, plint_typ_t RIGHT);
int plint_typ_mem(plint_typ_t TYPE);

plint_typ_t plint_str_typ(plint_str_t STRING);
plint_str_t plint_typ_str(plint_typ_t TYPE);

void plint_val_fre(plint_val_t * PVALUE, plint_typ_t TYPE);
plint_val_t plint_val_cpy(plint_val_t * PVALUE, plint_typ_t TYPE);

void plint_blind_assign(plint_ref_t DESTINATION, plint_var_t SOURCE, plint_easg_t TYPE);

#define plint_bar_new(__args__...) plint_var_new(plint_builtin_key, __args__)
#define plint_val_nul() plint_ptr_new(PLINT_nul)
#define plint_bar_nul() plint_bar_new(plint_val_nul())
#define plint_var_nul(__key__...) plint_var_new(__key__, plint_val_nul())

__END_DECLS

#endif

---