tests/rot13.sh

   1 #!/usr/local/bin/slate
   2
   3 ch@(String Character traits) rot13
   4 [| value upper |
   5   upper: ch isUppercase.
   6   value: (ch toLowercase as: Integer).
   7   (value >= 97) /\ (value < 110)
   8     ifTrue: [value: value + 13]
   9     ifFalse: [(value > 109) /\ (value <= 122)
  10                 ifTrue: [value: value - 13]].
  11   upper
  12     ifTrue: [(value as: String Character) toUppercase]
  13     ifFalse: [value as: String Character]
  14 ].
  15
  16 s@(String traits) rot13
  17 [| result |
  18   result: s newSameSize.
  19   s doWithIndex: [| :each :index |
  20     result at: index put: each rot13].
  21   result
  22 ].
  23
  24 lobby define: #Rot13Encoder &parents: {Encoder}.
  25
  26
  27 c@(Rot13Encoder traits) convert
  28 [
  29   [c in isAtEnd] whileFalse: [c out nextPut: c in next rot13].
  30 ].
  31
  32
  33 (Rot13Encoder newFrom: Console reader to: Console writer) convert.
  34
  35
  36