Changes in src/libcfa/stdlib.c [a797e2b1:627f585]

File:

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

src/libcfa/stdlib.c

@@ -5 +5 @@
 // file "LICENCE" distributed with Cforall.
 //
-// algorithm.c -- 
+// algorithm.c --
 //
 // Author           : Peter A. Buhr
@@ -78 +78 @@
 } // posix_memalign
 
+forall( otype T, ttype Params | { void ?{}(T *, Params); } )
+T * new( Params p ) {
+        return ((T*)malloc()){ p };
+}
+
+forall( dtype T | { void ^?{}(T *); } )
+void delete( T * ptr ) {
+  if ( ptr ) {
+    ^ptr{};
+    free( ptr );
+  }
+}
+
 //---------------------------------------
 
@@ -141 +154 @@
         if ( sscanf( ptr, "%Lf%Lfi", &re, &im ) == EOF ) {}
         return re + im * _Complex_I;
-}       
+}
 
 int strto( const char * sptr, char ** eptr, int base ) {
@@ -213 +226 @@
 //---------------------------------------
 
-// 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 ]; }
 
 //---------------------------------------