Changes in src/libcfa/stdlib.c [8bc4ef8:45161b4d]

File:

• src/libcfa/stdlib.c (modified) (8 diffs)

src/libcfa/stdlib.c

@@ -10 +10 @@
 // Created On       : Thu Jan 28 17:10:29 2016
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Thu Apr 28 07:54:21 2016
-// Update Count     : 166
+// Last Modified On : Wed Apr 13 14:49:58 2016
+// Update Count     : 155
 //
 
@@ -24 +24 @@
 #include <malloc.h>                                                                             // malloc_usable_size
 #include <math.h>                                                                               // fabsf, fabs, fabsl
-#include <complex.h>                                                                    // _Complex_I
+#include <complex.h>                                                                    // _Complex_I, cabsf, cabs, cabsl
 } // extern "C"
 
@@ -34 +34 @@
         //printf( "malloc3\n" );
         T * ptr = (T *)malloc( sizeof(T) );
-    return memset( ptr, (int)fill, sizeof(T) );
+    return memset( ptr );
 } // malloc
 
@@ -78 +78 @@
 } // posix_memalign
 
+forall( otype T ) T * memset( T * ptr, unsigned char fill ) { // use default value '\0' for fill
+        //printf( "memset1\n" );
+    return (T *)memset( ptr, (int)fill, malloc_usable_size( ptr ) );
+} // memset
+forall( otype T ) T * memset( T * ptr ) {                               // remove when default value available
+        //printf( "memset2\n" );
+    return (T *)memset( ptr, 0, malloc_usable_size( ptr ) );
+} // memset
+
 //---------------------------------------
 
 int ato( const char * ptr ) {
         int i;
-        if ( sscanf( ptr, "%d", &i ) == EOF ) {}
+        if ( sscanf( ptr, "%d", &i ) == EOF ) {}                        // check return code
         return i;
 }
 unsigned int ato( const char * ptr ) {
         unsigned int ui;
-        if ( sscanf( ptr, "%u", &ui ) == EOF ) {}
+        if ( sscanf( ptr, "%u", &ui ) == EOF ) {}                       // check return code
         return ui;
 }
 long int ato( const char * ptr ) {
         long int li;
-        if ( sscanf( ptr, "%ld", &li ) == EOF ) {}
+        if ( sscanf( ptr, "%ld", &li ) == EOF ) {}                      // check return code
         return li;
 }
 unsigned long int ato( const char * ptr ) {
         unsigned long int uli;
-        if ( sscanf( ptr, "%lu", &uli ) == EOF ) {}
+        if ( sscanf( ptr, "%lu", &uli ) == EOF ) {}                     // check return code
         return uli;
 }
 long long int ato( const char * ptr ) {
         long long int lli;
-        if ( sscanf( ptr, "%lld", &lli ) == EOF ) {}
+        if ( sscanf( ptr, "%lld", &lli ) == EOF ) {}            // check return code
         return lli;
 }
 unsigned long long int ato( const char * ptr ) {
         unsigned long long int ulli;
-        if ( sscanf( ptr, "%llu", &ulli ) == EOF ) {}
+        if ( sscanf( ptr, "%llu", &ulli ) == EOF ) {}           // check return code
         return ulli;
 }
@@ -113 +122 @@
 float ato( const char * ptr ) {
         float f;
-        if ( sscanf( ptr, "%f", &f ) == EOF ) {}
+        if ( sscanf( ptr, "%f", &f ) == EOF ) {}                        // check return code
         return f;
 }
 double ato( const char * ptr ) {
         double d;
-        if ( sscanf( ptr, "%lf", &d ) == EOF ) {}
+        if ( sscanf( ptr, "%lf", &d ) == EOF ) {}                       // check return code
         return d;
 }
 long double ato( const char * ptr ) {
         long double ld;
-        if ( sscanf( ptr, "%Lf", &ld ) == EOF ) {}
+        if ( sscanf( ptr, "%Lf", &ld ) == EOF ) {}                      // check return code
         return ld;
 }
@@ -129 +138 @@
 float _Complex ato( const char * ptr ) {
         float re, im;
-        if ( sscanf( ptr, "%g%gi", &re, &im ) == EOF ) {}
+        if ( sscanf( ptr, "%g%gi", &re, &im ) == EOF ) {}       // check return code
         return re + im * _Complex_I;
 }
 double _Complex ato( const char * ptr ) {
         double re, im;
-        if ( sscanf( ptr, "%lf%lfi", &re, &im ) == EOF ) {}
+        if ( sscanf( ptr, "%lf%lfi", &re, &im ) == EOF ) {} // check return code
         return re + im * _Complex_I;
 }
 long double _Complex ato( const char * ptr ) {
         long double re, im;
-        if ( sscanf( ptr, "%Lf%Lfi", &re, &im ) == EOF ) {}
+        if ( sscanf( ptr, "%Lf%Lfi", &re, &im ) == EOF ) {}     // check return code
         return re + im * _Complex_I;
 }       
@@ -213 +222 @@
 //---------------------------------------
 
-// forall( otype T | { T ?/?( T, T ); T ?%?( T, T ); } )
-// [ T, T ] div( T t1, T t2 ) { return [ t1 / t2, t1 % t2 ]; }
+forall( otype T | { T ?/?( T, T ); T ?%?( T, T ); } )
+[ T, T ] div( T t1, T t2 ) { /* return [ t1 / t2, t1 % t2 ]; */ }
 
 //---------------------------------------
@@ -221 +230 @@
 long int abs( long int v ) { return labs( v ); }
 long long int abs( long long int v ) { return llabs( v ); }
-float abs( float x ) { return fabsf( x ); }
-double abs( double x ) { return fabs( x ); }
-long double abs( long double x ) { return fabsl( x ); }
-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 ); }
+float abs( float v ) { return fabsf( v ); }
+double abs( double v ) { return fabs( v ); }
+long double abs( long double v ) { return fabsl( v ); }
+float _Complex abs( float _Complex v ) { return cabsf( v ); }
+double _Complex abs( double _Complex v ) { return cabs( v ); }
+long double _Complex abs( long double _Complex v ) { return cabsl( v ); }
+
+//---------------------------------------
+
+float floor( float v ) { return floorf( v ); }
+long double floor( long double v ) { return floorl( v ); }
+
+float ceil( float v ) { return ceilf( v ); }
+long double ceil( long double v ) { return ceill( v ); }
 
 //---------------------------------------