Data update

Task/Deepcopy/FutureBasic/deepcopy.basic

@@ -0,0 +1,44 @@
+include "NSLog.incl"
+
+begin record DeepCopy
+  NSInteger   value1
+  CFStringRef value2
+  CFStringRef value3
+  Boolean     value4
+  double      value5
+end record
+
+local fn DoDeepCopy
+  DeepCopy a, b
+
+  a.value1 = 10
+  a.value2 = @"A"
+  a.value3 = @"Okay"
+  a.value4 = YES
+  a.value5 = 1.985766472453666
+
+  b = a
+  b.value1 = 20
+  b.value2 = @"B"
+  b.value3 = @"Not Okay"
+  b.value4 = NO
+  b.value5 = 3.148556644245367
+
+  NSLog( @"\nValue of 'a':" )
+  NSLog( @"a.value1: %ld",   a.value1 )
+  NSLog( @"a.value2: %@",    a.value2 )
+  NSLog( @"a.value3: %@%",   a.value3 )
+  NSLog( @"b.value4: %@",    fn BoolString( a.value4 ) )
+  NSLog( @"a.value5: %.15f", a.value5 )
+
+  NSLog( @"\nValue of 'b':" )
+  NSLog( @"b.value1: %ld",   b.value1 )
+  NSLog( @"b.value2: %@",    b.value2 )
+  NSLog( @"b.value3: %@%",   b.value3 )
+  NSLog( @"b.value4: %@",    fn BoolString( b.value4 ) )
+  NSLog( @"b.value5: %.15f", b.value5 )
+end fn
+
+fn DoDeepCopy
+
+HandleEvents