Data commit

Task/Apply-a-callback-to-an-array/FutureBasic/apply-a-callback-to-an-array-1.basic

@@ -0,0 +1,20 @@
+include "NSLog.incl"
+
+void local fn Callback( n as NSInteger )
+  NSLog( @"Square root of %ld = %f", n, sqr(n) )
+end fn
+
+void local fn DoIt
+  NSUInteger i, count
+  CFArrayRef array = @[@1, @2, @3, @4, @5, @6, @7, @8, @9, @10]
+
+  count = len(array)
+
+  for i = 0 to count -1
+    fn Callback( fn NumberIntegerValue( array[i] ) )
+  next
+end fn
+
+fn DoIt
+
+HandleEvents

Task/Apply-a-callback-to-an-array/FutureBasic/apply-a-callback-to-an-array-2.basic

@@ -0,0 +1,15 @@
+include "NSLog.incl"
+
+void local fn Callback( array as CFArrayRef, obj as CFTypeRef )
+  long value = intVal(obj)
+  NSLog( @"Square root of %ld = %f", value, sqr(value) )
+end fn
+
+void local fn DoIt
+  CFArrayRef array = @[@1, @2, @3, @4, @5, @6, @7, @8, @9, @10]
+  ArrayEnumerateObjects( array, @fn Callback, NULL )
+end fn
+
+fn DoIt
+
+HandleEvents