# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1499940339 -7200
# Node ID 78991867cfebe8a9fa206c2380b39664320665da
# Parent  1f634836c81625b4e176224e02c0451a1dda6309
#FEATURE by cg
class: Character
class definition

class: Character class
added: #byteOrderMark

diff -r 1f634836c816 -r 78991867cfeb Character.st
--- a/Character.st	Wed Jul 12 16:13:03 2017 +0200
+++ b/Character.st	Thu Jul 13 12:05:39 2017 +0200
@@ -17,7 +17,7 @@
 
 Magnitude subclass:#Character
 	instanceVariableNames:'asciivalue'
-	classVariableNames:'CharacterTable Separators'
+	classVariableNames:'CharacterTable Separators BOMCharacter'
 	poolDictionaries:''
 	category:'Magnitude-General'
 !
@@ -313,6 +313,7 @@
     ^ self codePoint:anInteger
 ! !
 
+
 !Character class methodsFor:'accessing untypeable characters'!
 
 controlCharacter:char
@@ -371,6 +372,7 @@
     ^ self codePoint:41
 ! !
 
+
 !Character class methodsFor:'constants'!
 
 backspace
@@ -385,6 +387,17 @@
     ^ Character codePoint:7
 !
 
+byteOrderMark
+    "the unicode BOM character"
+
+    BOMCharacter isNil ifTrue:[
+        BOMCharacter := 16rFEFF asCharacter
+    ].
+    ^ BOMCharacter
+
+    "Created: / 13-07-2017 / 12:04:34 / cg"
+!
+
 cr
     "return the lineEnd character
      - actually (in unix) this is a newline character"