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