Data commit

Task/Associative-array-Iteration/FutureBasic/associative-array-iteration-1.basic

@@ -0,0 +1,12 @@
+void local fn DoIt
+  CFDictionaryRef dict = @{@"A":@"Alpha", @"B":@"Bravo", @"C":@"Charlie", @"D":@"Delta"}
+  CFStringRef key
+
+  for key in dict
+    print key, dict[key]
+  next
+end fn
+
+fn DoIt
+
+HandleEvents

Task/Associative-array-Iteration/FutureBasic/associative-array-iteration-2.basic

@@ -0,0 +1,12 @@
+void local fn MyDictEnumerator( dict as CFDictionaryRef, key as CFTypeRef, obj as CFTypeRef, stp as ^BOOL, userData as ptr )
+  print key, obj
+end fn
+
+void local fn DoIt
+  CFDictionaryRef dict = @{@"A":@"Alpha", @"B":@"Bravo", @"C":@"Charlie", @"D":@"Delta"}
+  DictionaryEnumerateKeysAndObjects( dict, @fn MyDictEnumerator, NULL )
+end fn
+
+fn DoIt
+
+HandleEvents

Task/Associative-array-Iteration/FutureBasic/associative-array-iteration-3.basic

@@ -0,0 +1,13 @@
+void local fn DoIt
+  CFDictionaryRef dict = @{@"A":@"Alpha", @"B":@"Bravo", @"C":@"Charlie", @"D":@"Delta"}
+  CFArrayRef keys = fn DictionaryAllKeys( dict )
+  CFStringRef key
+
+  for key in keys
+    print key, dict[key]
+  next
+end fn
+
+fn DoIt
+
+HandleEvents

Task/Associative-array-Iteration/FutureBasic/associative-array-iteration-4.basic

@@ -0,0 +1,13 @@
+void local fn DoIt
+  CFDictionaryRef dict = @{@"A":@"Alpha", @"B":@"Bravo", @"C":@"Charlie", @"D":@"Delta"}
+  CFArrayRef values = fn DictionaryAllValues( dict )
+  CFStringRef value
+
+  for value in values
+    print value
+  next
+end fn
+
+fn DoIt
+
+HandleEvents

Task/Associative-array-Iteration/FutureBasic/associative-array-iteration-5.basic

@@ -0,0 +1,25 @@
+void local fn DoIt
+  CFDictionaryRef dict = @{@"A":@"Alpha", @"B":@"Bravo", @"C":@"Charlie", @"D":@"Delta"}
+  CFStringRef     key
+  CFTypeRef       obj
+
+  EnumeratorRef keyEnumerator = fn DictionaryKeyEnumerator( dict )
+  key = fn EnumeratorNextObject( keyEnumerator )
+  while ( key )
+    print key,dict[key]
+    key = fn EnumeratorNextObject( keyEnumerator )
+  wend
+
+  print
+
+  EnumeratorRef objectEnumerator = fn DictionaryObjectEnumerator( dict )
+  obj = fn EnumeratorNextObject( objectEnumerator )
+  while ( obj )
+    print obj
+    obj = fn EnumeratorNextObject( objectEnumerator )
+  wend
+end fn
+
+fn DoIt
+
+HandleEvents