Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
changed: #asPackedString
authorClaus Gittinger <cg@exept.de>
Tue, 17 Nov 2009 14:29:37 +0100
changeset 12550 c3529a2f89e4
parent 12549 1cb4580cabb6
child 12551 55186abb1c0d
changed: #asPackedString
ByteArray.st file | annotate | diff | comparison | revisions 
--- a/ByteArray.st	Tue Nov 17 12:03:50 2009 +0100
+++ b/ByteArray.st	Tue Nov 17 14:29:37 2009 +0100
@@ -1080,44 +1080,44 @@
     stop := self size.
 
     stop > 100 ifTrue:[
-	"/ cg:
-	"/ initial lineBreak
-	outStream cr.
+        "/ cg:
+        "/ initial lineBreak
+        outStream cr.
     ].
     cpl := 0.
 
     [index <= stop] whileTrue:[
-	"take 3 source bytes"
-	n := (self at:index) bitShift:16.
-	(index < stop) ifTrue:[
-	    nextIndex := index + 1.
-	    n := n bitOr:((self at:nextIndex) bitShift:8).
-	    (nextIndex < stop) ifTrue:[
-		n := n bitOr:(self at:(index + 2)).
-	    ].
-	].
-
-	"took me a while to find that one out ..."
-	n := n bitXor:16r820820.
-
-	outStream nextPut:(Character value:(n bitShift:-18) + 32).
-	outStream nextPut:(Character value:((n bitShift:-12) bitAnd:16r3F) + 32).
-	outStream nextPut:(Character value:((n bitShift:-6) bitAnd:16r3F) + 32).
-	outStream nextPut:(Character value:(n bitAnd:16r3F) + 32).
-	index := index + 3.
-
-	"/ cg:
-	"/ lineBreak after every 120 characters
-	"/ fromPackedString will ignore those
-	cpl := cpl + 4.
-	cpl >= 120 ifTrue:[
-	    outStream cr.
-	    cpl := 0.
-	].
+        "take 3 source bytes"
+        n := (self at:index) bitShift:16.
+        (index < stop) ifTrue:[
+            nextIndex := index + 1.
+            n := n bitOr:((self at:nextIndex) bitShift:8).
+            (nextIndex < stop) ifTrue:[
+                n := n bitOr:(self at:(index + 2)).
+            ].
+        ].
+        index := index + 3.
+
+        "took me a while to find that one out ..."
+        n := n bitXor:16r820820.
+
+        outStream nextPut:(Character value:((n bitShift:-18) bitAnd:16r3F) + 32).
+        outStream nextPut:(Character value:((n bitShift:-12) bitAnd:16r3F) + 32).
+        outStream nextPut:(Character value:((n bitShift:-6) bitAnd:16r3F) + 32).
+        outStream nextPut:(Character value:(n bitAnd:16r3F) + 32).
+
+        "/ cg:
+        "/ lineBreak after every 120 characters
+        "/ fromPackedString will ignore those
+        cpl := cpl + 4.
+        cpl >= 120 ifTrue:[
+            outStream cr.
+            cpl := 0.
+        ].
     ].
     (mod := stop \\ 3) ~~ 0 ifTrue:[
-	outStream backStep.
-	outStream nextPut:(Character value:(mod + 96)).
+        outStream backStep.
+        outStream nextPut:(Character value:(mod + 96)).
     ].
     ^ outStream contents
 
@@ -3264,9 +3264,9 @@
 !ByteArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.196 2009-11-05 16:34:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.197 2009-11-17 13:29:37 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.196 2009-11-05 16:34:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.197 2009-11-17 13:29:37 cg Exp $'
 ! !
hg/stx-libbasic