#REFACTORING
authorStefan Vogel <sv@exept.de>
Tue, 22 Mar 2016 18:31:14 +0100
changeset 3762 446521a66e42
parent 3761 43af86dd75ca
child 3763 0d73959c77f3
#REFACTORING class: Base32Coder added: #nextPutByte: removed: #nextPut:
Base32Coder.st
--- a/Base32Coder.st	Tue Mar 22 17:02:28 2016 +0100
+++ b/Base32Coder.st	Tue Mar 22 18:31:14 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -145,7 +143,7 @@
 
 !Base32Coder methodsFor:'encoding'!
 
-nextPut:aByte
+nextPutByte:aByte
     "encode aByte on the output stream"
 
     "RFC 2045 says: max 76 characters in one line"
@@ -154,7 +152,7 @@
         charCount := 0.
     ].
 
-    buffer := (buffer bitShift:8) bitOr:aByte asInteger.
+    buffer := (buffer bitShift:8) bitOr:aByte.
     bits := bits + 8 - 5.           "max value of bits = 4 + 8 - 5"
 
     bits >= 5 ifTrue:[
@@ -249,10 +247,10 @@
 !Base32Coder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Base32Coder.st,v 1.4 2015-05-07 20:36:29 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/Base32Coder.st,v 1.4 2015-05-07 20:36:29 cg Exp $'
+    ^ '$Header$'
 ! !