Changes in src/libcfa/stdlib.c [c3ebf37:707446a]

File:

• src/libcfa/stdlib.c (modified) (3 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 Feb 23 23:27:02 2017
-// Update Count     : 171
+// Last Modified On : Sat Apr  1 18:31:26 2017
+// Update Count     : 181
 //
 
@@ -91 +91 @@
 }
 
+forall( dtype T, ttype Params | { void ^?{}(T *); void delete(Params); } )
+void delete( T * ptr, Params rest ) {
+        if ( ptr ) {
+                ^ptr{};
+                free( ptr );
+        }
+        delete( rest );
+}
+
 //---------------------------------------
 
@@ -216 +225 @@
         int comp( const void * t1, const void * t2 ) { return *(T *)t1 < *(T *)t2 ? -1 : *(T *)t2 < *(T *)t1 ? 1 : 0; }
         return (T *)bsearch( &key, arr, dimension, sizeof(T), comp );
+} // bsearch
+
+forall( otype T | { int ?<?( T, T ); } )
+unsigned int bsearch( T key, const T * arr, size_t dimension ) {
+        int comp( const void * t1, const void * t2 ) { return *(T *)t1 < *(T *)t2 ? -1 : *(T *)t2 < *(T *)t1 ? 1 : 0; }
+        T *result = (T *)bsearch( &key, arr, dimension, sizeof(T), comp );
+        return result ? result - arr : dimension;                       // pointer subtraction includes sizeof(T)
 } // bsearch