ats-lang-anairiats 0.2.11-1 / usr / lib / ats-anairiats-0.2.11 / prelude / CATS / integer.cats

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

/*
** ATS - Unleashing the Potential of Types!
** Copyright (C) 2002-2008 Hongwei Xi, Boston University
** All rights reserved
**
** 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_PRELUDE_INTEGER_CATS
#define ATS_PRELUDE_INTEGER_CATS

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

extern
int fprintf (FILE *stream, const char *format, ...) ;
// in [stdio.h]

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

/*
** these functions are declared in stdlib.h
*/
extern int atoi (const char* cs) ;
extern long int atol (const char* cs) ;
extern long long int atoll (const char* cs) ;

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

#include "ats_types.h"
#include "ats_memory.h"
#include "ats_exception.h"

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

// HX: implemented in $ATSHOME/prelude/DATS/integer.dats
extern ats_ptr_type atspre_tostrptr_llint (ats_llint_type i) ;
extern ats_ptr_type atspre_tostrptr_ullint (ats_ullint_type u) ;

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

/* signed integers */

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

ATSinline()
ats_int_type
atspre_int_of_char (ats_char_type c) { return c ; }

ATSinline()
ats_int_type
atspre_int_of_schar (ats_schar_type c) { return c ; }

ATSinline()
ats_int_type
atspre_int_of_uchar (ats_uchar_type c) { return c ; }

//

ATSinline()
ats_int_type
atspre_int_of_string
  (ats_ptr_type s) { return atoi((char*)s) ; }
/* end of [atspre_int_of_string] */

//

ATSinline()
ats_int_type
atspre_abs_int
  (ats_int_type i) { return (i >= 0 ? i : -i) ; }
// end of [atspre_abs_int]

ATSinline()
ats_int_type
atspre_neg_int (ats_int_type i) { return (-i) ; }

ATSinline()
ats_int_type
atspre_succ_int (ats_int_type i) { return (i + 1) ; }

ATSinline()
ats_int_type
atspre_pred_int (ats_int_type i) { return (i - 1) ; }

ATSinline()
ats_int_type
atspre_add_int_int (ats_int_type i1, ats_int_type i2) {
  return (i1 + i2) ;
}

ATSinline()
ats_int_type
atspre_sub_int_int (ats_int_type i1, ats_int_type i2) {
  return (i1 - i2) ;
}

ATSinline()
ats_int_type
atspre_mul_int_int (ats_int_type i1, ats_int_type i2) {
  return (i1 * i2) ;
}

ATSinline()
ats_int_type
atspre_div_int_int (ats_int_type i1, ats_int_type i2) {
  return (i1 / i2) ;
}

ATSinline()
ats_int_type
atspre_mod_int_int (ats_int_type i1, ats_int_type i2) {
  return (i1 % i2) ;
}

ATSinline()
ats_bool_type
atspre_lt_int_int (ats_int_type i1, ats_int_type i2) {
  return (i1 < i2) ;
}

ATSinline()
ats_bool_type
atspre_lte_int_int (ats_int_type i1, ats_int_type i2) {
  return (i1 <= i2) ;
}

ATSinline()
ats_bool_type
atspre_gt_int_int (ats_int_type i1, ats_int_type i2) {
  return (i1 > i2) ;
}

ATSinline()
ats_bool_type
atspre_gte_int_int (ats_int_type i1, ats_int_type i2) {
  return (i1 >= i2) ;
}

ATSinline()
ats_bool_type
atspre_eq_int_int (ats_int_type i1, ats_int_type i2) {
  return (i1 == i2) ;
}

ATSinline()
ats_bool_type
atspre_neq_int_int (ats_int_type i1, ats_int_type i2) {
  return (i1 != i2) ;
}

// compare, max and min

ATSinline()
ats_int_type
atspre_compare_int_int (ats_int_type i1, ats_int_type i2) {
  if (i1 < i2) return (-1) ;
  else if (i1 > i2) return ( 1) ;
  else return (0) ;
}

ATSinline()
ats_int_type
atspre_max_int_int (ats_int_type i1, ats_int_type i2) {
  return (i1 >= i2) ? i1 : i2 ;
}

ATSinline()
ats_int_type
atspre_min_int_int (ats_int_type i1, ats_int_type i2) {
  return (i1 <= i2) ? i1 : i2 ;
}

//
// square, cube and pow functions
//

ATSinline()
ats_int_type
atspre_square_int (ats_int_type i) {
  return (i * i) ;
}

ATSinline()
ats_int_type
atspre_cube_int (ats_int_type i) {
  return (i * i * i) ;
}

ATSinline()
ats_int_type
atspre_pow_int_int1 (ats_int_type x, ats_int_type n) {
  ats_int_type res = 1;
  while (n > 0) {
    if (n % 2 > 0) { res *= x ; x = x * x ; }
    else { x = x * x ; }
    n = n >> 1 ;
  }
  return res ;
}

// greatest common division

ATSinline()
ats_int_type
atspre_gcd_int_int (ats_int_type m0, ats_int_type n0) {
  int m, n, t ;

  if (m0 >= 0) m = m0; else m = -m0 ;
  if (n0 >= 0) n = n0; else n = -n0 ;
  while (m) { t = n % m ; n = m ; m = t ; }
  return n ;

}

// bitwise operations

ATSinline()
ats_int_type
atspre_asl_int_int1 (ats_int_type i, ats_int_type n) {
  return i << n ;
}

ATSinline()
ats_int_type
atspre_asr_int_int1 (ats_int_type i, ats_int_type n) {
  return i >> n ;
}

// print functions

ATSinline()
ats_void_type
atspre_fprint_int (ats_ptr_type out, ats_int_type i) {
  int n ;
  n = fprintf ((FILE*)out, "%d", i) ;
  if (n < 0) {
    ats_exit_errmsg (n, (ats_ptr_type)"exit(ATS): [fprint_int] failed.\n") ;
  } /* end of [if] */
  return ;
}

ATSinline()
ats_void_type
atspre_print_int (ats_int_type i) {
//  atspre_stdout_view_get () ;
  atspre_fprint_int ((ats_ptr_type)stdout, i) ;
//  atspre_stdout_view_set () ;
  return ;
}

ATSinline()
ats_void_type
atspre_prerr_int (ats_int_type i) {
//  atspre_stderr_view_get () ;
  atspre_fprint_int ((ats_ptr_type)stderr, i) ;
//  atspre_stderr_view_set () ;
  return ;
}

//

ATSinline()
ats_void_type
atspre_fscan_int_exn (
  ats_ptr_type inp, ats_ref_type r
) {
  int n ;
  n = fscanf ((FILE*)inp, "%d", (int*)r) ;
  if (n <= 0) {
    ats_exit_errmsg (n, (ats_ptr_type)"exit(ATS): [fscan_int_exn] failed.\n") ;
  } // end of [if]
  return ;
} /* end of [atspre_fscan_int_exn] */

//

ATSinline()
ats_ptr_type
atspre_tostrptr_int
  (ats_int_type i) { return atspre_tostrptr_llint (i) ; }
// end of [atspre_tostrptr_int]

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

/* unsigned integers */

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

ATSinline()
ats_uint_type
atspre_uint_of_char
  (ats_char_type c) { return ((unsigned char)c) ; }
// end of [atspre_uint_of_char]

ATSinline()
ats_uint_type
atspre_uint_of_uchar
  (ats_uchar_type c) { return ((unsigned char)c) ; }
// end of [atspre_uint_of_uchar]

ATSinline()
ats_uint_type
atspre_uint_of_double
  (ats_double_type d) { return (ats_uint_type)d ; }
// end of [atspre_uint_of_double]

ATSinline()
ats_uint_type
atspre_succ_uint (ats_uint_type i) { return (i + 1) ; }

ATSinline()
ats_uint_type
atspre_pred_uint (ats_uint_type i) { return (i - 1) ; }

ATSinline()
ats_uint_type
atspre_add_uint_uint (ats_uint_type i1, ats_uint_type i2) {
  return (i1 + i2) ;
} // end of [atspre_add_uint_uint]

ATSinline()
ats_uint_type
atspre_sub_uint_uint (ats_uint_type i1, ats_uint_type i2) {
  return (i1 - i2) ;
} // end of [atspre_sub_uint_uint]

ATSinline()
ats_uint_type
atspre_mul_uint_uint (ats_uint_type i1, ats_uint_type i2) {
  return (i1 * i2) ;
} // end of [atspre_mul_uint_uint]

ATSinline()
ats_uint_type
atspre_div_uint_uint (ats_uint_type i1, ats_uint_type i2) {
  return (i1 / i2) ;
} // end of [atspre_div_uint_uint]

ATSinline()
ats_uint_type
atspre_mod_uint_uint (ats_uint_type i1, ats_uint_type i2) {
  return (i1 % i2) ;
} // end of [atspre_mod_uint_uint]

ATSinline()
ats_bool_type
atspre_lt_uint_uint (ats_uint_type i1, ats_uint_type i2) {
  return (i1 < i2) ;
} // end of [atspre_lt_uint_uint]

ATSinline()
ats_bool_type
atspre_lte_uint_uint (ats_uint_type i1, ats_uint_type i2) {
  return (i1 <= i2) ;
} // end of [atspre_lte_uint_uint]

ATSinline()
ats_bool_type
atspre_gt_uint_uint (ats_uint_type i1, ats_uint_type i2) {
  return (i1 > i2) ;
} // end of [atspre_gt_uint_uint]

ATSinline()
ats_bool_type
atspre_gte_uint_uint (ats_uint_type i1, ats_uint_type i2) {
  return (i1 >= i2) ;
} // end of [atspre_gte_uint_uint]

ATSinline()
ats_bool_type
atspre_eq_uint_uint (ats_uint_type i1, ats_uint_type i2) {
  return (i1 == i2) ;
} // end of [atspre_eq_uint_uint]

ATSinline()
ats_bool_type
atspre_neq_uint_uint (ats_uint_type i1, ats_uint_type i2) {
  return (i1 != i2) ;
} // end of [atspre_neq_uint_uint]

//
// compare, max and min
//

ATSinline()
ats_int_type
atspre_compare_uint_uint (ats_uint_type i1, ats_uint_type i2) {
  if (i1 < i2) return (-1) ;
  else if (i1 > i2) return ( 1) ;
  else return (0) ;
}

ATSinline()
ats_uint_type
atspre_max_uint_uint (ats_uint_type i1, ats_uint_type i2) {
  return (i1 >= i2 ? i1 : i2) ;
}

ATSinline()
ats_uint_type
atspre_min_uint_uint (ats_uint_type i1, ats_uint_type i2) {
  return (i1 <= i2 ? i1 : i2) ;
}

ATSinline()
ats_uint_type
atspre_square_uint (ats_uint_type u) { return (u * u) ; }

ATSinline()
ats_uint_type
atspre_cube_uint (ats_uint_type u) { return (u * u * u) ; }

/*
** bitwise operations
*/

ATSinline()
ats_uint_type
atspre_lnot_uint (ats_uint_type x) { return (~x) ; }

ATSinline()
ats_uint_type
atspre_land_uint_uint (ats_uint_type x, ats_uint_type y) {
  return (x & y) ;
}

ATSinline()
ats_uint_type
atspre_lor_uint_uint (ats_uint_type x, ats_uint_type y) {
  return (x | y) ;
}

ATSinline()
ats_uint_type
atspre_lxor_uint_uint (ats_uint_type x, ats_uint_type y) {
  return (x ^ y) ;
}

/*
** logical shifting operations
*/

ATSinline()
ats_uint_type
atspre_lsl_uint_int1 (
  ats_uint_type u, ats_int_type n
) {
  return (u << n) ;
} // end of [atspre_lsl_uint_int1]

ATSinline()
ats_uint_type
atspre_lsr_uint_int1 (
  ats_uint_type u, ats_int_type n
) {
  return (u >> n) ;
} // end of [atspre_lsr_uint_int1]

#define atspre_lsl_uint_uint atspre_lsl_uint_int1
#define atspre_lsr_uint_uint atspre_lsr_uint_int1

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

/*
** print functions
*/

ATSinline()
ats_void_type
atspre_fprint_uint (ats_ptr_type out, ats_uint_type u) {
  int n = fprintf ((FILE*)out, "%u", u) ;
  if (n < 0) {
    ats_exit_errmsg (n, (ats_ptr_type)"exit(ATS): [fprint_uint] failed.\n") ;
  }
  return ;
} /* end of [atspre_fprint_uint] */

ATSinline()
ats_void_type
atspre_print_uint (
  ats_uint_type u
) {
//  atspre_stdout_view_get () ;
  atspre_fprint_uint((ats_ptr_type)stdout, u) ;
//  atspre_stdout_view_set () ;
  return ;
} /* end of [atspre_print_uint] */

ATSinline()
ats_void_type
atspre_prerr_uint (
  ats_uint_type u
) {
//  atspre_stderr_view_get () ;
  atspre_fprint_uint((ats_ptr_type)stderr, u) ;
//  atspre_stderr_view_set () ;
  return ;
} /* end of [atspre_prerr_uint] */

/*
** stringization
*/

ATSinline()
ats_ptr_type
atspre_tostrptr_uint
  (ats_uint_type u) { return atspre_tostrptr_ullint (u) ; }
// end of [atspre_tostrptr_uint]

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

#define atspre_int1_of_string atspre_int_of_string

#define atspre_iabs atspre_abs_int
#define atspre_ineg atspre_neg_int

#define atspre_isucc atspre_succ_int
#define atspre_ipred atspre_pred_int

#define atspre_iadd atspre_add_int_int
#define atspre_isub atspre_sub_int_int
#define atspre_imul atspre_mul_int_int
#define atspre_imul1 atspre_mul_int_int
#define atspre_imul2 atspre_mul_int_int
#define atspre_idiv atspre_div_int_int
#define atspre_idiv1 atspre_div_int_int

#define atspre_nmul atspre_mul_int_int
#define atspre_ndiv atspre_div_int_int
// HX: there is no [ndiv1]
#define atspre_ndiv2 atspre_div_int_int

#define atspre_nmod atspre_mod_int_int
#define atspre_nmod1 atspre_mod_int_int
#define atspre_nmod2 atspre_mod_int_int

#define atspre_ilt atspre_lt_int_int
#define atspre_ilte atspre_lte_int_int
#define atspre_igt atspre_gt_int_int
#define atspre_igte atspre_gte_int_int
#define atspre_ieq atspre_eq_int_int
#define atspre_ineq atspre_neq_int_int

#define atspre_icompare atspre_compare_int_int
#define atspre_imax atspre_max_int_int
#define atspre_imin atspre_min_int_int

#define atspre_ipow atspre_pow_int_int1
#define atspre_npow atspre_pow_int_int1

ATSinline()
ats_int_type
atspre_ihalf (ats_int_type n) { return (n / 2) ; }

ATSinline()
ats_int_type
atspre_nhalf (ats_int_type n) { return (n >> 1) ; }

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

#define atspre_uadd atspre_add_uint_uint
#define atspre_usub atspre_sub_uint_uint
#define atspre_umul atspre_mul_uint_uint
#define atspre_udiv atspre_div_uint_uint
#define atspre_umod atspre_mod_uint_uint
// HX: there is no [nmod1]
#define atspre_umod2 atspre_mod_uint_uint

//

ATSinline()
ats_int_type
atspre_uimod (
  ats_uint_type u1, ats_int_type i2
) {
  return (u1 % ((ats_uint_type)i2)) ;
} /* end of [atspre_uimod] */
#define atspre_uimod2 ats_uimod

#define atspre_ult atspre_lt_uint_uint
#define atspre_ulte atspre_lte_uint_uint
#define atspre_ugt atspre_gt_uint_uint
#define atspre_ugte atspre_gte_uint_uint
#define atspre_ueq atspre_eq_uint_uint
#define atspre_uneq atspre_neq_uint_uint

#define atspre_ucompare atspre_compare_uint_uint
#define atspre_umax atspre_max_uint_uint
#define atspre_umin atspre_min_uint_uint

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

/* signed long integers */

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

ATSinline()
ats_lint_type
atspre_lint_of_int (ats_int_type i) { return i ; }

ATSinline()
ats_int_type
atspre_int_of_lint (ats_lint_type li) { return li ; }

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

ATSinline()
ats_lint_type
atspre_lint_of_uint (ats_uint_type u) { return u ; }

ATSinline()
ats_uint_type
atspre_uint_of_lint (ats_lint_type li) { return li ; }

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

ATSinline()
ats_lint_type
atspre_lint_of_string
  (ats_ptr_type s) { return atol((char*)s) ; }
// end of [atspre_lint_of_string]

// arithmetic functions and comparison functions

ATSinline()
ats_lint_type
atspre_abs_lint (ats_lint_type i) {
  return (i >= 0 ? i : -i) ;
}

ATSinline()
ats_lint_type
atspre_neg_lint (ats_lint_type i) {
  return (-i) ;
}

ATSinline()
ats_lint_type
atspre_succ_lint (ats_lint_type i) { return (i + 1) ; }

ATSinline()
ats_lint_type
atspre_pred_lint (ats_lint_type i) { return (i - 1) ; }

ATSinline()
ats_lint_type
atspre_add_lint_lint (ats_lint_type i1, ats_lint_type i2) {
  return (i1 + i2) ;
}

ATSinline()
ats_lint_type
atspre_sub_lint_lint (ats_lint_type i1, ats_lint_type i2) {
  return (i1 - i2) ;
}

ATSinline()
ats_lint_type
atspre_mul_lint_lint (ats_lint_type i1, ats_lint_type i2) {
  return (i1 * i2) ;
}

ATSinline()
ats_lint_type
atspre_div_lint_lint (ats_lint_type i1, ats_lint_type i2) {
  return (i1 / i2) ;
}

ATSinline()
ats_lint_type
atspre_mod_lint_lint (ats_lint_type i1, ats_lint_type i2) {
  return (i1 % i2) ;
}

ATSinline()
ats_bool_type
atspre_lt_lint_lint (ats_lint_type i1, ats_lint_type i2) {
  return (i1 < i2) ;
}

ATSinline()
ats_bool_type
atspre_lte_lint_lint (ats_lint_type i1, ats_lint_type i2) {
  return (i1 <= i2) ;
}

ATSinline()
ats_bool_type
atspre_gt_lint_lint (ats_lint_type i1, ats_lint_type i2) {
  return (i1 > i2) ;
}

ATSinline()
ats_bool_type
atspre_gte_lint_lint (ats_lint_type i1, ats_lint_type i2) {
  return (i1 >= i2) ;
}

ATSinline()
ats_bool_type
atspre_eq_lint_lint (ats_lint_type i1, ats_lint_type i2) {
  return (i1 == i2) ;
}

ATSinline()
ats_bool_type
atspre_neq_lint_lint (ats_lint_type i1, ats_lint_type i2) {
  return (i1 != i2) ;
}

// compare, max and min

ATSinline()
ats_int_type
atspre_compare_lint_lint (ats_lint_type i1, ats_lint_type i2) {
  if (i1 < i2) return (-1) ;
  else if (i1 > i2) return ( 1) ;
  else return (0) ;
}

ATSinline()
ats_lint_type
atspre_max_lint_lint (ats_lint_type i1, ats_lint_type i2) {
  return (i1 >= i2 ? i1 : i2) ;
}

ATSinline()
ats_lint_type
atspre_min_lint_lint (ats_lint_type i1, ats_lint_type i2) {
  return (i1 <= i2 ? i1 : i2) ;
}

// print functions

ATSinline()
ats_void_type
atspre_fprint_lint (ats_ptr_type out, ats_lint_type i) {
  int n ;
  n = fprintf ((FILE*)out, "%li", i) ;
  if (n < 0) {
    ats_exit_errmsg (n, (ats_ptr_type)"exit(ATS): [fprint_lint] failed.\n") ;
  }
  return ;
}

ATSinline()
ats_void_type
atspre_print_lint (ats_lint_type i) {
//  atspre_stdout_view_get () ;
  atspre_fprint_lint ((ats_ptr_type)stdout, i) ;
//  atspre_stdout_view_set () ;
  return ;
}

ATSinline()
ats_void_type
atspre_prerr_lint (ats_lint_type i) {
//  atspre_stderr_view_get () ;
  atspre_fprint_lint ((ats_ptr_type)stderr, i) ;
//  atspre_stderr_view_set () ;
  return ;
}

//

ATSinline()
ats_ptr_type
atspre_tostrptr_lint
  (ats_lint_type i) { return atspre_tostrptr_llint (i) ; }
// end of [atspre_tostrptr_lint]

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

/* unsigned long integers */

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

ATSinline()
ats_ulint_type
atspre_ulint_of_int (ats_int_type i) { return i ; }

ATSinline()
ats_int_type
atspre_int_of_ulint (ats_ulint_type ul) { return ul ; }

//

ATSinline()
ats_ulint_type
atspre_ulint_of_uint (ats_uint_type u) { return u ; }

ATSinline()
ats_uint_type
atspre_uint_of_ulint (ats_ulint_type ul) { return ul ; }

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

ATSinline()
ats_ulint_type
atspre_succ_ulint (ats_ulint_type i) { return (i + 1) ; }

ATSinline()
ats_ulint_type
atspre_pred_ulint (ats_ulint_type i) { return (i - 1) ; }

ATSinline()
ats_ulint_type
atspre_add_ulint_ulint (ats_ulint_type i1, ats_ulint_type i2) {
  return (i1 + i2) ;
}

ATSinline()
ats_ulint_type
atspre_sub_ulint_ulint (ats_ulint_type i1, ats_ulint_type i2) {
  return (i1 - i2) ;
}

ATSinline()
ats_ulint_type
atspre_mul_ulint_ulint (ats_ulint_type i1, ats_ulint_type i2) {
  return (i1 * i2) ;
}

ATSinline()
ats_ulint_type
atspre_div_ulint_ulint (ats_ulint_type i1, ats_ulint_type i2) {
  return (i1 / i2) ;
}

ATSinline()
ats_ulint_type
atspre_mod_ulint_ulint (ats_ulint_type i1, ats_ulint_type i2) {
  return (i1 % i2) ;
}

ATSinline()
ats_bool_type
atspre_lt_ulint_ulint (ats_ulint_type i1, ats_ulint_type i2) {
  return (i1 < i2) ;
}

ATSinline()
ats_bool_type
atspre_lte_ulint_ulint (ats_ulint_type i1, ats_ulint_type i2) {
  return (i1 <= i2) ;
}

ATSinline()
ats_bool_type
atspre_gt_ulint_ulint (ats_ulint_type i1, ats_ulint_type i2) {
  return (i1 > i2) ;
}

ATSinline()
ats_bool_type
atspre_gte_ulint_ulint (ats_ulint_type i1, ats_ulint_type i2) {
  return (i1 >= i2) ;
}

ATSinline()
ats_bool_type
atspre_eq_ulint_ulint (ats_ulint_type i1, ats_ulint_type i2) {
  return (i1 == i2) ;
}

ATSinline()
ats_bool_type
atspre_neq_ulint_ulint (ats_ulint_type i1, ats_ulint_type i2) {
  return (i1 != i2) ;
}

//
// compare, max and min
//

ATSinline()
ats_int_type
atspre_compare_ulint_ulint
  (ats_ulint_type i1, ats_ulint_type i2) {
  if (i1 < i2) return (-1) ;
  else if (i1 > i2) return ( 1) ;
  else return (0) ;
}

ATSinline()
ats_ulint_type
atspre_max_ulint_ulint (ats_ulint_type i1, ats_ulint_type i2) {
  return (i1 >= i2 ? i1 : i2) ;
}

ATSinline()
ats_ulint_type
atspre_min_ulint_ulint (ats_ulint_type i1, ats_ulint_type i2) {
  return (i1 <= i2 ? i1 : i2) ;
}

//
// bitwise operations
//

ATSinline()
ats_ulint_type
atspre_lnot_ulint (ats_ulint_type x) { return (~x) ; }

ATSinline()
ats_ulint_type
atspre_land_ulint_ulint (ats_ulint_type x, ats_ulint_type y) {
  return (x & y) ;
}

ATSinline()
ats_ulint_type
atspre_lor_ulint_ulint (ats_ulint_type x, ats_ulint_type y) {
  return (x | y) ;
}

ATSinline()
ats_ulint_type
atspre_lxor_ulint_ulint (ats_ulint_type x, ats_ulint_type y) {
  return (x ^ y) ;
}

ATSinline()
ats_ulint_type
atspre_lsl_ulint_int1 (ats_ulint_type i, ats_int_type n) {
  return i << n ;
}

ATSinline()
ats_ulint_type
atspre_lsr_ulint_int1 (ats_ulint_type i, ats_int_type n) {
  return i >> n ;
}

//
// print functions
//

ATSinline()
ats_void_type
atspre_fprint_ulint
  (ats_ptr_type out, ats_ulint_type i) {
  int n = fprintf ((FILE*)out, "%lu", i) ;
  if (n < 0) {
    ats_exit_errmsg (n, (ats_ptr_type)"exit(ATS): [fprint_ulint] failed.\n") ;
  }
  return ;
} // end of [atspre_fprint_ulint]

ATSinline()
ats_void_type
atspre_print_ulint
  (ats_ulint_type i) {
//  atspre_stdout_view_get () ;
  atspre_fprint_ulint ((ats_ptr_type)stdout, i) ;
//  atspre_stdout_view_set () ;
  return ;
} // end of [atspre_print_ulint]

ATSinline()
ats_void_type
atspre_prerr_ulint
  (ats_ulint_type i) {
//  atspre_stderr_view_get () ;
  atspre_fprint_ulint ((ats_ptr_type)stderr, i) ;
//  atspre_stderr_view_set () ;
  return ;
} // end of [atspre_prerr_ulint]

//

ATSinline()
ats_ptr_type
atspre_tostrptr_ulint
  (ats_ulint_type i) { return atspre_tostrptr_ullint (i) ; }
// end of [atspre_tostrptr_ulint]

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

//
// long long integers
//

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

ATSinline()
ats_llint_type
atspre_llint_of_int
  (ats_int_type i) { return ((ats_llint_type)i) ; }
// end of [atspre_llint_of_int]

ATSinline()
ats_int_type
atspre_int_of_llint
  (ats_llint_type lli) { return ((ats_int_type)lli) ; }
// end of [atspre_int_of_llint]

#if (0)
//
// HX: defined in $ATSHOME/prelude/CATS/float.cats
//
ATSinline()
ats_llint_type
atspre_llint_of_double
  (ats_double_type d) { return ((ats_llint_type)d) ; }
// end of [atspre_llint_of_double]
#endif // end of [#if 0]

ATSinline()
ats_llint_type
atspre_llint_of_string
  (ats_ptr_type s) { return atoll((char*)s) ; }
// end of [atspre_llint_of_string]

//
// arithmetic functions and comparison functions
//

ATSinline()
ats_llint_type
atspre_abs_llint (ats_llint_type i) {
  return (i >= 0 ? i : -i) ;
}

ATSinline()
ats_llint_type
atspre_neg_llint (ats_llint_type i) {
  return (-i) ;
}

ATSinline()
ats_llint_type
atspre_succ_llint (ats_llint_type i) { return (i + 1) ; }

ATSinline()
ats_llint_type
atspre_pred_llint (ats_llint_type i) { return (i - 1) ; }

ATSinline()
ats_llint_type
atspre_add_llint_llint (ats_llint_type i1, ats_llint_type i2) {
  return (i1 + i2) ;
}

ATSinline()
ats_llint_type
atspre_sub_llint_llint (ats_llint_type i1, ats_llint_type i2) {
  return (i1 - i2) ;
}

ATSinline()
ats_llint_type
atspre_mul_llint_llint (ats_llint_type i1, ats_llint_type i2) {
  return (i1 * i2) ;
}

ATSinline()
ats_llint_type
atspre_div_llint_llint (ats_llint_type i1, ats_llint_type i2) {
  return (i1 / i2) ;
}

ATSinline()
ats_llint_type
atspre_mod_llint_llint (ats_llint_type i1, ats_llint_type i2) {
  return (i1 % i2) ;
}

ATSinline()
ats_bool_type
atspre_lt_llint_llint (ats_llint_type i1, ats_llint_type i2) {
  return (i1 < i2) ;
}

ATSinline()
ats_bool_type
atspre_lte_llint_llint (ats_llint_type i1, ats_llint_type i2) {
  return (i1 <= i2) ;
}

ATSinline()
ats_bool_type
atspre_gt_llint_llint (ats_llint_type i1, ats_llint_type i2) {
  return (i1 > i2) ;
}

ATSinline()
ats_bool_type
atspre_gte_llint_llint (ats_llint_type i1, ats_llint_type i2) {
  return (i1 >= i2) ;
}

ATSinline()
ats_bool_type
atspre_eq_llint_llint (ats_llint_type i1, ats_llint_type i2) {
  return (i1 == i2) ;
}

ATSinline()
ats_bool_type
atspre_neq_llint_llint (ats_llint_type i1, ats_llint_type i2) {
  return (i1 != i2) ;
}

// compare, max and min

ATSinline()
ats_int_type
atspre_compare_llint_llint
  (ats_llint_type i1, ats_llint_type i2) {
  if (i1 < i2) return (-1) ;
  else if (i1 > i2) return ( 1) ;
  else return (0) ;
}

ATSinline()
ats_llint_type
atspre_max_llint_llint (
  ats_llint_type i1, ats_llint_type i2
) {
  return (i1 >= i2 ? i1 : i2) ;
} // end of [atspre_max_llint_llint]

ATSinline()
ats_llint_type
atspre_min_llint_llint (
  ats_llint_type i1, ats_llint_type i2
) {
  return (i1 <= i2 ? i1 : i2) ;
} // end of [atspre_min_llint_llint]

//
// print functions
//

ATSinline()
ats_void_type
atspre_fprint_llint (
  ats_ptr_type out, ats_llint_type i
) {
  int n = fprintf ((FILE*)out, "%lli", i) ;
  if (n < 0) {
    ats_exit_errmsg (n, (ats_ptr_type)"exit(ATS): [fprint_llint] failed.\n") ;
  }
  return ;
} // end of [atspre_fprint_llint]

ATSinline()
ats_void_type
atspre_print_llint
  (ats_llint_type lli) {
//  atspre_stdout_view_get () ;
  atspre_fprint_llint ((ats_ptr_type)stdout, lli) ;
//  atspre_stdout_view_set () ;
  return ;
} // end of [atspre_print_llint]

ATSinline()
ats_void_type
atspre_prerr_llint
  (ats_llint_type lli) {
//  atspre_stderr_view_get () ;
  atspre_fprint_llint ((ats_ptr_type)stderr, lli) ;
//  atspre_stderr_view_set () ;
  return ;
} // end of [atspre_prerr_llint]

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

//
/* unsigned long long integers */
//

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

ATSinline()
ats_ullint_type
atspre_ullint_of_int
  (ats_int_type i) { return ((ats_ullint_type)i) ; }
// end of [atspre_ullint_of_int]

ATSinline()
ats_ullint_type
atspre_ullint_of_uint
  (ats_uint_type u) { return ((ats_ullint_type)u) ; }
// end of [atspre_ullint_of_uint]

#if (0)
//
// HX: defined in $ATSHOME/prelude/CATS/float.cats
//
ATSinline()
ats_ullint_type
atspre_ullint_of_double
  (ats_double_type d) { return ((ats_ullint_type)d) ; }
// end of [atspre_ullint_of_double]
#endif // end of [#if 0]

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

ATSinline()
ats_ullint_type
atspre_succ_ullint (ats_ullint_type i) { return (i + 1) ; }

ATSinline()
ats_ullint_type
atspre_pred_ullint (ats_ullint_type i) { return (i - 1) ; }

ATSinline()
ats_ullint_type
atspre_add_ullint_ullint (
  ats_ullint_type i1, ats_ullint_type i2
) {
  return (i1 + i2) ;
} // end of [atspre_add_ullint_ullint]

ATSinline()
ats_ullint_type
atspre_sub_ullint_ullint (
  ats_ullint_type i1, ats_ullint_type i2
) {
  return (i1 - i2) ;
} // end of [atspre_sub_ullint_ullint]

ATSinline()
ats_ullint_type
atspre_mul_ullint_ullint (ats_ullint_type i1, ats_ullint_type i2) {
  return (i1 * i2) ;
}

ATSinline()
ats_ullint_type
atspre_div_ullint_ullint (ats_ullint_type i1, ats_ullint_type i2) {
  return (i1 / i2) ;
}

ATSinline()
ats_ullint_type
atspre_mod_ullint_ullint (ats_ullint_type i1, ats_ullint_type i2) {
  return (i1 % i2) ;
}

ATSinline()
ats_bool_type
atspre_lt_ullint_ullint (ats_ullint_type i1, ats_ullint_type i2) {
  return (i1 < i2) ;
}

ATSinline()
ats_bool_type
atspre_lte_ullint_ullint (ats_ullint_type i1, ats_ullint_type i2) {
  return (i1 <= i2) ;
}

ATSinline()
ats_bool_type
atspre_gt_ullint_ullint (ats_ullint_type i1, ats_ullint_type i2) {
  return (i1 > i2) ;
}

ATSinline()
ats_bool_type
atspre_gte_ullint_ullint (ats_ullint_type i1, ats_ullint_type i2) {
  return (i1 >= i2) ;
}

ATSinline()
ats_bool_type
atspre_eq_ullint_ullint (ats_ullint_type i1, ats_ullint_type i2) {
  return (i1 == i2) ;
}

ATSinline()
ats_bool_type
atspre_neq_ullint_ullint (ats_ullint_type i1, ats_ullint_type i2) {
  return (i1 != i2) ;
}

//
// compare, max and min
//

ATSinline()
ats_int_type
atspre_compare_ullint_ullint
  (ats_ullint_type i1, ats_ullint_type i2) {
  if (i1 < i2) return (-1) ;
  else if (i1 > i2) return ( 1) ;
  else return (0) ;
} // end of [atspre_compare_ullint_ullint]

ATSinline()
ats_ullint_type
atspre_max_ullint_ullint (ats_ullint_type i1, ats_ullint_type i2) {
  return (i1 >= i2 ? i1 : i2) ;
}

ATSinline()
ats_ullint_type
atspre_min_ullint_ullint (ats_ullint_type i1, ats_ullint_type i2) {
  return (i1 <= i2 ? i1 : i2) ;
}

//
// print functions
//

ATSinline()
ats_void_type
atspre_fprint_ullint (
  ats_ptr_type out, ats_ullint_type i
) {
  int n = fprintf ((FILE*)out, "%llu", i) ;
  if (n < 0) {
    ats_exit_errmsg (n, (ats_ptr_type)"exit(ATS): [fprint_ullint] failed.\n") ;
  }
  return ;
} // end of [atspre_fprint_ullint]

ATSinline()
ats_void_type
atspre_print_ullint
  (ats_ullint_type i) {
//  atspre_stdout_view_get () ;
  atspre_fprint_ullint ((ats_ptr_type)stdout, i) ;
//  atspre_stdout_view_set () ;
  return ;
} // end of [atspre_print_ullint]

ATSinline()
ats_void_type
atspre_prerr_ullint
  (ats_ullint_type i) {
//  atspre_stderr_view_get () ;
  atspre_fprint_ullint ((ats_ptr_type)stderr, i) ;
//  atspre_stderr_view_set () ;
  return ;
} // end of [atspre_prerr_ullint]

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

#endif /* ATS_PRELUDE_INTEGER_CATS */

/* end of [integer.cats] */