CharacterEncoder.st
changeset 8186 ae97115c26f5
parent 8176 66d1004f1806
child 8187 102db6ff634b
equal deleted inserted replaced
8185:e09efa26b6f8 8186:ae97115c26f5
   544 "/        (MS_Symbol           unicode     ( 'ms-symbol' 'microsoft-symbol'  ))
   544 "/        (MS_Symbol           unicode     ( 'ms-symbol' 'microsoft-symbol'  ))
   545 
   545 
   546         (MS_Turkish         unicode     ( 'ms-turkish' 'ms-cp1254' 'microsoft-cp1254' 'cp1254' 'microsoft-turkish' 'windows-1254'  ))
   546         (MS_Turkish         unicode     ( 'ms-turkish' 'ms-cp1254' 'microsoft-cp1254' 'cp1254' 'microsoft-turkish' 'windows-1254'  ))
   547 
   547 
   548         (NEXT               unicode     ( 'next' 'nextstep'  ))
   548         (NEXT               unicode     ( 'next' 'nextstep'  ))
       
   549 
       
   550         (SGML               unicode     ( 'sgml' ))
   549     ) triplesDo:[:className :decodesTo :encodesTo |
   551     ) triplesDo:[:className :decodesTo :encodesTo |
   550         |dict|
   552         |dict|
   551 
   553 
   552         "/ notice that the encoders are not yet installed as autoloaded.
   554         "/ notice that the encoders are not yet installed as autoloaded.
   553         "/ Therefore, we remember their names here.
   555         "/ Therefore, we remember their names here.
   868          ('sjis'        'SJIS - shift jis 8bit codes (japanese)'  )
   870          ('sjis'        'SJIS - shift jis 8bit codes (japanese)'  )
   869 "/       nil
   871 "/       nil
   870          ('gb'          'GB - mainland china'                   )
   872          ('gb'          'GB - mainland china'                   )
   871          ('big5'        'BIG5 - taiwan'                         )
   873          ('big5'        'BIG5 - taiwan'                         )
   872 "/         ('ksc'         'korean'                        )
   874 "/         ('ksc'         'korean'                        )
       
   875          ('sgml'        'SGML (XML/HTML) character escapes'     )
   873        )
   876        )
   874 !
   877 !
   875 
   878 
   876 userFriendlyNameOfEncoding
   879 userFriendlyNameOfEncoding
   877     ^ self nameOfEncoding asUppercaseFirst
   880     ^ self nameOfEncoding asUppercaseFirst
  1248 ! !
  1251 ! !
  1249 
  1252 
  1250 !CharacterEncoder class methodsFor:'documentation'!
  1253 !CharacterEncoder class methodsFor:'documentation'!
  1251 
  1254 
  1252 version
  1255 version
  1253     ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.74 2004-03-12 16:29:58 cg Exp $'
  1256     ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.75 2004-03-12 20:07:23 cg Exp $'
  1254 ! !
  1257 ! !
  1255 
  1258 
  1256 CharacterEncoder initialize!
  1259 CharacterEncoder initialize!