{ import: Object }

CharacterMap : Object ( namesToCodePoints codePointsToNames size )

CharacterMap withNames: names
[
    self := self new.
    self addNames: names.
]

CharacterMap new
[
    self := super new.
    namesToCodePoints := IdentityDictionary new.
    codePointsToNames := IdentityDictionary new.
    size              := 0.
]

CharacterMap addNames: names
[
    | codePoint |
    codePoint := 0.
    names do: [:nameOrInteger |
	codePoint := nameOrInteger isInteger
	    ifTrue:
		[nameOrInteger]
	    ifFalse:
		[self at: codePoint put: nameOrInteger.
		 codePoint + 1]].
]

CharacterMap at: codePoint put: name
[
    | nameSymbol |
    codePoint < 0 ifTrue: [^self].
    nameSymbol := name asSymbol.
    codePointsToNames at: codePoint put: nameSymbol.
    namesToCodePoints at: nameSymbol ifAbsentPut: codePoint.
    codePoint > size ifTrue: [size := codePoint].
]

CharacterMap size	[ ^size ]

CharacterMap includesCodePoint: codePoint	[ ^self nameAtCodePoint: codePoint ifAbsent: [] ]
CharacterMap includesName: name			[ ^self codePointAtName: name ifAbsent: [] ]

CharacterMap nameAtCodePoint: codePoint		[ ^self nameAtCodePoint: codePoint ifAbsent: [#'.notdef'] ]
CharacterMap codePointAtName: name		[ ^self codePointAtName: name ifAbsent: [0] ]

CharacterMap nameAtCodePoint: codePoint ifAbsent: errorBlock	[ ^codePointsToNames at: codePoint ifAbsent: errorBlock ]
CharacterMap codePointAtName: name ifAbsent: errorBlock		[ ^namesToCodePoints at: name asSymbol ifAbsent: errorBlock ]

CharacterMap_ISO8859_15 := [ CharacterMap withNames: #(
         "0"       "1"        "2"         "3"           "4"         "5"       "6"       "7"        "8"       "9"         "A"          "B"            "C"        "D"          "E"          "F"
    "0" '.notdef' '.notdef'  '.notdef'   '.notdef'     '.notdef'   '.notdef' '.notdef' '.notdef'  '.notdef' '.notdef'   '.notdef'    '.notdef'      '.notdef'  '.notdef'    '.notdef' 	 '.notdef'
    "1" '.notdef' '.notdef'  '.notdef'   '.notdef'     '.notdef'   '.notdef' '.notdef' '.notdef'  '.notdef' '.notdef'   '.notdef'    '.notdef'      '.notdef'  '.notdef'    '.notdef' 	 '.notdef'
    "2"   space     exclam     quotedbl    numbersign    dollar      percent   ampersand quoteright parenleft parenright  asterisk     plus           comma      minus        period       slash
    "3"   zero      one        two         three         four        five      six       seven      eight     nine        colon        semicolon      less       equal        greater      question
    "4"   at        A          B           C             D           E         F         G          H         I           J            K              L          M            N            O
    "5"   P         Q          R           S             T           U         V         W          X         Y           Z            bracketleft    backslash  bracketright asciicircum  underscore
    "6"   quoteleft a          b           c             d           e         f         g          h         i           j            k              l          m            n            o
    "7"   p         q          r           s             t           u         v         w          x         y           z            braceleft      bar        braceright   asciitilde '.notdef'
    "8" '.notdef' '.notdef'  '.notdef'   '.notdef'     '.notdef'   '.notdef' '.notdef' '.notdef'  '.notdef' '.notdef'   '.notdef'    '.notdef'      '.notdef'  '.notdef'    '.notdef'    '.notdef'
    "9" '.notdef' '.notdef'  '.notdef'   '.notdef'     '.notdef'   '.notdef' '.notdef' '.notdef'  '.notdef' '.notdef'   '.notdef'    '.notdef'      '.notdef'  '.notdef'    '.notdef'    '.notdef'
    "A"   space     exclamdown cent        sterling      Euro        yen       Scaron    section    scaron    copyright   ordfeminine  guillemotleft  logicalnot hyphen       registered   macron
    "B"   degree    plusminus  twosuperior threesuperior Zcaron      mu        paragraph bullet     zcaron    onesuperior ordmasculine guillemotright OE         oe           Ydieresis    questiondown
    "C"   Agrave    Aacute     Acircumflex Atilde        Adieresis   Aring     AE        Ccedilla   Egrave    Eacute      Ecircumflex  Edieresis      Igrave     Iacute       Icircumflex  Idieresis
    "D"   Eth       Ntilde     Ograve      Oacute        Ocircumflex Otilde    Odieresis multiply   Oslash    Ugrave      Uacute       Ucircumflex    Udieresis  Yacute       Thorn        germandbls
    "E"   agrave    aacute     acircumflex atilde        adieresis   aring     ae        ccedilla   egrave    eacute      ecircumflex  edieresis      igrave     iacute       icircumflex  idieresis
    "F"   eth       ntilde     ograve      oacute        ocircumflex otilde    odieresis divide     oslash    ugrave      uacute       ucircumflex    udieresis  yacute       thorn        ydieresis )
]

CharacterMap iso8859_15	[ ^CharacterMap_ISO8859_15 ]

CharacterMap default	[ ^CharacterMap_ISO8859_15 ]