Rebol Programming/utf?

= USAGE: = UTF? data

= DESCRIPTION: = Returns the UTF encoding from the BOM (byte order marker): + for BE; - for LE.

UTF? is a function value. = ARGUMENTS =
 * data -- (Type: binary)

= SOURCE CODE = utf?: func [ {Returns the UTF encoding from the BOM (byte order marker): + for BE; - for LE.} data [binary!] ][   parse/all/case data [ #{EFBBBF} (return 8) | #{0000FEFF} (return 32) | #{FFFE0000} (return -32) | #{FEFF} (return 16) | #{FFFE} (return -16) | (return 0) ] ]