35 lines
1.2 KiB
Plaintext
35 lines
1.2 KiB
Plaintext
local fn SaveConfiguration
|
|
CFDictionaryRef defaults = @{¬
|
|
@"FULLNAME" : @"Foo Barber",¬
|
|
@"FAVOURITEFRUIT" : @"banana",¬
|
|
@"NEEDSPEELING" : @YES,¬
|
|
@"SEEDSREMOVED" : @NO,¬
|
|
@"OTHERFAMILY" : @[@"Rhu Barber", @"Harry Barber"]}
|
|
|
|
UserDefaultsRegisterDefaults( defaults )
|
|
end fn
|
|
|
|
local fn ReadConfiguration
|
|
CFStringRef tempStr
|
|
|
|
CFStringRef fullname = fn UserDefaultsString( @"FULLNAME" )
|
|
CFStringRef favouritefruit = fn UserDefaultsString( @"FAVOURITEFRUIT" )
|
|
BOOL needspeeling = fn UserDefaultsBool( @"NEEDSPEELING" )
|
|
BOOL seedsremoved = fn UserDefaultsBool( @"SEEDSREMOVED" )
|
|
CFArrayRef otherfamily = fn UserDefaultsArray( @"OTHERFAMILY" )
|
|
|
|
printf @"Saved configuration:\n"
|
|
printf @"FULLNAME: %@", fullname
|
|
printf @"FAVOURITEFRUIT: %@", favouritefruit
|
|
if needspeeling == YES then tempStr = @"TRUE" else tempStr = @"FALSE"
|
|
printf @"NEEDSPEELING: %@", tempStr
|
|
if seedsremoved == YES then tempStr = @"TRUE" else tempStr = @"FALSE"
|
|
printf @"SEEDSREMOVED: %@", @"(undefined)"
|
|
printf @"OTHERFAMILY: %@, %@", otherfamily[0], otherfamily[1]
|
|
end fn
|
|
|
|
fn SaveConfiguration
|
|
fn ReadConfiguration
|
|
|
|
HandleEvents
|