st/Character.st

   1
   2
   3 "instance creation"
   4
   5 Character classMethod!
   6 characterFor: unicodeValue
   7         <primitive: 'Character_characterFor'>
   8         self primitiveFailed!
   9
  10 Character classMethod!
  11 new
  12         ^ self basicNew!
  13
  14 Character classMethod!
  15 new: anInteger
  16         ^ self basicNew!
  17
  18 Character classMethod!
  19 basicNew
  20         self error: 'Characters can only be created with #characterFor:'!
  21
  22
  23 "common integers"
  24
  25 Character classMethod!
  26 cr
  27         ^ $\n!
  28
  29 Character classMethod!
  30 tab
  31         ^ $\t!
  32
  33 Character classMethod!
  34 space
  35         ^ $\0020!
  36
  37
  38 "accessing"
  39
  40 Character method!
  41 value
  42         <primitive: 'Character_value'>
  43         self primitiveFailed!
  44
  45 "comparing"
  46
  47 Character method!
  48 = aCharacter
  49         ^ aCharacter isCharacter and: [(self compare: aCharacter) = 0]!
  50
  51 Character method!
  52 < aCharacter
  53         ^ (self compare: aCharacter) < 0!
  54
  55 Character method!
  56 > aCharacter
  57         ^ (self compare: aCharacter) > 0!
  58
  59 Character method!
  60 <= aCharacter
  61         ^ (self compare: aCharacter) <= 0!
  62
  63 Character method!
  64 >= aCharacter
  65         ^ (self compare: aCharacter) >= 0!
  66
  67 Character method!
  68 compare: aCharacter
  69         ^ self value - aCharacter value!
  70
  71 Character method!
  72 hash
  73         ^ self value!
  74
  75
  76 "testing"
  77
  78 Character method!
  79 isCharacter
  80         ^ true!
  81
  82
  83 "printing"
  84
  85 Character method!
  86 printOn: aStream
  87         aStream nextPut: $$.
  88         aStream nextPut: self!