31 lines
1.0 KiB
Plaintext
31 lines
1.0 KiB
Plaintext
include "NSLog.incl"
|
|
|
|
local fn CanBlocksSpell( w as CFStringRef ) as CFStringRef
|
|
NSUInteger i, j
|
|
CFStringRef s = @"", t1, t2 : if fn StringIsEqual( w, @"" ) then exit fn = @"YES" else w = ucase(w)
|
|
|
|
mda(0) = {@"BO",@"XK",@"DQ",@"CP",@"NA",@"GT",@"RE",@"TG",@"QD",¬
|
|
@"FS",@"JW",@"HU",@"VI",@"AN",@"OB",@"ER",@"FS",@"LY",@"PC",@"ZM"}
|
|
|
|
for i = 0 to len(w) - 1
|
|
for j = 0 to mda_count - 1
|
|
t1 = mid( mda(j), 0, 1 ) : t2 = mid( mda(j), 1, 1 )
|
|
if ( fn StringIsEqual( mid( w, i, 1 ), t1 ) ) then s = fn StringByAppendingString( s, t1 ) : mda(j) = @" " : break
|
|
if ( fn StringIsEqual( mid( w, i, 1 ), t2 ) ) then s = fn StringByAppendingString( s, t2 ) : mda(j) = @" " : break
|
|
next
|
|
next
|
|
if fn StringIsEqual( s, w ) then exit fn = @"YES"
|
|
end fn = @"NO"
|
|
|
|
NSUInteger i
|
|
CFArrayRef words
|
|
CFStringRef w
|
|
words = @[@"", @"a",@"Bark",@"BOOK",@"TrEaT",@"COMMON",@"Squad",@"conFUse",@"ABBA",@"aUtO"]
|
|
for w in words
|
|
printf @"Can blocks spell %7s : %@", fn StringUTF8String( w ), fn CanBlocksSpell( w )
|
|
next
|
|
|
|
NSLog( @"%@", fn WindowPrintViewString( 1 ) )
|
|
|
|
HandleEvents
|