| [bd85400] | 1 | //
 | 
|---|
 | 2 | // Cforall Version 1.0.0 Copyright (C) 2016 University of Waterloo
 | 
|---|
 | 3 | //
 | 
|---|
 | 4 | // The contents of this file are covered under the licence agreement in the
 | 
|---|
 | 5 | // file "LICENCE" distributed with Cforall.
 | 
|---|
 | 6 | //
 | 
|---|
 | 7 | // stdlib -- 
 | 
|---|
 | 8 | //
 | 
|---|
 | 9 | // Author           : Peter A. Buhr
 | 
|---|
 | 10 | // Created On       : Thu Jan 28 17:12:35 2016
 | 
|---|
 | 11 | // Last Modified By : Peter A. Buhr
 | 
|---|
| [a797e2b1] | 12 | // Last Modified On : Wed Jul  6 14:28:55 2016
 | 
|---|
 | 13 | // Update Count     : 99
 | 
|---|
| [bd85400] | 14 | //
 | 
|---|
 | 15 | 
 | 
|---|
 | 16 | //---------------------------------------
 | 
|---|
 | 17 | 
 | 
|---|
| [3849857] | 18 | extern "C" {
 | 
|---|
| [45161b4d] | 19 | #ifndef EXIT_FAILURE
 | 
|---|
 | 20 | #define EXIT_FAILURE    1                                                               // failing exit status
 | 
|---|
 | 21 | #define EXIT_SUCCESS    0                                                               // successful exit status
 | 
|---|
 | 22 | #endif // ! EXIT_FAILURE
 | 
|---|
| [3849857] | 23 | } // extern "C"
 | 
|---|
| [45161b4d] | 24 | 
 | 
|---|
 | 25 | //---------------------------------------
 | 
|---|
 | 26 | 
 | 
|---|
| [6e991d6] | 27 | extern "C" { void * malloc( size_t ); }                                 // use default C routine for void *
 | 
|---|
| [45161b4d] | 28 | forall( otype T ) T * malloc( void );
 | 
|---|
| [4040425] | 29 | forall( otype T ) T * malloc( char fill );
 | 
|---|
 | 30 | forall( otype T ) T * malloc( T * ptr, size_t size );
 | 
|---|
 | 31 | forall( otype T ) T * malloc( T * ptr, size_t size, unsigned char fill );
 | 
|---|
| [6e991d6] | 32 | extern "C" { void * calloc( size_t nmemb, size_t size ); } // use default C routine for void *
 | 
|---|
| [45161b4d] | 33 | forall( otype T ) T * calloc( size_t nmemb );
 | 
|---|
| [6e991d6] | 34 | extern "C" { void * realloc( void * ptr, size_t size ); } // use default C routine for void *
 | 
|---|
| [4040425] | 35 | forall( otype T ) T * realloc( T * ptr, size_t size );
 | 
|---|
 | 36 | forall( otype T ) T * realloc( T * ptr, size_t size, unsigned char fill );
 | 
|---|
| [bd85400] | 37 | 
 | 
|---|
| [4040425] | 38 | forall( otype T ) T * aligned_alloc( size_t alignment );
 | 
|---|
| [b72bad4f] | 39 | forall( otype T ) T * memalign( size_t alignment );             // deprecated
 | 
|---|
| [4040425] | 40 | forall( otype T ) int posix_memalign( T ** ptr, size_t alignment );
 | 
|---|
| [bd85400] | 41 | 
 | 
|---|
| [6b6597c] | 42 | extern "C" {
 | 
|---|
 | 43 | void * memset( void * ptr, int fill, size_t size );
 | 
|---|
 | 44 | void free( void * ptr );
 | 
|---|
 | 45 | } // extern "C"
 | 
|---|
| [0438091] | 46 | 
 | 
|---|
| [bd85400] | 47 | //---------------------------------------
 | 
|---|
 | 48 | 
 | 
|---|
 | 49 | int ato( const char * ptr );
 | 
|---|
 | 50 | unsigned int ato( const char * ptr );
 | 
|---|
 | 51 | long int ato( const char * ptr );
 | 
|---|
 | 52 | unsigned long int ato( const char * ptr );
 | 
|---|
 | 53 | long long int ato( const char * ptr );
 | 
|---|
 | 54 | unsigned long long int ato( const char * ptr );
 | 
|---|
 | 55 | float ato( const char * ptr );
 | 
|---|
 | 56 | double ato( const char * ptr );
 | 
|---|
 | 57 | long double ato( const char * ptr );
 | 
|---|
 | 58 | float _Complex ato( const char * ptr );
 | 
|---|
 | 59 | double _Complex ato( const char * ptr );
 | 
|---|
 | 60 | long double _Complex ato( const char * ptr );
 | 
|---|
 | 61 | 
 | 
|---|
 | 62 | int strto( const char * sptr, char ** eptr, int base );
 | 
|---|
 | 63 | unsigned int strto( const char * sptr, char ** eptr, int base );
 | 
|---|
 | 64 | long int strto( const char * sptr, char ** eptr, int base );
 | 
|---|
 | 65 | unsigned long int strto( const char * sptr, char ** eptr, int base );
 | 
|---|
 | 66 | long long int strto( const char * sptr, char ** eptr, int base );
 | 
|---|
 | 67 | unsigned long long int strto( const char * sptr, char ** eptr, int base );
 | 
|---|
 | 68 | float strto( const char * sptr, char ** eptr );
 | 
|---|
 | 69 | double strto( const char * sptr, char ** eptr );
 | 
|---|
 | 70 | long double strto( const char * sptr, char ** eptr );
 | 
|---|
 | 71 | float _Complex strto( const char * sptr, char ** eptr );
 | 
|---|
 | 72 | double _Complex strto( const char * sptr, char ** eptr );
 | 
|---|
 | 73 | long double _Complex strto( const char * sptr, char ** eptr );
 | 
|---|
 | 74 | 
 | 
|---|
 | 75 | //---------------------------------------
 | 
|---|
 | 76 | 
 | 
|---|
| [4040425] | 77 | forall( otype T | { int ?<?( T, T ); } )
 | 
|---|
| [a797e2b1] | 78 | T * bsearch( T key, const T * arr, size_t dimension );
 | 
|---|
| [bd85400] | 79 | 
 | 
|---|
| [4040425] | 80 | forall( otype T | { int ?<?( T, T ); } )
 | 
|---|
| [bd85400] | 81 | void qsort( const T * arr, size_t dimension );
 | 
|---|
 | 82 | 
 | 
|---|
 | 83 | //---------------------------------------
 | 
|---|
 | 84 | 
 | 
|---|
| [4040425] | 85 | forall( otype T | { T ?/?( T, T ); T ?%?( T, T ); } )
 | 
|---|
| [bd85400] | 86 | [ T, T ] div( T t1, T t2 );
 | 
|---|
 | 87 | 
 | 
|---|
 | 88 | //---------------------------------------
 | 
|---|
 | 89 | 
 | 
|---|
 | 90 | char abs( char );
 | 
|---|
| [6e991d6] | 91 | extern "C" { int abs( int ); }                                                  // use default C routine for int
 | 
|---|
| [bd85400] | 92 | long int abs( long int );
 | 
|---|
 | 93 | long long int abs( long long int );
 | 
|---|
 | 94 | float abs( float );
 | 
|---|
 | 95 | double abs( double );
 | 
|---|
 | 96 | long double abs( long double );
 | 
|---|
| [6e991d6] | 97 | float abs( float _Complex );
 | 
|---|
 | 98 | double abs( double _Complex );
 | 
|---|
 | 99 | long double abs( long double _Complex );
 | 
|---|
| [53ba273] | 100 | 
 | 
|---|
 | 101 | //---------------------------------------
 | 
|---|
 | 102 | 
 | 
|---|
| [0438091] | 103 | void rand48seed( long int s );
 | 
|---|
 | 104 | char rand48();
 | 
|---|
 | 105 | int rand48();
 | 
|---|
 | 106 | unsigned int rand48();
 | 
|---|
 | 107 | long int rand48();
 | 
|---|
 | 108 | unsigned long int rand48();
 | 
|---|
 | 109 | float rand48();
 | 
|---|
 | 110 | double rand48();
 | 
|---|
 | 111 | float _Complex rand48();
 | 
|---|
 | 112 | double _Complex rand48();
 | 
|---|
 | 113 | long double _Complex rand48();
 | 
|---|
| [bd85400] | 114 | 
 | 
|---|
 | 115 | //---------------------------------------
 | 
|---|
 | 116 | 
 | 
|---|
| [4040425] | 117 | forall( otype T | { int ?<?( T, T ); } )
 | 
|---|
| [a797e2b1] | 118 | T min( T t1, T t2 );
 | 
|---|
| [bd85400] | 119 | 
 | 
|---|
| [4040425] | 120 | forall( otype T | { int ?>?( T, T ); } )
 | 
|---|
| [a797e2b1] | 121 | T max( T t1, T t2 );
 | 
|---|
| [bd85400] | 122 | 
 | 
|---|
| [a9f2c13] | 123 | forall( otype T | { T min( T, T ); T max( T, T ); } )
 | 
|---|
| [a797e2b1] | 124 | T clamp( T value, T min_val, T max_val );
 | 
|---|
| [a9f2c13] | 125 | 
 | 
|---|
| [4040425] | 126 | forall( otype T )
 | 
|---|
| [bd85400] | 127 | void swap( T * t1, T * t2 );
 | 
|---|
 | 128 | 
 | 
|---|
 | 129 | // Local Variables: //
 | 
|---|
 | 130 | // mode: c //
 | 
|---|
 | 131 | // tab-width: 4 //
 | 
|---|
 | 132 | // End: //
 | 
|---|