// 
// Cforall Version 1.0.0 Copyright (C) 2016 University of Waterloo
//
// The contents of this file are covered under the licence agreement in the
// file "LICENCE" distributed with Cforall.
// 
// common -- 
// 
// Author           : Peter A. Buhr
// Created On       : Wed Jul 11 17:54:36 2018
// Last Modified By : Peter A. Buhr
// Last Modified On : Thu Jul 12 08:02:18 2018
// Update Count     : 5
// 

#pragma once

//---------------------------------------

[ int, int ] div( int num, int denom );
[ long int, long int ] div( long int num, long int denom );
[ long long int, long long int ] div( long long int num, long long int denom );
forall( otype T | { T ?/?( T, T ); T ?%?( T, T ); } )
[ T, T ] div( T num, T demon );

//---------------------------------------

extern "C" {
	int abs( int );										// stdlib.h
	long int labs( long int );
	long long int llabs( long long int );
} // extern "C"

static inline {
	unsigned char abs( signed char v ) { return abs( (int)v ); }
	// use default C routine for int
	unsigned long int abs( long int v ) { return labs( v ); }
	unsigned long long int abs( long long int v ) { return llabs( v ); }
} // distribution

extern "C" {
	double fabs( double );								// math.h
	float fabsf( float );
	long double fabsl( long double );
} // extern "C"
static inline {
	float abs( float x ) { return fabsf( x ); }
	double abs( double x ) { return fabs( x ); }
	long double abs( long double x ) { return fabsl( x ); }
} // distribution

extern "C" {
	double cabs( double _Complex );						// complex.h
	float cabsf( float _Complex );
	long double cabsl( long double _Complex );
} // extern "C"
static inline {
	float abs( float _Complex x ) { return cabsf( x ); }
	double abs( double _Complex x ) { return cabs( x ); }
	long double abs( long double _Complex x ) { return cabsl( x ); }
} // distribution

forall( otype T | { void ?{}( T &, zero_t ); int ?<?( T, T ); T -?( T ); } )
T abs( T );

//---------------------------------------

static inline {
	forall( otype T | { int ?<?( T, T ); } )
	T min( T t1, T t2 ) { return t1 < t2 ? t1 : t2; }

	forall( otype T | { int ?>?( T, T ); } )
	T max( T t1, T t2 ) { return t1 > t2 ? t1 : t2; }

	forall( otype T | { T min( T, T ); T max( T, T ); } )
	T clamp( T value, T min_val, T max_val ) { return max( min_val, min( value, max_val ) ); }

	forall( otype T )
	void swap( T & v1, T & v2 ) { T temp = v1; v1 = v2; v2 = temp; }
} // distribution

// Local Variables: //
// mode: c //
// tab-width: 4 //
// End: //