/************************************************************************/
/*                                                                      */
/*                         Applied Type System                          */
/*                                                                      */
/*                              Hongwei Xi                              */
/*                                                                      */
/************************************************************************/

/*
 * ATS - Unleashing the Power of Types!
 *
 * Copyright (C) 2002-2007 Hongwei Xi.
 *
 * ATS is free software;  you can  redistribute it and/or modify it under
 * the terms of the GNU LESSER GENERAL PUBLIC LICENSE as published by the
 * Free Software Foundation; either version 2.1, or (at your option)  any
 * later version.
 * 
 * ATS 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  ATS;  see the  file COPYING.  If not, please write to the
 * Free Software Foundation,  51 Franklin Street, Fifth Floor, Boston, MA
 * 02110-1301, USA.
 *
 */

/* ****** ****** */

/* author: Hongwei Xi (hwxi AT cs DOT bu DOT edu) */

/* ****** ****** */

#ifndef __ATS_TYPES_H
#define __ATS_TYPES_H

/* ****** ****** */

#include <stdint.h>
#include <sys/types.h>

/* ****** ****** */

typedef void ats_abs_type ;
typedef void *ats_ptr_type ;
typedef void *ats_ref_type ;
typedef void ats_var_type ;
typedef void ats_void_type ;

/* ****** ****** */

typedef int ats_bool_type ;
typedef unsigned char ats_byte_type ;

typedef char ats_char_type ;
typedef unsigned char ats_uchar_type ;

typedef double ats_double_type ;
typedef long double ats_ldouble_type ;
typedef float ats_float_type ;

/* ****** ****** */

typedef int ats_int_type ;
typedef unsigned int ats_uint_type ;

typedef long int ats_lint_type ;
typedef unsigned long int ats_ulint_type ;
typedef long long int ats_llint_type ;
typedef unsigned long long int ats_ullint_type ;

typedef short int ats_sint_type ;
typedef unsigned short int ats_usint_type ;

/* ****** ****** */

typedef int8_t ats_int8_type ;
typedef uint8_t ats_uint8_type ;

typedef int16_t ats_int16_type ;
typedef uint16_t ats_uint16_type ;

typedef int32_t ats_int32_type ;
typedef uint32_t ats_uint32_type ;

typedef int64_t ats_int64_type ;
typedef uint64_t ats_uint64_type ;

/* ****** ****** */

/*

// there is no definition for [ats_array0_type].

*/

typedef struct {
  ats_ptr_type data ;
  ats_int_type size ;
} ats_array1_type ;

typedef ats_array1_type *ats_array1_ptr_type ;
typedef ats_array1_ptr_type ats_array_type ;

typedef struct {
  ats_ptr_type data ;
  ats_int_type size_row ;
  ats_int_type size_col ;
} ats_array2_type ;

typedef ats_array2_type *ats_array2_ptr_type ;
typedef ats_array2_ptr_type ats_matrix_type ;

/* ****** ****** */

typedef struct { int tag ; } ats_sum_type ;
typedef ats_sum_type *ats_sum_ptr_type ;

/* ****** ****** */

typedef struct { int tag ; char *name ; } ats_exn_type ;
typedef ats_exn_type *ats_exn_ptr_type ;

/* ****** ****** */

typedef struct { void *closure_fun ; } ats_clo_type ;
typedef ats_clo_type *ats_clo_ptr_type ;
typedef void *ats_fun_ptr_type ;

/* ****** ****** */

#endif /* __ATS_TYPES_H */

/* end of [ats_types.h] */