source: libcfa/src/common.hfa @ 4e7c0fc0

// 
// 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: //