include "NSLog.incl"

local fn StringIsNumeric( string as CFStringRef ) as BOOL
  BOOL flag = NO
  ScannerRef scanner = fn ScannerWithString( string )
  if ( fn ScannerScanFloat( scanner, NULL ) )
    flag = fn ScannerIsAtEnd( scanner )
  end if
end fn = flag

NSLog(@"%d",fn StringIsNumeric( @"1.23" ))
NSLog(@"%d",fn StringIsNumeric( @"-123.4e5" ))
NSLog(@"%d",fn StringIsNumeric( @"alpha" ))

HandleEvents