45 lines
948 B
Plaintext
45 lines
948 B
Plaintext
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
|